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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
0 D/ I9 f: {: k8 T/ _) a    machine,buf:object;
; n6 t: s' ]8 k" k1 |do
" r; A! ?2 G' @# G; _& _$ o        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% Z* v' k( E$ |2 m+ u                inspect messagebox("设施数目不对！请核查...,",50,13)
* r% B) l* B) K# |. }, W# {                when 16 then
                        print"yes";
! D# k; f4 C- d/ O; c. Y                when 32 then
$ u* K2 Z- Q' }                        print"no";
                else
  C- k. C, ^6 n; `  E/ D                        print"cancel";
% [) w' ]4 B" V3 c" t                end;
; j( ?' Z1 M% V- j                eventcontroller.stop;
        end;
       
: {, o8 c2 Q% K! R) y        for i:=1 to number_of_machine loop
0 g$ m' z0 e, W) D: J) Q- ]        machinename:=sprint("M",i);
& q  J) W) a" I4 y) z* a: |        if existsobject(machinename) then
& y0 m% b5 O+ c* N  d                machine:=str_to_obj(machinename);
6 P& d8 b* p: _0 H+ ]1 H                machine.deleteobject;
1 J3 N6 t# @( @7 N: A) E$ N' R        end;
        bufname:=sprint("BF",i);
/ v0 v; H. G, J. `& R( u) |        if existsobject(bufname) then
% h9 ~6 l9 E4 e8 i1 \, n                buf:=str_to_obj(bufname);
) U8 {' D+ r  W                buf.deleteobject;
/ a. n& L: l! w2 f7 ~        end;
- k0 J) M) @2 D2 J5 p; g+ b        next;
7 j0 }" i* P7 x  k5 E       
. ?6 I4 f5 R6 _6 k) k8 c0 c        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
: n$ Z) m8 ]$ s% R* [" _; K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 x( l" a/ }! X0 ^/ J                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
                        print activityspace[1,rows],",",activityspace[2,rows];
) W1 ?! S( z. Z1 _, e8 ~6 V0 @                        ct:=activityspace[2,rows];
; S7 C* ^0 L+ T" e! T                        activityspace[2,rows]:=activityspace[1,rows];
- {" n* E1 T2 A3 [                        activityspace[1,rows]:=ct;
5 m5 |' k4 {! E2 q/ t) H( f                        mark:=true;
5 P6 R3 b% r( k# |- @* o9 Z                        else*/
  l6 E  m& P: ?8 m! s6 {                        y_max:=y_max+dy;
                        dx:=0;
. }  F9 s0 H1 ^. ~( q                dy:=0;
3 F" [/ X6 x  v0 c; \7 }5 W& Z2 p                        --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;
% W: |6 g2 k& w8 S0 x! l$ j1 X            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
& q7 a6 G7 w7 S1 `/ a4 {                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 E9 n* Z6 F; P                        end;*/
. C/ D2 C6 u3 A) w, c6 k1 {" T        next;
9 E  K" b2 V( {: P. e2 N        y_max:=y_max+dy;
4 c& ?$ h0 l; q+ i* k; P        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);
  R8 b* N, W, @/ b+ }1 K7 w       
" M4 M# F5 @8 b3 b8 d+ h! G        rows:=0;
' k  E6 y* l( Z. Y        lines:=0;
        for i:=1 to number_of_machine loop
/ r: E6 I) t+ M( A6 _5 P                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
. a5 c/ ]. P( [1 `2 d- d        lines:=0;
        partstable.delete;
- d' N+ U# Q! a1 J* W1 z       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
/ R1 e. j* A5 [                for j:=1 to number_of_machine loop
0 ^1 H: d" ?5 q/ G; Q8 n                        if w_from_to_chart[j,rows]>0 then
& ^& b  J, ~5 a/ k                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, _* m: m# W: i' V3 I                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 {% m, z' w5 T. H  P                        partstable[3,lines]:=sprint("parts");
9 P/ D, D1 I$ l, T% o                        partstable[5,lines]:=rows;
0 {: s3 k3 S; }( N, [% l                        partstable[6,lines]:=j;
$ O5 d- l1 W4 o# K* |" H                end;
        next;
5 D1 w% d) k! g        machinename:=sprint("M",rows);
" X/ ]: T  Z9 R7 X1 R2 I/ I        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]);
. G! ^( y5 l! V: l) a0 F/ s) }        machine.name:=machinename;标识符未知
. _$ @% F+ N7 G; Q+ u8 e  O) A2 }        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& G8 M) r) J# b! n  S, U& }% G       
        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;
        buf.capacity:=5000;
' b3 b5 w- o2 y        buf.proctime:=0;
3 E' S. t+ O4 v  m        .materialflow.connector.connect(buf,machine);
+ a8 ^) G& n8 ^5 N. D3 q" R       
        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 B/ G, _5 ^6 U5 I' L) G2 x) ~* ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
6 ~5 f& h2 ?( F& l1 O) m1 J# h