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

zooey

is
% e# A5 b7 D! {, @, J: I8 z* Z        mark:boolean;
        dx,dy,ct:real;
+ V7 e8 t6 e' c3 c$ J; L1 i    i,j,rows,lines:integer;
    machinename,bufname:string;
( A2 _9 l6 c& m    machine,buf:object;
4 o* X8 A3 p) G7 M# s& Vdo
( @( i9 l. ?) P8 W$ c, E- I1 b" k; c        current.eraselayer(1);
& S, M2 v% Q: Y: p' e, R       
) @1 v3 c6 Y6 s3 _/ }        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
                        print"yes";
                when 32 then
" }( H( _1 [+ `  I                        print"no";
) T: u- V% b! J; |2 C                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
% V' N" C  I0 m. B- h; S+ T+ j                machine:=str_to_obj(machinename);
0 V% Q* J2 Q5 f2 |% L" e3 H                machine.deleteobject;
        end;
: l0 C! H; U% j4 l% ~        bufname:=sprint("BF",i);
( _1 Y* H+ ]! O$ p: Q" I3 m  j: a        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
3 w4 b, T) c. c! K% Z+ b        end;
        next;
* O+ q. {6 h7 N! Y) N% d( r2 a       
8 t8 m, B: D# g; o        dx:=0;
' J8 g! s' n2 Y4 d) n" `# |        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ v( b# v! s, Y8 C6 P                --mark:=false;
/ E* N1 {* b1 I* h/ X2 l                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
9 w8 e6 k1 l: B. s% ~$ S                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& ^5 g* H; J: d/ U                        and activityspace[1,rows]<(1.05*y_max) then
( C# v. f; s: ^! H$ b8 \                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; u. f; w0 E+ T& @( L  U" W                        activityspace[1,rows]:=ct;
                        mark:=true;
: Y0 m- b) _& |; p# x                        else*/
                        y_max:=y_max+dy;
) Y2 E6 V0 h' ]6 u                        dx:=0;
6 k' @! J- I4 j+ z0 P" Z& a                dy:=0;
4 @# @* x, g& Q4 S; s- F" b% U, p                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- v' ~; I& F, o% k5 r2 \8 c                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
+ y/ @/ ?& b  w% q            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
) O, g, p# K4 v6 A( `                end;
5 M9 v# \" @: I7 ~$ K                dx:=dx+activityspace[1,rows];
0 H. W1 {' P) v! d8 k                /*if mark=true then
                ct:=activityspace[2,rows];
8 m. D( q$ Z1 M; H6 N% E) {                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- y; V% F2 {0 N* b( C" F                        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);
% J8 ^! E+ U0 r8 W( }  L9 s        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);
/ P$ w5 j, O# a# D8 m       
        rows:=0;
  j' P" B/ [! t# r# w        lines:=0;
$ t  v4 ~$ C' Z        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  G3 C( u) D, x9 ^                        if j=i then
$ \( o" W/ |) D                                d_from_to_chart[j,i]:=0;
' E& A4 L0 q5 V                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ y2 P& p+ ^" y6 {                                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);
5 |" g7 ?4 I! \, _$ x                        end;
$ {3 T% _" P; K4 C" Z$ S; Y                next;
1 T5 {6 H3 Y: `% M9 d- m, {; I, M9 w        next;
5 n5 F4 Q9 r% c$ b       
        lines:=0;
* k: |7 w+ A8 e' w        partstable.delete;
       
        for i:=1 to number_of_machine loop
' X  M( N* F2 v2 Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) I; H. O% K1 G0 }6 A* E+ Z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
8 z- W  V5 z- B7 B* L                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- K6 P% A! k6 F9 e  u( \- l                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
* S3 Z' D7 ^; g+ z2 e                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
+ R3 J5 S- J, G; Y                end;
( G$ v, k* N$ S; H        next;
        machinename:=sprint("M",rows);
9 _: E  k; w, W        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]);
2 @) D0 L3 G$ u# i        machine.name:=machinename;标识符未知
4 c5 o1 t7 [( y6 ^) G        machine.proctime:=5;
' ^1 M/ M$ E3 B        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
) @) e) q7 `, G* Y: j       
% F$ \8 ^1 r- f/ ~; V9 W3 A        bufname:=sprint("BF",rows);
) o) d$ v6 A! L. ]2 z" H0 y% 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]);
5 `) L$ A6 _4 e; y* b1 h        buf.name:=bufname;
+ \# m- Q' }0 P  Q0 d0 Q: z8 K        buf.capacity:=5000;
" K2 |/ S+ r* k. A        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 r  q, K8 P* I9 i       
        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);
0 R+ w& r( h# Q, H5 lnext;
end;