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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
6 H2 C+ c, P: n! c) T$ r: J9 G    machinename,bufname:string;
  B; f% Z+ Y( M    machine,buf:object;
do
( a( `3 }& E6 E# ^( L        current.eraselayer(1);
, h) R& ^5 m4 ?' ]7 {  [0 ~       
4 `* x* v( X1 z3 s, p- f        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 l! u$ C: b, Z, H" C1 n. u$ ?2 R                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
: r, r' a& Q5 J* H7 ]+ f4 h( L# L                        print"yes";
6 m1 C; Z  F  O9 h9 }                when 32 then
                        print"no";
                else
                        print"cancel";
3 o) s  M: S; b# Y                end;
7 ]7 |0 n: Q7 \; o+ L# ~0 p7 H                eventcontroller.stop;
) B4 ^+ X& _% z! ]- z5 n4 W        end;
$ O& H( e) u) Z7 J6 @- Z9 `       
- c1 s7 _0 [7 z# Z3 G        for i:=1 to number_of_machine loop
: B) x2 }6 {* ?0 H! W# g8 \1 Q        machinename:=sprint("M",i);
* q: A/ w) c: X0 U        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
/ {6 H7 Y0 l& i/ \5 q1 y% J* G                machine.deleteobject;
: z; F0 _& w; K7 z7 L3 v: X9 _        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) m  N3 _5 ]0 |- ?. M                buf.deleteobject;
        end;
3 f  @0 W; Q$ e+ d9 \. x8 _        next;
       
8 t& Z! k9 [9 s; t; ?. M        dx:=0;
& w0 `# l9 Q2 N, f        dy:=0;
        for i:=1 to number_of_machine loop
) H9 `7 ]% u- `6 `2 q5 n3 O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --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]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- O+ G  n8 {4 c8 r2 j                        mark:=true;
/ I5 a: W: s0 |                        else*/
                        y_max:=y_max+dy;
5 T( Z$ k/ @* ?; Y) ~- k, b9 ~                        dx:=0;
; G' g2 C; o  K2 x                dy:=0;
                        --end;
# T) Y4 |. E6 S3 C7 h                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
( y% d* N& t( M" d7 \& P                end;
                dx:=dx+activityspace[1,rows];
* K) ^) w' X8 k0 U% F( l                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        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 n0 K* e+ s5 d9 m% ]" a& u       
0 Y1 i" C1 }7 C, n' F0 u% Y        rows:=0;
        lines:=0;
& N  S: r% f2 @0 @* J8 ~        for i:=1 to number_of_machine loop
- h0 A0 @; n6 D, J1 {' O" O% H/ s                for j:=1 to number_of_machine loop
                        if j=i then
5 c" _% T3 J% b  Z; C+ w                                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];
* N1 s. }. n- m( |" }  ]3 O                                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);
& h! f3 R9 S/ [4 }* L3 E* s                        end;
7 x$ J( A& e. J6 Z5 z" Y8 }  V                next;
  j) X! a* g$ k4 M        next;
       
        lines:=0;
/ U5 y1 D2 D  G1 Y; e; X        partstable.delete;
       
        for i:=1 to number_of_machine loop
4 M) j) W( E6 I$ @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
& U7 C) B. O7 h2 o                        if w_from_to_chart[j,rows]>0 then
" Y1 H; ]' e; X) Q+ z+ d0 W                        lines:=lines+1;
/ S& [: E  S6 M2 L$ N/ F                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
" o2 q. K$ c' D; K3 j/ R                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        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;标识符未知
) X. y$ q' x8 T7 j        machine.proctime:=5;
6 _# L% v" l. ~8 D        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
( K5 }+ m/ Q/ f- H3 u6 ]        bufname:=sprint("BF",rows);
$ i- }7 O# W$ p        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]);
2 P% A" F! E: ^) K1 m        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
+ v* F7 l$ F- z+ R% R        .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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;