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

zooey

is
        mark:boolean;
$ C3 q' ]$ q  G7 ]        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
2 \; A& t- r$ F4 y) R$ p' E+ h    machine,buf:object;
do
        current.eraselayer(1);
0 O& |/ O" ]8 s/ P4 Z3 I; ~( ~- g       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 }2 i; K6 ~, [  d                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
6 _( z2 y, V$ N: r; ?8 X# o/ h7 H                        print"no";
                else
* Q5 M0 U, O6 J                        print"cancel";
) W: C, o: F9 i  q                end;
                eventcontroller.stop;
        end;
       
' J1 w: T, d5 J% R        for i:=1 to number_of_machine loop
7 n3 Q8 `- P- O! c, w0 M! S        machinename:=sprint("M",i);
+ g8 C* B5 u5 I0 t) N        if existsobject(machinename) then
  J% K+ c# u8 F                machine:=str_to_obj(machinename);
" q+ o$ E. z+ N/ B                machine.deleteobject;
        end;
/ F/ Z- P, o. w; E& o1 x        bufname:=sprint("BF",i);
8 |+ }- O4 S7 \- z+ w        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ A$ ?. ]3 f2 S                buf.deleteobject;
        end;
2 P4 z7 D1 S& [- A0 ]0 H# L        next;
       
        dx:=0;
  r# R. o, |2 l        dy:=0;
5 g# b9 E4 \- }5 ]        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# a* e0 d* s* X' _* L. L                then
' x  |9 m. R" e5 e+ H6 m                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' g+ O! L) ~! o; A7 D" `! g                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
0 y# o* e: v* s                        activityspace[2,rows]:=activityspace[1,rows];
8 z0 H! [% H+ t: [                        activityspace[1,rows]:=ct;
' G& _  @! V+ D7 `6 V. v# B                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
3 c, A! ^6 I& w4 ^9 K                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  Z8 M- i; g1 R1 Y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* g  t( ?0 t% M9 ~- M! Y            if activityspace[2,rows]>dy then
$ W+ S/ a/ p9 L( |                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
3 Y& l2 S% Z) f  G                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: P  \- |* u( e' `( ]                        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);
+ O& N2 {7 G3 j# n, t        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 D! I- W' x, f* n2 v( F7 T0 F, U+ q( X        rows:=0;
        lines:=0;
0 g; b4 O1 J3 S        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
4 W" E- z' K, C2 R                                d_from_to_chart[j,i]:=0;
* S, z7 q2 p2 H& \                        else
  `3 [, S4 N& i" b! u                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 E  A0 k- m$ O- R7 y# r6 d                                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;
$ b. ?0 E/ H; N+ l3 I                next;
        next;
' o+ I+ w8 ^2 s3 |# Y/ h* q       
) v4 N5 `5 i9 R( Z' G+ d9 H        lines:=0;
0 m$ Y; S/ h! [9 Q/ R        partstable.delete;
       
) n' {/ ]) X6 A: ]( R        for i:=1 to number_of_machine loop
" X9 U4 O$ I) a; _6 L$ U8 q- y0 ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( o7 b. v) I7 f+ k" G2 ]                machinesequence[2,i]:=rows;
                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"));
  j6 c' c* |; d7 F/ {3 r" n                        partstable[2,lines]:=w_from_to_chart[j,rows];
. q: e* F, r" m                        partstable[3,lines]:=sprint("parts");
% W* X$ @" l" i/ i, f                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; o2 x+ v" S9 |2 h+ z                end;
        next;
        machinename:=sprint("M",rows);
6 B' c" Z6 l" l; c# l) I+ b+ E        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]);
7 ], M. s5 Z# h! ?3 F4 E        machine.name:=machinename;标识符未知
9 q0 x& g; E) F8 X1 F        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
- x0 m) F$ R: \% W, T        machine.exitctrl:=ref(leave);
       
        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]);
* `5 r$ S- x# l7 C        buf.name:=bufname;
        buf.capacity:=5000;
8 C: m5 u5 x  `" A4 u4 w& r+ s, B        buf.proctime:=0;
+ [8 t1 u3 ~% _" f        .materialflow.connector.connect(buf,machine);
, n  F% G" _( J       
        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;
% s, q  [, j- |% Q& U7 o$ wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 d3 E, f+ x, `# Hnext;
+ m- D# h2 }  J: G+ Cend;