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

zooey

is
        mark:boolean;
- b' D* n1 M$ |/ I7 I        dx,dy,ct:real;
    i,j,rows,lines:integer;
! q. ^$ A& w+ Z! e; t3 Q0 B    machinename,bufname:string;
2 q3 P8 f( X, q1 A2 q    machine,buf:object;
do
9 d9 a# O  Y! {1 M: |, U        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& p! Q+ ?/ o5 a$ o$ A; o. ?                inspect messagebox("设施数目不对！请核查...,",50,13)
6 S8 }: Z6 s2 M8 R$ ?. L                when 16 then
                        print"yes";
3 K. H" t. Z1 T# r3 U6 z) ~& b  t; ^                when 32 then
                        print"no";
                else
8 k/ d) H: ^, j! T3 G  y                        print"cancel";
. J8 ?1 Q( O& S) f. a& ]( F                end;
2 U0 K8 l! ~2 ~* u) x) a1 s                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' t: U1 M+ `* W# v; X2 _                machine.deleteobject;
. f1 B9 g% v; U# r, L" x% Y, M8 M        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( D$ `# n. G9 P' C' z/ y                buf.deleteobject;
. ^) |7 U2 l( y3 J3 ?9 O        end;
        next;
       
2 F4 |& D& f/ g, A/ L        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
$ P9 h) h5 G* B( D( A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 f/ v; l& P1 c6 Z. r                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& l6 d  r9 M7 L! R  b. }                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
1 ?+ I- X5 N3 l; k0 g                        ct:=activityspace[2,rows];
. Z- b3 u' q6 c                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
9 S9 }2 p3 n% a! u                        else*/
                        y_max:=y_max+dy;
3 a( K5 @7 @' z) |5 C9 b( C                        dx:=0;
                dy:=0;
                        --end;
                end;
! b/ u' u5 s( S0 }                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ M. h6 C* S# W0 W. A  z7 [                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 I* [% }. ~4 Q* ~4 p/ z            if activityspace[2,rows]>dy then
& j7 `& _/ h* Z2 a, M                        dy:=activityspace[2,rows];
3 ^  I* t( s  O                end;
                dx:=dx+activityspace[1,rows];
: j) |4 }9 R' K+ D, v                /*if mark=true then
                ct:=activityspace[2,rows];
& J3 O! V! w  w( x( Y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- Q5 t& b3 m8 }7 \0 |5 u                        end;*/
        next;
' ^: U( e$ G( H        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 i- c/ @" P& Z: x# k: }5 ]2 [        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);
       
' u. m2 B9 x! K. o        rows:=0;
) f8 M% @8 r" ]2 q2 N; C        lines:=0;
! C# ^8 Z. k( e& B1 a        for i:=1 to number_of_machine loop
, _4 H( ?' u* R2 P0 I9 Z  X8 ~                for j:=1 to number_of_machine loop
3 Q2 _! G0 ^$ _' f/ ]                        if j=i then
1 [2 J2 ~, V/ \  M8 D$ N2 @                                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];
+ S( M) Z+ _' Z                                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;
9 ~$ b9 o: G: X: v# y0 Z* o' u8 k        next;
       
# E2 j3 M/ a' T5 x        lines:=0;
2 J$ h" P9 w: f( _  N        partstable.delete;
  z* P) w0 x4 D! K, t, |( }2 u       
; m) g+ _: h) u, b( b5 P7 s        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
- N0 }% H8 }0 u7 k8 g% |                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 ]( i& F* I. j! _$ M8 Z& N* k8 |                        partstable[3,lines]:=sprint("parts");
8 D" [& m2 C- C8 G7 Z; Q, u% N9 u                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
6 s7 d1 M6 L) R$ q( P/ i! U: v                end;
        next;
. ?6 y% u$ `! s. n        machinename:=sprint("M",rows);
$ {' f! n( V0 B; i6 c3 K5 f& ?        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]);
3 t8 P* ~& G2 Q2 H3 ?: v- }        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 U% v* u$ f3 a: M# x       
$ c! o, k: B6 O- 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;
$ l3 p8 m; n+ j4 b5 ]& H        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
- k4 k% l. o2 ?5 N9 `5 \        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 d% I0 S" @# T; t& g, E" x- Bdy:=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);
/ B5 Y  `% I& F" }$ Nnext;
end;
- w, f- [/ k- F* k  M. U; U