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

zooey

is
        mark:boolean;
9 g, _. J, x; `  }( @        dx,dy,ct:real;
1 i6 [0 O: c  I    i,j,rows,lines:integer;
! N. h, |! _7 c6 m& i) `    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
; u. N( Q/ ^( a. s6 k# G' L. G       
  z5 P0 V6 `; Z. r9 B        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% L  E: X, r8 h! d5 V                inspect messagebox("设施数目不对！请核查...,",50,13)
% Q8 ]" l2 ]; }- O' b; i& j5 r                when 16 then
5 H  P( n  g4 K( {9 r                        print"yes";
                when 32 then
& y# e( T; B. v" Y) M4 n6 _# q0 t6 }                        print"no";
' M) [( U) w2 A2 G1 f                else
                        print"cancel";
                end;
% Z$ A& R8 v* Q9 y                eventcontroller.stop;
        end;
; O. R, b8 T! h6 H       
: J3 v# \( E. O8 c& V* l) U        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
0 c1 ?6 S  U: k        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
. q1 _: b$ ?" S3 b% a                machine.deleteobject;
& T# K. d: u4 ?' k        end;
2 ], z9 `: r9 K) p4 D        bufname:=sprint("BF",i);
5 U) t$ X3 ^7 ~        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
0 b+ C/ S* q/ f+ F0 h$ j$ v        for i:=1 to number_of_machine loop
. a  }& \% |8 c3 {1 G0 t, w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* M6 _& M# x% }. ?( M                --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
; G8 V( H. ?- }* p5 L9 b                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ D% k' s: ?1 `3 H                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
9 m- B4 `: A3 P7 D7 {! _- \! ~                        dx:=0;
4 a  V& g4 [4 A9 [( s                dy:=0;
5 c  y1 {! B6 B% o. A1 [, U                        --end;
" o( L# x/ K! O( |) a* ^                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! {5 ]) ^: n7 U. ~1 t2 @( B, t                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 D. [5 H& y- ~            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
8 _7 R2 R( l6 L                ct:=activityspace[2,rows];
2 H& \# D* B2 B& @                        activityspace[2,rows]:=activityspace[1,rows];
* H: m, O, I/ d/ w- z; E$ V                        activityspace[1,rows]:=ct;
9 Y8 o0 H$ f1 W1 r                        end;*/
  |& r& E/ A8 I; S4 R        next;
* L0 _7 f1 u, k; ~+ L        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);
        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);
0 q* w- g' b6 f' U1 d       
+ s, X6 b" `  _3 x$ W6 Q: k: R3 @6 I        rows:=0;
4 W, [: {9 O3 e        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;
1 t3 j' W, w' o; r9 N                        else
6 _  l5 _( |! ~. ~                                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];
$ V8 {+ ^$ D4 F, f2 u3 x: S  H2 ^                                d_from_to_chart[j,i]:=abs(dx-dy);
) n( c: F: f# m* O                        end;
) |+ S& q4 ?0 y- j                next;
$ K, \+ P" g  \# x        next;
* }1 ?" B5 l) t3 r* e8 z( z       
7 ~+ k2 p5 s9 s# x$ l- r8 T( W        lines:=0;
4 @( n' ~! p+ I        partstable.delete;
       
        for i:=1 to number_of_machine loop
& Q- o+ d9 K5 Z1 m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 a2 p- O. v8 z/ G1 \8 r" v7 Q+ t                machinesequence[2,i]:=rows;
; {5 U: i- c0 }2 D5 N                for j:=1 to number_of_machine loop
/ A% _7 v: c8 M9 d6 t' s8 s1 ?# m                        if w_from_to_chart[j,rows]>0 then
. t& }6 s8 W: z, I  f9 W                        lines:=lines+1;
& U: O, E9 `$ p/ m7 F/ d                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  A  _+ V3 J5 T8 e7 m3 v8 P' V$ p$ f                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 f9 ]: e  P# }% N" T  ?                        partstable[3,lines]:=sprint("parts");
0 g0 ~8 Z9 U1 p                        partstable[5,lines]:=rows;
  `# h7 j5 I" y! v3 j                        partstable[6,lines]:=j;
* @, o- ^$ l3 d/ E: r7 P                end;
        next;
$ h9 W/ ?8 G, a# t; }7 Y        machinename:=sprint("M",rows);
8 t, t" ~( {+ q* D        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]);
; h( L) x4 g; D7 |4 }8 b% @+ E        machine.name:=machinename;标识符未知
        machine.proctime:=5;
2 T& ?$ |5 w! s! u3 y0 `        machine.label:=activityspace[0,rows];
1 U. |7 {0 ?# ?3 A+ c& U( c2 B        machine.exitctrl:=ref(leave);
       
/ t5 D4 x* x- O/ s: D3 O        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]);
  k2 v5 b% ?) V        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
" G8 Q9 D! M1 @# `0 a. c       
4 S9 N5 y' `# b# {( s9 j; s- b        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ z% f( d- ~6 Q" G% ady:=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);
next;
end;