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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 ^/ L* z, a( m    machinename,bufname:string;
, x7 I4 U) a% D& i: |# v    machine,buf:object;
7 F  k0 ]- T) m+ I4 Ado
        current.eraselayer(1);
4 Y( ]. W$ ~2 o+ P# r       
& K/ ~; H' d7 \0 Z8 S" a        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. [, E; m8 C$ m7 m0 A- u2 }/ S$ b/ i                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
; |5 Y% x6 x- Y+ z                        print"yes";
. N) |7 @+ Y# [                when 32 then
, f0 |3 w5 z' p1 w. F$ u1 _! y                        print"no";
; q: L3 L: d' v- e% l2 O0 \  Z                else
                        print"cancel";
5 Z) o% J5 e- j/ W6 v4 m                end;
8 l* A% `( k1 y                eventcontroller.stop;
        end;
       
7 K& f+ y' Y* I8 O0 n4 D, t$ ^        for i:=1 to number_of_machine loop
( s: G+ B! {7 ?: n2 M+ K) T. `        machinename:=sprint("M",i);
        if existsobject(machinename) then
' D/ d/ l" Q. k                machine:=str_to_obj(machinename);
; w) \6 k6 n% [                machine.deleteobject;
: u2 s( ~6 Z4 B% v2 |% J" N        end;
        bufname:=sprint("BF",i);
9 u8 O" l- a& U- X" f        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  M( s% Y, K( G& r& l. D# Z& ]                buf.deleteobject;
) Q" ?8 ^! a) F2 }2 w6 A. P        end;
        next;
1 O& }$ }3 o( i2 U, e       
  K1 N, ~" ?6 V' C" c% x% |0 j        dx:=0;
- Z' d& W" e, D/ v7 s, l# G        dy:=0;
: U# J4 [& M/ @9 [        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 N: j3 D8 W# N1 r! g                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 U8 M% G3 I  Z- z  d                then
5 \( E) O( u& x" S$ p                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 i1 K5 e  F  Y( B. v( I& K                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
4 S5 O/ w3 Z5 G: ^2 w# h- x/ E& N                        activityspace[2,rows]:=activityspace[1,rows];
9 d% M3 |- X' q# a6 [5 Z; s+ ?  ~) ]                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
* j1 L' @( D" `9 S3 A6 Z0 p                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
. R, w" P) C& n/ D! A; [5 m                        --end;
. B$ @2 n4 ], c- S                end;
4 d% b; z6 S) J4 u4 C" h                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- D. C: r" P# g. W1 R& N( f                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 q) D9 u$ w0 z0 s/ U) r3 ~            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
( H! I! j8 S! z0 B1 q5 z6 A                end;
9 ~9 a, e; H" c/ K% Y                dx:=dx+activityspace[1,rows];
/ j& E& M8 @' x                /*if mark=true then
                ct:=activityspace[2,rows];
* k4 d" Z6 n. |, q- |/ U% G! n, S                        activityspace[2,rows]:=activityspace[1,rows];
$ V$ W" G) L/ [/ B$ A                        activityspace[1,rows]:=ct;
7 m0 h, w6 v# n) a: v                        end;*/
) S! m. C4 c7 [1 S5 N  w# D        next;
6 d" K$ c: q% d& `* O; [) z        y_max:=y_max+dy;
+ {. f& Y7 E: J. Q  m: w        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);
0 a2 K8 K8 M9 u" F0 a( j8 ^. D$ A       
; E; B, g  P; P3 d        rows:=0;
4 D! n/ w; }- |% O( l        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
& s' K4 c0 e1 B$ O$ X                        if j=i then
                                d_from_to_chart[j,i]:=0;
) U0 G* _8 x! |' a8 \( D                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 I: j: p' H6 V# x. A0 ]                                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);
) x+ Q# U; V& u. f) n                        end;
                next;
8 G1 c& s# u4 p3 B        next;
       
4 F4 x" ^  x, J9 b# _; N- M        lines:=0;
5 a3 o, I2 V, M' D2 N- [        partstable.delete;
- P3 }# ~( [. {- @5 L) Z" \       
6 e, Y* R  ]5 R" q6 U        for i:=1 to number_of_machine loop
7 ~6 h5 U( H; X# \# l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
  J+ ~  z( o: F                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
8 Z! R8 r  m7 |2 X; _0 K                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
. Z- N. h  X2 [' o! Z: J& q- P" p                        partstable[5,lines]:=rows;
. Y3 z" g0 d% x; L- [9 j: \# J                        partstable[6,lines]:=j;
                end;
  B8 C0 A; [6 _0 f* ~        next;
7 ~4 l) s+ F' g        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;标识符未知
2 d8 g9 C: G7 h( Q        machine.proctime:=5;
/ ^4 m+ G" c* }6 k  ~; i8 e        machine.label:=activityspace[0,rows];
0 M7 C) s6 X7 a5 b" j; L8 K        machine.exitctrl:=ref(leave);
! G8 a' o" a# A( L1 |       
# L% g: V; f% ?        bufname:=sprint("BF",rows);
' f; m9 \5 B& B9 d        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]);
  v+ l' M2 S9 m% _( S        buf.name:=bufname;
) j2 S. B/ q- R8 u  J. @        buf.capacity:=5000;
; L3 ]7 E- `( Y( R3 Z. z. ^7 ]        buf.proctime:=0;
8 E1 t" g- ~" s( t4 A# i( `; S7 P        .materialflow.connector.connect(buf,machine);
       
( U8 K/ C* c! o        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;
5 M+ Q8 ?( `6 B' p) \current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;