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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
/ h4 p, _  |, U3 d4 I: p    i,j,rows,lines:integer;
* u" j8 {3 h- q+ R# }% d    machinename,bufname:string;
: p, C6 c5 x8 d1 d3 u    machine,buf:object;
: L% C: b7 v; V( z. pdo
        current.eraselayer(1);
7 w5 v6 S1 }" S! V: e' J+ h# @3 a7 S       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* t( L- d  N1 G1 ?                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
) x3 Q( E9 C- W$ i& F                        print"yes";
& N& ?6 a4 p% t" a6 S. `' Q                when 32 then
                        print"no";
6 p* J( ]" p' R0 X5 D                else
                        print"cancel";
                end;
! ^8 o* l' f4 Y) _( V4 X+ m* [! H+ s                eventcontroller.stop;
) U# G2 D# _7 q7 r+ ]2 @        end;
* ~" m; O+ K% ]7 a( D" K       
# u# A1 B1 D, A% _: P1 H7 }        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
6 \. L2 J" r6 S$ o        if existsobject(bufname) then
3 C; j7 a* d% U1 L# H! W                buf:=str_to_obj(bufname);
                buf.deleteobject;
9 ~0 u5 h( D& f1 j6 ]  P        end;
) s1 {- W* u: n        next;
- c; J: P0 d8 K+ Q0 x% x       
        dx:=0;
8 }, q6 q7 b0 B' I2 C; p7 J" s        dy:=0;
+ l( J) Z# D: @; i        for i:=1 to number_of_machine loop
) P% @1 l2 u. d. s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 N# {/ N! G7 s- t, y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) w  j) k( I' f% h9 t                then
- z" l1 x* J8 ~$ g6 P) W                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
( x$ g+ p6 D5 n: o                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: z, a/ o; T$ R, s                        activityspace[1,rows]:=ct;
                        mark:=true;
* [& S& `5 X, D* [( E5 d; @! {                        else*/
. m* A3 w$ J3 U' x8 u% ^                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
% ?5 G% z; f# Z- Y4 t" u4 c                        --end;
                end;
7 d! h. r9 a1 o- k" z' S3 c: a                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 d( i0 M; ]4 i2 M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  D3 D. @4 I$ P/ ^) F            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
# ^& g: m) ~: [7 F2 `                end;
2 K+ g  m# w% p" c                dx:=dx+activityspace[1,rows];
                /*if mark=true then
  i- ^* u& n( m" O                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
. i& v0 {4 y/ d        next;
; _+ p% ]: P3 r2 s- o- _# 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);
; a( E7 y' A) e; I5 g4 J: s8 S4 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);
       
( u% x/ `; M  R( z        rows:=0;
( T4 K6 F9 b6 ^2 x- E# b: F' h: ^        lines:=0;
5 D# U0 E8 p+ K4 P        for i:=1 to number_of_machine loop
* A" P- s* P  ~                for j:=1 to number_of_machine loop
( d, a! O1 h: f- g                        if j=i then
. Q+ @$ N, {9 J, P8 x$ V& L5 H0 R; R                                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];
6 g6 q6 R8 e. D: p, P                                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;
        next;
& R  P: Q' |: W       
        lines:=0;
# |  \, D& n" V- W  J' S$ Y( R        partstable.delete;
       
8 J5 t; f8 L0 `- }8 I7 f" @( e/ s        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) b; S1 \* M! v4 Q                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
7 @2 e" H, ?! \+ R# ?' D. b8 i" w                        if w_from_to_chart[j,rows]>0 then
7 E( h# ]* H8 |3 `+ a, N0 Q                        lines:=lines+1;
* Q3 P- h  P2 E* r6 ?# x0 ?                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
/ ~* k8 J, R% z% r! }                end;
1 {# m& {& r8 w  n        next;
        machinename:=sprint("M",rows);
3 c8 j4 J: G  q9 M: z" c# ?; `        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]);
. M2 i* r/ d+ e( O* v5 C        machine.name:=machinename;标识符未知
        machine.proctime:=5;
- u+ h5 w* R- E! P        machine.label:=activityspace[0,rows];
4 v" i5 W+ c5 B* `  r( x0 A        machine.exitctrl:=ref(leave);
- K6 W& W! C8 i; \       
        bufname:=sprint("BF",rows);
8 O. D4 D) T7 r" P, Z) }        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;
6 [% C$ x: o& B3 l: L6 \5 h        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
7 E# A& X9 T: r- E2 w       
        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 M2 \' h, l; I& r4 Nnext;
6 [6 J5 F6 M5 T  Kend;