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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
; y4 `2 K+ Y1 v& G( Y3 z9 w+ t    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
3 e( q0 Z/ a- P9 M3 l" h7 kdo
1 T8 _3 A2 u! M- [  b        current.eraselayer(1);
7 v$ J( a. B. Q# ?       
" q  Z4 N/ {5 i7 B        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
2 k& Z1 G% O- u) g8 W$ G* i- e                when 16 then
                        print"yes";
                when 32 then
# g) w* J" d; |- k                        print"no";
                else
                        print"cancel";
) n' P0 B& T7 f% ]                end;
3 M, R; z: B& d                eventcontroller.stop;
! T5 K& J& h0 H. z% ?1 Z+ B: E        end;
- N8 v) a! o/ X; v( k       
" c* [( q2 E8 P7 F0 d        for i:=1 to number_of_machine loop
, |0 O$ j: d) k; e        machinename:=sprint("M",i);
        if existsobject(machinename) then
: P; U- {1 U) k1 z) f                machine:=str_to_obj(machinename);
8 J& n  J' f' f# w, G$ }0 ]                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
) k/ q* i) _% b6 l$ g        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
% R1 e* U; S; [1 U* d, j8 G                buf.deleteobject;
/ m. }6 ?7 q) ^5 [  d6 L% |        end;
8 B2 {2 [% c& V: i) Q4 }        next;
; V7 B; A/ @  Q" L7 _! k/ J+ u6 C       
        dx:=0;
        dy:=0;
+ e  g& ^4 K% y- |% w+ S' g. o0 ~        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 [4 p3 m6 i6 }' _  S$ t2 u                --mark:=false;
* ?! ~( X$ s. {3 Z% q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, z5 C2 F' f: A+ W1 K3 W" t                then
- u1 J6 y6 t5 j" j                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: T' A: ?" X: `5 f1 M                        print activityspace[1,rows],",",activityspace[2,rows];
6 Y8 R. w+ m8 p9 a- r) M                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
- s& _/ p( s1 A) q" w$ Q6 I                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
9 J- T) l. z2 ~7 h% d* u$ B                        --end;
' a  G: B$ M  v4 k                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" `' O0 ?0 r+ J2 y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
) C: R# K4 F  q                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 n: I  u7 e5 h5 P' V                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 U2 X) K6 h+ k$ E4 x                        activityspace[1,rows]:=ct;
2 {+ V, P4 g1 \                        end;*/
5 ]8 d$ ^" Z/ ~1 c, B        next;
& d  p1 f' U, }( N        y_max:=y_max+dy;
1 Z& ?% L/ i* I        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);
       
. F( {  \% N% t( ]        rows:=0;
, [# X. H4 @/ L$ g  g1 W        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
0 U6 H+ i' d! V0 J' y8 `                        else
- D7 M5 ?2 I7 y+ ]$ Q                                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];
# J& H7 H( U5 E* G                                d_from_to_chart[j,i]:=abs(dx-dy);
# \! v' s) x1 [% |; J                        end;
                next;
        next;
       
/ l! ~! C4 G7 W: y- p" h        lines:=0;
        partstable.delete;
3 `0 D4 I6 j/ d0 k) v: M       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 ~- O3 c* j% b% R: ~+ x                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
" }6 F/ h7 m; @# ]$ C+ I6 ]                        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];
$ G5 g5 P  e0 r/ v' v' a+ E& n4 r/ n                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
/ R' d5 _" Z* z9 x        machinename:=sprint("M",rows);
0 O( F, r, N$ M  m        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]);
/ X: o5 Y7 g! Z0 Y9 a* i$ f% W        machine.name:=machinename;标识符未知
: h1 ]0 u) J8 L4 [, I4 T        machine.proctime:=5;
- T/ Q! p4 v8 r+ D, d+ E        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% x5 A, L! L! H" ~       
  s5 @$ d8 g, r( \1 q! j  m        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]);
+ L5 p* f1 a! [* J, N+ Q        buf.name:=bufname;
        buf.capacity:=5000;
& o. T' t$ }( I+ m. n        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;
3 h% L0 _' C4 t7 f  O4 u$ }5 g! zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
! H. k7 j- f# i$ hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
( Q3 k5 ?# L* ~. Jend;