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

zooey

is
4 @. L0 O2 r: b! B0 R, g        mark:boolean;
6 j1 G0 i: c' q+ Z; y: `2 i! z+ q        dx,dy,ct:real;
0 U+ O- W8 Z/ q0 S    i,j,rows,lines:integer;
7 |) f" G% s) q    machinename,bufname:string;
6 ]8 v- d4 D) E8 J( m, l4 X    machine,buf:object;
do
# V; o2 e; D4 Q3 X  }. a- M        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% m+ p5 N( C/ R3 N4 O2 S                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
$ r" ^8 z4 j; q+ D! S                end;
* Q5 `& n6 z7 H7 h( M$ O                eventcontroller.stop;
        end;
       
% z+ c6 m8 m9 g        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
( |/ Z$ ^, f7 j  f7 G0 Y                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
( v0 Y, B0 z: ?# Z3 ^/ [5 E        bufname:=sprint("BF",i);
) R. n4 o2 A: c7 x4 [        if existsobject(bufname) then
; O" I7 t8 A: H7 c# r                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
& h+ w8 W1 W. `- `& G+ q: z! W       
        dx:=0;
" u) x3 t3 C8 G: v9 I        dy:=0;
( s9 V8 C1 `5 A8 H# P8 j3 K        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
- a& H  b* w3 w# M+ V6 y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ P8 z2 e6 U& H                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
5 K0 F( L4 N2 I                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 S) W8 ?& i( }7 U                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
  t; O1 @1 ^" [2 ^7 q6 s% u                        y_max:=y_max+dy;
, g6 L, O: a: y# C6 a. e2 T  p                        dx:=0;
                dy:=0;
                        --end;
                end;
# u6 e, X- d5 Z7 R                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 g( ^. J  W, D                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
% p* z2 k0 \5 ^/ q7 F' l# s            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
  n6 ]8 E; _  k0 S2 L                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# V2 o, i+ s! U$ S: A0 h8 N# [                ct:=activityspace[2,rows];
3 B; _+ K. m6 ^$ I- ^                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
0 u8 a, ~2 P* x# h        y_max:=y_max+dy;
7 o( Y$ ?# I) Z9 |5 q        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 y, ?% L) }  O. Z, u: o        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);
" z/ Y, ]3 o( n+ y, s       
/ z* V2 y- H  p: ]% V$ `1 l        rows:=0;
- x% S9 ~7 J0 x( ~        lines:=0;
& N. u3 T" h1 k% H" `        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;
( @! ~, q% P8 j" J5 u( f( k! P3 N  {                        else
: k9 l% J& u9 O( K0 ^0 G: K                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
8 i9 n* F- M; `! n                        end;
                next;
1 j+ `0 P7 h7 E! l2 b        next;
       
        lines:=0;
4 w! v2 u8 t, C8 f% k: ~" F! P4 {        partstable.delete;
) r6 s2 ^1 J+ g" U: X, n* g2 S2 j0 @       
        for i:=1 to number_of_machine loop
: @7 A, ~: C6 q* k+ b( D) |( g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! D. x9 Q, |: m2 L0 l6 a" V                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
: e% _2 t3 D3 v8 d                        lines:=lines+1;
1 ~' a* y) N) V: d! f8 K: T" D7 u                        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/ z/ }! _; c! Q( D  ?$ e$ ~                        partstable[5,lines]:=rows;
6 z/ K2 |4 X* O. `' t* o4 ~                        partstable[6,lines]:=j;
                end;
        next;
$ O% C. o2 g, ?$ m1 x9 p- W        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]);
9 V3 m2 J- X& \7 Y4 v# M        machine.name:=machinename;标识符未知
        machine.proctime:=5;
' d8 u3 {$ i) u% }2 h3 `" A/ E2 F        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
+ T( R0 E  c( f) F8 }, E9 S2 [       
) H; \% @) i  a; q, i% e, @0 C        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]);
# h) b4 F; ]9 B' m        buf.name:=bufname;
$ @3 ^. D' d/ w7 j; o        buf.capacity:=5000;
4 I1 i. \2 d; D3 f# B+ m4 j- O0 C        buf.proctime:=0;
9 n) a1 Y& v- D1 l/ k        .materialflow.connector.connect(buf,machine);
( h" l  [( y1 n+ R4 p0 r       
: n- F5 B5 X3 {1 Q" @# @        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;
. F& t, j9 R4 i8 ]current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
2 o, s  {% x% ?2 G6 s3 N