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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
! n2 A4 _" }+ c5 N$ a" g3 Z    machine,buf:object;
do
        current.eraselayer(1);
+ n3 K. [6 T, m4 G7 E; G       
: O5 t# a/ k2 Z8 a. `+ x; m        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, p5 Z; ]/ r* X6 Z1 A' z2 j, X                when 16 then
                        print"yes";
9 Y; g, }1 R+ m; A0 _3 ]" A                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
0 m, M4 Q2 O$ G% p        end;
1 U% _4 W, ]5 q6 e+ U. z  W. X       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
9 m" X/ t$ R. o. K; Z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; q2 b$ a) `* j7 W                machine.deleteobject;
        end;
4 `4 N5 R' M1 g: K0 J        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  ~5 s0 K5 }, B( u5 j                buf.deleteobject;
        end;
        next;
' U1 y# E# p# x4 X8 A6 @7 e; w       
* }2 b* o9 L$ b$ F1 p        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
/ @! z) M1 `4 b! N& x6 S! e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 o6 n# b1 c( a* B# y8 t                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 A$ Q  S6 F: v0 j                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" M6 z5 u# ~2 X+ |                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
* y6 H( e. S$ F6 |                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
- B* w6 B- I6 m  [                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
- q9 P0 Y" ?! r2 a" m                end;
% F0 c. }8 {" ]( y2 j                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! y; q1 a; Q9 {" {: M1 g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
* N* i; w" y( q' u+ _$ B                        dy:=activityspace[2,rows];
                end;
* `& a1 Q- t% l8 v" u, x                dx:=dx+activityspace[1,rows];
; t5 h# k: q0 L; ~& e9 Z                /*if mark=true then
% e& L  a: M' ]7 u                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& b2 ]1 _- r- X. M                        activityspace[1,rows]:=ct;
* c: P  ^7 |+ S9 u+ a5 M- y5 h                        end;*/
        next;
        y_max:=y_max+dy;
  t, \/ W# Y) q/ {8 a# o: H        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);
! J3 ?+ r% q3 W* _7 [1 |        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;
( M' k; ~( q/ L, q' x6 ^# T- G        lines:=0;
  G5 j$ H8 O& A1 `8 V1 K9 W! x2 w" J        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 \$ ?1 m3 i1 _6 j" q9 m                        if j=i then
: q% J- t4 m. y4 c2 W( @. i                                d_from_to_chart[j,i]:=0;
                        else
& A; O% E* e- ^! |( J/ g. d7 `* _                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 u. _' l. V$ ~, T  Y" o                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
' x0 g- V9 ]+ e: Y5 [6 L& n" W                                d_from_to_chart[j,i]:=abs(dx-dy);
, K8 f* J8 M$ |* C# s                        end;
                next;
+ K* a8 y6 p& e7 v* g/ V        next;
       
        lines:=0;
  L7 K9 C8 _/ Q5 T( ^        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
3 G1 P. |5 _2 Y/ q0 O                        if w_from_to_chart[j,rows]>0 then
1 [' x" W% A* n3 E1 F. x, x1 L- F                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* o) R. V- L8 A0 m# K; r$ `                        partstable[2,lines]:=w_from_to_chart[j,rows];
: ^4 w1 i: p8 e8 V) h, |                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
3 @* s( r2 E5 [9 E; i, g+ ]( x/ A                        partstable[6,lines]:=j;
$ Y( D  @6 s2 x/ H% ^& ?$ ]                end;
; V* N3 B0 {" c; X        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;标识符未知
6 c1 ?- W  t2 ~  _) s. i" J        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
) X# H' p& J) p' u2 ^        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
& `9 o( W* h" w5 ~# c: E2 {( 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]);
( H- t2 _& |! P        buf.name:=bufname;
9 v! t1 H# c6 I0 d; C        buf.capacity:=5000;
- n( D# g% Q1 j8 l1 X$ g* B6 \        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
/ ?* @! J8 P2 \2 Q6 v       
; I9 {: R0 U8 A- k, ~9 [  ~+ K: V        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;
' {! P" k' p& L