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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
( v7 c! N( v5 m    machinename,bufname:string;
. l2 n7 T; E) \1 w/ @    machine,buf:object;
6 X9 h0 L# ?2 c/ Q+ vdo
        current.eraselayer(1);
       
        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
                        print"no";
  @0 T1 ~" {+ w3 [* ~) C- o                else
                        print"cancel";
                end;
                eventcontroller.stop;
; L3 K0 n5 [) ^- v8 R1 w        end;
       
- ^$ ~- p, l. h* u& _+ \        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
+ K, r( z" D; C* u- s) _        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 p1 V0 u% w8 o# i- h                machine.deleteobject;
& O8 f- O2 f+ o+ j- X$ o        end;
7 u  g2 i. J" C  i) ?  a! l8 Z7 _0 ?        bufname:=sprint("BF",i);
1 o) Q: N3 d* a7 a        if existsobject(bufname) then
/ ?3 @/ q+ i( A2 G                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
+ Q& C2 k! b. `        dy:=0;
7 v9 C$ o9 g: ^: b        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
/ M$ x2 f, ~5 z7 F' o: A/ `                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; }" O8 g. l- E& A6 _% G* v0 Y% F                        and activityspace[1,rows]<(1.05*y_max) then
0 x" M5 W1 D+ n                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. T+ F: p0 [5 Z' x' a                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 q, v  [1 [3 |0 `6 Q0 Q* i1 o! x, {                        mark:=true;
2 H8 Y! @. Y* i$ d- ~% a7 N& E                        else*/
) E1 g4 c' l! Y6 B3 `+ J+ N# t                        y_max:=y_max+dy;
% @  h" ^3 A* j0 Q6 P                        dx:=0;
                dy:=0;
, P' }5 P( F4 Z1 O9 H! P+ p, |2 y! v                        --end;
                end;
8 x5 T8 X7 `$ _5 i" U5 H( p                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% D/ q; H, w! }* B! n$ N                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
1 X2 @- `+ }7 K7 J" u- T                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
* j7 E* i4 a1 J, V                ct:=activityspace[2,rows];
" B  O* Q3 m; j, X$ X                        activityspace[2,rows]:=activityspace[1,rows];
* ^, d$ F$ i) q2 d* L9 t# u& `                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
$ l. N3 Y+ Q' J        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);
5 S+ z' G8 a+ D6 O5 w# w        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);
; l; r( Y( E  s! K! N       
7 r. g, Z/ J& [# L' I% C        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
6 e' c. S8 t; u) I                                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];
                                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;
" B, P% I+ v- l+ U! y( ]       
2 W, C; t) i& @2 Q        lines:=0;
        partstable.delete;
! Y' @2 q8 E+ ^2 K, \- a9 O, B( r       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 M1 `3 E8 `3 O$ v! ?) H( }0 q9 B                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 N9 c+ k6 O; V- m2 b% O                        partstable[2,lines]:=w_from_to_chart[j,rows];
* a4 {6 I1 d: A9 {! V( f# I  v                        partstable[3,lines]:=sprint("parts");
4 L8 L( h2 R0 H                        partstable[5,lines]:=rows;
8 `3 b" C2 d/ A8 Y) ~  t6 c# F                        partstable[6,lines]:=j;
                end;
  I8 b- y! q! V$ p        next;
& v3 g' r4 y6 B; U# u/ \3 x; S4 s        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;标识符未知
- q7 y5 `1 G" X( Y, j1 a7 k        machine.proctime:=5;
) M6 E: r  L6 _3 \5 A5 P        machine.label:=activityspace[0,rows];
7 ]5 _2 V' ]% P  d* J- a        machine.exitctrl:=ref(leave);
4 X) k* o* z" j( T) T5 U: k0 h1 x       
        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]);
! d& Q7 n, _3 r" H) ?        buf.name:=bufname;
        buf.capacity:=5000;
+ b  O- B5 W$ M, Z        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
6 U: f4 |& P  y& S5 M2 p+ @        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 r1 S, V8 e* h& B  L  ddy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
( K+ H! h2 I, a' z5 lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
5 X: R+ G8 R3 u8 N+ G4 x) m: Bnext;
end;