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

zooey

is
        mark:boolean;
/ v+ ^) Z6 t6 Z. |        dx,dy,ct:real;
  w$ Z" A# A4 h7 U, C    i,j,rows,lines:integer;
    machinename,bufname:string;
( N' z6 i) g& D( C; O  E, V    machine,buf:object;
do
        current.eraselayer(1);
% e- f: ]" v% g       
- h/ V9 p8 @& N5 [: ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 y9 }  H% M( J4 ^7 z                inspect messagebox("设施数目不对！请核查...,",50,13)
8 c7 }" k) s" |1 W                when 16 then
* `8 o) _9 ^0 \                        print"yes";
( ]$ G/ \6 `+ s& {4 @2 k7 ?6 L                when 32 then
                        print"no";
                else
5 k0 i5 m* [' s                        print"cancel";
5 O( d& k/ a8 C                end;
% r' d  H+ V; n$ r" ]                eventcontroller.stop;
        end;
2 |& o5 l; d8 r! ?6 d6 p       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
! S7 [7 m% X- Y: M% C" G                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
$ @% L  `; V/ n% a0 m                buf.deleteobject;
        end;
" M# j$ w3 e3 s3 g- `! b        next;
       
% X! }+ D) C/ p( X        dx:=0;
1 ^- w6 ~: @5 U  G7 a8 p        dy:=0;
        for i:=1 to number_of_machine loop
: h" L- G/ x& y- D& N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ @3 L7 ^+ \3 _; {* W, V                --mark:=false;
- q; N! ?  r; v6 X( Z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 G& E, @" _4 k+ J. Q0 Z- p                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
% {3 C6 u% Q* u                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
( r' o% u; O, F, A3 R# G$ F# @                        activityspace[2,rows]:=activityspace[1,rows];
, W2 s1 |  G8 M  l1 J- V" n5 Q                        activityspace[1,rows]:=ct;
                        mark:=true;
5 e0 U& u7 q) r! ], D                        else*/
                        y_max:=y_max+dy;
0 w  T7 f2 w, z+ |0 T$ `+ q                        dx:=0;
                dy:=0;
* R$ k+ _2 `1 O: i8 R# X8 Z+ ?                        --end;
                end;
4 F& u7 ?9 a+ x2 ^8 g$ \                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 E6 p% c$ j& N) c" y9 a) B) ?. p                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 ^& w# N0 D- L" W& N3 F8 |3 ~            if activityspace[2,rows]>dy then
$ \7 H  y, z, i3 l0 J1 m                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
5 h' y# m( a. y, p1 b                ct:=activityspace[2,rows];
" i1 w, Q+ e' M6 k* c8 [. x) r2 J' C                        activityspace[2,rows]:=activityspace[1,rows];
9 T+ R4 S% d9 W5 Z0 H3 T' C                        activityspace[1,rows]:=ct;
: _4 L5 f3 q0 `5 F# [                        end;*/
: @; T& D: [- w( H0 O* U5 K        next;
4 |, \% v3 ^  H        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);
        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);
       
  k3 ^- Z" e$ M8 S' B        rows:=0;
/ c: u8 R) Q* ]8 Z# [" ?        lines:=0;
* W' @' v3 G. W& M$ e+ d& l        for i:=1 to number_of_machine loop
+ D2 O3 b1 V! N- x                for j:=1 to number_of_machine loop
# T2 P9 f) z6 _                        if j=i then
; w' E! z8 q7 B; [* R8 G2 Y                                d_from_to_chart[j,i]:=0;
4 T) Y8 E/ q/ u# ?1 q0 v8 t                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
0 p+ T, P% I+ J# K) v" q) r        lines:=0;
2 o' R5 \& |# h9 H" `! h        partstable.delete;
       
% V# _! H1 G" O$ B        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( _' j- k1 n$ i0 h                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
' x2 k& r  h  X7 r                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
& m% K1 T+ f  U, C" t                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ p6 E  O5 Y+ j* E% o* [                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; D% i) K& x3 p6 o4 c/ b                        partstable[5,lines]:=rows;
" M4 @+ e$ ~# j" I                        partstable[6,lines]:=j;
2 [4 F$ G  U0 f: Z' v& r4 w                end;
        next;
& Q& d& h- k$ ~        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]);
. Z" ^/ `, _( |; Q6 A, L% m        machine.name:=machinename;标识符未知
        machine.proctime:=5;
( J8 s# R  g. d! I: L& ~8 x3 r6 ?        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;
8 p3 ^1 T- t, N. A+ f        buf.capacity:=5000;
        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;
4 H6 ]' D4 n* N+ V8 }: Pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
9 O" U" N$ u7 h9 n- D2 ~7 tnext;
end;