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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
" V) L  ]4 C: E+ A    i,j,rows,lines:integer;
    machinename,bufname:string;
4 q& N, l9 a+ T! F( y    machine,buf:object;
do
7 }6 S( B& Q& e  X        current.eraselayer(1);
- f: Q8 h( t! d- S* K% V       
9 R! n; a3 [! V$ P6 x, y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 |5 n! I, R& N2 v) E$ h& `2 Q* s$ y                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
0 L, i6 D! g  T8 J+ B8 t: g4 r. D                        print"yes";
% [0 p* b# ]9 e# W                when 32 then
& m4 d4 Y0 e: \$ G0 J! W% q                        print"no";
1 `2 f1 Y3 k* a) B3 t                else
  v! \  S+ _- M                        print"cancel";
                end;
                eventcontroller.stop;
        end;
- h  e, |1 a4 f% ]       
        for i:=1 to number_of_machine loop
! j, v8 d$ Z) G# \- P5 a) s        machinename:=sprint("M",i);
        if existsobject(machinename) then
, u  P4 N: U# B$ ?0 x9 }4 q5 S' x                machine:=str_to_obj(machinename);
) _! h4 K; D! W& _& ^# d                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
* _% w8 ]9 G+ b) f$ h0 z                buf:=str_to_obj(bufname);
                buf.deleteobject;
4 f; r- Y! H8 i: C        end;
$ y' f' s/ ?# [! D4 N1 j4 ]        next;
       
        dx:=0;
/ X; k& C5 i) n: {        dy:=0;
% ?7 z' u, L3 f5 l9 y        for i:=1 to number_of_machine loop
8 @. U  W8 a7 ?1 v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
9 E5 A7 O: d6 ]" y6 b                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
8 E; i) q  r- U6 f# ?% h7 a                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 H& W0 O9 Q8 v4 P) G' w+ Z                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
8 C- R3 C! q9 U& e  C  @                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 E7 U; t  j7 W; P/ Q                        mark:=true;
3 n1 a' {" d& u, ]) C8 R                        else*/
                        y_max:=y_max+dy;
! l% a3 Q2 T4 H                        dx:=0;
                dy:=0;
                        --end;
                end;
0 a" @) @% z! n5 \; a3 F& k                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) Z9 x6 _& [. v& z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 [3 A" m5 y' V            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
  E( g# s+ n1 m: d# U6 Q7 ?                end;
# z4 n+ C4 A; A' g& g. L                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
: T3 i8 c# \& ~6 _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ X  t; S  m3 S- w) i, ?" Q2 O$ c6 a                        end;*/
1 X- g. c: S% l2 Q        next;
  O% I  D$ t2 N# W$ p5 c5 c! ^        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);
: g# q; J1 f- k: ?* N        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);
# x( a2 g+ J7 C       
( d* ?4 i5 c4 l) [5 L$ {        rows:=0;
        lines:=0;
; q- w0 w( w) ^- v        for i:=1 to number_of_machine loop
+ k" D/ B6 ~; _7 h2 Q                for j:=1 to number_of_machine loop
                        if j=i then
; Q9 t3 {3 Z9 t1 u+ P4 y7 F                                d_from_to_chart[j,i]:=0;
+ X/ C. W- ?- G0 I6 U) G# Y                        else
3 H5 Q  I) {7 y* k% @4 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];
$ a0 H* V+ G$ R# T" B2 G% W0 V5 e1 |                                d_from_to_chart[j,i]:=abs(dx-dy);
& _) b+ M) ]( w' A+ ]  G! K! ?& f8 {; f                        end;
9 g$ `+ L, x* ^3 l: n& G- e                next;
        next;
: s  E9 a4 K& O' d: x       
        lines:=0;
        partstable.delete;
       
        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
                        if w_from_to_chart[j,rows]>0 then
. x- b' F. c5 I/ S( B/ E                        lines:=lines+1;
$ C7 a3 ~' W% `. d+ Z4 Q7 ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
) z( @- x) |" B/ T5 V& Z                        partstable[6,lines]:=j;
                end;
4 q( m% J" ?% f" C" M/ A/ L2 A        next;
2 r2 l& _  i) B. m* u        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]);
; z  E6 n: W* L& o6 d        machine.name:=machinename;标识符未知
$ m, N/ b5 l2 q, m+ U0 c        machine.proctime:=5;
& h; _) Z9 r9 u" g        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
- L* i+ ?8 {: O7 V: e2 C  Q* v       
        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' C7 m1 J/ u' r. N* y3 n( ]( xdy:=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;