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

zooey

is
        mark:boolean;
/ [3 X1 f/ Q8 X( t        dx,dy,ct:real;
! N3 F. V( U5 d: D! A- Q    i,j,rows,lines:integer;
    machinename,bufname:string;
: ~8 N# m; ?5 Q7 |2 @  m- |    machine,buf:object;
) ?3 k: I- I+ Z* Z. Xdo
        current.eraselayer(1);
0 D5 c) @( D2 e8 L! F0 f( T* B       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. ]. q( T8 l# f. x, \# n/ v' R                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
; [, }5 F: M! e  \                        print"yes";
* ~+ r& D9 a' R+ k/ S                when 32 then
9 @3 C5 L1 z& J3 Z! V                        print"no";
                else
& |  V' u: Q, t6 p% P4 M                        print"cancel";
# |4 h8 A7 y- X3 f                end;
8 S0 D" T9 l1 M, x; b9 Y, X  ]# [- ^7 G                eventcontroller.stop;
        end;
, D( l- A, S" P0 R' [, [, r& D2 v       
0 y; e& E) ?5 Q2 D3 \2 T        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
' j1 l* w' V2 x4 w% z- d                machine:=str_to_obj(machinename);
0 v! ~! p% ]5 e2 y( {                machine.deleteobject;
        end;
4 I6 d$ D; p# ^6 e2 ?6 U        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 x, P& X- \5 Y5 k$ g1 b                buf:=str_to_obj(bufname);
  X0 [' a: t9 j$ U                buf.deleteobject;
        end;
        next;
5 O' l5 @( B3 v8 S5 F3 l) J' h       
        dx:=0;
        dy:=0;
! E* T! v' d2 L5 y' E$ l5 U. i        for i:=1 to number_of_machine loop
# ^8 M+ h. t, i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
% A5 N7 V/ p( c" b. N5 u                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
. U- \8 ^- c- p9 f                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
: D3 K; K8 r" _- ~6 R- b1 d                        y_max:=y_max+dy;
                        dx:=0;
* z9 p, _+ |$ v1 ?! s4 s                dy:=0;
                        --end;
                end;
$ N' o; L/ a; q) j' `' Q. b                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;
& _% @; x5 }$ {5 P$ ?$ Z* o7 N            if activityspace[2,rows]>dy then
0 Z5 P% d6 D/ f7 J                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        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);
. V2 S' A8 u) ]0 A* |        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;
$ C0 k6 v: u# A# G- M2 A/ x        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;
2 s) `" g; `7 p3 x( W; l$ {                        else
3 k( L6 s4 v* w  L4 k) g2 s9 K" C% }                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 _$ P( @) k$ i. p) i% R" u3 O                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& ^5 R4 u1 i- J+ d6 F                                d_from_to_chart[j,i]:=abs(dx-dy);
! s% _: C" E7 }* W- q% @! s$ R( T6 y                        end;
1 h1 K# X* D. `% `* E                next;
        next;
4 K. O+ n" O8 C3 I+ U       
8 J9 W+ T( v4 n2 o        lines:=0;
        partstable.delete;
       
# [2 e( L8 k% H) f- M% q5 ]+ [# F        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
! q) P( |! F+ m: A                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, L( @7 J6 {. V4 q3 o4 {* X" Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* w  L; z3 {& m! P: |0 ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
) q! L- D6 G, }0 p# ?/ v+ V                        partstable[5,lines]:=rows;
" }7 T6 n+ J/ `3 J) }                        partstable[6,lines]:=j;
) ^6 o- }; e3 A7 @. d1 E, W7 O% s8 G                end;
- O, {# z5 R# Q2 L9 S9 K        next;
        machinename:=sprint("M",rows);
6 g! F) \. }" R, L; `  V        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]);
6 u9 E. X/ r7 r3 d7 n( ^        machine.name:=machinename;标识符未知
        machine.proctime:=5;
- E1 m4 y. M8 d& F5 s6 u* J        machine.label:=activityspace[0,rows];
3 C2 v' Z+ J( E$ Q4 T        machine.exitctrl:=ref(leave);
* X& \% ]  u) S$ [  i* y5 r       
        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]);
        buf.name:=bufname;
) B: V' }2 s& P# \        buf.capacity:=5000;
, b" ^5 V- H: J$ W+ }        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. `  r. n8 G: [9 {1 A) X1 n1 [       
        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;
1 A8 Z4 e% A7 J0 ?* W3 K) ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
2 j7 ]7 t. {) a( t! n: W2 y5 Znext;
9 ~9 m0 e( R0 I$ z* e7 }end;