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

zooey

is
        mark:boolean;
( O. y7 h. U- F2 n0 _3 _, w        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
3 m9 _6 a3 X1 v' H- W    machine,buf:object;
do
& K: U7 \# K( b" m        current.eraselayer(1);
1 {  q; r+ B% z7 @4 Y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, O, D' V. D( ]( c: Z( e                when 16 then
* \8 L% O, q& m                        print"yes";
                when 32 then
1 A& m9 @# S  v  d" ]1 J                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
4 M6 g4 R, ~; G8 z1 x0 c3 y+ y       
& t+ E( V' R% b; G% w3 S        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
% Y, d( f; d& h" F5 u2 V        if existsobject(machinename) then
" f& f! P% M" C8 P) ^- W% ]& o                machine:=str_to_obj(machinename);
; }" @3 m( P7 K0 ?: T                machine.deleteobject;
. W+ p2 X9 `/ \3 K        end;
        bufname:=sprint("BF",i);
5 U' K, O3 d4 y7 J' r7 u5 o9 e# D  I        if existsobject(bufname) then
8 c* I! x; X' w2 i  v                buf:=str_to_obj(bufname);
                buf.deleteobject;
. U4 w5 \7 T, b# g: `        end;
        next;
9 b+ K! J7 q& X5 h+ b       
        dx:=0;
        dy:=0;
; B' a7 S: {8 V# Y. F8 j        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]类型不匹配
$ D+ M, I! ?# H' H) y  |                then
# u0 P: Q% `% A& h                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; `, i& {5 ^- Z                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
/ r) \9 Q. S' c2 C2 ~  F                        ct:=activityspace[2,rows];
) j: C2 R" z- @; B, x" m: [                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
( R7 X- f6 _* ?. M7 x                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;
7 V' ^6 l/ x' H6 n# I            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
! {- b, U) K6 w6 s9 W; T! A" P                end;
2 \: _! N( d0 S8 q+ |                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& Q. P( [& n6 S1 x% X% ~$ h1 J                ct:=activityspace[2,rows];
# {7 ]8 W- ^, J5 R0 l1 j$ |8 a                        activityspace[2,rows]:=activityspace[1,rows];
; k5 X4 X$ K0 U+ |# O- C                        activityspace[1,rows]:=ct;
                        end;*/
/ z9 l9 v4 v; L; r8 n& E; F        next;
        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);
  p0 G7 f5 k; q# }        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);
6 N5 P9 M  N; d$ Y9 K' m       
# m3 v/ V9 ]" h; |8 e* V4 @        rows:=0;
        lines:=0;
2 j$ c( H; j* g        for i:=1 to number_of_machine loop
. d) y/ x3 c; E) m; M3 G                for j:=1 to number_of_machine loop
4 i4 K- X- x+ T# T9 n& ~                        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];
' P+ ^* `+ n4 m+ t- 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);
, W  `5 w& f: T% a                        end;
8 P6 ~  F- S5 D" V$ I- O                next;
% I* d6 e/ w) y0 r        next;
+ f0 i# S9 N+ m- E% q       
6 i3 P1 S+ ^, O5 f/ d: q' `+ X        lines:=0;
: p: k4 G4 B: _' E( Z        partstable.delete;
       
        for i:=1 to number_of_machine loop
1 J% ~4 p) O. V1 G7 x: f- O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# u' W" S5 `* o6 E9 u7 J                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
1 {+ }; c8 e: g2 g" V                        if w_from_to_chart[j,rows]>0 then
0 ]1 d( Q8 O* u$ V/ b                        lines:=lines+1;
* I7 V/ `* t* ^1 U3 o0 }                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 d) J  c% q+ W) `                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 F0 |) n7 [- U; {9 \                        partstable[3,lines]:=sprint("parts");
- {/ n2 g+ ~  Z, W, f! z& h5 D                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
  E; X2 U* _& j. B4 ~  z        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);
       
( K% x# J2 b+ b- g+ C; d$ P        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;
+ X' B' G7 m5 @; b! h        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
- m; ^. y9 a( R. E       
        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);
9 E; v' Z) D9 t" }5 _% q% u8 Mnext;
end;