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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
  \% I0 E" j* d& g1 W4 @2 O    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
- s% E- Z% a$ |9 G( I6 I        current.eraselayer(1);
  e; ]3 g, K' S8 ^' |  `; F       
. t  \( F  D, {+ Q4 b8 D( F7 e0 ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ L2 W  x' e, L/ o% B( ?2 z                inspect messagebox("设施数目不对！请核查...,",50,13)
3 F2 T) {; l+ p                when 16 then
% L5 W4 n6 m- b/ g; y                        print"yes";
                when 32 then
$ x8 Z3 d& H' g  c1 I1 `                        print"no";
' E& Q4 y5 l0 [8 K/ |                else
7 k& z0 E* ?7 N. P8 i                        print"cancel";
6 ?6 v1 U6 U3 S. Z, j                end;
1 D' k; w& n) b0 S+ O/ z                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
& }( C/ G4 K. i4 b# z8 B2 N: R                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
# L0 h1 @( d9 D: L4 a. S  b        bufname:=sprint("BF",i);
9 M7 y' o; x0 l# ?3 L1 u' k6 N        if existsobject(bufname) then
! B* q" z5 c* B6 [9 D/ O                buf:=str_to_obj(bufname);
7 W/ q% U2 |) |& G/ O                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
$ k$ ?& d# t  M$ I( o1 l4 l% I/ A        for i:=1 to number_of_machine loop
7 J3 r! W- W! Y% b2 V+ g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; I" d# ^- g" e' N8 t                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ I( w% {! X5 s: u                        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];
! @, i0 c; p2 k- Y( {; x$ R                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
) u5 L; c1 E& N) w; ~+ X( c8 c- W                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
% {. G( ?! P. e  M! S                        dy:=activityspace[2,rows];
8 T& W$ j$ X9 x4 L& P* b9 x4 J                end;
                dx:=dx+activityspace[1,rows];
" G6 y" w, \- m                /*if mark=true then
; n1 }' J$ L  f6 ?7 ]4 b                ct:=activityspace[2,rows];
# l% w" D' o: l8 h, D7 k) D. k                        activityspace[2,rows]:=activityspace[1,rows];
9 N8 n* T3 i& L$ i) f* E7 y: g* x                        activityspace[1,rows]:=ct;
                        end;*/
        next;
, ^/ a% w+ |) C* r$ y        y_max:=y_max+dy;
' ], z# S4 d  N% D; F. f* T        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);
! g4 d$ R8 [- U$ l        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);
" u% c  p5 G) y( N- Z' I       
* N9 e2 S* u. T) T& s3 z        rows:=0;
1 a: O+ d( ^# }7 J        lines:=0;
" j7 ~9 O+ I2 C* [8 b        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
% J1 R. M6 u0 a: v$ ]/ r                                d_from_to_chart[j,i]:=0;
                        else
9 U( B9 A' i& t4 w5 l- c* P2 Q                                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;
+ T. h1 I- g0 g. O! _. \& C# q                next;
. s+ U$ @: r$ e" ^& v        next;
       
+ E+ B1 B* H5 x3 l/ o, U        lines:=0;
( S2 ~/ p6 ~- J: n6 s4 H8 S        partstable.delete;
! [' f+ L& D# ?6 ^1 O       
        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
5 _2 C+ d2 ~9 m7 ?& ~1 A3 ^                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
8 F9 [4 j) q2 J( Q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 y. y3 W* j5 V1 q% U1 a                        partstable[3,lines]:=sprint("parts");
6 j9 {* z5 ?+ Z8 {' _                        partstable[5,lines]:=rows;
3 j* w% G8 y) T  i4 L5 J                        partstable[6,lines]:=j;
                end;
' J% o2 K/ ?* S# |8 u) v- o# e        next;
        machinename:=sprint("M",rows);
, x; f. N+ G7 \( ^- z. k        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;标识符未知
        machine.proctime:=5;
6 s: I* c, q8 B9 a        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
3 G0 T7 g/ [4 @3 \+ W        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;
* C' c9 B  ~2 \5 p        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
" @* k0 k6 p1 ^$ |5 l8 t* d! u       
, p) e9 _; y" J; V% O, h& |        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;
end;