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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
$ v' R2 a' c  A! y- G2 F    i,j,rows,lines:integer;
% l+ T' l7 M' o    machinename,bufname:string;
6 T0 m& N' S: v$ Y. B6 Q    machine,buf:object;
# C2 S+ Z' U* }* Pdo
/ H  U; }5 h- Y! b$ v0 m        current.eraselayer(1);
! y" Z6 |5 I2 ^+ h/ I       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 L- R( o3 v1 I! W                inspect messagebox("设施数目不对！请核查...,",50,13)
6 G, h) j3 Z$ E* \7 w                when 16 then
( P# k! F; D4 g1 p, y; {6 ~                        print"yes";
                when 32 then
) d8 P. |! W- ?% A, P% u. F9 b                        print"no";
                else
/ [6 c) y  H! p( A' S                        print"cancel";
' Z+ k+ M$ `/ ?3 F$ `0 G) q9 J                end;
                eventcontroller.stop;
6 |9 B  H0 _' w. r+ D        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
* I/ I2 S  ~; M+ e. D/ @                machine:=str_to_obj(machinename);
" T* [7 p1 p5 }: }                machine.deleteobject;
        end;
2 J* g/ G6 d! E0 y0 \        bufname:=sprint("BF",i);
. y# ^( V( H' N( ^( ]" X        if existsobject(bufname) then
7 ^4 N/ G3 X0 `1 x- U+ x                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
" f8 }6 w7 N. ]# Q' E8 t        dx:=0;
        dy:=0;
' ?6 D- @8 O, s' ~! ]9 T        for i:=1 to number_of_machine loop
9 d+ K- Z+ `2 q$ A+ B0 M4 n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: H: b; |1 U# S, ?                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 Z+ D6 l4 x3 L. m% q- ]                then
/ y7 J2 l; k' f5 H4 w6 q5 B                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
. o! X5 k! N, H) _: t                        print activityspace[1,rows],",",activityspace[2,rows];
4 `1 h0 T7 [1 d                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
4 H* q' F8 g! _* B* h                        y_max:=y_max+dy;
1 U) j: C. ]; H& l                        dx:=0;
                dy:=0;
. r# ?& \. a1 u; d' N                        --end;
3 O4 T3 s8 s4 _; }                end;
/ y! D( ?0 [7 a                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 a6 }, y  X. O            if activityspace[2,rows]>dy then
. N% j" n7 U* ?0 u7 |; d7 v$ I                        dy:=activityspace[2,rows];
$ c& x- q* X1 F% y9 f! g" f                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
" a' m. l& ~  U- t                ct:=activityspace[2,rows];
1 S/ q+ T* f4 b! O                        activityspace[2,rows]:=activityspace[1,rows];
9 |' |& d1 W7 y; E                        activityspace[1,rows]:=ct;
4 a/ b) |+ N; i$ {" K, f' J! C1 U                        end;*/
# {7 }* M/ e. j1 V+ K$ j8 Z' @" L8 A        next;
        y_max:=y_max+dy;
        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);
       
1 F; g- _/ S. s" ?        rows:=0;
+ z* F  a: p6 V. d) k' K6 {        lines:=0;
' o% t2 M! C. \5 P4 _5 W( H        for i:=1 to number_of_machine loop
6 h& B; p& J; {, Z" r* l                for j:=1 to number_of_machine loop
1 ]8 j( \+ @" j; r% Y" F8 W( C0 ]                        if j=i then
; v) h' A3 C. i# B                                d_from_to_chart[j,i]:=0;
" I* T7 T# U  R& W6 s; Q9 a, H8 }                        else
% c. F& ]1 Q* j+ f! [0 E                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
- l* b$ @- a; I/ \4 _0 B  T" y                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
" e9 O  l; B3 u9 |( p3 k( A                next;
        next;
) M8 ?( z( w/ p0 q1 U4 s3 T       
- j, P3 p2 m5 B; q* Y& B        lines:=0;
6 k6 X6 j" ]. Y9 o- o        partstable.delete;
       
3 [0 w; P5 i/ H% n        for i:=1 to number_of_machine loop
( t1 f4 m6 h- n9 S/ R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
3 S3 E2 t, O6 }8 b                for j:=1 to number_of_machine loop
9 s7 D9 t( ^! U3 b2 V2 J. Q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, l% B2 q, I1 L/ y                        partstable[2,lines]:=w_from_to_chart[j,rows];
; i! o6 J# E% N5 b( M6 i6 A                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
4 X. P1 A, j3 @$ k& ^0 u        next;
6 z' A; x% h1 K. H( ]        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]);
        machine.name:=machinename;标识符未知
7 L5 c' F1 X4 N& N3 z        machine.proctime:=5;
. A  i8 M/ e1 X        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
6 P$ d# ^/ r/ ~/ v9 H        bufname:=sprint("BF",rows);
) C$ e& _, a, ?' j$ ]- G        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]);
0 o& }5 \- j; E+ m        buf.name:=bufname;
        buf.capacity:=5000;
; N# {' Q( V. y- W) m; I0 j8 k' u9 M        buf.proctime:=0;
0 e0 R  Q8 z; a* D& [7 X        .materialflow.connector.connect(buf,machine);
4 T8 g0 ^4 u1 \3 M       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ y* u# y6 w. S& @: j4 |1 @dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
3 E; s( O; E4 K0 ~$ t; y$ `) xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;