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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
* h1 m; x/ n% V4 C! C7 K1 y    i,j,rows,lines:integer;
    machinename,bufname:string;
  e/ N9 m5 ?* A, v$ T1 X; v) A) ~    machine,buf:object;
7 ?/ O( w/ N- B' O( U, mdo
- v  D" ^  }3 J- v; a        current.eraselayer(1);
3 {: E- B2 p# P) G       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ \. J3 q! d' Y1 D& m( N0 X( W                when 16 then
                        print"yes";
                when 32 then
& t" `9 f( O1 s7 M( _! X                        print"no";
7 s3 w8 f7 P5 D0 C1 h                else
' B- N7 C& g! t                        print"cancel";
, b/ ]3 G% g  s* N                end;
5 f. K! u: V* S- F! c7 t                eventcontroller.stop;
  k' C" `6 b8 ?3 ?        end;
; g. d9 ~6 }( z/ F1 v3 }& A# E1 Q       
5 k/ z  v$ R" W7 u        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
' @5 t4 g* C; J, D$ D; g                machine:=str_to_obj(machinename);
                machine.deleteobject;
- ]& E5 N! a) {4 l        end;
1 D3 z. z. i7 G        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
! @% D$ V; P4 g6 C6 U8 W                buf.deleteobject;
        end;
        next;
       
+ M+ u& z5 X% q8 H+ F% C: ]        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
( ]9 M  [& n! z0 L" }                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
' A2 X" X8 v. ^                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 i' R  m/ P6 P$ b( R; L                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
7 f( o; M' S/ y5 Z# x                        ct:=activityspace[2,rows];
4 w6 h- b& o) S: `6 X# ^* e                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
& a+ j5 s& j: Y) Z                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
4 }* n3 }; L# G! B; L% ~' F                        dx:=0;
                dy:=0;
$ c2 c" c7 O$ o  X* q. p                        --end;
7 w0 G0 ?; K' B7 o; ]7 ]8 l) M                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; y6 [5 _7 o/ x* r, N- o                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
& X- |2 j+ c+ y" u1 a- F; a                        dy:=activityspace[2,rows];
0 N/ Z+ c9 u8 E9 J0 R0 u                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
) J$ [2 ^7 @) _9 f: V0 g5 Z2 G- a                        activityspace[2,rows]:=activityspace[1,rows];
+ m! G# d6 i4 O* W4 R$ Z                        activityspace[1,rows]:=ct;
                        end;*/
0 [' M: ~8 L/ A( h        next;
        y_max:=y_max+dy;
9 x9 F2 B3 i: U& d- u1 l0 y% P3 |        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);
' V  U- F5 e& C7 R3 o        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);
       
* M& J/ b2 k0 L+ x& _7 X! r4 w* k        rows:=0;
, Y' g, M! t1 }5 f        lines:=0;
, k: R0 Q0 ~# T5 c2 u. d        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;
+ P4 X+ r. C& o3 o5 `# a: x0 j                        else
2 f1 g8 j9 t/ J) Q                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 w9 b$ I& Z/ ?- o6 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);
: {6 S( }$ q$ A% i2 q                        end;
7 _" |2 Y+ X. v3 ]& a  M                next;
2 {( T$ A; n7 E- d) B8 \/ t6 Q        next;
0 _  b, p) l* V/ x6 V% ^       
7 y1 V: K$ M1 f* _7 I! |        lines:=0;
        partstable.delete;
6 G3 [3 Q& A1 w9 a* ^" W       
+ B3 ]- s* K1 |& k' t        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 N4 M( q1 U0 _9 T" Q5 l                machinesequence[2,i]:=rows;
2 [( J, }, o# _4 J- I                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
) S' X6 G6 ?5 R; |6 b                        lines:=lines+1;
5 j; p: W% ]; ~6 J8 D4 A- i                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ z9 A, R& g9 T3 x7 a  l                        partstable[2,lines]:=w_from_to_chart[j,rows];
& r3 `: U1 t; _' ?& {/ j                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; l6 @7 g, E2 e: u% ~8 Q! t( {                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
  c$ f" g, K9 n7 n. {5 T7 s        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]);
% i4 r. Z+ _4 @$ Q        machine.name:=machinename;标识符未知
        machine.proctime:=5;
- v8 w+ S5 d  Z        machine.label:=activityspace[0,rows];
4 u; L" _" g) e        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
9 u# j' ?" f  q! l0 W        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]);
% S, Q! X# `$ j8 h' z        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
) O9 S) q% d2 F% S5 z2 F        .materialflow.connector.connect(buf,machine);
: o/ O5 Y( N1 w  w+ C       
+ i& k/ j+ r- B) Y9 X2 n% U: T) b        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 M* O  F6 m, J' h. b1 j  _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);
' z+ T' b1 @) I  G; {4 Z$ h( Mnext;
end;
& W* H( f% k, f3 x4 o- D