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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ G6 P/ S' @# h: P+ Q. b- }    machinename,bufname:string;
" f( m) l( C! a* u7 E    machine,buf:object;
do
, g5 ^  W( t$ A9 e( m, d7 {8 s        current.eraselayer(1);
       
; X/ c( F$ `9 r" ?! B; K" e        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ v& l! P5 c7 E: [* A; j% R                inspect messagebox("设施数目不对！请核查...,",50,13)
' h, b3 Z+ \8 p7 g8 o  j7 P                when 16 then
. P' s9 ^9 j5 t' p/ B                        print"yes";
" w7 y% C" a. p8 S: L                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
# H, p0 }( l1 g% I  u' s6 S2 c       
. F; w9 w1 d3 @& ^/ }& r; I2 Q        for i:=1 to number_of_machine loop
+ H- v/ H. D! l: [$ b3 G9 `; \        machinename:=sprint("M",i);
        if existsobject(machinename) then
! w4 w4 Z0 j! @, L                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
8 U2 u5 W$ g( g$ O# G! e$ a6 j        bufname:=sprint("BF",i);
  c6 r5 y8 H9 j2 i        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
9 e9 i' m) p7 F1 H        end;
1 l" g- m* ?1 k7 K1 N; X, b5 ^        next;
4 U  ~6 y* `5 |! P' ^8 _- \$ g       
  _/ D' ~- G/ i( s        dx:=0;
; J7 @$ a  Y$ G( q        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% n# X% z9 ~* j8 M                --mark:=false;
+ H4 S* y' z- v                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ l( z% N1 j+ a) f' w                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
9 y) T! U3 H9 g$ @# H! z5 E& ^7 d                        else*/
! ]/ e. |# R% K& }$ c( K# q7 `                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
' d: E4 t4 K  W8 c7 R/ L) l                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
+ n1 g, n2 I9 q) }4 L, i4 h+ A  Y                end;
" M9 o! F- p0 q! n( Y  C# g( R                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
$ ]  Q' g% Y5 w  C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, @  D/ O0 B& z2 y                        end;*/
        next;
" Z+ h9 z# b3 l1 h" j. ^' l& x& @        y_max:=y_max+dy;
; D& u3 {' C" K! @3 N* l: m6 s        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);
& h' A4 z# Q$ o6 s        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);
1 v' D- N% o3 o       
        rows:=0;
! s3 v' C8 R* D3 ^8 L        lines:=0;
0 P: s" `( A1 q  f  Q4 \2 z( n$ f  {        for i:=1 to number_of_machine loop
3 ~! A4 l" R, V$ ~* I; w4 y                for j:=1 to number_of_machine loop
                        if j=i then
, N$ e" z  S2 v; i; ^0 i                                d_from_to_chart[j,i]:=0;
3 H9 m# J& d5 `: u' q                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
1 B: _. [# m% _$ w3 k                        end;
                next;
        next;
       
, ^" O0 P, Y; n% u% g        lines:=0;
! z$ u5 ~2 l4 f* i9 v4 N% I+ l% J        partstable.delete;
: V) \6 S7 j2 J' ~: n8 g1 [: |" e       
6 [: D' }3 b5 v" q- K( A: @        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) z/ D+ r1 q4 M8 P! r                machinesequence[2,i]:=rows;
/ K. G) w0 @: I1 [: Y1 k' F8 u/ o  D                for j:=1 to number_of_machine loop
0 j" ]8 C, A  {! D9 U                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 q6 E9 I7 B5 E; V9 w& S                        partstable[2,lines]:=w_from_to_chart[j,rows];
  f) W+ L/ S8 l* a; I, h                        partstable[3,lines]:=sprint("parts");
) |! Q" T7 p1 g0 E                        partstable[5,lines]:=rows;
3 J5 C  v: U+ u* q8 }7 A                        partstable[6,lines]:=j;
# Y/ _% l( q1 y7 C3 @                end;
/ ]/ D7 L, ^1 N: y$ \  B        next;
5 R7 L2 l+ E# n( h0 A& |7 h  j        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;标识符未知
' g; {% l; T9 R) S* |) \( q        machine.proctime:=5;
0 `1 O7 J  l) M6 m5 |        machine.label:=activityspace[0,rows];
' q& z6 y8 _3 r  Q2 z# _9 `        machine.exitctrl:=ref(leave);
       
9 [9 a8 g) o- ?* E        bufname:=sprint("BF",rows);
# G3 o3 f* m5 N# H: [        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;
( F" r8 f9 e, ]" P# B# X; h+ H  S( [2 E) Y        buf.capacity:=5000;
: W- h, h' i0 ]6 w5 r        buf.proctime:=0;
4 b3 Y( r: z. s/ N        .materialflow.connector.connect(buf,machine);
       
& q# V4 d9 n: I! {1 Q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, K' A) m0 o) o3 S7 J. E& jdy:=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);
next;
end;
8 H. S% w6 s/ l: P1 T: S