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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
$ T0 d* S( x  @8 g: g2 h    i,j,rows,lines:integer;
    machinename,bufname:string;
. e0 p8 G: T* j6 r% p7 P# q* C/ }( B    machine,buf:object;
do
" x0 \9 T5 W) q  ~        current.eraselayer(1);
5 @) ^7 L$ _; p1 o, W) Y1 |" F       
9 j% G# f3 U: Q* |2 j        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
2 S4 F1 X, Z4 P( q& [4 o2 s- Q/ O$ o                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
2 r8 y& y- W( h5 \/ Q* ^# p                eventcontroller.stop;
        end;
) Q& f4 k% [4 ]% Z$ q       
9 Q" J8 g9 O% n        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
1 k( q, {- ?# A7 Y        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
. Z2 ]& G9 u, ~& D9 a7 z                machine.deleteobject;
        end;
" ]! U* b  `# `3 z3 V( z: y( Q        bufname:=sprint("BF",i);
) E$ ?- l( @  ^8 B* `4 N        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
+ L( ^3 q5 j" j% p, r  R# `       
& V. e& S+ p8 |5 e" h; j6 Q        dx:=0;
$ a+ O, f% p# w8 {5 T        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& A: E* W; e) f0 r8 v                then
9 p/ B- V+ ~; j) ^* q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ A/ H3 B$ R6 G1 W6 T$ D                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ }: Z4 ^. E; B9 {$ A                        activityspace[1,rows]:=ct;
# Q( O. V1 i# c& R                        mark:=true;
* b* L# O2 b7 ?3 j! a7 P+ l                        else*/
* Y, U" H, ]# Y: h: l                        y_max:=y_max+dy;
& o0 w  y. I5 p* k                        dx:=0;
4 p7 p- X9 K  y4 t& h: U4 E                dy:=0;
                        --end;
                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;
            if activityspace[2,rows]>dy then
0 m+ T! R- v. M1 s0 a( j                        dy:=activityspace[2,rows];
                end;
$ u/ i0 A) a; n0 t, r0 @                dx:=dx+activityspace[1,rows];
$ {8 v8 w+ F# U, d                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ u7 w8 A. M) B+ [7 x5 j/ e- H$ Y                        end;*/
" ?3 R. w. Z: _! [3 p8 M% u        next;
* Y) y& X) z: Z+ S! [  ?        y_max:=y_max+dy;
% m2 b8 O; s: A" J& |+ Q        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);
4 h1 ?. A  f# N* f( g" `        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);
' p: }0 v1 d6 m. q  O       
# Q' X0 Q; M4 ?; g+ R6 |        rows:=0;
9 o( i! _* L) C" @8 i        lines:=0;
3 ~9 H  L: q$ `        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
# e' d; a6 `8 i9 t; ~8 S: i                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
9 z3 T3 s5 {: J+ S! Y                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! ]5 p9 ?8 G2 n                                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);
3 s. R2 W7 a8 x0 i                        end;
                next;
        next;
       
' h  I$ B8 r" {: T2 x( y! \        lines:=0;
: _% o1 h- g5 n7 v3 t2 r        partstable.delete;
       
        for i:=1 to number_of_machine loop
: y8 h2 m8 H3 M5 m. a2 c/ p1 r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                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"));
$ B& D% y2 ]7 a% P! n. k! L4 y* W                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
8 ^) s7 e+ l9 w) n5 Q7 r                        partstable[6,lines]:=j;
                end;
        next;
! Y! S0 S! ]0 A9 V0 b        machinename:=sprint("M",rows);
4 T) z! E0 m2 @* S  f% }        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;
: |' c9 o  R' m* m! m        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
* X! r" R8 t0 s" v        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;
        buf.proctime:=0;
4 P; W9 K4 |) f/ \6 `$ Z  Q        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 e# ?% U3 ?' ]6 hdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
2 m- T: C- l" i6 e: D1 Scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
3 D1 j6 _) {$ r; S