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

zooey

is
        mark:boolean;
8 i+ O: l7 D8 y8 i/ l" k  C4 i0 x) P, |- I        dx,dy,ct:real;
! G' M0 a+ Z& \+ S/ v" u/ \. R# b    i,j,rows,lines:integer;
1 h3 X( T* B% U" w0 I0 Y$ ^    machinename,bufname:string;
$ `# c9 ^1 B" Z1 f9 k    machine,buf:object;
do
  P6 W0 @/ ?8 I/ q0 r4 _        current.eraselayer(1);
       
2 Q6 Z7 b) Y7 T: q. o# T        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
! \! l+ T" G( y- }                        print"yes";
+ u+ q- |% V+ d% u7 x/ e4 K                when 32 then
$ j' v8 {3 |. C2 q                        print"no";
9 ~# Y: \! U* v) O1 N; T) e) b                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
4 p6 F' p, u( B5 F        machinename:=sprint("M",i);
  U  o9 ^8 M! |5 p$ W9 }) e        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 y; x9 b8 N1 A8 b                machine.deleteobject;
+ @# _) y9 ^. K9 w/ Z9 G' D" u1 L        end;
        bufname:=sprint("BF",i);
9 E3 e: ?2 T' K+ b6 l        if existsobject(bufname) then
" f7 N( W5 G* K                buf:=str_to_obj(bufname);
: i0 p4 k2 J# ]& f                buf.deleteobject;
6 M3 B- f  n  |9 ^        end;
) W- \2 \# P) U0 W( T% _4 L1 g        next;
/ ~: t8 m) T# S! o& C/ W/ h       
/ h/ L/ }0 v! d( e        dx:=0;
1 v2 h) M  q& |+ ]1 L' f        dy:=0;
        for i:=1 to number_of_machine loop
& A9 S" P& u5 ?9 ?) n9 K0 j2 S1 t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 c& A/ p. L5 o. D! N* T- [: p                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
9 W1 c+ g. X- m/ n$ \" Q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 c# `/ q! `# ]* P; c3 N4 a                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
/ L: T2 Z9 ]! W1 ~                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
; `; @+ h& D2 C" B# s- P4 L9 c                        else*/
( x/ `" T% D' ^  r, j                        y_max:=y_max+dy;
7 H/ b( x8 \% K4 r$ K+ N8 {7 i                        dx:=0;
( k: ^  r( c+ y. R# s, Q" |                dy:=0;
1 O) x8 Y* R) b8 M                        --end;
$ i( t3 m0 ]$ ^                end;
4 ^# ]$ k5 r) r                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! [3 d. K4 i  Q+ ]- x  U                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
) @7 t& h' f- k5 b" H                        dy:=activityspace[2,rows];
                end;
) z/ S/ T( ]8 j2 ~/ G                dx:=dx+activityspace[1,rows];
$ A* j! w0 j1 y+ f2 a0 L, g                /*if mark=true then
" o+ l3 w9 F5 R& [                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ y9 F6 {8 F7 T) a                        activityspace[1,rows]:=ct;
                        end;*/
0 r. ~! j9 q0 y: T. [        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);
       
        rows:=0;
1 f0 F# D: ~* D0 B! n% I        lines:=0;
* @6 j9 \/ a6 _# e2 x        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
) d7 D, `6 Q. B2 W) |1 L7 l) F' Y                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 d5 |% V1 @' y% Q% `$ I' X                                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);
                        end;
                next;
        next;
       
( e2 ^$ u7 @! O! |) i        lines:=0;
7 ?+ o5 z( D/ d0 z3 F' y% ^( C        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# r. ?: R2 T8 e3 \2 `                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
2 Y) Z3 f3 Q" }9 e                        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];
* w' H  i2 E4 c/ s                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
# a/ T' f8 }3 ?                end;
        next;
2 |/ s1 `' X& l5 G$ b; d. S        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]);
$ J% i) }+ z( }0 w        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
: k/ _2 f' A1 {  u" o       
7 }( V4 P8 A) r        bufname:=sprint("BF",rows);
        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]);
' o7 A# _( D$ |8 b4 _0 S5 _        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
. Z$ n+ v# f, c8 `0 e6 o0 Z( B        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 C. O! L7 c, X' @: z) L4 D* Edy:=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;
) G! S: T3 |+ a( s4 r6 Z. Eend;
2 T+ x. G+ @5 A% y1 {# x! X  D