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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 w& X- C8 v* [: S" J% [/ ~7 T    machinename,bufname:string;
# O7 u8 n! Y: I- b+ e+ t: I    machine,buf:object;
do
        current.eraselayer(1);
& F3 ~8 o; x# T8 X: h       
8 U. q3 q' q; S" q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' A! z1 T6 Q: q. u6 f1 }/ r' v! \                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
+ z9 p! a, p# z$ ?2 z6 U! i                        print"yes";
$ A$ P/ T; q" ?$ q: X7 _                when 32 then
7 L/ u9 t: |% k  a' N( [4 F                        print"no";
6 {2 K! ^2 H- l' p9 ^                else
2 N, Z" V, c- v: t9 n7 t1 v4 j1 D                        print"cancel";
                end;
3 W) s* {( S' f% w# w: Z                eventcontroller.stop;
& m# c5 P0 t6 Z1 u: c        end;
/ c, o2 W& v% W9 _       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
0 W; ]2 J* @$ t$ z( ^9 C        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
5 M$ t. }1 c3 U! j! G$ l6 a: W                buf:=str_to_obj(bufname);
( K8 i8 @) X2 r                buf.deleteobject;
, d9 \0 }6 l0 \1 z        end;
        next;
! ]( d! p' ~% e! j1 N       
        dx:=0;
        dy:=0;
" }+ |2 c8 R8 g! P        for i:=1 to number_of_machine loop
; u7 O7 L  S! i2 H) F* \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% e" ^. C) `% w3 N. {2 n* }  T: o4 |                then
5 m% @( a4 a# v! }3 E( O& X                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
% \) `% i# ?: g, @  D$ b                        print activityspace[1,rows],",",activityspace[2,rows];
, }7 ?( j$ t* v5 j9 j# I6 d                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 f& i7 i2 v; b2 h" y                        activityspace[1,rows]:=ct;
                        mark:=true;
( F. A4 H& o* c2 }7 R) _7 q( m                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
% `' n& ^5 V7 y6 a# a8 g+ {( P$ _0 v+ k. \                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 s) ^* L8 y1 x: P5 {" w% [                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
! A" e0 C% ]4 v  b/ I2 H0 a* C            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
6 r6 p0 E  j% h% I                        activityspace[2,rows]:=activityspace[1,rows];
2 D6 |& g0 ]0 S6 A9 D" V                        activityspace[1,rows]:=ct;
                        end;*/
$ {2 z9 q' H$ p1 R" R; S/ b        next;
' _& d  a( x) \/ V        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);
       
9 Y& d) A2 R: k0 n        rows:=0;
- S2 w+ |5 h# X2 t$ e        lines:=0;
! D: f6 H: e( V        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
& j: Z# Y' W  g! n7 v. a8 S; I1 R                                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;
# R* w& g$ Q  y4 w$ J                next;
& T' ~) j) Q; O/ z  Q        next;
& I; f' }/ L* @! r  A5 C       
- ^% R# q/ I* A        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
$ h! w' ^+ r% ~  a- _& k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
* x( C: O2 w. v                for j:=1 to number_of_machine loop
- Q9 J' I! p4 b* v, ~                        if w_from_to_chart[j,rows]>0 then
* T) P: [- x. w( Q' Z" N9 N                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
4 u0 H* k5 \, Y2 I7 g) w, D! `                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
3 ~" n' U8 B* }: T        next;
4 D' P) ^/ K$ \7 K! o5 g        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$ B8 \! f2 N0 {9 D- g        machine.name:=machinename;标识符未知
: _5 X, Q. W1 D8 t2 n' ~        machine.proctime:=5;
9 l+ u) `3 G: W        machine.label:=activityspace[0,rows];
/ j5 n+ J7 z- B2 [        machine.exitctrl:=ref(leave);
       
4 L9 @: {* T& o' f3 V/ q- c9 \        bufname:=sprint("BF",rows);
/ o% ]; _, ~$ N' ~/ E' T        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;
( \3 K: B4 w, e- z" J$ B- H' a        buf.capacity:=5000;
5 ^5 [# X. [" {& r        buf.proctime:=0;
. P% ?' @# U- o4 i3 E        .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 r8 x' H  d: K9 I3 Y0 ^: I* h2 V- Pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' a5 t3 U6 a+ `5 znext;
end;