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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
4 Z- V5 g, t$ F1 w) P* u! i    machine,buf:object;
do
8 g4 P1 {7 a$ g  C: o. Q1 B, p8 G        current.eraselayer(1);
4 p$ C! L7 A4 z( y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
$ X: p5 \0 R" R' p  U                when 16 then
( Q' C$ R4 z/ f! N6 Q& n1 Z                        print"yes";
' {: {. X5 V6 i- a+ w% H' d                when 32 then
                        print"no";
                else
/ B  q) ?! u) F) P$ t0 f                        print"cancel";
( \+ z% a! o" |! r+ b- Q                end;
) G0 k; h, z( F; z& z                eventcontroller.stop;
; R' N: }; g8 J        end;
5 A4 O/ e  h' j       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
+ U' {8 d$ o6 G! R% f  \        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
. p: T' _# Q% A: T8 ~! q        end;
3 V; G& H, H& ?4 p" w; a        bufname:=sprint("BF",i);
        if existsobject(bufname) then
0 A0 S/ c0 ]2 J, [                buf:=str_to_obj(bufname);
! n0 y* F. A; u( R                buf.deleteobject;
        end;
1 n0 Y. M. n' W/ t* W8 h9 K' O9 N        next;
) d/ ~9 @; J8 W5 _2 D* N) I       
3 S( P, ]* @$ ~" \& Q# F  j        dx:=0;
8 y" \3 x* {2 }! w) Q        dy:=0;
. J' E/ b% g4 X& J3 q# k* m        for i:=1 to number_of_machine loop
+ I% K1 R5 _' z; H8 [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 S$ U7 E0 m) Y4 ]9 W4 F                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 D/ x6 T! b1 @" e  _; T0 U" U                        and activityspace[1,rows]<(1.05*y_max) then
8 ?6 [/ O$ j; s  r4 `                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
! X: w  ]$ X: y9 h! w6 D                        activityspace[2,rows]:=activityspace[1,rows];
; n: V: u9 J( r# q5 I                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
, e% U$ H) s8 @8 s5 Z- Z' o                        dx:=0;
                dy:=0;
                        --end;
1 Z/ _1 ~) ~# `# w( }  _                end;
                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;
/ u" U8 y  A, v9 P4 O            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
) z# ^) t4 i1 E- w% q                end;
3 s9 E4 ^/ j- d# b) j5 x$ X4 O4 f                dx:=dx+activityspace[1,rows];
! x# H: r7 Q6 o! B3 D2 Z                /*if mark=true then
( L2 g# q9 R. u# r                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* J9 i5 O( {  E, D9 v$ C                        activityspace[1,rows]:=ct;
                        end;*/
        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);
4 _# q+ X+ ?) m' n1 h. Q       
. v5 L  N3 D( w  V. _        rows:=0;
        lines:=0;
6 S* Z4 O/ z- u* M( k        for i:=1 to number_of_machine loop
2 A$ R4 c0 I5 i$ ~& l8 E" {' y                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 r" h3 q3 w: o4 P+ `6 |8 L: c/ L                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
1 G8 H" k' R5 S, T7 C  C$ [/ {3 I                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
; g* h/ k! \1 b) U7 p" \4 }                        end;
                next;
        next;
4 r- s* l+ k+ j+ ]8 D; {5 A9 D       
9 w% v. l3 w' Y- q2 i. Y        lines:=0;
        partstable.delete;
       
* H: B1 L3 }0 g1 J        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- y% c1 `* t1 |$ M. m5 [                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ C8 U# d) F1 d) }                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 u# |8 b0 H- Z/ F7 k5 L                end;
        next;
        machinename:=sprint("M",rows);
0 ]3 A# C3 ]2 k% z        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 @7 o& t; @/ f+ `9 G0 s# u        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
+ _8 T, g* Q0 Y1 F        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
. N$ [  G! v  ^2 ~  O6 K        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;
        buf.proctime:=0;
- t' N4 a4 _! W: U        .materialflow.connector.connect(buf,machine);
- g* u% S8 d4 Y, c& Z7 Z, P* O# W       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) t: c) V4 Q% |dy:=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);
next;
end;