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

zooey

is
5 {8 ~2 m. a0 o/ x/ V        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
( g0 q+ E1 g' p( Q    machine,buf:object;
- V0 u- C" J9 t+ g6 z" o) jdo
# I+ _, c4 x5 R: q! R  Z        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
0 y4 F# b! g5 R7 g9 c: e: B# v                when 16 then
1 b4 Q) X0 s) @! ]( _2 W8 d' r                        print"yes";
3 x5 N- j9 s/ ~% j1 m! ]" t3 w                when 32 then
# w' y% O2 m$ b* j                        print"no";
" N- x! g4 W: Z                else
* R! V& Q, H. t0 g  [                        print"cancel";
4 p. ^$ ~. J3 }; g, {- t# t- C                end;
# E1 a0 p- M: m! r9 I& @1 N6 }$ X                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
& D, h+ \8 @3 y* U        machinename:=sprint("M",i);
        if existsobject(machinename) then
; x6 {  n* G' |& r0 x1 }& D# d2 e                machine:=str_to_obj(machinename);
$ S( a' F+ _6 A, G/ v6 \2 W+ ^                machine.deleteobject;
        end;
, p  Z' @  A8 p) A/ W0 y# Y( V/ d        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
- D1 Z3 f( U/ N6 X3 t5 g        end;
        next;
       
" V) n) ?, L9 K' ]" w# g# w6 e) p        dx:=0;
$ V! s  a& A7 Q9 n( u        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- x0 r9 p. X. x1 J& a# r3 K. [6 q                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
6 L. n: W- Q6 @; ~                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
8 v; ?- x- }; O7 v% z                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
  _5 g: u& o) N: s0 ~; K' z/ r                        activityspace[2,rows]:=activityspace[1,rows];
; ]6 l9 v0 v* k, @                        activityspace[1,rows]:=ct;
& ?0 E7 D, \2 n- x4 ~                        mark:=true;
                        else*/
+ @& e, u  E" E/ P                        y_max:=y_max+dy;
8 n1 R0 B$ m5 I; f                        dx:=0;
                dy:=0;
' u6 U$ z+ }: R: j                        --end;
                end;
8 O: n3 d8 E, I4 z                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 C; z: C1 H: B8 X4 G( B                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* J+ o* A& `# [; L4 x            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
8 Y' R8 d  D: u8 Z                end;
/ ?3 B+ o- d- e, d% [: i                dx:=dx+activityspace[1,rows];
/ S9 |" O3 A) \; Z5 P' G                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 Z9 ^3 h) y$ g: a: U! p0 r                        activityspace[1,rows]:=ct;
                        end;*/
        next;
1 M! b  N8 |' k9 w+ k3 K        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);
. c( p5 M3 |. ], o        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);
8 [1 {, O/ u3 u) f  L3 B       
7 o! A9 o7 s; m        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
  ?* u$ b5 i; w3 i; M                                d_from_to_chart[j,i]:=0;
  V9 o" x; T" K) t* ]& P" w; [                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. A2 j- G" E# f. o; n$ H8 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;
0 q6 c5 G0 f0 b. |) H& ~        next;
' R: X- R. ?! b4 ]; @8 Y       
        lines:=0;
) m# @$ A# k' Y" x7 [        partstable.delete;
       
; `7 A1 j$ M! Y5 L7 P        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
3 Q% p, R) n( `" Y- ?8 A                for j:=1 to number_of_machine loop
5 Y4 T. P# v: `                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: u5 F7 v8 Q! o$ `) v. c                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 i7 A, g5 \0 ~3 l                        partstable[3,lines]:=sprint("parts");
% b3 \7 Z8 u9 h( ?* E3 w% Y                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
* M' A. Q4 j' K. T: }" J' I        next;
        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
. s4 h9 W0 q3 l/ k+ f; a8 R        machine.label:=activityspace[0,rows];
! l( }% p) Y# o' ~; F& u8 p        machine.exitctrl:=ref(leave);
' `: h, d1 f/ f( c       
: ?( M  H1 [" g$ q% S/ ?" t* e        bufname:=sprint("BF",rows);
) g& E8 d9 O7 t+ i9 f: ?: J% d9 c        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;
' p9 j" e/ w( z) z$ A        buf.proctime:=0;
( k  N% |5 _/ V        .materialflow.connector.connect(buf,machine);
+ H, z2 O- P1 P       
1 L$ n, W: u, F1 g8 S" r- q# O, ?5 l1 c        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' u1 @* k9 h7 ^: S3 h# Vdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
9 w6 m3 d. L, d  A( M  O- xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
( l0 z: b  B8 ~) p8 d# ]6 G7 ]next;
3 M" i, [6 A' ]; ?1 d  g% q9 n6 oend;
' M" H9 }& f6 w+ ~# D0 A1 l