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

zooey

is
7 t* j& ]% F7 @! j# E! s        mark:boolean;
6 `- n% d6 h+ ]5 J        dx,dy,ct:real;
. O9 `: _1 M' u! L4 E    i,j,rows,lines:integer;
6 Q+ W4 x4 K  G6 o9 ~. C, Y! E    machinename,bufname:string;
$ _; A* H+ k$ w6 R    machine,buf:object;
6 f' S/ R8 @  y/ I/ O0 ^do
% n8 G, ^. q% \' G/ V* O, I; E4 o        current.eraselayer(1);
6 ?( ^  ]1 |7 ^2 J       
) E1 x3 t/ O5 T        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. i6 _; d( Q+ @5 H0 ^! i, Q                inspect messagebox("设施数目不对！请核查...,",50,13)
. J! s7 V' t, w1 {1 Q- t$ L                when 16 then
1 z, f% c" L" N                        print"yes";
) s' ?4 e; H$ f: s4 n: W4 x# J: `                when 32 then
2 C: Z5 q7 g* h                        print"no";
                else
% y' v. o- ?8 f8 N- v9 |                        print"cancel";
                end;
. |8 y- O/ z" T0 B                eventcontroller.stop;
. W6 M" r# V5 \% M) @9 L        end;
       
        for i:=1 to number_of_machine loop
9 _& p" x+ }. `; b% Q        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 x# w' Q5 g$ _                machine:=str_to_obj(machinename);
0 |* _; P) }9 v$ Q9 Y6 Y/ G                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
% h5 }6 \' U1 z! e# a        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
; Z/ l0 D  I! @8 n+ c4 t; w" W* `0 R                buf.deleteobject;
1 r' h0 {+ X; |        end;
        next;
       
7 g/ k( R) E  e& k& |4 R  J        dx:=0;
2 U+ m7 y) h' E7 U        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! F* l4 U( u" ]. l' j, Z                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 ^. Z- ^; }' o                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 B; _4 ]. j: n                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
* B9 m, g5 Q& p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
7 k2 M6 A9 \/ @7 U6 b                        dx:=0;
                dy:=0;
                        --end;
& V# `5 B4 n2 s/ V) u                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% i" o7 I0 x8 }0 @2 f                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
- e+ b' A1 D2 q6 J/ Z                        dy:=activityspace[2,rows];
" I, S' p. m1 a% B$ b, `                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& V/ @% v& C( y: S* t8 p' W3 O                ct:=activityspace[2,rows];
  i3 }2 ?& ?; x                        activityspace[2,rows]:=activityspace[1,rows];
5 P0 J1 F/ ?4 w' V5 S3 s                        activityspace[1,rows]:=ct;
: T- Q# O+ G$ b5 c3 X7 d                        end;*/
        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);
' ~+ }2 P6 t+ c- W        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;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
$ D, }' i. O9 [* G                        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];
; L! C1 v) n# F                                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);
2 V9 J: O0 Y  e5 L                        end;
                next;
" m0 \) s1 w% m, O4 X1 v' |        next;
, E! k) u: Z/ F5 s; |       
        lines:=0;
        partstable.delete;
       
- `  @$ W7 S: Z5 s2 r        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( G2 P6 Z. N+ E: Q9 b7 ~                machinesequence[2,i]:=rows;
, T+ O0 o: k. M, O- d                for j:=1 to number_of_machine loop
/ Y& M3 x, E% @0 [                        if w_from_to_chart[j,rows]>0 then
+ A. g1 h" j) n2 C, e( T: X                        lines:=lines+1;
( a9 M. Y/ _% T3 J  }                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* x" |- u! F* z0 U) W, b$ T6 s                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
: m. K  J' X. V                        partstable[5,lines]:=rows;
5 ?7 Z; ]& I6 A5 S+ s0 K" T                        partstable[6,lines]:=j;
                end;
        next;
2 p/ M7 S4 J: n/ Q' C, c9 g& H        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]);
% k4 x. J  f/ X5 }4 R+ P        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
6 i# {5 b% z6 x9 I. l       
        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]);
6 a; c7 q+ }3 h0 l2 I        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
) e* l8 L& j) ?+ p" J. u1 X        .materialflow.connector.connect(buf,machine);
       
; ~' i3 N- P" N6 ~. W/ y! |        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);
: ]" v0 ~( i8 Y. {" E$ p1 gnext;
+ U, @. ?2 r6 n  b1 y( `7 xend;