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

zooey

is
        mark:boolean;
! H* g* {1 Q, C0 x        dx,dy,ct:real;
$ B1 U5 a; P2 N$ Y% \4 F4 x    i,j,rows,lines:integer;
    machinename,bufname:string;
; S( ^& `8 |+ F0 y" e    machine,buf:object;
3 L- [  h* n0 }  q0 A/ ndo
7 T' o6 T7 a; P2 B" f0 ^# Z/ T        current.eraselayer(1);
' _& O7 J; U9 O6 M% j       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
( _8 z9 D, }- k3 z% r) t                when 16 then
                        print"yes";
1 ^$ I$ _( W- I2 `) m5 l  D                when 32 then
                        print"no";
0 I1 ?9 t8 e! z                else
  ~: w8 A% x0 R( H. u* Y                        print"cancel";
* n/ o/ m% m7 o& U( Z* {                end;
                eventcontroller.stop;
* U! e3 k# w1 L        end;
( H3 i' n9 l, F- f       
4 r8 i' Y3 B& C/ J7 P/ G+ M        for i:=1 to number_of_machine loop
) Y' P( Q9 K* g1 I# e7 ~& _0 I        machinename:=sprint("M",i);
& s' Q5 q3 R" m& I        if existsobject(machinename) then
6 b/ o9 {0 Y5 A8 ?  a& u8 ?4 E                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
; @* x. f9 _' N; T, i        bufname:=sprint("BF",i);
        if existsobject(bufname) then
2 X3 r2 G% e) v/ `+ h! f                buf:=str_to_obj(bufname);
3 E3 l4 T1 X- e/ G0 J0 L                buf.deleteobject;
# R) g5 i$ e; p$ `8 [        end;
        next;
+ l& V! L6 K8 t  f4 s5 W       
        dx:=0;
% |  s+ {' A. [: M) ~        dy:=0;
  U" K% h6 p3 C8 @/ ^        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
" F9 z* R( @0 }' E! u' W7 N                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
                        ct:=activityspace[2,rows];
2 W( j( v: P- V3 Q6 C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 {8 T8 B% o$ m. W- J1 V& x8 i! Y2 T                        mark:=true;
; z: o1 x9 n  {. l. }                        else*/
                        y_max:=y_max+dy;
! a8 ~$ h$ g* s( R1 H# W                        dx:=0;
( p5 q2 P+ f" B; @; }                dy:=0;
2 `1 ]; v) x4 L" w! }* ?                        --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;
0 R/ j# q5 \. d" P            if activityspace[2,rows]>dy then
- M5 I* E: k: z; X                        dy:=activityspace[2,rows];
* e3 [+ e7 F7 w4 D+ i* @+ @                end;
/ z2 T' F, G& y1 }0 ]; \+ r                dx:=dx+activityspace[1,rows];
! j2 d3 k$ f3 t- z                /*if mark=true then
1 N: b! Q/ F1 {/ w. O                ct:=activityspace[2,rows];
" M1 k) q, ^% g& N4 x+ N3 U0 s                        activityspace[2,rows]:=activityspace[1,rows];
( P5 J5 V) L4 p1 V. `/ B% a                        activityspace[1,rows]:=ct;
                        end;*/
        next;
. }0 _  J0 D* w- \  k* ~# G  [        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);
4 I7 _8 T) P' T7 C" ?# q        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);
       
  Q2 J" f' }: c' V        rows:=0;
8 z7 ?7 K  i% X8 w. q        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
* x+ _+ |/ g' y( F( o; ^8 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);
                        end;
                next;
% Q+ |& F% K5 P4 E* a  i        next;
1 l. ?6 U2 Q; o       
. K' J2 T$ k1 a2 I* a        lines:=0;
        partstable.delete;
  V6 ^0 x! A; o( l3 F       
, k; O% K/ E1 N# k" e        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 d+ p8 E& I/ T9 r1 h+ e                machinesequence[2,i]:=rows;
. K# Z+ s/ C: `2 Y4 d                for j:=1 to number_of_machine loop
+ X" n7 A! F% s- W# F6 z6 r( i; e- N                        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];
$ b( ?6 u* J4 \4 ~7 y1 I" [                        partstable[3,lines]:=sprint("parts");
2 u5 N) W; _$ b                        partstable[5,lines]:=rows;
+ d) K- e$ f! e$ g8 ^# ]3 {' i, {                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
+ l/ [) `. V% r        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]);
% i0 p( v- f$ q- X8 F        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
; o. w% T; O+ e& W; t. u        machine.exitctrl:=ref(leave);
" R1 M4 P; ]* M; Y0 e       
        bufname:=sprint("BF",rows);
: Y/ }9 s% c6 z( E$ k        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;
6 m5 `4 x4 `& R4 Q        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
1 o* o# r8 o6 a/ r, F0 X       
        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);
next;
end;
* a0 z4 [' i+ c4 _2 d9 E" e