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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
  @' U- T, _: D/ Y6 A& {1 udo
5 t( Y2 O0 G0 |3 U" y- h        current.eraselayer(1);
       
- x3 _% \/ |+ W( E( ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
2 f# h# |3 q2 h% J. I# S" @! s3 N                when 16 then
                        print"yes";
                when 32 then
                        print"no";
) Q* l% N% K6 `. T                else
0 R3 k$ \0 i$ F# v( b$ A                        print"cancel";
, R$ j: n% {, L9 [5 z2 C( Y                end;
                eventcontroller.stop;
        end;
/ A) l: @" ]: U9 P# Z' \       
        for i:=1 to number_of_machine loop
5 x1 T3 T2 R, m+ v' K4 x$ Y  c5 Y        machinename:=sprint("M",i);
        if existsobject(machinename) then
$ D2 x' L0 A8 w$ k- x                machine:=str_to_obj(machinename);
1 W0 B2 W5 W: Q* V5 j- }2 Z& W                machine.deleteobject;
. j4 g- q0 L  |8 Y. c" [        end;
        bufname:=sprint("BF",i);
2 J6 Q5 g. h- c6 C: i/ w' ?  ]        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
. s; n- `) v; I( j        next;
1 b7 N' A( y! M  H! T; \       
        dx:=0;
$ m. K. z, k; c0 m5 r: b        dy:=0;
8 y7 @& j2 V" ?5 ]; S9 ~        for i:=1 to number_of_machine loop
7 }; H3 P! P+ Y. F" O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ \1 j9 U9 v+ @- A8 n                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 L  o9 U/ v5 M- M) M, A& L                        and activityspace[1,rows]<(1.05*y_max) then
, r) D  a0 Q. v! I6 f                        print activityspace[1,rows],",",activityspace[2,rows];
5 l+ q  b9 c$ f, h5 ?                        ct:=activityspace[2,rows];
8 b3 F1 p# d* I7 U: M2 O                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
5 e" l" z9 W2 C                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
7 y! Q4 a( m. }+ j! {* n  Z                dy:=0;
6 C: S8 r9 q* x: p5 W! j; i3 I                        --end;
5 O; {' K' E9 L1 p6 {                end;
/ w0 w/ }' a3 R- _6 }                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 p. |: K" |8 \, H* ]0 |                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
" D% X# n9 K$ F' m5 I3 T6 U            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
4 ?4 i' O! n/ J" |5 O                end;
                dx:=dx+activityspace[1,rows];
, k, k* q* Y+ f5 P4 {5 p                /*if mark=true then
                ct:=activityspace[2,rows];
1 h7 g& d  s0 @2 G( o/ j% E$ Z                        activityspace[2,rows]:=activityspace[1,rows];
- p0 o( Z- A1 G2 o  n                        activityspace[1,rows]:=ct;
                        end;*/
        next;
3 |6 L! E& |8 S# ]0 J        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);
4 o" |- `8 j2 E4 P8 J, p        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);
8 A) {% M, d2 @4 Y5 ?1 i       
        rows:=0;
        lines:=0;
- }) \, f: i& @- W: {$ o: H9 v        for i:=1 to number_of_machine loop
/ ^$ u! `" Z! R) P                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
' G- V, J* |- u& M3 h# u                        else
0 Y' C) @, I2 q                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# x$ B, }/ o& I2 R0 o                                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);
$ y( i; P+ B7 s6 }- A  v( Z. o9 B& z: w                        end;
0 i$ z: w, @+ g0 E                next;
        next;
" P( s: \% P7 ^' a4 O" d9 h0 v+ i       
8 e' V2 B: F& d- n        lines:=0;
' L( [: V0 n5 ~- D$ u. U% p        partstable.delete;
& O$ Z( ]+ w- ]  c0 R% K7 z       
/ S: E$ ?9 g9 Y* _+ S% Z5 T4 h        for i:=1 to number_of_machine loop
9 ~) G. H/ }5 l! _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ C; g* }$ R" X; @( j7 S% U                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
" \) K. U. b9 [# n# b                        lines:=lines+1;
) I( w: T* i, f# f) }' }7 M                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
) k' }# }7 N, j1 G0 q8 x2 E8 C        next;
4 d) I! L; ~, ]        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;
8 D/ W, E5 Z- N9 ?6 v9 C. _        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
7 S$ y" H! c/ d2 D# o3 n# k        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;
& C5 r! B3 N: F        buf.capacity:=5000;
        buf.proctime:=0;
7 |7 k+ E& q0 Z1 x0 n        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 x# I2 i& U- |+ ]* J+ }dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 r+ `2 h: z8 a4 ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
9 v9 ^; |0 @& ~' ]next;
$ O& C8 k1 h8 Qend;
6 Y. n4 b" P* r. h. O