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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
( J$ @+ c% i- d% Q1 |% X+ E5 z    i,j,rows,lines:integer;
6 O1 c8 H3 t/ y) }    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
8 I3 {6 k: w. }0 p) ?! ~+ o1 L       
5 Y0 d( x* L% B) y3 ]        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
9 W% l6 @6 d+ y                when 16 then
                        print"yes";
. ?% h3 o; v5 h# K4 R7 }" C                when 32 then
+ W  B8 U' ^* l3 j9 s8 x$ H                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
: @; d, n: G& I- e6 p        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
( q! ?. }, Z5 ]+ `! X- n4 U        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
% e; n/ B+ j0 G; [5 y8 I9 L$ b) ?                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
* p8 n( V/ A3 V2 r$ T! l. I7 ~        end;
$ l6 M" O, t4 \5 {        next;
! o4 F( x6 A7 ]; O/ C$ ^       
; G( U0 b- J" o) i# z( Q* i        dx:=0;
) b4 @8 ^. ?- l9 ~/ l+ r        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]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
7 p% N; @: |8 G0 G+ r. i6 G                        ct:=activityspace[2,rows];
7 w& I( ?( V2 O, D                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
6 ^- z2 A! E7 ~/ u5 V% C                        dx:=0;
0 D* _+ V( q/ u                dy:=0;
1 W6 n# U) ]  }% J0 \( j9 z                        --end;
                end;
6 q9 h9 r# N5 Q, z1 X                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- V; }) m, s2 I. O% O" a7 j                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 g0 a4 _) I5 w! i" S            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# K  q. C( }" t  j/ Y# j                        end;*/
        next;
        y_max:=y_max+dy;
9 C+ \: ]+ s3 y- 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);
        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);
       
+ j) Y8 T7 X$ Q: w' Y6 s2 K/ \9 t        rows:=0;
        lines:=0;
0 W7 [% n0 u8 D- z  \! r, c$ h  _" ]8 _        for i:=1 to number_of_machine loop
6 X$ p1 B0 q1 p( _% g                for j:=1 to number_of_machine loop
, J( n( T8 o; E* V1 u+ @; E7 ~: q                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 D( N: L2 I* F% e8 |5 g: n/ D                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
8 P- m* I1 Z' n/ O$ q/ h                                d_from_to_chart[j,i]:=abs(dx-dy);
4 Y; Z2 O; g' s0 Y4 k; C                        end;
                next;
        next;
       
# p+ N* A6 T: \8 D/ c0 D: w        lines:=0;
; y2 ~# l+ _1 O, ^( v: ~/ f        partstable.delete;
) k! f! [/ ?) {       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 I1 K) V! h( D, U& A& Q                machinesequence[2,i]:=rows;
3 x6 l3 [  D" j* B$ S1 \                for j:=1 to number_of_machine loop
* _+ z' V! L3 B) e. T" @2 H                        if w_from_to_chart[j,rows]>0 then
* C  E6 v* \2 l: W( S: [, x                        lines:=lines+1;
7 _9 F/ P: l* o3 D. E2 a2 `                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 }/ e/ f' f5 a# Q* b# {                        partstable[2,lines]:=w_from_to_chart[j,rows];
" c1 b  w7 ]8 n, U& K                        partstable[3,lines]:=sprint("parts");
  x! B+ {: S( r: \+ }2 ?/ Z1 \                        partstable[5,lines]:=rows;
' x0 ]% q9 G9 ]/ ^7 H. H; H                        partstable[6,lines]:=j;
/ G, s3 W8 W6 k* B( \7 s2 i* l; D                end;
+ E, t" T& O  h' {  y8 ~1 v        next;
: a/ _) b  {' ?        machinename:=sprint("M",rows);
' J; J4 x+ @( Q8 T: }  E! y5 [/ }        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]);
4 e- l9 o. M9 j! S2 Q1 v; f        machine.name:=machinename;标识符未知
        machine.proctime:=5;
+ j: u2 J7 c' V7 F  j        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
- @- v3 ^% m# `0 k        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]);
8 ^& v. s4 y3 A/ d1 Z& n; v0 w' G        buf.name:=bufname;
        buf.capacity:=5000;
' b) E4 U" U- `, I6 B2 T5 ^        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
8 C  \! J- x( v7 f  Y+ K* M        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, s. G! E& a4 S! T# R( |dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ ?9 n$ k* z5 n0 u. L. qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
0 k7 Z) P: P) L% l+ [: Eend;