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

zooey

is
6 x( ?4 l( B4 q& Z4 H, n/ p0 N        mark:boolean;
% w8 b6 k0 u$ ~; b- u( l; w        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
6 @8 Z+ e" B6 \1 T% ?        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, T! ^2 s2 L; E                inspect messagebox("设施数目不对！请核查...,",50,13)
4 R: U$ E$ d7 E1 ^                when 16 then
3 W/ I7 ~, ?, |! E4 f; o3 x                        print"yes";
                when 32 then
                        print"no";
                else
6 `$ u2 ~  E) ?- b  Y                        print"cancel";
' h. W6 }' M) F6 M3 }; Z                end;
7 N8 ]& R- T$ F" y& C0 H+ W3 Q2 e                eventcontroller.stop;
) P0 k+ F- a) t+ P+ v; d        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 |; x/ O& i5 _5 P- A* w        if existsobject(machinename) then
9 b7 q$ n; ], l% [+ e& V                machine:=str_to_obj(machinename);
- b% i& {$ M) d+ j# o, s' S3 w% ]                machine.deleteobject;
0 o* S/ K, q/ y$ j        end;
7 X' g& Z) c: x; k        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
$ `- |3 m1 m0 x2 |0 F3 f                buf.deleteobject;
        end;
        next;
6 p% A6 L4 i3 }2 K: ?% o       
6 }( ~; P+ L/ Q1 C" s        dx:=0;
        dy:=0;
% ]' E! P, C* h" l) K        for i:=1 to number_of_machine loop
5 L- t4 d2 L3 V: @/ q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 B% L) Q" p. v2 w                --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]
, x: H( H6 q7 j+ x9 I: h                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
/ F& k& e# @; P+ f+ n! l                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- W$ V; K/ [" k5 s* X                        activityspace[1,rows]:=ct;
4 ]1 A) L3 [! j) ~5 D5 }                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
" `! e) A6 ~+ f: b, w: v5 {                        dx:=0;
                dy:=0;
1 H1 U* x, L4 b: I, ]* ~                        --end;
9 A( n! T6 S( }+ W4 }$ g                end;
: Q- V0 x3 g+ b  X                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  v7 p9 W# }; ?' _7 E# ]# P                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
8 E5 E" |) ^( g' f3 |1 \" B  l                end;
                dx:=dx+activityspace[1,rows];
8 r, q( }. Y! w6 R$ u0 q                /*if mark=true then
" P$ n) I* b) m3 o  N                ct:=activityspace[2,rows];
; n% H+ z' e. U5 ?3 |" Z& N5 p8 m                        activityspace[2,rows]:=activityspace[1,rows];
3 w$ w& L8 d! T" g5 h                        activityspace[1,rows]:=ct;
+ j# o$ B( ~0 k) Y/ i                        end;*/
        next;
        y_max:=y_max+dy;
3 p2 R5 S! d2 q, E6 _% o. C# g) U8 o        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);
: a+ I& {# N5 V" x       
) w% ?9 @' D! T        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
# A" R7 C; G% e1 C8 N                        if j=i then
9 W, b  h1 a% ]: q# L) [, F                                d_from_to_chart[j,i]:=0;
- J! u) g# @1 s; X( j                        else
$ S1 z- T1 n# H6 g1 K' w  Z& l& i9 j4 U9 d                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
. T5 [& r9 u/ |; ]2 T+ d                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
5 t  g4 H2 v4 u       
. C2 G# Q4 s; H! F: F0 W        lines:=0;
; i9 Z4 d: M5 B, h  ^/ s& W" P        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
1 N$ [$ l6 ]: h0 k$ `                for j:=1 to number_of_machine loop
+ o/ q; d6 I  @& X; P. e7 R7 k                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
. s7 `; s7 a: w+ u3 W( v) |5 ^; ^                        partstable[3,lines]:=sprint("parts");
2 i( Z5 d7 r' L% l' u* f                        partstable[5,lines]:=rows;
5 q7 I; c6 d& p2 s4 \2 J* |7 E2 ^* F                        partstable[6,lines]:=j;
3 r$ S1 p+ `, x                end;
% @8 t' Z1 y2 }6 z/ `& t: x8 {6 j        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]);
: J. p8 G. Z8 d; i  K. V        machine.name:=machinename;标识符未知
# D: o3 ]$ O. p        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 i! Q' `: [! I& M) E0 ~' |2 m4 p9 z  T        machine.exitctrl:=ref(leave);
3 y1 X9 r4 O8 v& z6 `! y; b       
* u3 C4 {% |1 h- h        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;
# ~. t3 ^: e, T" L3 O" j        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
( o, H- [- ]& |' P9 w. L1 P       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) w$ B3 \; V6 l1 i9 Zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
& V! U. ^, _, w9 ?! N; D, `current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
* d( b6 Y8 v, c2 Y