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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
, i4 v. G6 o3 k$ D8 p    machinename,bufname:string;
    machine,buf:object;
. t8 x+ B+ \7 l' ?  K! P& S9 Ido
+ t3 h2 G% D: r        current.eraselayer(1);
7 q8 V( ?& V2 S1 j/ t7 k       
, ~4 q& l9 l5 U/ C        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
' c% X: l, a4 u6 y4 ~7 \                        print"yes";
" a% p9 U/ u' P5 |/ |& [5 x/ T1 x                when 32 then
                        print"no";
, X2 z$ v2 S4 S( S( Z+ P/ a9 B/ d                else
- B! U# T! s  v5 C                        print"cancel";
4 @: ]8 A* R0 E! z* [                end;
' O( P4 @/ h/ y                eventcontroller.stop;
        end;
& n* m7 x0 b! O, X+ B       
        for i:=1 to number_of_machine loop
* ^' O' Z7 E1 O4 V! Z, F  X4 N        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
6 E. j- z+ Q, @' k6 z: }) D8 x3 m        bufname:=sprint("BF",i);
1 o7 T+ U' j* @" c. o        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
8 ~& Z7 A; m& G. }, V; t6 _' c        dy:=0;
- Z& I) W; @# ^        for i:=1 to number_of_machine loop
7 u$ p/ [' @4 U: U, T# V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# x( l3 K0 \; s) K$ c                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
$ e, H- a* P2 J  u5 k                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
, ]/ S  ?$ O) c6 F/ g4 a: ?                        print activityspace[1,rows],",",activityspace[2,rows];
! [% L- h2 E# }                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 @+ ]5 |2 R8 O0 A5 b+ c4 w                        activityspace[1,rows]:=ct;
7 k2 T$ f, k. K! I, c; r7 N% F! Q                        mark:=true;
' N/ p' h# l7 i5 y! u" [; a# _                        else*/
                        y_max:=y_max+dy;
7 c; d2 S" `$ ?, Z; k9 O% K                        dx:=0;
                dy:=0;
                        --end;
                end;
5 ]9 I- m1 e2 I                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;
! ]) O$ \; ~/ w7 ]0 R$ ?            if activityspace[2,rows]>dy then
+ `% @3 z, E2 ^: d5 C" `7 B" k# z                        dy:=activityspace[2,rows];
$ V# U% Z6 g* l7 Q+ ~6 L                end;
/ b4 T& \" ~. ~                dx:=dx+activityspace[1,rows];
  Z( L6 o: ?" F/ B* q; _+ V/ F: D                /*if mark=true then
                ct:=activityspace[2,rows];
3 }2 R# ?1 {3 b. s1 D6 M: R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% \; t& w( A: `1 j( U) n2 i5 L. J                        end;*/
( s& f4 q) v0 f3 O        next;
        y_max:=y_max+dy;
" ~7 g1 r7 e6 t8 l! p# y        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 O7 A& V: ^; W( U7 b: L, L6 J        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);
+ f' \3 A3 m. M1 y4 |$ M       
1 v1 Y$ r6 S+ m) X# w& d        rows:=0;
& U6 ^4 L( Z6 Y        lines:=0;
- z9 W& m# ~9 Q! Y8 I        for i:=1 to number_of_machine loop
1 d/ O4 F% s; T& L) Q9 Y9 S& i. k+ A                for j:=1 to number_of_machine loop
7 U0 n( K# `8 c/ L% T/ W                        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];
: t( o% }% |0 n4 F3 C- c                                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;
, \8 E) V2 z* w2 i0 O, Y) s* {                next;
        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% _5 A- j. O8 Z) B                for j:=1 to number_of_machine loop
5 n4 O) c3 d. ~8 F: [                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
: n# ?* |7 \  X& |; B                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 Y! z& X& z0 c: u( T6 M& L                        partstable[2,lines]:=w_from_to_chart[j,rows];
% ^  k. \3 ~4 ~9 T9 l5 r* s                        partstable[3,lines]:=sprint("parts");
& H$ F% t! e9 S) C' E                        partstable[5,lines]:=rows;
% Y$ D* G: [( h8 f4 Y9 I$ Q                        partstable[6,lines]:=j;
                end;
        next;
9 C8 L" J5 o) |2 V6 }        machinename:=sprint("M",rows);
: [/ x! Z! ~1 V        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;
* t/ R: J3 e* b        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 M0 k9 G* X; U& X/ p1 I6 a4 `' {       
8 w) K- B4 A# ~& L3 X        bufname:=sprint("BF",rows);
, H- v$ Y8 _' ^1 l6 R7 Y        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]);
7 n8 ]% n' Q2 W' v. [8 t        buf.name:=bufname;
* P$ |) G$ R1 b( {# L% z  P7 I) h        buf.capacity:=5000;
        buf.proctime:=0;
  x' Z' I$ d0 N2 C: P  w        .materialflow.connector.connect(buf,machine);
/ r$ }8 [7 K. t$ ]( t  ~) q3 p       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( X0 u5 K$ L( ?  w, Idy:=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);
next;
end;
5 F8 n1 v+ s4 G% T7 a9 d