simtalk程序调试不出来，帮忙看一下

zooey

is
        mark:boolean;
5 ]9 Z7 g6 V+ Q4 _. N3 _        dx,dy,ct:real;
1 Z& I+ q6 a/ @4 u0 q' w    i,j,rows,lines:integer;
8 Q7 k5 w( s5 g$ u- i8 j1 w- x    machinename,bufname:string;
; E: p/ `0 o  n. \+ X2 D    machine,buf:object;
do
        current.eraselayer(1);
       
. ?3 P( H; Z% ?+ Z        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
/ o+ N# U8 k& S& [4 U                when 16 then
$ r+ R; n5 f% D* e" r                        print"yes";
0 Z! e. y3 }! t1 g/ D0 V% p                when 32 then
                        print"no";
                else
: h. z* g8 l5 w% ^) o# _3 r                        print"cancel";
                end;
( n( }- I+ }$ H9 q& [9 r: D                eventcontroller.stop;
        end;
; e, ?: @4 R7 l( y' Y- C& t- O       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
7 d$ C  f2 V' y* o* u                machine:=str_to_obj(machinename);
& F# o/ q; E. T                machine.deleteobject;
) |" m, p7 E  C+ u& f        end;
        bufname:=sprint("BF",i);
2 f, D7 E* f- d& M, N4 B        if existsobject(bufname) then
6 n6 p! x: b- |0 H0 ~" U, r                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
% U6 D8 g) ^. s" j* b       
- W' y) k  c1 E3 A. F1 U9 u        dx:=0;
  j% Q; ?3 B3 n& |* Q7 K        dy:=0;
0 L: q: K& r" \/ `7 C$ A8 M        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
. B! o# m8 j. \$ l                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 o6 @. U, r1 e2 ?, J( d3 f/ S' `                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" A& x# x5 j$ ~                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& i! B7 K" r) _                        activityspace[1,rows]:=ct;
) B9 A# F( k! `5 {! s                        mark:=true;
2 D" }. t+ ~8 ]  W                        else*/
) d; Z  }: I' r0 z. X                        y_max:=y_max+dy;
; ^# k  K5 r; V$ q                        dx:=0;
                dy:=0;
( f5 j0 d" K. o' R" P# h+ r1 ~                        --end;
2 D) }: o7 M; C3 D( k/ Y0 [+ p                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 j# Z3 r# u$ o8 _  N  C" d                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, D/ L- V: i7 U9 M% E            if activityspace[2,rows]>dy then
: h. {" E! Q- G0 i( F# Z! A% Z( x1 r                        dy:=activityspace[2,rows];
                end;
$ s5 t# K- G. I. |* T                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
$ \4 R  D# w1 X3 Z2 O" J                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 q# g$ G, a8 D. K8 C# W3 n1 P' I/ Q                        end;*/
5 @0 o, W& j, S, e9 z8 _. K        next;
% X! V' H$ U  M# Y9 g8 ?        y_max:=y_max+dy;
8 @- e, F4 ~1 c7 P9 `        current.drawrectangle(1,x_pos_init-5,y_pos_init-5,activityspace[1,number_of_machine+1]*xscale+10,y_max*xscale+10,228,174);
        current.drawrectangle(1,x_pos_init-7,y_pos_init-7,activityspace[1,number_of_machine+1]*xscale+14,y_max*xscale+14,238,176);
       
+ p9 c  h3 C- t  V# {) S& x- h) D( [        rows:=0;
1 n6 x9 s4 J7 B$ |) N' O        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
2 k# A  U( Z  o8 Q                                d_from_to_chart[j,i]:=0;
$ _+ U+ Z( t0 m- I+ G# Y2 a                        else
" N4 e9 A; i9 u+ g                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* j/ d/ E( c( Q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
. L# W6 i' Z- b' N5 E                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
8 e7 e& B' k5 Q" C9 S                next;
% _! A/ Z) e; |) o# I        next;
5 D) g# l- G/ u5 {: ^  c- o       
; P5 e9 f! z5 V. n' O( y8 Q# C        lines:=0;
        partstable.delete;
       
' j; [5 L# v8 J& Z+ r; `$ [        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: K, ^  C  [) |( J2 _                machinesequence[2,i]:=rows;
* R( T1 e1 `" N% p0 i                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% |* C7 V6 }/ l: v                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
1 w/ H" G" b' W, g& A3 K' W5 P                        partstable[6,lines]:=j;
                end;
  i" I0 O* @; b+ F1 u        next;
7 W: i) H+ h9 n. Z        machinename:=sprint("M",rows);
        machine:=.materialflow.singleproc.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]+15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
+ n! Y9 r+ d- Z% W5 W        machine.name:=machinename;标识符未知
8 ?7 ]9 P& z+ _* U) E& s& L( ?        machine.proctime:=5;
6 j; B5 O+ V+ @; Y: e2 w        machine.label:=activityspace[0,rows];
. f# T. Z7 G- f- W        machine.exitctrl:=ref(leave);
" W5 |4 O5 H5 S3 B       
3 _' N+ @& Y5 `0 D6 ?3 O, A        bufname:=sprint("BF",rows);
9 K  s; n" R: A! d        buf:=.materialflow.buffer.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]-15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
        buf.name:=bufname;
        buf.capacity:=5000;
6 j# F, }3 L! ?( D        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ _4 \, Y& r& i" p/ `9 Cdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
) \' ~) D7 t9 J  U7 w' k1 vnext;
6 K5 c( |- ^% @2 i6 m9 z# Yend;
) T1 p' u  W! w1 v