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

zooey

is
        mark:boolean;
6 Y0 |) x% S1 G0 c' Q+ h3 a4 T        dx,dy,ct:real;
3 S/ ?" w& `0 P9 z    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
, H1 `6 ^& W. |  k$ mdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) ^( n9 j- A  e                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
. n# O# L: j3 g" v% {                        print"yes";
, M; Q/ t& k7 R  A) j                when 32 then
                        print"no";
/ A6 D$ c$ X+ Q# B$ D6 S                else
                        print"cancel";
7 G; {; c0 q" g  s- [: F                end;
                eventcontroller.stop;
        end;
( @) L8 l0 l. G0 E9 v: T       
        for i:=1 to number_of_machine loop
# o! k: O) x9 Z' X        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
9 C5 @$ d) s) _" B1 q                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
- ]) n* }1 v2 C( p& `2 W        if existsobject(bufname) then
* I$ F, S# B/ H: K                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
: s' f9 O1 q7 ~* O2 R- F        next;
       
" s9 Z( G1 x+ Q8 [% w8 w0 l        dx:=0;
& a' I; J$ x+ f# D# M! C. a        dy:=0;
. `8 b* _" E5 b) j        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 F, A4 y, G6 W' C                --mark:=false;
! c6 c1 R( L( I$ W) P* j( |4 i                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 b' O) i6 O% ]  E( H8 U' [                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
2 G/ E; U3 N6 q# W( _& }                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, y" N7 b, O4 d0 ]                        activityspace[1,rows]:=ct;
                        mark:=true;
+ O2 U* |% _7 [3 i6 z1 E0 w+ ?                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
) c$ [% j3 m. s6 p+ g$ ?; P( O+ K1 P8 q                        --end;
) p3 d- m6 J4 [. n, O                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 S. P" D* T$ `7 v- }                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
( {& N4 a9 t9 H4 {                        dy:=activityspace[2,rows];
                end;
/ X+ ?9 @3 v5 N' l+ H8 F5 A                dx:=dx+activityspace[1,rows];
/ ?4 s8 T$ V9 d8 Z, i' f; m                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- I3 l+ h/ O0 f/ a2 V                        end;*/
        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);
5 x; w! |$ 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);
) e! }9 [, K6 L) Y/ u9 Y& a# V. V       
        rows:=0;
" B$ N: u# n5 i2 |        lines:=0;
        for i:=1 to number_of_machine loop
  ?' u4 l' H/ R5 w5 i, C                for j:=1 to number_of_machine loop
                        if j=i then
! P" p9 _; V5 E+ L: o                                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];
9 S; h- k5 a0 O" r) E                                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);
0 J( a  ^; k' w- u                        end;
! V% S& i3 }6 {$ x. E                next;
        next;
( Y. }, V' \* `8 F  F% M       
9 y2 Q' B2 g# h        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
8 u) M, d0 H" F( S$ E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ q5 Q! Y# H0 W/ r3 c                        if w_from_to_chart[j,rows]>0 then
% C5 m, |, F  H3 p$ O! w4 ^. |                        lines:=lines+1;
/ Q' V8 e; U& A                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& d4 J+ a; j" V' i$ q8 [4 a6 k( S                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ Y3 O! s! E% M, Z9 R                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- z2 r7 }3 n! E8 p1 B; z1 J                end;
        next;
        machinename:=sprint("M",rows);
7 j4 Q) N9 p1 ]. P        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]);
- {  @. V$ z$ ~/ M        machine.name:=machinename;标识符未知
! X1 M9 h- C" U6 ?* J  E        machine.proctime:=5;
: h1 h+ S. L6 T% L4 ^- ^7 c7 I& z' f% c        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  u' I6 A! A; K0 Z0 o: M       
        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]);
! O; H" G8 w  i        buf.name:=bufname;
7 x* S3 Q4 R* G' u0 G& V! M        buf.capacity:=5000;
& U: X4 w/ P; ?0 v        buf.proctime:=0;
- V9 ]1 y3 t1 W        .materialflow.connector.connect(buf,machine);
( C2 B5 |  D) L: V* Z  a, J       
5 ]; o  Y1 [% c5 \. [        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' q* F: P* G' f9 c! o+ ?& D: bdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' b0 y) R- @: Scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
/ j8 }0 B) y( M/ vnext;
end;