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

zooey

is
        mark:boolean;
/ i* N6 n8 u; f        dx,dy,ct:real;
0 L% M0 B; r/ t. E" G, m8 c. B    i,j,rows,lines:integer;
. h& L: a* i" H* g. h! m7 j) w    machinename,bufname:string;
    machine,buf:object;
do
5 b. H" W9 b' ^/ C' ~% j$ z' U+ u        current.eraselayer(1);
       
+ l  o1 x  i, G3 P& z% H8 {        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 j9 |+ h# |% P                inspect messagebox("设施数目不对！请核查...,",50,13)
1 j2 {+ y) J$ f. }                when 16 then
/ Q, I. i! H/ a2 U' D$ ^6 i                        print"yes";
                when 32 then
* t/ ], D8 \7 C/ A2 ]0 t! N                        print"no";
# F9 {8 }: P8 \) p                else
% e& L3 T; p5 a8 }/ J                        print"cancel";
                end;
                eventcontroller.stop;
: W0 t% m% U! e" M/ B! _, I% R+ H8 V        end;
       
2 ~8 y; A9 Y4 b$ S! t        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
; M4 _7 w! J/ u" O9 n: h0 i0 {        bufname:=sprint("BF",i);
3 f. x* P6 O7 t' A2 a* ^1 f        if existsobject(bufname) then
6 f+ t& F8 d1 x* x                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
* N0 G& q  q! f( X2 v% [% L$ v, k        dx:=0;
$ `3 \5 Y! b: g        dy:=0;
! u' J5 {. ~0 z! l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; P) Y( e! D/ S0 m* ]& Y- W& z                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: E; s8 U1 P, X  d, m, F                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
6 k/ P! c) n/ j' M                        print activityspace[1,rows],",",activityspace[2,rows];
' ~5 f4 o% K7 `( Y( s7 I% o                        ct:=activityspace[2,rows];
0 u+ _4 R! t) [* ]                        activityspace[2,rows]:=activityspace[1,rows];
+ W+ P! H8 n, s6 z% s9 k& \                        activityspace[1,rows]:=ct;
, M& w) @& J2 ?0 }2 |                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
* o3 c/ h' A- F                        dx:=0;
                dy:=0;
5 I- U* D; j  ?4 N* @% t& U                        --end;
7 [# b2 N7 V( T2 w! o                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% |& j/ d- B+ g$ @& |- d                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
& K1 r  q: g- Z& w( a- e, z  e                        dy:=activityspace[2,rows];
                end;
! K9 R4 E$ A$ |$ K# k( X                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, N# T  Q, h" [" ?5 a. p                        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);
1 M: d& y3 w& A8 U1 v# w# E" G        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);
9 k- [: M2 r, {; }       
        rows:=0;
" Q0 O/ u5 ~# j        lines:=0;
# X1 x# g* u$ n+ j) O        for i:=1 to number_of_machine loop
1 j( C, ?2 m0 n: e* Z+ v, W, Q+ r                for j:=1 to number_of_machine loop
                        if j=i then
: N  b+ u4 _- H0 P& L/ l; O                                d_from_to_chart[j,i]:=0;
                        else
* K% z/ {7 I% [' p) g+ o3 ^                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ n$ W& v3 k0 B4 o$ n                                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);
8 z5 v& j$ `6 x' d                        end;
7 n! j2 q; r! k, G6 G8 t                next;
        next;
6 }: d0 N  B9 B( ]6 {       
        lines:=0;
: S3 h2 H9 V/ F' m7 U9 Q        partstable.delete;
       
! `0 r$ _! L6 F5 k, A/ S. m6 R        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( i8 T4 B% ~) g" s0 x                machinesequence[2,i]:=rows;
# m& L/ ~) W8 p8 @/ c8 V& n$ m) ]                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, ^: t0 T, X3 B  }! W  ^$ _                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 B; a" w6 b9 T" R. w                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! g- g$ ^2 [: X% O* s! K/ ^                        partstable[5,lines]:=rows;
9 w# t. `3 {) ~$ T- x- m9 g- |                        partstable[6,lines]:=j;
& c* z" D8 u- r7 F/ H  O                end;
# N8 ~$ Q& q+ q8 Q1 s        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]);
- s& O8 G9 ]7 `7 C3 ]7 B! }        machine.name:=machinename;标识符未知
: E7 y2 q2 g7 x) U        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 N- w6 ?; V6 k$ E% \; l        machine.exitctrl:=ref(leave);
  K' l' \& d; i       
        bufname:=sprint("BF",rows);
1 W. y! {3 _1 f: S        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]);
$ Y9 Y; ^- z8 u7 ^) e% S, X6 f        buf.name:=bufname;
- B5 s6 B: U" n0 s+ A' y; A+ ]        buf.capacity:=5000;
        buf.proctime:=0;
/ U+ I6 ]  R9 u$ j: Y" H) |% c# }; u3 o        .materialflow.connector.connect(buf,machine);
( n: S% |# w+ g- Q$ U       
9 ]0 T6 h" k& c2 \; M3 H7 Z6 q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( R" j" E) I+ ?9 }2 ^( ^7 g. qdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' ~1 I8 P( k6 _8 Y; f; L1 Dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
9 F: d  ]2 P5 M