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

zooey

is
& ^7 y' ?. {: |5 \6 C        mark:boolean;
( ^! K5 D+ m* F& B        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
  O2 {9 A3 z# l1 X, u+ h" H. K  Fdo
: r: Q; K; [8 {$ o! O% Z        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)
                when 16 then
3 y9 L3 }! m% ~( U& H; k                        print"yes";
; W# x$ p) \! S                when 32 then
' C: \8 W0 y$ s6 C2 x, e                        print"no";
                else
                        print"cancel";
1 G2 ?+ Z, l9 {2 W8 Z7 @                end;
. g# e8 F1 R4 m                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
+ E& G$ J7 z0 H$ l3 [9 z# o        machinename:=sprint("M",i);
5 c- g3 F) W7 V. g! n        if existsobject(machinename) then
2 q; ]4 f$ z( Z                machine:=str_to_obj(machinename);
* l0 S+ n+ D8 I  {- C; {& u                machine.deleteobject;
3 G: V0 W8 C5 ~9 B; W! C        end;
& E1 W3 C4 k1 Q! s7 a, F% `        bufname:=sprint("BF",i);
9 s4 M7 U$ P9 f1 I6 N% P/ t        if existsobject(bufname) then
* f0 B9 u& z; w- ~                buf:=str_to_obj(bufname);
                buf.deleteobject;
0 }% G( n$ g9 X; b        end;
( f; X; e0 \0 q, v4 m. |        next;
       
        dx:=0;
        dy:=0;
1 I( I1 H3 l3 H3 L- E; K3 O        for i:=1 to number_of_machine loop
" W/ m: C0 x$ X3 `2 |7 `+ r4 A# _; r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --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
- X# K/ b5 ^" {8 F6 I4 u$ X! a                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
6 a) A' f8 c' I# V/ s                        activityspace[2,rows]:=activityspace[1,rows];
( G1 U6 v6 W! u, ]5 Q7 V* D+ g                        activityspace[1,rows]:=ct;
! x# |/ q2 n! W2 l  K                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
: U, b) I1 ]6 N3 c) M                dy:=0;
                        --end;
                end;
2 c  ^4 U0 U; d3 [( r8 Q                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 m* f' a% M' a* o1 u; I                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
( _; R* N( Y* o% k/ m- C1 F                        dy:=activityspace[2,rows];
                end;
8 {2 b- ]$ l4 i2 x4 K+ o0 e6 ]7 A                dx:=dx+activityspace[1,rows];
5 o7 A( ^* C4 F2 h- ?                /*if mark=true then
8 ]* g' q5 R  ^                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- D& S. K5 A& t# B8 ~6 _3 L                        activityspace[1,rows]:=ct;
                        end;*/
9 ~, W* o8 ?$ e2 D# ~2 P! x        next;
: h& ]* H4 w% ~0 _        y_max:=y_max+dy;
9 o0 x" l6 @, v4 c4 A- a  l0 c        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);
8 H# x  u9 j- t, \- {       
        rows:=0;
0 s" P* {( x1 x  b2 F9 H3 h        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
; I' X4 D9 ]6 _( p                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' |! Z0 s+ A' T* x( T. X: p                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
9 k5 n3 W4 U1 p                                d_from_to_chart[j,i]:=abs(dx-dy);
. @* Z. X. s" n* ?# ?4 l                        end;
                next;
1 [- _! ^" b, \2 S+ Q        next;
       
! T& Z1 K& _+ d+ F2 J5 {4 _        lines:=0;
        partstable.delete;
- d4 Y& i! i: O/ T8 h6 @, D, E, t0 @. h       
        for i:=1 to number_of_machine loop
' X9 C$ D- ]6 [, J5 l. M: X$ W4 ]/ [, x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
1 A) u4 p1 A, f! B. j9 X4 F                for j:=1 to number_of_machine loop
2 \8 g. P9 y8 f% C                        if w_from_to_chart[j,rows]>0 then
: C$ S; R; I/ D                        lines:=lines+1;
6 X$ {/ K' \1 |& _, X+ O# H! z2 g                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
' B+ I) {4 h0 U+ Y* Q1 L                        partstable[5,lines]:=rows;
1 }, ^& a; ^4 B) a                        partstable[6,lines]:=j;
" A0 E7 N$ Q; r: j. e( I7 X                end;
        next;
. M4 y. |7 k3 A  w9 C' p: B7 @        machinename:=sprint("M",rows);
& c- Y) r* d$ K8 n% 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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
. b: Y' [: i. U        machine.label:=activityspace[0,rows];
6 \: x$ I6 G/ O) k2 X/ }        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
- k2 c2 b- h- ?/ `        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;
) S9 J, _. U: }* N' Z; y8 u7 j2 l        .materialflow.connector.connect(buf,machine);
6 ^5 \7 S  ~- |6 N       
8 ?/ X0 }$ |. l) ~& Z1 m+ N% D: A( H        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# P2 N$ n  g; f; _3 Ady:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# I# @9 Y( p/ s: v) c4 mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
* s& n& _$ e$ ]9 O" N" z4 X