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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
3 F4 [: r/ ~& q! V) d9 E1 c    machinename,bufname:string;
    machine,buf:object;
do
/ ?7 e* D; U0 s& \) H        current.eraselayer(1);
4 ^* z5 [/ }; G+ n# D% o       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, L8 W/ I* m7 ~/ a                when 16 then
                        print"yes";
                when 32 then
6 A3 k/ A  U3 a1 b5 K' x                        print"no";
                else
  E; p4 ?' T4 s9 g0 Y$ @2 h2 a; R                        print"cancel";
7 [, l7 E9 G: m                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
" ~+ X0 j1 B9 O6 ]1 ]        machinename:=sprint("M",i);
% Z; Y# B( W9 l7 {! g* m; l6 [        if existsobject(machinename) then
$ t# {6 n0 b5 H) r7 v4 `( j# k( l' ~                machine:=str_to_obj(machinename);
4 W& K- }3 a( C# y$ I% \. l                machine.deleteobject;
! l7 O% P8 ?1 S! g# d        end;
        bufname:=sprint("BF",i);
* |2 l# a9 x, H. {! X; _# u0 T! j5 M        if existsobject(bufname) then
1 P- s0 Y3 I7 Q9 ]# y6 d( _& [                buf:=str_to_obj(bufname);
                buf.deleteobject;
' t6 G3 u. ~& K! Z0 Q) _        end;
        next;
       
        dx:=0;
5 D. m1 v( `" @1 G$ c, z: [- z        dy:=0;
) Q, W, ]  B( b  Q6 d2 _        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 ]. Z  }9 |0 q6 C' \$ w# l: j6 K                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
& k" O# \4 ~% `8 L7 {/ {! `' O                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
& K& J8 Z( z0 D3 C5 y; F                        print activityspace[1,rows],",",activityspace[2,rows];
7 P* t2 L3 z) V; E% ~* c+ b                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
! E: b2 [/ B0 Y% ?" n, V& U, W                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
4 j  W- b: ?" r3 ?) p+ i6 w! t                dy:=0;
+ _, w4 }! h. b2 A+ p                        --end;
                end;
- d. X; t8 z. U1 r# u* i                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 o6 S6 X8 t' t" f                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) {2 C/ o$ x5 }: k* w4 {* f            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
% _* X" D: Z6 b; \                end;
                dx:=dx+activityspace[1,rows];
7 @# a4 h, i% K' U                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ j$ Y. F  f' S/ s                        activityspace[1,rows]:=ct;
                        end;*/
; I: |3 C8 O9 j, Z3 Z9 \        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);
% S# x2 R# T" a$ @/ u6 U; A. j! L! _        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);
       
& F0 N0 y4 x; h5 `0 |/ h# L        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
+ q: i& c8 x2 f8 B5 x! {6 u                for j:=1 to number_of_machine loop
                        if j=i then
* V4 J9 u0 U+ w( c; X                                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];
: Z0 B5 x3 `# q0 u2 c                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 b3 d) n$ G2 c3 ]! t8 m                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
9 F  O) c. G- ^( w( D" s       
- ~: y8 }& o! b* F6 _6 Z, g        lines:=0;
        partstable.delete;
7 _$ \) `% D7 ?. Q9 c) {6 u5 L       
        for i:=1 to number_of_machine loop
: [  A% ?4 g: ^* n  M: a$ _$ F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
  u* _; C! C% L- N: i* b4 T                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
/ H: [+ u2 |5 c) Q& p6 a                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& k8 S* e" [4 \. D5 P                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 {1 j6 R5 q- s3 o# M9 v                        partstable[3,lines]:=sprint("parts");
6 z% t: |+ G, b% `) h                        partstable[5,lines]:=rows;
/ [. }# k; {' F8 T  D, D                        partstable[6,lines]:=j;
2 j# T3 A6 S# a* q7 Z                end;
1 J* ^; H% K- x4 k4 r  j        next;
; ?! B3 U7 ?# }* l6 M% x; V. S2 B        machinename:=sprint("M",rows);
: s2 [$ u1 \' ?        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;标识符未知
        machine.proctime:=5;
% ?: {& I( H: C6 |4 `9 a: _' i        machine.label:=activityspace[0,rows];
6 {. }+ ^& f7 h5 B; g        machine.exitctrl:=ref(leave);
  h" o5 W& G" }  A  f$ ~7 X       
# d2 p; v0 \  r7 t        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
! C3 p) e  Y  B8 I, K2 D        buf.proctime:=0;
" E5 h7 v: W8 q7 S' i4 e+ R        .materialflow.connector.connect(buf,machine);
- @& f: j9 m1 ^4 l% P2 g1 ?       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ h$ V8 t* W# X- c! C# x) Ndy:=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);
. Z* D+ v& n& ], Knext;
$ m5 u$ r, F: X- e2 Tend;
+ q2 t* ]' G5 U9 X