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

zooey

is
        mark:boolean;
$ d: t+ q9 p4 A5 D        dx,dy,ct:real;
, L  u0 b' l7 r2 J% h    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, ~$ K7 P5 q, E& {                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
, W- V1 g$ C, |  A& d                        print"yes";
$ W& l$ ?& \+ |& A" S                when 32 then
                        print"no";
5 ~0 }+ W# H3 ?' V; V                else
" a# Y( B8 P; U( _                        print"cancel";
                end;
5 ]1 N0 S7 h1 {" M, l# e                eventcontroller.stop;
        end;
       
2 v0 F/ j# {+ [: R  g( p        for i:=1 to number_of_machine loop
7 ^" s1 \* D6 l0 f9 X        machinename:=sprint("M",i);
0 v6 a) O8 e% L+ C: r& ^4 p) {7 s        if existsobject(machinename) then
3 r3 t. g6 ]% T/ S* i                machine:=str_to_obj(machinename);
' n7 b0 ^3 m" ~2 g  F                machine.deleteobject;
) F3 x# J0 X  n. C: p( W7 M9 A        end;
9 Z. L: V' B) I7 c7 T        bufname:=sprint("BF",i);
        if existsobject(bufname) then
; Q( H6 L. I2 x2 C: k                buf:=str_to_obj(bufname);
# }( e6 V; q! I( [- p8 N                buf.deleteobject;
; \% \# \) W5 l' k  s1 H7 S        end;
/ i+ F0 }; {0 s9 L! }2 R        next;
$ E+ s$ H; z% F+ ]& v/ s( X+ F       
8 H+ Z& T  d7 W  X3 z- Z( c        dx:=0;
5 [9 D8 ~+ J) }  [4 H; `9 v) h        dy:=0;
5 V3 G; d) N7 M, ^: ?7 X& c        for i:=1 to number_of_machine loop
7 ~: ?2 H  _+ V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( v$ q! B; L( ?" h  {                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. ~7 t9 t  x$ ?  c$ ^) U( t                then
1 T* a4 e- |7 P# [5 \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
. ]5 }4 _  u, j, M                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: M) K1 ]  z: ]                        activityspace[1,rows]:=ct;
                        mark:=true;
" l# k! @/ n2 K                        else*/
4 _: k1 L3 I3 t! _  H/ M3 q" O/ x                        y_max:=y_max+dy;
  C+ x$ T7 c- O! I8 i! x6 Y                        dx:=0;
$ ~/ m! E) T: f                dy:=0;
                        --end;
& X" J$ \: V. h" Q                end;
" X: T! K% C! B7 n/ y+ W                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;
            if activityspace[2,rows]>dy then
, y: ^. A4 u- I  H  l  v                        dy:=activityspace[2,rows];
; g! o/ y  O* ^& t  E$ c7 K                end;
: V) C( e( R' b0 D- o/ ]                dx:=dx+activityspace[1,rows];
0 D. r9 M6 r& W" T3 z                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* Z1 D) U1 v" j# b; W% [                        end;*/
+ L" o, O8 D& P5 M/ n/ g( y        next;
9 z0 E4 i+ i* l+ {        y_max:=y_max+dy;
' b) n; x3 E" Z( H9 N: r        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);
. o  Z6 y/ i) a1 ]3 D# y$ M: _        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);
/ w. H% c# V% J4 n- M) j) N( d       
        rows:=0;
3 X1 T7 E8 a0 ?) O8 ^4 W! m4 |! ^: h        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
/ a% q5 k7 X: w6 }, j9 m                        if j=i then
0 R! m  P7 k) _( d) A' ]                                d_from_to_chart[j,i]:=0;
, S) x9 {" I/ f+ j# I3 l                        else
9 w) T. C7 f5 s4 t. s" I* \                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. t0 ~5 v. _# u                                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);
% M1 G* Y5 J9 L                        end;
  a& i/ h" v9 ^, x                next;
4 c; z9 M, h/ m/ ?# }3 `( v        next;
. F+ b4 E6 g3 f9 P1 l: D       
        lines:=0;
% h9 |0 J9 F% B* g" n& d        partstable.delete;
       
# R/ g3 p% n$ b" H0 h# L7 A        for i:=1 to number_of_machine loop
1 E6 S1 t3 J8 Q" t1 ?0 ?5 b# t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( _/ G/ K+ z$ i# {  e' d  g                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! @1 U: k- {, {4 J                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
" B2 T: }4 v# I( T, I                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
+ X  }& h. a) W                end;
+ Y% o5 I* n1 X        next;
        machinename:=sprint("M",rows);
3 z9 s' ]1 X" I9 a7 r        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]);
' C5 T( k) @4 [' K& y5 ^        machine.name:=machinename;标识符未知
' s. g7 z$ e+ v4 P+ e. q% C8 o. a        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
2 a3 ]* `$ F8 {  o( z7 D       
        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]);
        buf.name:=bufname;
; M. n# t" j' j) Z, y        buf.capacity:=5000;
4 Z$ e2 F; m7 @; P        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
$ T6 b' h# e" C       
9 H3 h' L$ a7 K" n        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
) S' T( _/ p. |next;
end;