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

zooey

is
        mark:boolean;
2 p' K5 g( L4 v- @6 \        dx,dy,ct:real;
* O6 Q) S( y( M2 s: ?    i,j,rows,lines:integer;
1 m7 e& p8 R  c' e( |' G8 H9 c$ s4 f3 j    machinename,bufname:string;
    machine,buf:object;
do
3 l( z+ P* r8 l2 q7 T( G; i, }        current.eraselayer(1);
  Z3 H# R0 V2 D) [* Z$ |       
        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
. C: F5 A7 e/ q2 N                        print"yes";
                when 32 then
. q  o0 Z3 V! z) W6 u                        print"no";
                else
1 }: d: b# H1 l3 U                        print"cancel";
- j* v0 \% f! r6 D" R8 t# ~3 s                end;
% F9 {% L  `* y/ l                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
. e9 [3 K/ b8 k4 U0 \3 u4 n+ a9 n        if existsobject(machinename) then
5 Z" Y) s( B- N: c7 f% E. o7 m+ d                machine:=str_to_obj(machinename);
3 A9 g6 w$ r4 B2 r3 M4 |: ~$ t                machine.deleteobject;
8 t% g+ Z1 \" m' K( v4 l        end;
        bufname:=sprint("BF",i);
% P1 W7 s2 F, T        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 Z% G8 V, F* e1 w5 X/ I                buf.deleteobject;
        end;
        next;
2 h3 R0 `3 S% u1 d4 R$ k       
        dx:=0;
; j2 ]" R, z7 V# n# p5 C1 M        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' x7 n% [# B0 h+ m( Y% z- \                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; o+ o4 u9 k* C" @0 ]' l                then
1 b2 _/ r" h2 ~                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ l' \7 s& D* K                        and activityspace[1,rows]<(1.05*y_max) then
5 ?6 ~8 Q; I+ E; M, W& o                        print activityspace[1,rows],",",activityspace[2,rows];
& ]) n4 M3 N' m- }( b4 u$ u% L* l: l                        ct:=activityspace[2,rows];
0 g( ~9 r& k1 D) u                        activityspace[2,rows]:=activityspace[1,rows];
% \+ y5 @/ y: `7 c1 ]                        activityspace[1,rows]:=ct;
6 ?, v) i/ |3 D1 F" L. W! t4 V+ Q                        mark:=true;
/ Z0 B; ?! k  ]5 p: i9 s                        else*/
                        y_max:=y_max+dy;
# M! V" E, Q" p                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: s& \% q9 z6 }& u4 h: O; ~                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
9 w8 f+ n1 c& E& ~+ z1 L6 ]- A            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
) q( n' @& {! i3 ]9 P& z                end;
, J  ?! J6 v( C5 p% m, R- r                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
/ P1 E- p" w' f% U" x  q/ M3 ^% A        next;
% C/ j& z; E2 z4 x1 T        y_max:=y_max+dy;
, G1 j' |: }5 R% t1 G8 O( E- w        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);
8 o' C0 @$ r6 [* `" G       
. x5 O3 m$ ^, X0 K4 Y/ W+ r( _        rows:=0;
; X. p7 P. n! e        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
1 S4 Z7 `; e& ]0 _! l) r                                d_from_to_chart[j,i]:=0;
" q: S; X; Q$ T+ \( T9 H& p                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
0 s8 l6 G3 d$ g/ v, t$ o        next;
- d  l! ?* c, v  @       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 D( _* C6 v$ R0 ?! V5 F! R                machinesequence[2,i]:=rows;
9 N: }7 X2 o1 x. N                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];
                        partstable[3,lines]:=sprint("parts");
& K9 m3 o- J7 x$ D0 O                        partstable[5,lines]:=rows;
. T: g) ^2 J/ V                        partstable[6,lines]:=j;
                end;
        next;
# n3 X% l- ^: r, l" `1 K        machinename:=sprint("M",rows);
, N/ v1 t: \! O: Q- Y        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]);
; T- x* [* K8 P! O) J" a/ v+ N. z        machine.name:=machinename;标识符未知
        machine.proctime:=5;
4 {, u  M' x# t7 v  n        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
( b9 |. t# }* i6 D3 {; c        bufname:=sprint("BF",rows);
: W! r0 h9 |2 x        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]);
' D- O& }/ a7 A  G* G6 a        buf.name:=bufname;
        buf.capacity:=5000;
        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;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
9 e  T. p/ \) wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;