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

zooey

is
1 Z3 ?) x9 {0 N/ _' T- K" W: f        mark:boolean;
        dx,dy,ct:real;
$ B2 X* C/ r! R' Q8 P5 k7 ]# I' `    i,j,rows,lines:integer;
8 {  P2 u, c; Q! |  u3 k    machinename,bufname:string;
    machine,buf:object;
- Y( P! V' U3 D9 Udo
& r: h! n( w3 U" U        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
; f( s0 R7 k) g+ z3 C7 E                when 16 then
                        print"yes";
6 |5 i" e+ O# I3 L  L+ j% Z3 B                when 32 then
& l4 o- W+ Q  R  n5 P3 C                        print"no";
0 C: V$ |% H/ B) B( w4 P                else
                        print"cancel";
1 a$ G1 e  b' h, b                end;
                eventcontroller.stop;
+ r/ {5 s; X# L; y        end;
       
0 s6 K, k3 H+ b+ T, b) u        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 S* v. B3 N. ]) b+ \8 z                machine:=str_to_obj(machinename);
                machine.deleteobject;
) f9 ?2 I) k1 _6 m5 B) i  Y2 J        end;
6 P, Y; }( m. v* _: c2 D/ Q& |( ]        bufname:=sprint("BF",i);
  `- C% i8 }0 c$ H5 ]7 Q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
' f# s0 N- J& W( ^% x- X* ^                buf.deleteobject;
        end;
        next;
0 E9 O0 ?3 Q" @2 R       
        dx:=0;
        dy:=0;
/ \* f: r1 Z% Q# I" V9 P" `        for i:=1 to number_of_machine loop
" U4 y5 s  H! Y3 u0 G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 {0 z) J6 ~- j) Y" q8 J                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ z% D/ _. a- `$ Z/ j: b# k                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 R) X& @: M  O7 c( B                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
2 g  m) s2 a( ^  ^                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
6 @  `5 r; |% O3 {                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
0 G. Z, H/ u% t9 H' E                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;
+ T* q- f3 J: z5 n4 a1 ~7 p! G! ?/ X7 A            if activityspace[2,rows]>dy then
: h& }4 O, M. Z# A- `3 I                        dy:=activityspace[2,rows];
                end;
7 u: ^* Y9 o# a: k* Y$ M                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 r! p. }: m# Z, h0 o3 B                ct:=activityspace[2,rows];
0 Y6 S& M: I3 p% h7 @6 H% ^6 |                        activityspace[2,rows]:=activityspace[1,rows];
; B; K4 J/ v2 Z" {                        activityspace[1,rows]:=ct;
9 v- H: f7 r8 n  D/ _3 b2 F                        end;*/
" \9 G4 @+ j  Y4 U        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);
! Y: t% t0 ]6 V6 v        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;
        lines:=0;
: i0 u2 A2 k! R& d7 f3 n        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 D: Z: R3 _$ y4 h; {% W                        if j=i then
                                d_from_to_chart[j,i]:=0;
) x# q- X+ f  T+ o                        else
  a" G' D: p8 f* u                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% x" o: I! V$ L* g2 V3 Z" j4 [                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# ?1 D+ x8 l! t1 a7 I! q' P                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
4 Y/ u* r$ ?, p/ g& r        next;
$ D" g2 {( C1 t5 a8 b% i% l       
        lines:=0;
        partstable.delete;
, G( y! o+ ?0 D2 c# f4 D3 f       
3 X' Y; v- b( j% l8 x% @        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( M. A" f5 @/ p9 C0 m                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
$ l# }  X% c* [( C$ ^" i                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) i9 V3 y3 t. S( a! ]: U                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
3 k& @( T* j" ~- L9 t& B2 W                        partstable[5,lines]:=rows;
0 d7 s" t8 I; w$ o- r  l# _1 B% O8 [                        partstable[6,lines]:=j;
3 u8 G- _; K, z: ^                end;
% y& ?! v; Y6 e$ m        next;
        machinename:=sprint("M",rows);
/ y7 G/ g9 x2 y: I% D  c& Q+ i9 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]);
5 C  b1 a. h5 ~+ S9 w! g        machine.name:=machinename;标识符未知
        machine.proctime:=5;
3 H4 P# H: |! ]: I/ f6 c        machine.label:=activityspace[0,rows];
9 u% m, l( K: q, L. `; }+ [        machine.exitctrl:=ref(leave);
       
4 e" X6 i1 l+ {& a5 _& a% ^        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;
        buf.capacity:=5000;
        buf.proctime:=0;
0 v- [' Z( o4 l$ O. k        .materialflow.connector.connect(buf,machine);
       
        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);
1 ^8 o; ]5 J5 d* Xnext;
end;