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

zooey

is
        mark:boolean;
, m* t+ t9 G( ~5 l; Y0 _        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 o2 x' i# @" n  ^( ?$ T/ K    machinename,bufname:string;
7 R7 u8 r! v# }  `    machine,buf:object;
' f; x6 Z4 }6 @' p& e, e& x3 K: cdo
        current.eraselayer(1);
       
6 T( j8 ~" X# T9 x8 J. v9 V        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, c+ M6 K7 m, [+ u2 o! O7 \                when 16 then
                        print"yes";
                when 32 then
2 Q! m0 i: b$ w" o$ T. h& }                        print"no";
" B* ?& I, b( i( f                else
                        print"cancel";
0 d4 z5 k1 j/ s: z6 f# [6 O                end;
+ I' F& \+ S+ S+ ]                eventcontroller.stop;
- p5 g2 O2 B- O# E" z        end;
/ Y9 R* O; j# u$ Z. |! N7 m- d       
        for i:=1 to number_of_machine loop
( u# y- \7 h& \2 o% \: H2 x/ L        machinename:=sprint("M",i);
- ~: Q: }9 {) k6 ]% _& X/ S6 H0 q8 e        if existsobject(machinename) then
/ c1 v. @+ A  o. d. _0 L                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ R: h' m: E& o1 {" K" y0 J* q" H) P! s                buf.deleteobject;
        end;
1 ]1 }. u3 C( D  {7 j        next;
       
        dx:=0;
        dy:=0;
5 G+ t/ x, k9 W; A        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! T/ G8 Y% `. [+ B                --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]
                        and activityspace[1,rows]<(1.05*y_max) then
) L5 _4 E7 D6 b. ~) ^1 i# d/ [                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% G" e- g8 h( P$ _9 [6 j                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
' I3 G/ {, K3 i' z: o                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
3 k% t; K( G' I+ N$ k! `  f7 b% P                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! }3 r0 |: b9 e; {3 @                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
' g4 w3 r( R. P+ x            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
) q0 G; x* R2 s                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 z: H( {' J# d9 ]! V4 _                        activityspace[1,rows]:=ct;
, ^3 |0 W6 G+ g3 V2 m) ~                        end;*/
2 h4 o* l) D) b7 m6 K! I        next;
        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);
0 U& G3 s; P5 U, a6 x2 |4 H       
/ q: R9 `6 ^0 W2 O        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
) X3 }3 w( `  k) E/ H! @$ \9 i                for j:=1 to number_of_machine loop
9 q+ Y; L: k/ Z* l6 v- ~                        if j=i then
" P5 ?$ r/ \4 |0 g                                d_from_to_chart[j,i]:=0;
" Q" c" [# j4 F  K5 }                        else
* ~4 S* T/ H* Q& N0 V3 x9 I                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 r( E- L4 M  ~# Y% V# `/ v' @                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 X1 t% A, o) i. E                                d_from_to_chart[j,i]:=abs(dx-dy);
$ V" U3 t# z. m! ^$ G, G8 g                        end;
& t7 f+ f' Z. o. C5 P                next;
        next;
       
        lines:=0;
/ [2 i+ w; ]0 u" a$ T! n# t2 b% _        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
# R! l5 g0 E+ ^, m! c  u3 F                        if w_from_to_chart[j,rows]>0 then
) O& ^: K" E# ^  A( V# b- M                        lines:=lines+1;
- t; w$ }% E( v9 i, r2 X                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# f4 M  u3 G* c* i" p                        partstable[2,lines]:=w_from_to_chart[j,rows];
; G3 \# z* F& H( q                        partstable[3,lines]:=sprint("parts");
: ^8 Q3 S4 C* I- N                        partstable[5,lines]:=rows;
) C9 M. ~2 h7 P1 L/ m9 L                        partstable[6,lines]:=j;
                end;
        next;
        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;标识符未知
; s$ m$ y, B( c$ t1 r" u" ?5 V' E+ d        machine.proctime:=5;
/ R2 @9 U4 J: K        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
) B( k/ D' X0 [: ~  a; }. Q7 N3 P2 R        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]);
! m: O. y- ]- G        buf.name:=bufname;
/ P4 Q) i) d  c3 M- }2 }        buf.capacity:=5000;
" [+ o) x* z0 B! i8 O+ }+ K1 d& s  P        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ Q3 C) u! b. T( |6 D9 Gdy:=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;
5 [' k, Q+ n* n1 Bend;