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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
& p/ l% ~7 Y% L( Ado
6 K2 W, K9 D8 {' @$ O: u0 E        current.eraselayer(1);
1 F5 n  g8 X$ `1 ?* P       
$ W6 e8 j. d7 H5 }- N        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' A. T; x; B! B- U                inspect messagebox("设施数目不对！请核查...,",50,13)
  ?+ V+ F8 H. o+ v# q+ v% E                when 16 then
0 ]' d1 }3 I0 ?' l9 U                        print"yes";
                when 32 then
' U( ^. ~; j( h# G7 L5 l% _                        print"no";
                else
                        print"cancel";
) X4 K6 V$ i# X: i                end;
                eventcontroller.stop;
- Q$ @) P& x$ K) n/ d* s/ F0 B        end;
* N2 S- s+ I/ H4 x# c/ A: C' k       
* k5 E3 {; G: L1 ]. F& \( Z        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
0 x% m7 t# d! d% _        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
+ P9 `4 Y; r5 S7 X                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
* L, ?  h* n1 `$ _" s$ ~        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
- x: C( M' A" [& J+ G0 Q$ A: M                buf.deleteobject;
% q6 X/ g! C3 g& C% V6 k' a2 }9 n        end;
! @2 Q8 J/ Z) y7 R( k1 n- V/ |( i        next;
# @' b" @" k, c/ ^       
  o* b9 {* d0 D        dx:=0;
& @% ?8 E# ^, z        dy:=0;
        for i:=1 to number_of_machine loop
" {6 E5 \- S$ U4 J- t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# R! V6 K/ W1 Y7 ^6 ?9 Q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
. n& ?. t9 P) S/ R* [                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 `  y$ R) G" \+ k: i, t                        and activityspace[1,rows]<(1.05*y_max) then
. `+ f& c% F8 J" U6 Y. R4 Q( G% ]                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
: C# m" y5 x% I5 f2 Y! y  G3 n                        else*/
5 a2 @5 E- N- j3 d; R! u                        y_max:=y_max+dy;
+ W# N  k9 ^( E' N9 y/ C                        dx:=0;
, W* A- F. j# X5 J$ R  \                dy:=0;
  x( x+ O- {! o. A% H/ _                        --end;
! x- g3 \) \; u5 T                end;
2 G7 D# M+ E9 J# Q" o+ H0 J$ ?                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 H6 ^( y# P# s$ }, R  ]                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
' B7 a" W' ^# a" G' \3 n            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
6 g4 @/ U3 k9 c1 K& Q! W6 k                dx:=dx+activityspace[1,rows];
                /*if mark=true then
' I5 w% d( v; s8 p) W, _                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 Y; ]$ E& t; q                        activityspace[1,rows]:=ct;
                        end;*/
) q  @- t1 H! M        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);
  V! A1 ]+ F6 B        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);
       
        rows:=0;
* _+ K' Q( D. a9 o& v9 o4 y3 L        lines:=0;
- U# t9 m8 o+ z, k2 ]& S. |& |% R/ Z  z- ]        for i:=1 to number_of_machine loop
# m# z3 }9 a5 s( N+ B                for j:=1 to number_of_machine loop
9 @, M& I1 t( A. ]6 r1 a% _- X. P                        if j=i then
                                d_from_to_chart[j,i]:=0;
, k8 C4 q; F( T/ Y: W* N                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ T% c1 F/ ^  s  o* v1 G4 J                                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;
                next;
9 |) |- ^1 W- Q0 Y        next;
       
        lines:=0;
        partstable.delete;
) w: L# U; m7 i, [& N* S5 v# @& E2 b       
        for i:=1 to number_of_machine loop
  x- ~9 r6 v  c: {# M7 i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
" e  D+ `6 t( |( y! y+ }0 s                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ K2 \; O/ x8 D$ i1 R. u/ p. M1 L                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
0 S$ B2 ]6 n) Z6 N9 z                        partstable[6,lines]:=j;
                end;
        next;
9 S! R+ T$ N% [) u6 D        machinename:=sprint("M",rows);
0 h7 h+ s+ D1 s. X) m. d2 g        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]);
) T) `) S' v) s# h+ m        machine.name:=machinename;标识符未知
. T4 w& G( n# J- w! }7 x7 A        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
. |: d* i3 ~3 _3 Z' `        machine.exitctrl:=ref(leave);
& c& y/ u, L( m3 L       
        bufname:=sprint("BF",rows);
* @* D: E2 C+ _6 c% C4 T, t! e        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;
2 ^1 h. f* D( X8 o# [( N( n; H        buf.capacity:=5000;
& V+ J2 f1 N+ @( g+ C        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
5 D7 F& Y* S* m8 g; e8 {4 N; t        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& \0 ^' I' u( Jend;