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

zooey

is
        mark:boolean;
* r, G* \! B8 T& Y( b: H        dx,dy,ct:real;
. U! E. Q+ ]# e9 [, o1 ~    i,j,rows,lines:integer;
    machinename,bufname:string;
+ N% g5 }8 H5 ?& n    machine,buf:object;
do
' b  Q6 }9 z* U, D7 z        current.eraselayer(1);
       
# i4 {/ x6 D1 b* |7 J, f4 I  M+ X: S/ 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
                        print"yes";
                when 32 then
                        print"no";
6 t: D: c( G/ `  ~                else
! U. k# f' v8 q, E: P) z- Q" B                        print"cancel";
                end;
                eventcontroller.stop;
; y. w* s3 i. B$ {6 s  }        end;
, d7 s. x* ]) B" m       
        for i:=1 to number_of_machine loop
: c# p$ p/ P! P+ V        machinename:=sprint("M",i);
        if existsobject(machinename) then
% N6 J& D0 w  L( M0 r: O3 z                machine:=str_to_obj(machinename);
                machine.deleteobject;
- H" ~8 E3 X( Y        end;
% a% i( l) C9 c; o6 R: _        bufname:=sprint("BF",i);
8 P1 s/ h$ ^" R' {% ^* e        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
6 M8 i! m3 \* H8 w! E# C        next;
  f# b9 w: `1 Q* Y$ y" \2 [       
        dx:=0;
  X# M8 c- C8 [1 v- L: c        dy:=0;
        for i:=1 to number_of_machine loop
4 F3 Y" e% Q2 r0 w' r2 l, c0 D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ p" z* n, Y9 M+ x( q3 N6 p$ b; ?                then
$ y. b/ h7 [9 {1 m4 t                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 N5 h7 T# V& I5 @3 I+ I/ g                        and activityspace[1,rows]<(1.05*y_max) then
% ~. ]0 {4 d, C, {! F: |+ g                        print activityspace[1,rows],",",activityspace[2,rows];
# p1 N5 x% e; r  \, r( m) X                        ct:=activityspace[2,rows];
4 p* ^$ t6 p) d8 q1 }                        activityspace[2,rows]:=activityspace[1,rows];
: v( c2 ~7 T* t1 i5 ~- l1 v                        activityspace[1,rows]:=ct;
' e9 @3 I) X0 T$ x                        mark:=true;
2 |+ i) w0 i  ?$ p' ]! R. g: a                        else*/
  Q8 P2 X8 j1 _+ Y                        y_max:=y_max+dy;
                        dx:=0;
( Z9 x0 j0 x4 a$ z                dy:=0;
                        --end;
6 v3 m+ [* h, Q/ n/ {2 q' m, R                end;
9 L% `+ {2 I" a                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
; o$ w1 ]3 T8 J' m                        dy:=activityspace[2,rows];
! Q, |# g5 Z4 ^$ a& X3 d1 h                end;
+ U8 m3 U% Y/ P# g                dx:=dx+activityspace[1,rows];
. k! w7 A. P0 [  Y' M                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 J) T, M) a! ?! B0 ?/ a& e                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
9 [! `8 l' H9 w) f        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);
       
        rows:=0;
' h( n) }( U! Q        lines:=0;
* u0 Z4 H6 ^* o6 p3 T        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
- p. U$ Z$ p, c: m. X                        else
9 U. I% _- L* N                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 ~; j" y9 n/ A( `                                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;
- O1 n5 T4 N" r0 a2 N& t                next;
. J7 I0 `1 D# F5 L! A: a7 H/ u        next;
' w' [9 P6 V, o* B( w       
0 M$ ]" b4 d$ C/ {* n5 ?7 [, {        lines:=0;
        partstable.delete;
3 @. @  D5 X+ V! s, Q2 k( H       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, h  k, r4 g: s8 B9 f% ~. D1 i                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
0 ^- g; L% o; j, f' I/ ]# T                        if w_from_to_chart[j,rows]>0 then
4 s: p4 j- q1 X# e                        lines:=lines+1;
& c$ k# C0 q. D! w3 M' |" N                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 \$ E4 i2 J( }3 i                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
- P9 A7 R. W' F, G                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
/ }8 Q) V3 G; T& `0 j2 M4 [. M                end;
        next;
        machinename:=sprint("M",rows);
# X% |" q5 k$ |# @        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]);
: [% d& _0 B0 x! A2 A$ W        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: X: Z* ~* T/ A8 U) F- I        machine.exitctrl:=ref(leave);
       
        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;
# e; V( }% V2 J6 b' r: N3 v        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. {7 Q- {- ~! O8 g3 mnext;
end;