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

zooey

is
        mark:boolean;
) x2 c5 K9 K5 C% Y4 Y4 Q! y. z        dx,dy,ct:real;
( v! ?7 t4 H1 }/ q2 ~' b6 p    i,j,rows,lines:integer;
' [, ~( B- }4 u! Z5 N    machinename,bufname:string;
    machine,buf:object;
3 a( i+ m7 o' ]9 T) Z- }9 |0 ^4 Tdo
. `! N6 x/ B2 p1 p( ]9 U. @- L0 R7 S        current.eraselayer(1);
3 }, F* g- O7 d' o+ }; S0 ?' F       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 k9 j( k8 F3 e, X2 A                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
2 K6 t* ~5 o1 K9 j& P2 J% _8 s                        print"cancel";
                end;
+ T7 p: `+ L8 B3 Y+ M- U                eventcontroller.stop;
& G( k2 c& v' b        end;
       
        for i:=1 to number_of_machine loop
3 ?; d" w" V# g. u& ~( [& j3 m6 G$ D0 j* v        machinename:=sprint("M",i);
0 |4 s2 A) @! Y: i4 G) `6 l/ Y* F        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
" V6 X! g6 @  M        end;
        bufname:=sprint("BF",i);
/ A! e& m+ C$ K( G        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
; e- A# ]7 J6 A9 ^& Y" [% i        end;
/ w$ W- W8 m7 c! `  f$ B( i- [7 \        next;
* b. ]5 V; R/ J9 o8 ?0 r# o3 Q4 S       
        dx:=0;
        dy:=0;
" w2 T$ e+ |# y( P+ d; k3 F        for i:=1 to number_of_machine loop
- V$ s. c8 d' Z/ S$ x7 `! \  C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
& z6 z: L0 N& E                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ `+ {% a( Z0 u7 t% @. M8 ]                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
0 h$ G! N- g0 V9 @8 \                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ M: I% w3 D. e) f+ H                        activityspace[2,rows]:=activityspace[1,rows];
! B6 j" r2 M. i6 d( w                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
. U( C1 K1 Q  }5 u8 o6 f7 j                        dx:=0;
9 e5 _! S! J4 A. U; u0 v                dy:=0;
& u( X3 ?, t+ q" I3 r                        --end;
# i7 y. m5 V' X                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;
# J1 H( M, k5 G- C3 w% z: }+ m* T            if activityspace[2,rows]>dy then
1 F$ T; v6 Q2 k5 k: ~4 U; }$ o% i" x                        dy:=activityspace[2,rows];
- N% C# L& I7 n+ Q- L- ^                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" C7 b' d( o& [' M6 G                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
& m' v! T0 |+ H& z; }        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;
        lines:=0;
        for i:=1 to number_of_machine loop
6 d/ f1 f/ {& G/ o: [5 O; |, L! T                for j:=1 to number_of_machine loop
                        if j=i then
6 q6 G9 T7 e' v/ b7 l+ h4 Y% I% X- L                                d_from_to_chart[j,i]:=0;
* C4 O% T, r$ [  x' @" C                        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];
- i4 v5 \. {6 m( J' q- X6 |                                d_from_to_chart[j,i]:=abs(dx-dy);
2 `) ^  \# V0 U) l: v  ~                        end;
4 `- _+ Y' O/ o                next;
        next;
, F  G+ P) |! d  v& o8 p3 k8 R       
! Z9 i6 |, A& M9 E+ `- l& U; o6 [        lines:=0;
        partstable.delete;
       
9 b) v, A; a* \) @# k2 r        for i:=1 to number_of_machine loop
                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
0 H+ c/ P# r+ t( j+ v                        lines:=lines+1;
5 u# B* `( E; |4 f, d, i5 ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
' R5 b7 S% U) s  V, u* c8 U                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        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]);
: s! J! t0 u3 J& i; ~7 M        machine.name:=machinename;标识符未知
        machine.proctime:=5;
8 {- e! E7 |) P' `' x        machine.label:=activityspace[0,rows];
4 A! o/ j: e8 v! |2 L        machine.exitctrl:=ref(leave);
       
  N$ i. K0 C: E        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;
  i9 G( T/ ^) K        buf.proctime:=0;
. @# e0 G2 I- i8 F& u        .materialflow.connector.connect(buf,machine);
       
9 }( o" g: V! i5 `4 g5 ^        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' ~- N5 @. _$ rdy:=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);
next;
end;