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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
" K: H7 P+ P/ C* C) p) ]    machinename,bufname:string;
    machine,buf:object;
do
+ V3 K$ C; g( Q        current.eraselayer(1);
       
: s: B) ~. `% t. a* L2 m  g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: w( x- s' ?3 D2 Y9 D                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
, I& W3 K7 s& ^; a                when 32 then
: |0 s& ?* {2 V+ N$ U                        print"no";
                else
                        print"cancel";
$ P6 B: |: C. C                end;
                eventcontroller.stop;
        end;
% n; K' C  j+ M$ J  G( i: y       
        for i:=1 to number_of_machine loop
( t7 M9 |( F6 r, z* U6 c        machinename:=sprint("M",i);
5 X$ _0 h& N* P* g        if existsobject(machinename) then
1 h4 H  Z' g. v+ M. F& T                machine:=str_to_obj(machinename);
                machine.deleteobject;
: V+ D& Z) R: R        end;
* w, |. D" x7 f) B" a  q        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
; b3 C- L5 m1 }. U0 [3 r- r1 u                buf.deleteobject;
        end;
        next;
. h( z4 L$ ^2 f' I       
6 [- ?6 w% Y1 ]  G$ v        dx:=0;
0 E$ ?( `+ [# a        dy:=0;
1 O; n. @- f9 N! j# W3 [+ c( D        for i:=1 to number_of_machine loop
2 m( {( S: o, c3 T9 x" F' U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; }: P$ R8 l  n4 k  ~$ Q- h% H                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% B# U( }7 X) o! Q- Q                        mark:=true;
7 y( O" V  \5 r7 H# I                        else*/
8 Z$ _! @1 i& ?9 `0 K                        y_max:=y_max+dy;
  z- b3 K7 I9 V3 q3 i                        dx:=0;
                dy:=0;
- D' v7 `6 E3 C7 V- s& W: @                        --end;
- A/ R/ X! ~9 r9 a                end;
' s( u5 `5 E  ^! n( m: x                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' T2 r& R7 z% g% x/ `+ D% s                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
" k# I% M' s: P: K) M% W) R                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
- \& v: L/ p7 J( u/ z                /*if mark=true then
/ h' `6 Z# u& ^- z1 T- c                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 x; e$ @9 l  ?% Q  r                        end;*/
        next;
3 j/ C" o2 l1 [" o! b        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);
       
3 ?9 r: c# z4 ~        rows:=0;
        lines:=0;
( t8 k7 x9 ]5 s5 X8 T; B( w% P/ e8 ]+ G        for i:=1 to number_of_machine loop
6 q) `/ Q) ]; Z4 n0 u7 a' S' T                for j:=1 to number_of_machine loop
9 D4 _- e/ I- e                        if j=i then
% W1 F' f2 N8 j9 C. H                                d_from_to_chart[j,i]:=0;
& {- i& ]' j+ D: r2 N                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# W: s  q' a% R                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 A2 B! ]( u, C9 {                                d_from_to_chart[j,i]:=abs(dx-dy);
2 E% }0 l; Y; {6 d+ O                        end;
% i( @: @0 N$ }! P9 o3 o                next;
* v! w3 o' _) b+ l        next;
7 q! e2 \2 ?* S. }( R! S, W       
        lines:=0;
$ i" `4 j8 E3 V; Q8 M/ ]* H        partstable.delete;
       
2 _& A* V6 o6 v        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' l) f5 i1 M6 R. U                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 N1 J$ j1 E3 Y4 s# i                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
8 M1 O* V( v4 P5 r, Z* e* T                        partstable[6,lines]:=j;
8 u8 t# ~/ Y1 e0 p& A0 [: M                end;
; z1 ]( F- x" O  p5 K        next;
- \! C1 v1 v# O7 e9 G4 K! 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]);
        machine.name:=machinename;标识符未知
8 k- b4 }& x' Q) I4 u% t        machine.proctime:=5;
3 P6 V( L4 o. s% _* _8 E. ^        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
/ C6 |" v7 N9 O% Y* R- d8 d: d        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]);
$ z/ o8 t0 V/ g. J7 C        buf.name:=bufname;
  m4 [; y( `) z9 r& K# X! a1 z        buf.capacity:=5000;
3 K5 v% C; V% }6 ^- U8 k        buf.proctime:=0;
7 z7 j6 B. h+ |. {/ Z        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 l# q% w, y( s) W: Y( bdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. C; ]: z3 x! acurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
5 j7 J9 [/ f  r4 f# H' N1 I" G  onext;
end;