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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
5 S/ H( ]# {2 v* \* h" U0 T* _    i,j,rows,lines:integer;
, T0 Y4 C2 B8 i7 Z3 f7 r    machinename,bufname:string;
; V0 k8 B7 }6 R( P    machine,buf:object;
3 J; F6 v% H/ q0 o6 q4 Fdo
        current.eraselayer(1);
       
( L3 m* h0 i  ]3 j8 ?& K5 _8 R        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, R2 s/ u$ f, Z; g8 h- g6 X/ S                when 16 then
" B; ]2 \! p8 d4 K3 n8 I                        print"yes";
                when 32 then
                        print"no";
. c6 M" g9 \$ N$ f7 Y7 o% W+ z                else
) A9 A4 e2 u! C1 C: v# u$ a" Z                        print"cancel";
0 |6 ?+ G7 X5 q3 E+ ^6 [                end;
, R; y1 Y) M* t4 N$ }' |                eventcontroller.stop;
/ Y4 X  H+ ^/ a7 {. @        end;
       
        for i:=1 to number_of_machine loop
8 W0 v5 \' M5 K3 `! W& u0 N        machinename:=sprint("M",i);
9 v; r9 z5 Y; s- w/ b        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
$ O1 \3 j+ K( B; s                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
2 c$ ~! a3 n/ q. X3 N( _  A! l/ B& s        if existsobject(bufname) then
  g+ q9 T/ D+ e3 B! Q3 n4 D                buf:=str_to_obj(bufname);
2 ?. y8 i" Y" @+ S. ^/ q                buf.deleteobject;
        end;
        next;
       
        dx:=0;
0 f" J6 ~; x7 \        dy:=0;
        for i:=1 to number_of_machine loop
% {' U& |9 F0 \- u. `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) t) }( {) v/ k) k                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( x% z& ?( S8 r6 S                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! f. q2 d7 k' H, @                        and activityspace[1,rows]<(1.05*y_max) then
( l* H* N' l: L                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' e1 K0 y$ [0 E                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
# l. G* y' v4 D" U1 }4 t                        y_max:=y_max+dy;
1 l7 t( E$ T  x                        dx:=0;
* r" j: [% m* L& [& U                dy:=0;
5 M" @* e) d7 `8 m8 L2 h' k                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 A9 S9 Q/ D9 Y0 A# t9 a                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
: V; d  Z. ~+ c: F, b- d8 A# ]* u                end;
; |( G: E8 p/ U. ?% K$ z' u                dx:=dx+activityspace[1,rows];
                /*if mark=true then
% H" K4 v. O4 j& J                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- \, x9 c% l4 ?5 g5 N, d' K) e                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
* q% b- a1 x- R) `# q5 _        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);
. S, c. {1 R) e7 z! Y% N# w: X       
        rows:=0;
" n. B- b* \3 O4 c; T        lines:=0;
% ?! ?3 b9 L, u, q! k+ o  S        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
. y8 g0 T& d* H, I                        if j=i then
                                d_from_to_chart[j,i]:=0;
& R; c8 F6 K8 l8 X                        else
/ F+ C' Y+ n9 l% I( _3 r1 o: @5 H                                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];
9 ^! l: T. k. h( K+ v. o& @7 ~                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
1 D7 ]2 j% f$ w7 n, n& L/ @                next;
% T0 n& m: _' ~        next;
! E. k# i% r( j8 ~- p& N! x+ N       
        lines:=0;
, I2 U: x& z0 _% v! b$ }2 ^$ n1 c        partstable.delete;
       
7 E2 t7 n" C5 d( ]' v3 I        for i:=1 to number_of_machine loop
2 g% u/ J) m% ]7 C4 B3 X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 k7 ^9 K2 ?/ z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
- v- d( B% o% R( |                        lines:=lines+1;
' }1 b& S( c3 x2 X- b                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
' B6 R4 [  x+ e) K; ]% B6 ?! g                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
" a# e, p* ^3 g5 l5 A4 v% v$ ^                end;
        next;
$ S7 t: t! I' o3 N: a        machinename:=sprint("M",rows);
. S  r/ D0 R) l1 G% T$ }, j        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]);
5 M" h& ?; y! {0 \        machine.name:=machinename;标识符未知
" l/ M  I3 A4 K1 k        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
, h/ Y! U# j) [  q* l       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
( n% P7 \& H( R3 U, E1 o        buf.proctime:=0;
" ^6 Z$ ~3 t1 ]8 T- L% I" f( \        .materialflow.connector.connect(buf,machine);
) D% g$ P8 H( G4 S" I9 F       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% s9 E7 A( @2 Y0 \dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
1 |2 Z6 }  y( Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
9 O; v! V" K! _) d# n) \next;
" W# \: w5 \  jend;
9 K9 f* e5 ^( G1 R$ i6 j