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

zooey

is
' V8 a3 h4 @- V$ a        mark:boolean;
        dx,dy,ct:real;
6 }# i  N1 D; U    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
4 o4 V% s2 F: W        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: v* R: Q2 I) ^2 J& V# y+ A; I  P                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
0 R1 P( W6 y7 [7 F7 Y# C" o                        print"yes";
' u2 _& f. E6 F( l* ~  j9 X                when 32 then
! K* F- ], W" }! p( y% b; ^                        print"no";
# I, C0 ^0 P& m                else
                        print"cancel";
! x  G' h- F# v. X9 {6 c6 @, ]                end;
: f5 F7 |: a1 D  J. V                eventcontroller.stop;
        end;
       
" G( ]' K4 m' d, L% i4 F        for i:=1 to number_of_machine loop
+ b: m1 [% I: ^& _2 v4 y        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
, X( p$ Y; J0 J, p" f/ U        end;
        bufname:=sprint("BF",i);
& S& V2 x, d! ~1 ~; w7 J+ W        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
" O1 b: a3 @7 b" \0 |; L8 f                buf.deleteobject;
        end;
- ~2 c/ O- B) i$ p5 i9 l- k        next;
$ E1 C& C6 p9 s       
        dx:=0;
        dy:=0;
) U* R0 E4 O8 ?        for i:=1 to number_of_machine loop
1 B' u8 |% J8 H- u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
& M: p; J+ t) r0 B( W8 Y                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
# K7 S- o) d% Q( Y; J: H0 y( Q                        print activityspace[1,rows],",",activityspace[2,rows];
+ v0 |4 s$ W, m& C4 \0 @                        ct:=activityspace[2,rows];
% t( f# @; y9 s" a7 N  E% U                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
8 i6 ~+ m$ e& l0 C1 C3 ]( I                        else*/
                        y_max:=y_max+dy;
9 l2 d4 e7 n' S) p9 G  i                        dx:=0;
' ?! n* ~1 @, w6 h                dy:=0;
                        --end;
( N. x3 B/ O: [  @' x) b5 x5 ?                end;
6 G6 z5 [2 U" z, F/ J5 J                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, L9 k8 n( D, W$ t+ c9 |                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
! W; M( s7 E6 Y/ I2 z. B            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
4 R2 c( R2 W! f6 N                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 o4 S9 `, t7 D: C9 u                ct:=activityspace[2,rows];
- D7 \# ?3 |7 e5 i" W, b                        activityspace[2,rows]:=activityspace[1,rows];
' N+ |! T  K5 \9 K- _                        activityspace[1,rows]:=ct;
                        end;*/
1 @+ l, ?: d2 E: g9 d        next;
        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);
        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);
6 p4 k- H- v) J       
        rows:=0;
        lines:=0;
. z2 U- |, U6 ^& f% L) t        for i:=1 to number_of_machine loop
2 a  c% N- E: C& j1 L                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];
# K1 Q; O* S" _; A                                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);
+ ^, u: m  ~* n. o. Q# S$ q                        end;
                next;
: O  r; v6 d  k" R% m% N( W        next;
       
        lines:=0;
3 V& K7 i- v% |8 x& G4 G9 k9 ~        partstable.delete;
       
4 T' [- ]/ a$ @6 o        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( K- p* @. |% S+ f6 k6 E+ o$ m$ g' @# [                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. L; b+ ?! R/ T- n( n, {                        if w_from_to_chart[j,rows]>0 then
# l) w  b7 i  b4 {7 _                        lines:=lines+1;
/ {) Z9 r3 s* K7 m' Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, g' B  _5 X2 Y1 I5 x: m& k4 [, R7 H                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
/ I# N3 `+ P- r2 N) v                        partstable[5,lines]:=rows;
) w! M( L3 m' h5 [, p                        partstable[6,lines]:=j;
! _4 z! W2 C+ T# _- g, J                end;
        next;
        machinename:=sprint("M",rows);
1 [) O# S5 @2 N& x/ Y        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;标识符未知
8 X6 ^! r5 |/ e$ O1 {" S4 E1 B' A        machine.proctime:=5;
' U% H9 Z2 y& [% X9 Q        machine.label:=activityspace[0,rows];
* i, p+ l8 Z& A4 q        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
# p6 ]( g3 @/ E+ l0 c4 j: h! y        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;
) h9 [& L4 r) S3 Z        buf.capacity:=5000;
. n( @& q; ]/ i+ j2 I- A        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* f* Q0 v, E1 p5 k8 w       
4 q" T5 Z7 e5 G% V        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;
8 l1 Q. d5 x- i. ?( l7 J! u9 l! ^4 X" {current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* `6 P( x3 F7 @8 ~* S: {8 y, unext;
end;
2 [3 v9 s1 D# R* l- w