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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
" |* ~! F3 }4 ]8 C/ l. B/ `    machine,buf:object;
$ Q& q( A: F* J4 e& Sdo
- Y( p' B- p7 p! \& ~+ [5 _4 S        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
9 q; d# a6 k& @$ l# g- d                        print"yes";
6 W$ v, a- k* g2 e" M                when 32 then
                        print"no";
                else
1 J8 x- X4 Z% Q' T- {                        print"cancel";
# s( D) L8 }' `" Z6 L5 L; F                end;
/ z  @) e. t: T0 u! G( i                eventcontroller.stop;
        end;
       
3 p# @" V' M" B* d2 ~! e  ~. S        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
1 e) ~" A9 W2 b7 \5 O5 t                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
* D+ X. P9 K8 h0 S- K# w        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 ~8 I4 s0 n4 v$ w* P, d) B; |                buf.deleteobject;
1 q5 `5 c; B( @; T+ c0 n        end;
        next;
       
4 S5 @, A! N- a' b* l, P7 Q4 S. p        dx:=0;
8 o8 I" n3 z3 t0 q3 M. u0 v5 o0 E        dy:=0;
9 e9 y4 M4 |. x# S        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 ?# T" g$ K5 B2 P9 o4 ]* r& I  y                --mark:=false;
; i& M% o" R9 h  x! {6 [7 w                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# Z" m9 M4 i1 Z) \' j                then
# C* j( R9 e/ N4 J                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
" n- k- t( h; @9 j! p                        ct:=activityspace[2,rows];
1 _% ?! R' O' ^/ e                        activityspace[2,rows]:=activityspace[1,rows];
& e" @- ]9 t, x) j                        activityspace[1,rows]:=ct;
8 C4 T! _6 e$ ]  U                        mark:=true;
. L3 M- M9 W: Y$ n& V; a                        else*/
                        y_max:=y_max+dy;
3 ?/ L5 g. A2 k0 |/ n                        dx:=0;
- j$ l9 l9 t( C7 p- J                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) b. z9 |; ^& `" c5 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];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 I. W2 W: h9 D. ]$ I1 g1 x                        activityspace[1,rows]:=ct;
9 r3 Q0 ~& ]( P                        end;*/
        next;
        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);
( B0 {+ L/ D, [' \        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);
- w2 K, n0 K; b  P, ], ]: n9 l/ x       
% }  d, ]$ I# ?# {. K        rows:=0;
/ }9 k+ X! I  A! c3 \& e        lines:=0;
        for i:=1 to number_of_machine loop
  B. l: |! E0 ]" h3 l2 h+ F                for j:=1 to number_of_machine loop
                        if j=i then
, A8 L+ }9 D) P3 @                                d_from_to_chart[j,i]:=0;
1 M4 p$ V9 n; ~2 e7 ^                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ n9 P! D' x+ D- e" _                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 D5 b8 U# f$ B3 Q& H                                d_from_to_chart[j,i]:=abs(dx-dy);
/ l- ~  c3 p. q2 ]. b' I                        end;
8 v% \; B, g4 c' b                next;
; p" [' `4 O, k/ G4 R: g- E9 u) k        next;
0 h  ?( h+ V8 Y# P       
- a6 x+ }% y6 D8 b% i  K8 |7 c" g        lines:=0;
        partstable.delete;
; n3 _7 G9 O5 D1 A1 X1 H! ]: O       
' f- H$ h* |% }        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  |  w7 A- s2 \; `& M                machinesequence[2,i]:=rows;
+ H+ ?' S9 `4 K+ }7 E# f                for j:=1 to number_of_machine loop
! |: K6 F% {4 A( G3 J9 F* I                        if w_from_to_chart[j,rows]>0 then
) |$ n" z0 x* i# ?5 r" R                        lines:=lines+1;
+ S5 z/ Z% T, r7 K8 X$ k; |                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 f. `7 l8 L8 K7 e: d9 n0 ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
; S" m9 W# c" H8 c2 q( e                        partstable[3,lines]:=sprint("parts");
/ M6 @, s0 E" V! m0 ]6 |/ K& o) R                        partstable[5,lines]:=rows;
8 w8 x/ `1 e4 }3 X                        partstable[6,lines]:=j;
                end;
: e/ V' u: r" E4 \        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]);
        machine.name:=machinename;标识符未知
) J5 _; d3 h7 i7 j% Y3 b        machine.proctime:=5;
$ w# z, q1 P; r8 \+ k6 q3 i# z        machine.label:=activityspace[0,rows];
0 b4 {5 `* ^$ n7 e        machine.exitctrl:=ref(leave);
, ~+ a8 v' p7 g& S       
        bufname:=sprint("BF",rows);
2 t$ g; f# u0 k0 L1 |, F        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;
  o  P0 s  g7 C+ d; E3 w        buf.proctime:=0;
/ R7 p0 Z/ K" E4 d6 v, b* j+ W        .materialflow.connector.connect(buf,machine);
       
' ^$ I/ w* ]  g7 H9 Z# @3 H* y. b        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 a% ^# z3 r8 Z5 U6 `dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
0 v" r' F0 F) X. W+ ncurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
: |; e* x. H, F3 U4 i% Qnext;
end;
5 _7 Z( h& p  E7 B& X8 x* s