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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
' p2 D# Y% @6 _( j. B    i,j,rows,lines:integer;
4 W$ P- t& t! V  ]% S" B% h9 w    machinename,bufname:string;
- u5 O. c+ }& N: r3 \& m; [    machine,buf:object;
do
9 O* I, s0 ]5 c$ C# |4 D/ i* w        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! H" G7 v6 B0 d9 P5 L& ]9 g! k( }$ u                inspect messagebox("设施数目不对！请核查...,",50,13)
6 d; N" ]1 a1 {- ?2 z                when 16 then
                        print"yes";
9 a' R6 X! y! o% q! [4 m                when 32 then
                        print"no";
                else
3 D+ A) z- v2 {# J. X                        print"cancel";
                end;
. q; O3 f+ W+ Y( q3 |! g; e                eventcontroller.stop;
& K% s* ^' n4 c# K        end;
  u" Z+ [& g2 k3 ~8 O) j       
        for i:=1 to number_of_machine loop
- f1 |- S$ z; e/ s; b        machinename:=sprint("M",i);
5 q6 t! Z9 }- n( a# R        if existsobject(machinename) then
. ?% q) y  M# o& x/ |6 u1 s9 K$ S" z) n                machine:=str_to_obj(machinename);
                machine.deleteobject;
! ]- i% V* e1 b1 p3 z5 ~5 C1 i$ D        end;
        bufname:=sprint("BF",i);
+ F( F/ z. k; d) M        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
3 L3 n; o; M$ P% ]! e& v        end;
* n9 a0 `& S* g3 X        next;
       
        dx:=0;
% B/ K4 Q3 G, \! B3 G# E        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
8 u8 L# e' H1 I) h; Y5 Q  ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
- S2 e& X9 O  n. x                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
  U$ u8 [8 e0 Q                        print activityspace[1,rows],",",activityspace[2,rows];
) i5 O9 ~& O7 ~( |                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 v; s7 P0 B5 Q0 {                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
% N: z0 B4 d0 _% Z                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
% n) K0 y4 q; ], o* e                        dy:=activityspace[2,rows];
5 ~% R% Y% e4 x- o; N                end;
                dx:=dx+activityspace[1,rows];
- P0 L2 ^7 k" ~/ j. T                /*if mark=true then
4 |: {7 N; h3 e# ?6 t4 q* \                ct:=activityspace[2,rows];
4 {, E. I, j& b                        activityspace[2,rows]:=activityspace[1,rows];
: b$ W( l4 N, a$ h                        activityspace[1,rows]:=ct;
                        end;*/
/ T3 b( I! X0 `: e. ~        next;
& L$ K6 Z( ?3 n( L+ x4 e5 ^        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);
4 E8 H7 j+ d) t, k9 O  J* T        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);
9 O- N. r. d/ M       
; s! x% F; o0 v' j7 D) v- m        rows:=0;
        lines:=0;
4 c+ v% Z+ I  s" w' T! _& S        for i:=1 to number_of_machine loop
1 J2 N6 l8 p* ]9 s( R                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
' l/ D% ]  @5 C3 t2 K, R' r. X                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ j+ ~" v! [1 n. |, _+ C                                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);
                        end;
# B1 E9 q3 l. k+ B& d/ o  A" L- W  J                next;
% C3 `" ^5 T7 m; U2 T0 T        next;
# r' w+ N4 C/ r4 `       
" Q0 B4 V% ?, T7 a        lines:=0;
: U1 d+ @! Y  ^7 p5 ?        partstable.delete;
, w! ^6 M' ?, t7 S4 l4 N. o9 {& U4 I       
        for i:=1 to number_of_machine loop
8 o  V2 C" B9 X2 |" m  V6 h8 X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 _4 T0 L9 q: S0 t- K                machinesequence[2,i]:=rows;
/ k, \! `2 U  O6 p" C                for j:=1 to number_of_machine loop
- i, h/ _* a2 V2 z; i; P% A- L                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, o9 h) m$ T+ E4 a  d4 G! W                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" @  f7 N0 N5 }: z" u* b                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 F$ K& x$ _6 |1 f5 l* `+ ]& h                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
" D- C$ i1 F, d' q5 d                end;
        next;
* m$ A4 L8 l! n$ h4 N        machinename:=sprint("M",rows);
* U5 w1 G7 j# s! j% [        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;标识符未知
+ X# ]6 M- ^( _' b- H, A% U        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& _7 V) r. {0 d- V* t3 c       
        bufname:=sprint("BF",rows);
: ^4 O6 j& ]2 i$ p9 O0 C        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;
- U3 z+ J9 j: Y        buf.proctime:=0;
% O" }; j' I- C0 e. o. l) x        .materialflow.connector.connect(buf,machine);
       
- v3 @, s' g- x1 F        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- f3 L( ^2 `" d, f8 U: Y9 m1 |dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
0 x# l$ t& ]! e# h8 K. n* ^: Ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
; w. O. p' ]! B2 {1 }( y7 anext;
end;