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

zooey

is
        mark:boolean;
8 B" i& E5 i& ?6 ?5 c        dx,dy,ct:real;
8 ?. c* c* f, [0 |( X" [    i,j,rows,lines:integer;
) c( ~2 o% e3 R: z- y+ H    machinename,bufname:string;
: W; N7 x, Q6 G' _3 r    machine,buf:object;
do
        current.eraselayer(1);
       
+ I( t/ g: y+ [, v4 e, d& c! ~/ {        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
4 V6 n8 F, g7 v2 U% [. W                when 32 then
                        print"no";
3 Y9 {# t9 V4 n5 b0 q0 ^                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
' w2 N& C  s! L0 E0 a, G       
8 ^" f& R8 f0 s5 r+ u& B& P1 o+ e# S        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 G3 c+ E, z; K3 E3 B; W- ?) @. n                machine.deleteobject;
2 K+ U% Z3 ]" s9 d6 G        end;
2 b$ X' ^6 y- q        bufname:=sprint("BF",i);
$ `3 Y, A6 O! ~/ |0 b2 m- r* x        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
; v0 L4 C0 A- U! d                buf.deleteobject;
8 P9 Q7 L# G1 U' U# d        end;
        next;
       
        dx:=0;
1 F1 {6 i! {9 i4 c4 u        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 p) N! I; T# S0 H3 \0 y' f: q# o                --mark:=false;
; q" I5 q4 p" u) @+ \$ K$ J/ n                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
1 {% Y7 R; A2 J) d                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
% Z0 F4 r5 _! z; ^! w: s/ j) q; q3 r                        print activityspace[1,rows],",",activityspace[2,rows];
+ X" \! Q( n7 a* m                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* @& J) q7 X  K0 [! I3 C                        activityspace[1,rows]:=ct;
                        mark:=true;
" |3 I" c3 m2 U$ b7 z                        else*/
                        y_max:=y_max+dy;
* O/ a( m; A( x: X5 O" p/ _8 Y                        dx:=0;
                dy:=0;
, }4 r' G% ]+ B1 j7 d6 J6 L                        --end;
7 r% A/ V& d3 r% Q. f! s- u                end;
                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;
' O5 L, S3 b* o  M* n            if activityspace[2,rows]>dy then
# N! X' X9 b! \, a/ ~% m$ b                        dy:=activityspace[2,rows];
5 o/ [) b. y7 `2 D$ |                end;
) T) U) B) q4 H) l2 b  C                dx:=dx+activityspace[1,rows];
2 _( y9 r, U2 y, e. b8 n1 N4 r! {% e                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
+ X$ X& j5 d; M        next;
5 ]' [; `' Q' J1 M# g! \5 Z        y_max:=y_max+dy;
3 Y) ~, F# _0 h( u+ E        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);
       
# _, I- D, |, c1 v3 a$ K/ }$ X        rows:=0;
0 D; o8 x8 p7 t8 u        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 G, @, c* y5 o( C  y8 L; |: M: H4 n                        if j=i then
' q9 r% S& y5 }( `0 [& o5 Q9 I8 R                                d_from_to_chart[j,i]:=0;
0 ], `" I7 ~# C7 [4 N: A                        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];
  r3 ~! b4 X* b- z- `) u                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
       
% N9 O# H- X; \2 t( ?/ M0 M        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 p) M6 X/ B& \6 h" F! ?) i& z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
) v4 [, f' a# V+ I9 p# G+ @                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
7 m3 z7 [+ C+ Z4 E4 L                end;
( \) B& S3 I% w) o0 l9 F8 R        next;
. o' r  [4 z+ |: Q6 d        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]);
: b6 q8 K7 j! G  p' s        machine.name:=machinename;标识符未知
        machine.proctime:=5;
: N/ v) V7 a( O' h! U        machine.label:=activityspace[0,rows];
; m1 e6 E. ?1 T        machine.exitctrl:=ref(leave);
5 z, L* Z2 \% t% n# C5 `       
3 A* A4 ^" `8 u        bufname:=sprint("BF",rows);
8 u. W# u0 Z3 U+ J) i; I  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;
        buf.capacity:=5000;
; d# t, X+ h5 L: Z        buf.proctime:=0;
0 J' l% _$ a6 e        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 D: ~4 _4 y" H( c, k# L$ t/ qdy:=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);
8 e/ g( J8 d7 \# R8 `3 G! hnext;
end;