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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
7 w8 s% c1 d& k9 Z; [5 ~, C: r, Y        current.eraselayer(1);
- b) \7 h& B* g$ G" Q6 Z6 D       
        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
5 a9 d. S* m2 J- X                        print"no";
                else
                        print"cancel";
                end;
* @8 k3 s1 M* p- z# M4 v' c                eventcontroller.stop;
4 h9 M5 @1 ?) P8 ^! _6 S- m( u8 g& }# x        end;
       
9 T  G9 I& [1 y        for i:=1 to number_of_machine loop
4 i% _" k  j. Y! e        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 B6 l, I% X) r; k- v* H' G                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
! E& P' @' c8 i5 h: g( z        if existsobject(bufname) then
" v" _! M+ P) K7 c* U- P! _- y                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
8 D0 t3 Z, W0 \7 U        next;
       
        dx:=0;
( D; T, Q& l) [1 L9 Y3 r        dy:=0;
        for i:=1 to number_of_machine loop
, ~# @1 ?' {  ~8 t; t) V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# N* m0 j* T" |                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ A2 [2 G0 i) G0 X: p/ E+ ~5 V& L                then
  \& X6 U$ L) ~                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 r/ a3 ~; ]4 G                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
: F0 M# w4 D8 D! q) B/ z8 c* _. G                        ct:=activityspace[2,rows];
' c+ t8 w8 P/ W) b; ~4 T1 M                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 f5 E7 M- d5 y9 A+ u                        mark:=true;
                        else*/
& i  ]% @& p/ X* M  T                        y_max:=y_max+dy;
                        dx:=0;
4 r9 H  ]% j" J. z: @+ a3 k                dy:=0;
                        --end;
  N( R8 L3 `/ F# E1 C* a                end;
/ G/ f, \/ V8 ?$ w' F                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 b8 m; w  {, G$ p/ Q( e7 ~8 M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ Y8 J& f' \8 U% w! |4 t& ^3 z" a            if activityspace[2,rows]>dy then
+ [+ d$ ^; U8 k* S, L- a+ ^                        dy:=activityspace[2,rows];
9 Y2 f( Y$ U: y3 k5 O8 @                end;
' Y0 Y- H4 L4 s  B8 Q; r                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
/ ~8 s& j+ b0 z8 d                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: ]" Z8 v* w) _( p6 X% G0 G, L                        end;*/
/ A! I( Z/ r  d; t; @* G        next;
        y_max:=y_max+dy;
2 @: T. d' a. m. V( M' `+ l        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 Z1 ^8 ~( ^6 S+ x        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;
7 C, q$ k. K% l& B1 T) S0 R        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 J' J7 M, m1 H2 Y/ h+ {                        if j=i then
  T% U2 [2 F+ K9 o                                d_from_to_chart[j,i]:=0;
                        else
4 f4 p( K2 v6 R4 s4 X6 a) H                                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];
3 g. m) y; H1 y                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
, G! D* @& b( D, K1 n1 Z                next;
" C" f' h: b1 I' j! o2 J) X        next;
* r1 t9 i* H6 y, K+ n4 @$ N       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' w! u$ w$ f; r2 ]                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. ]' F# j  [) N% ~                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) Y$ t, d+ U% Q) T                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
* G4 v4 y& m0 d5 [1 W: d8 M' M$ z                        partstable[3,lines]:=sprint("parts");
: Q/ C- G3 S' x) i" h                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
. }' @6 X* y! l# y                end;
$ J. Z1 k2 `7 @3 H2 H+ c        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
) h. u+ \' b1 S9 x0 w# y" S$ [       
! |$ C( O5 z, ~+ u        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;
1 w; S: _( g6 w# N: w! R% s        .materialflow.connector.connect(buf,machine);
       
+ j# p) h5 l3 U/ G+ Q        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);
+ M% J4 ?9 @* |9 @, Fnext;
9 Q, @- d0 V7 W7 a+ D7 ?' Send;
* I( L# z% D; u0 i