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

zooey

is
6 g' O& k! d! Q! X; W        mark:boolean;
        dx,dy,ct:real;
* h2 }+ N( l! E+ `3 S( O5 e    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
; J+ v; \8 ~/ |. k/ O: ]        current.eraselayer(1);
3 I8 }7 p7 N; [4 @       
        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
5 R& d3 b2 q6 W% T7 ]                        print"yes";
                when 32 then
                        print"no";
                else
+ ^& h% ~4 Y( f& Y4 f                        print"cancel";
                end;
& y" Q0 l8 U8 {  Q6 b4 o                eventcontroller.stop;
; G1 o5 p1 \  X# q' k' ~0 P* D        end;
) o6 s# ~( n) R, \+ `# G1 X       
. x9 X+ P7 u2 q+ w) x  P( k" D        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
6 K, x7 z! w- }        bufname:=sprint("BF",i);
. A2 `" u/ \2 m3 J9 |5 O        if existsobject(bufname) then
( B/ ~0 h- o' W0 b                buf:=str_to_obj(bufname);
, U1 @5 t' n$ H8 @% U1 H' S* t                buf.deleteobject;
        end;
# H" B9 H2 O) n, F' m. k4 o9 n# d& I        next;
       
$ h+ o1 G5 l' N4 l        dx:=0;
: _9 n  t3 I+ `* L1 k        dy:=0;
) u) q1 z1 K# [) |" W        for i:=1 to number_of_machine loop
3 ]1 b# D) m8 \$ M2 v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 |# ^: y' \5 ?3 U                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* r' J) B( f. w+ G! C' I                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 R& h( `$ X+ Y/ t$ [                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ o, I# g# u6 c5 V1 h& F) P                        activityspace[2,rows]:=activityspace[1,rows];
7 ^: d" l/ `0 B                        activityspace[1,rows]:=ct;
. @; Q+ N- A/ l, X: D2 U                        mark:=true;
' N6 k% X5 o; T: q  x+ e                        else*/
/ U* F: b4 k: [% k0 W                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
8 q! L7 h% X5 J2 D9 k+ f                        --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;
% Y2 d- F1 P/ H6 |0 L            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
' `! l: {3 V" c0 O0 F0 |( q- d5 x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
- }5 X1 w  T( i        next;
" c# [% R7 P) o- m# T9 L        y_max:=y_max+dy;
        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);
, M- \3 i4 t8 N$ Y: d2 V( @       
        rows:=0;
, @5 F4 y8 {! d( o- p  y+ e* o: N        lines:=0;
* P0 J) b# D$ l2 K4 r4 {9 T        for i:=1 to number_of_machine loop
. c: h" p2 |6 g- a                for j:=1 to number_of_machine loop
                        if j=i then
7 H% n2 F$ N$ v/ @8 K" S                                d_from_to_chart[j,i]:=0;
                        else
4 z) o' W* ~; _, |7 j6 J2 m+ R                                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);
                        end;
1 C$ W1 D  z8 a) d6 L6 X0 [* P                next;
0 V& n1 \+ J( K        next;
3 y1 C) E0 h) w: {       
, U8 w6 l+ N4 i( u4 U$ `        lines:=0;
0 [, s8 M6 X& Z1 f) n  f        partstable.delete;
       
. V" d9 s& S1 T3 k- H, @4 f        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
" @, P) f: k) K* M                for j:=1 to number_of_machine loop
5 m0 Y$ o  ]; k4 H0 ^* D5 G; Q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# J3 \+ V# R/ O6 k: S: C/ V                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 G3 x7 z1 h- j" \                        partstable[3,lines]:=sprint("parts");
, y$ q, X. Z% z: S  d( x                        partstable[5,lines]:=rows;
6 l# J: v3 z9 I) [1 }. y: U                        partstable[6,lines]:=j;
                end;
8 ]/ l: f- |' S  O' {( g( Y9 t        next;
" G$ |/ y9 Q" N" j& i6 L        machinename:=sprint("M",rows);
* W* F4 v: M* g0 H$ l. H8 j        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]);
- j, ^& A0 m3 e+ e6 W- ]) |9 C        machine.name:=machinename;标识符未知
& w. A. z5 U8 S2 P, q; }/ U; \        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
$ s" k6 P. i8 U* ?        machine.exitctrl:=ref(leave);
       
6 C; A3 p% U0 o& F& u- O        bufname:=sprint("BF",rows);
        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;
* |, c: h* {- V: r) J# D# b- w% F  C0 v        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" {; k  Q8 f6 d0 D* u$ `dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ L0 \1 l6 L2 Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
5 v2 H: y9 k; e7 _; w( l/ enext;
4 |" j9 i9 u3 A- Zend;