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

zooey

is
  {6 Y6 m; r: M. L7 c+ V$ M        mark:boolean;
        dx,dy,ct:real;
1 q3 v* K) ~; n+ ~* |# u    i,j,rows,lines:integer;
* ?) k/ b( _6 w/ \, @5 L$ {    machinename,bufname:string;
    machine,buf:object;
& c- B( C) q9 P. R; ?, ]do
5 }  ]. d2 G  v5 u1 X        current.eraselayer(1);
+ p5 E9 }: |3 v0 i0 M5 \       
        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
4 }: ^1 F4 O4 W# |1 ~                        print"yes";
, b. Y; C6 @& p' c$ _" Z                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
+ h1 i' a5 A7 ^8 c8 Y# i2 a                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
1 E0 G4 [0 a% f% R        if existsobject(bufname) then
8 M* w' R3 V; X  B% q                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
  |# K, W% L' S        next;
       
        dx:=0;
5 A6 P2 W* |0 ]$ }5 e! F8 _        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) n( z6 p6 \7 F2 K$ j/ z                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
% T0 k% E, D7 U2 i                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; G0 E+ i" {3 r* q+ Q' X; X6 e                        and activityspace[1,rows]<(1.05*y_max) then
: Y4 a3 H, x/ M* g4 s                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ K; m3 }$ {, M. [7 T                        activityspace[1,rows]:=ct;
3 n! K4 a7 g! @1 V: z                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
- \, z) q6 G+ l+ d                dy:=0;
2 n  }* ]; ]2 e: n! \; h; l; y                        --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;
. @; e9 n6 M' O- k            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
3 [( Y2 N* t' @1 y  {                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ c9 o# k+ x7 n6 x) {                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* H$ P5 i+ n" \# F7 x                        activityspace[1,rows]:=ct;
! R7 `( q6 Y8 R! g                        end;*/
        next;
. X+ |0 R( i1 d0 H7 H, I" B        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);
- w7 f) q* X# [9 Q0 `7 F2 P' f        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);
; y) k& B$ s/ o* L: t  F2 Y       
        rows:=0;
( B4 u8 \1 N1 V7 b& G        lines:=0;
$ a3 L% |7 m* x0 o        for i:=1 to number_of_machine loop
; C  W, E  T" |, e4 W% _1 g: j. D                for j:=1 to number_of_machine loop
                        if j=i then
. R+ r3 n4 {2 q% N6 t* K5 D                                d_from_to_chart[j,i]:=0;
; h$ b5 {/ S/ m8 {& I7 L1 `9 _- a                        else
! V* Q/ _9 S6 s$ n) y                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, u; k4 H$ J/ J5 D8 _; R                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
! u( t, R/ l, z; x+ J3 P& v+ W) x                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
* ~4 O9 e: @0 h3 w1 d8 }1 Q                next;
        next;
       
        lines:=0;
1 T) u$ G+ |% y: p4 g6 R: m5 ~/ w8 I        partstable.delete;
       
        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
: H* F1 |% O6 v' }) x                        lines:=lines+1;
/ w/ }5 O1 k- l                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 |$ B5 M8 k9 {, S& n- \; m                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 Z0 K: I; `8 r2 o! W9 L8 t0 z                        partstable[3,lines]:=sprint("parts");
5 w" r1 P2 D7 N$ W) _: c                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
. r  Y& s+ p. g3 ~% B7 M0 ~* @; e                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]);
5 a; g& X/ @6 @% j' M% v( b        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        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;
& @6 M4 o! F1 E" G. e        buf.capacity:=5000;
        buf.proctime:=0;
0 \+ D- `2 T9 g        .materialflow.connector.connect(buf,machine);
       
* y8 q9 o. E* D  ~. w1 G& v        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* {1 A6 d" |& r" Ady:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. ~% N/ `  K2 z& y) b/ N" icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
( P+ }' Z7 A! Z6 i" Z) ^. Rnext;
' \  @5 F8 F) W4 T" vend;