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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
/ n2 W8 V/ ~5 D: a8 e7 ?4 V* a3 g' P    i,j,rows,lines:integer;
; E0 {: A  A2 ^7 Z6 z" ?1 J8 O. W    machinename,bufname:string;
3 Y" a0 c1 O- u' g# N3 s    machine,buf:object;
do
        current.eraselayer(1);
* h; o4 Z0 y& _) P' m$ Q  C! C2 a! ]4 l9 Y$ y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
! ^6 J5 u5 r$ L+ X& _: O                        print"yes";
: E& A7 O. o/ b) q: v. z; T2 E# c                when 32 then
                        print"no";
                else
% h1 \6 K  D- b                        print"cancel";
                end;
                eventcontroller.stop;
% m, P6 S4 S% ^# U8 i! r. Z+ W( ?        end;
       
0 s3 k* K! I8 v# m8 e% p# e        for i:=1 to number_of_machine loop
7 l/ p; H9 O- h2 i" n, j' z        machinename:=sprint("M",i);
        if existsobject(machinename) then
  F3 m1 D/ z+ T6 G: E! ^                machine:=str_to_obj(machinename);
$ {4 b* C7 W. {: |0 ]* J8 }                machine.deleteobject;
        end;
* {7 R& T) C9 ?- b8 k/ i. \        bufname:=sprint("BF",i);
9 L8 H5 z3 [8 m. _        if existsobject(bufname) then
4 V- S5 n, ?4 o* V" n                buf:=str_to_obj(bufname);
                buf.deleteobject;
# S% d, j) p/ V7 o* E. Q' K5 f        end;
        next;
       
( ?) W+ S2 @: e6 u  L' `8 S        dx:=0;
" P2 G$ s. v5 i" E* D& r        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% v' _) A, I: B2 |0 o                --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]
                        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;
9 M1 K- n. T) ~  u0 j( h- S9 \                        else*/
' r8 X4 v: ^6 z                        y_max:=y_max+dy;
* N  n- c) D$ x5 g: N7 E. U+ X; K                        dx:=0;
# L" V9 P8 g: r4 o& B                dy:=0;
% i7 \6 x3 c8 t8 |7 \% J                        --end;
                end;
7 W& U0 }% I7 H. H                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 n7 E" V6 ?; U                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 [) [! k' o* ?4 g            if activityspace[2,rows]>dy then
$ A; V2 T7 Y2 W* i                        dy:=activityspace[2,rows];
1 q* l% u& d6 h- q                end;
                dx:=dx+activityspace[1,rows];
) {! C/ g  ~! g, N  z3 A) O' H/ ]' f! l                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
5 Y- ]+ @) l$ V6 @  Q# Q        y_max:=y_max+dy;
7 Z  ]" l, k6 O! M9 o/ 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);
) I7 s7 M$ s" f4 c. o, y        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);
. {1 g' q& Z( ~1 a       
        rows:=0;
/ a6 l; T3 v: j4 B- `3 w        lines:=0;
- w  q. |- ^" T5 M4 P4 E7 s        for i:=1 to number_of_machine loop
8 B7 [/ B+ I& j8 F$ w1 c                for j:=1 to number_of_machine loop
# ]3 O5 {" ^1 v: ?                        if j=i then
                                d_from_to_chart[j,i]:=0;
( R6 |0 ^; a' D( f9 P                        else
% J2 i% B) p- M                                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];
5 W7 M# N4 g1 J8 Z3 j                                d_from_to_chart[j,i]:=abs(dx-dy);
9 Z! d1 |/ c2 P                        end;
                next;
        next;
$ i9 K, V! F) d% a  x+ W       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! k4 P: p3 z& s2 b' K                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
& c5 U0 a3 i* x# i- q; a  y                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
/ @, J$ \* T+ b. p                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
& X1 P2 U  ^) _                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
. X4 M9 x' `6 n9 y& {                end;
1 Y) n- y9 O. R        next;
2 q' u$ g) ?8 N; v        machinename:=sprint("M",rows);
4 Y- x2 g- r. s5 N/ B+ l% c        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]);
! x% d/ l8 K, Q        machine.name:=machinename;标识符未知
) J# n6 r9 h+ y9 y        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
8 t& C9 X. l  n6 h        bufname:=sprint("BF",rows);
# o0 J! _. r/ g4 j        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;
1 v5 K) M0 v* Q; @' C        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 E! k/ H3 Y; O       
) _. p5 w) A  q7 G9 H0 q        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;