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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
1 B4 c1 N3 _& t* m: W4 f9 F    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
0 ^: G! y7 q1 h: D6 f+ s        current.eraselayer(1);
       
8 s) ]4 h/ z- t# U        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  ^+ Y* w4 B6 @- d3 \) R+ f6 S                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
/ X2 R3 h/ A9 b3 g* ~* J9 n) `                        print"no";
                else
                        print"cancel";
0 z9 j3 x! d* I) F, P  V" a4 C# F                end;
                eventcontroller.stop;
0 x9 V7 Q2 I3 U! L- F4 B        end;
       
- ]" X! |% ]# B, Q' g2 q" R        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 |( F" V% {* e  J% q2 D4 P                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
/ d0 M' R2 i0 y1 T7 q& _  m0 @        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
+ P% m+ m7 V( g' ?0 O& F* o        end;
* P) U! {3 u; \/ e& L9 n' }        next;
       
' @) d4 o/ V$ f* _! }        dx:=0;
5 C' i& q+ c: W" C' h8 r) x' w        dy:=0;
% J) @& u4 N1 D2 B$ x8 F        for i:=1 to number_of_machine loop
* R5 t  a! h, K6 ?+ V5 R+ a0 i, F0 a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; E+ T! q0 N6 s6 Q- [                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 v: V+ ?! Q3 y: [. Q3 l7 Y# X( Z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) v+ k6 J" p5 T9 _$ k                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
9 C5 d7 h* `  ~, i; i4 E                        ct:=activityspace[2,rows];
* h- I' s3 M. w! k* ]. |1 ?, Y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
: I  d* s) ~% ]$ v                        else*/
* o/ X2 E7 l! O4 n                        y_max:=y_max+dy;
* B5 s- A4 Q6 Q% p) b0 A                        dx:=0;
$ ?6 K! p& S. `# C1 [: R5 h                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
. E+ z( J% {. w$ N            if activityspace[2,rows]>dy then
5 I- ]+ n9 r) S3 C1 p                        dy:=activityspace[2,rows];
( p/ `2 G2 [! q8 H9 \/ v& E9 G. j. X3 `) o                end;
. B6 l0 f/ b6 h! G8 X& m: ^& G1 Y                dx:=dx+activityspace[1,rows];
5 b% n& m# e8 x, T' |* H8 a                /*if mark=true then
$ t4 V, U' H% }" a2 ?2 u  p                ct:=activityspace[2,rows];
/ p) }& _% `$ p& v0 u                        activityspace[2,rows]:=activityspace[1,rows];
4 b6 H8 t" i# t' \( ?8 K                        activityspace[1,rows]:=ct;
$ M* K! P- [+ @4 @5 H' p                        end;*/
        next;
6 i3 P# v: C, c  y6 x- W        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);
       
0 e) {- R  V0 O+ [        rows:=0;
! N* k6 ^* I: R* Y! c3 N        lines:=0;
; x( ^3 _3 A" V6 n3 P, l        for i:=1 to number_of_machine loop
0 I6 p4 _3 A  j                for j:=1 to number_of_machine loop
0 ]# j8 u$ N# [                        if j=i then
/ L' c$ p' K" A$ m- [                                d_from_to_chart[j,i]:=0;
                        else
( t0 ~. q6 ]( ^. f                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
" Y; w6 [& p  k( N( ?# ]1 _                        end;
                next;
! V0 \2 P3 t5 A        next;
4 }- l4 q; ~1 R7 j       
4 y4 r' J1 o" U( R8 ?, ]# @        lines:=0;
/ e! ^& _" h7 v$ k        partstable.delete;
       
        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
- _6 K9 f. k( P# c* O( K                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ h2 n+ K* E9 h- m8 l                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
9 w6 V7 d, T7 p  B5 x! M$ |        next;
6 [6 |3 x) E& c; A" Q3 ^        machinename:=sprint("M",rows);
        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;标识符未知
) s; @/ |4 J! ]/ c        machine.proctime:=5;
7 h/ X# T# U( S8 u9 b0 m        machine.label:=activityspace[0,rows];
1 ?8 X' K8 ^5 R% d& ^! Z# ~        machine.exitctrl:=ref(leave);
       
3 c0 O# C. B8 S8 x        bufname:=sprint("BF",rows);
" k5 m* r; Z, H1 z1 A        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;
        buf.capacity:=5000;
        buf.proctime:=0;
  {! w  l2 c3 ~) b        .materialflow.connector.connect(buf,machine);
+ C5 T5 L/ q3 J8 q1 c, R       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 [+ P$ m2 u2 T& }dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
" t' b; e( F. R: x" ^current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;