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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
9 \& W# t- P- Z1 _3 a       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 G" _2 n3 E& H+ C6 e- L( b                inspect messagebox("设施数目不对！请核查...,",50,13)
, O1 `* @7 K, V& X/ @4 n                when 16 then
                        print"yes";
                when 32 then
8 W9 S- x) w  i0 C, T0 J. o                        print"no";
                else
" ^6 O) M# f( y- J+ O! F. J% w                        print"cancel";
                end;
9 z/ A* s: x% G, B                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 a6 A5 Z3 l- D7 ?0 E' u        if existsobject(machinename) then
4 ^4 o, i2 K* v' n. H                machine:=str_to_obj(machinename);
7 H& q% z4 Y. K5 W. J6 h9 s                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
* L6 K6 K$ s$ l8 O5 e9 B" O" _        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
% S2 Y7 j# z: w3 r                buf.deleteobject;
. Z/ X+ ]; \$ J        end;
# \' {' d& [2 R4 X/ c3 n        next;
       
) K6 c2 _1 [: G$ q! Y% |1 T        dx:=0;
' Y3 w6 B9 B1 i. H        dy:=0;
        for i:=1 to number_of_machine loop
7 s$ T, ?( `  L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 i3 E" h, E2 Y3 u3 v) G                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
+ l& q# z! C( a$ t2 a                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
, B! I( W& j& G$ N8 _                        print activityspace[1,rows],",",activityspace[2,rows];
6 t! @5 d' d8 h# R4 c' t& ]                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
0 I5 X! H1 q/ T0 p                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
' a$ W, @" N( f- x                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;
7 @8 s) ~& C# v. t( q3 c( G            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
3 n/ r4 R+ v7 U0 K                dx:=dx+activityspace[1,rows];
7 S; m, D2 o9 ~6 |                /*if mark=true then
6 w* f5 ]% `( {1 i* ^' f                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# P5 q0 f; [5 h9 v. E                        activityspace[1,rows]:=ct;
2 Y2 x' k% p0 @$ V' _" B                        end;*/
* o, F1 }0 g" H- g* Z6 A7 X        next;
        y_max:=y_max+dy;
2 m0 |2 F! o- O6 x3 U& F        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);
5 ]1 ^8 F% ^) o, a        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;
        for i:=1 to number_of_machine loop
- n9 t8 t% A6 }                for j:=1 to number_of_machine loop
                        if j=i then
8 J4 y/ j- o$ `% l% f; {1 c                                d_from_to_chart[j,i]:=0;
6 Y/ H. p& c% u# }                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- J4 J7 V5 z, i# g) f                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 n5 C  D/ q5 W4 B1 j& n: l1 o: U, Q                                d_from_to_chart[j,i]:=abs(dx-dy);
: F0 [/ V  p& G4 B% f/ l3 t                        end;
2 U* _. i- F) B                next;
        next;
, \+ p! q" W, |4 V/ [+ y8 P       
        lines:=0;
# ?6 o1 h( S, Z" s0 v        partstable.delete;
! R1 i! F3 c" x       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) w  m9 t9 W- \. u                machinesequence[2,i]:=rows;
# [0 v2 a+ Y4 {! w                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) X% l+ E7 L* {# e: s- J                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# b7 e1 {. p3 U6 B# U& ]( E* d                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
) h1 [! C$ O* `+ z6 S                        partstable[5,lines]:=rows;
7 l# ]6 Z  `# {( n, Z                        partstable[6,lines]:=j;
                end;
        next;
0 E/ D1 q6 l- A- J+ z2 b" i        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]);
& C$ W0 G+ I8 ~( Q        machine.name:=machinename;标识符未知
/ u5 l/ Y0 Z$ S0 W: {! N        machine.proctime:=5;
% G/ o5 l# r7 J        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
: j! d- Z% d# n4 W# N       
        bufname:=sprint("BF",rows);
1 L+ m- H9 W; M1 Z! l        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]);
; f; o. A7 T( F: b+ |        buf.name:=bufname;
2 H1 Y8 |0 Q7 y; _& M" U& {        buf.capacity:=5000;
        buf.proctime:=0;
  a2 S) V  M& S. r        .materialflow.connector.connect(buf,machine);
       
2 q" V  W, Q. K; i* [        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' x7 Q% a% s& Hdy:=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);
  ~" ^& c# P( `0 t' z2 t: cnext;
end;