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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
7 C) t( x2 x8 Z9 f* }3 k    i,j,rows,lines:integer;
    machinename,bufname:string;
0 [) Y; K- d& k: [5 L* Q    machine,buf:object;
do
        current.eraselayer(1);
1 B; }  U; |4 T6 |; x5 Z8 p       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ m+ m. F! F  N* u                when 16 then
                        print"yes";
0 f) A: z% v" P7 \8 P9 B! ]; ^7 T                when 32 then
  J" ]3 a$ m% Q; K/ f                        print"no";
% ~2 S7 Q7 ]: \$ q% o3 A+ f                else
' b1 K. }# j( k/ l( r% O" Q5 L                        print"cancel";
3 U$ M1 M% a& t$ {( O2 \                end;
                eventcontroller.stop;
2 k1 L  ?5 z/ j3 k: w2 G  k3 s' L        end;
! w/ c' @, W* K; D$ z       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
5 _2 \" [' t# A9 H" M+ w        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
1 {& @# c6 r+ _: ~7 [( v/ S+ w% N        end;
6 F. {; o8 b" v) R+ _4 W1 b        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) O( f4 v' j2 a5 e, f                buf:=str_to_obj(bufname);
- n: j9 M3 W& p/ h                buf.deleteobject;
        end;
        next;
* J0 b; Q& Y/ l! r* X       
        dx:=0;
        dy:=0;
  @5 ?/ a  P& `6 k( T        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 r: Y* S  [3 N4 U! X/ F; k+ c                --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]
$ ~3 J' i, ^% B+ g4 A; b! q& p. J                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ h7 F4 h$ D1 g4 V$ x0 h$ F                        activityspace[2,rows]:=activityspace[1,rows];
( n1 m) l# ^3 Q. `$ i                        activityspace[1,rows]:=ct;
                        mark:=true;
/ B6 b7 h6 c7 v! K: A% F                        else*/
                        y_max:=y_max+dy;
) Y; r- Q. z+ q! S3 u                        dx:=0;
                dy:=0;
                        --end;
5 N  c4 G4 ?/ ]; R6 ^: {                end;
* x/ m$ @  s6 T, S/ V                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
7 v4 h; p% m, }/ U1 H6 }1 H! a                        dy:=activityspace[2,rows];
                end;
7 C" M* f) Q/ S6 V, Y# \0 J. F; l                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# x- o  t/ r: F+ a, f' P0 b                ct:=activityspace[2,rows];
9 s, ]& ?; |0 X0 k# ?, `5 ?. Z+ s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: B- F  O3 l5 y                        end;*/
        next;
5 J" i4 _" u! Y3 e5 A        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);
. h' P/ H- @' I9 J) [$ z7 t( K1 m+ a        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);
       
        rows:=0;
4 Y1 }' s# L! g1 a- R2 O% [' I        lines:=0;
        for i:=1 to number_of_machine loop
. D3 N. \7 u1 _! e7 ?" i0 h" [) ~& S                for j:=1 to number_of_machine loop
                        if j=i then
4 u7 I' X  W2 x1 ^7 R% I5 Y                                d_from_to_chart[j,i]:=0;
                        else
; b5 l$ Q( `% {8 o8 R' N                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  X5 R- z! T$ k9 ]6 z5 }! u' s                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 P" b/ z, \  j( ~( K1 z' |; \2 h; ?                                d_from_to_chart[j,i]:=abs(dx-dy);
& N4 s* P/ R* h. c- @* w! b& Y! G% V0 @                        end;
                next;
7 I+ |1 l+ i- }        next;
+ l0 o+ O- j& s) J       
        lines:=0;
/ z5 k9 o# f. z1 U. f6 T8 ?; ], z        partstable.delete;
- s" G: E1 Y" B* o4 m' `0 h: L# s; Z       
( w8 N& c% a! v' a) H& y        for i:=1 to number_of_machine loop
3 d/ L# F+ `2 c: Q. F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
/ C7 w4 i9 A3 {2 l( \3 k, I1 l8 D  A$ ^                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
$ Q8 T! C" Z! \1 C1 D                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. L0 z. f6 o. \) E) Z" r6 M; Y, T$ W& w                        partstable[2,lines]:=w_from_to_chart[j,rows];
% Y4 J1 b" ~2 d                        partstable[3,lines]:=sprint("parts");
/ E$ G* K" `9 _( G. t                        partstable[5,lines]:=rows;
: P1 ]0 j8 q5 Y& \" s3 m                        partstable[6,lines]:=j;
' V2 W% n5 [1 _0 B                end;
        next;
        machinename:=sprint("M",rows);
. W, n) a" ^; B        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]);
* t( b, q( s( B  W        machine.name:=machinename;标识符未知
1 \7 H2 m" e, }0 X/ h. ]        machine.proctime:=5;
/ z7 X: D; @) a! O6 g        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  l! P& F3 G9 S. y0 v       
& O2 i  y5 p4 l& }9 U: Y3 E6 i) y        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]);
+ T& v  z: {, }5 Q% ]) M: f5 I7 k        buf.name:=bufname;
+ s; u+ e9 J! g7 A  b) \: p        buf.capacity:=5000;
$ r: s5 O6 o1 G8 x1 G        buf.proctime:=0;
: S+ `8 C& z$ L+ b        .materialflow.connector.connect(buf,machine);
. @8 i( {! T# B# y& p1 _! a2 s$ |4 v       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ _1 q  P8 G: b# Idy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
+ l3 L' m" J: K3 O+ ]% ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
) p& E( l; Q( N" [/ c; Vend;