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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
5 n: t- [- W% F        current.eraselayer(1);
) O6 A; V+ v& r% _       
4 J* o4 P7 |* M. f( v. k3 {: K        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, |: Y: s+ O; b% g; u' }                inspect messagebox("设施数目不对！请核查...,",50,13)
$ E: u6 j4 F% E  ?1 Z  U5 N8 M' z                when 16 then
, }0 }; t8 q/ d4 t0 R1 v& s                        print"yes";
9 n& t$ _0 M0 y2 d9 [1 @" z* |9 J                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
) s! H4 D- S! v) ]) p        end;
  I: j: c% J/ }( V# }       
        for i:=1 to number_of_machine loop
$ d8 K+ O: D* S        machinename:=sprint("M",i);
7 \8 \' b. t: b% H" J5 \        if existsobject(machinename) then
2 Y/ \3 _" C! {& Y; a& P! P8 P: Q                machine:=str_to_obj(machinename);
                machine.deleteobject;
; U: i7 l& M" Y' M6 ^        end;
        bufname:=sprint("BF",i);
5 ~4 G& @; V4 [1 C5 {% I0 s$ Q5 w        if existsobject(bufname) then
6 E8 K) c/ M, I                buf:=str_to_obj(bufname);
! \6 w# ~( Z6 z3 o, \. d; T+ i; l                buf.deleteobject;
        end;
% T  I4 b/ R9 g- Q        next;
       
        dx:=0;
; o1 m  R2 x/ ]( v& |' E        dy:=0;
0 V" y8 P% p; \. r- K        for i:=1 to number_of_machine loop
8 ]7 ~/ k$ a2 u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) r! }9 `  l/ n$ A/ b! x                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 G$ p& A6 G0 Z7 g# X4 T, ^                        and activityspace[1,rows]<(1.05*y_max) then
8 x( _) {! ]- V: n3 v" I0 |" p                        print activityspace[1,rows],",",activityspace[2,rows];
# t" Q7 i  R2 `& d                        ct:=activityspace[2,rows];
. {$ W$ ~7 r: i; F9 B                        activityspace[2,rows]:=activityspace[1,rows];
- _# t: q) ^! h* C7 ~0 w4 o                        activityspace[1,rows]:=ct;
2 U: |$ s8 [2 Y; R0 }# S$ \                        mark:=true;
* w- h% `/ ^% C  \9 K" g3 j; C2 X                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
6 b  k! A0 i$ p7 Q" N; w                end;
( m2 A8 d, E. K9 ?7 q0 A8 {$ q& F                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) Z, Q  o5 b# k- v  c2 m                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
! Z8 ~" o3 o2 Z4 G            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
; x' u' V( p# X2 o# d                end;
" g5 I! @& x0 \$ J& K4 _& @* l                dx:=dx+activityspace[1,rows];
4 b" Y7 N& J7 j8 Y8 }2 D1 z                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 V( f2 _) Q/ Q0 I$ @                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
7 R5 a! E$ Z- n  A' b. Y' v        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);
       
        rows:=0;
        lines:=0;
" I+ D% Y  ~: v! m  `        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  v$ i9 S3 @& `- G7 H% ~                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
0 y1 N1 v. Q& x# }) V5 L7 w                                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];
8 k" H% W; i% n  U2 f3 r0 W                                d_from_to_chart[j,i]:=abs(dx-dy);
0 q* W2 h5 J& t                        end;
8 h5 K, M) g0 G/ y, h$ [' H0 X                next;
        next;
* E* A- l- t: q% l$ }       
        lines:=0;
        partstable.delete;
% q5 a: N* T5 A$ q4 {5 q       
% }; h- I2 [* h7 @% K        for i:=1 to number_of_machine loop
! F( H; Y2 v; v* F- T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ T& x$ A1 E1 [0 z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
6 X/ w, w$ B6 m                        if w_from_to_chart[j,rows]>0 then
0 E1 O( E! L3 F4 |9 G# _                        lines:=lines+1;
2 G3 h3 l. \# P2 r; s- m0 G% s                        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;
! U4 o: w- [5 s7 E$ R                end;
        next;
        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;标识符未知
# o  ?) o- z: ~) E4 v        machine.proctime:=5;
3 a& ^) l# s3 C) F+ L& j        machine.label:=activityspace[0,rows];
9 |7 t4 c/ z$ V2 e  {        machine.exitctrl:=ref(leave);
( N' b& K- Y. F2 L1 _  X  d; i       
) Z5 B- c( ~1 ]5 [1 [/ Z        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]);
1 d2 F: `) v- z0 q% _$ L4 s5 B0 O. p  h        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' N: D% _1 g  q- s9 z8 P5 w       
: V0 P; y" v/ M* i2 L9 S        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);
5 R. [& i3 [% z; t; w; Znext;
end;
' Z, B4 N" F- m$ h; T  k! }