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

zooey

is
        mark:boolean;
. P5 Q& R9 u: u7 }        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
. q! k1 e9 w! f  Ido
        current.eraselayer(1);
       
6 o  N5 W; {3 t. x        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 S- U" [) W( F0 O  V! {                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
  \% f6 W* E3 w9 q9 P& O+ ^0 ]                when 32 then
! _) U# m6 z' h- ^/ p" W* H! b                        print"no";
                else
; ^' x4 Y5 y) [$ U                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
. S$ Z2 P& Z2 j: J7 t" M7 u        machinename:=sprint("M",i);
6 Q) N. q) N. e  N0 e$ M- i( e        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; T9 b* }& A0 W, n8 D6 i                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. C* c8 N; T& k                buf.deleteobject;
1 s- c1 ^3 ~8 ~9 F5 o3 W8 |/ g        end;
        next;
       
# B  B, G0 `, t  J, o        dx:=0;
9 n; p% G6 Z% {        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 [# b/ Z% ~+ F; ?9 Y6 E/ S                --mark:=false;
/ |- o* W& m7 p, L5 d4 V" [                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
+ e* f( P- k' w. {- S$ u                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 I/ L* Q: V  t7 P4 b2 N                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. U. }- O" h4 s% e8 x                        activityspace[2,rows]:=activityspace[1,rows];
2 C9 g/ p4 ]* s                        activityspace[1,rows]:=ct;
                        mark:=true;
  W* T6 o5 C! N9 C1 m                        else*/
* l& F# w/ A2 u/ A                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
1 d) i( L2 L" J- n& ?                        --end;
" i: b5 n# d  {* d" K                end;
% _  U& S5 \% @6 j2 J; Y; U. R                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: N2 d( L) F& R+ N% q2 k+ B" M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
8 n: F& A1 V8 |1 L1 ~                        dy:=activityspace[2,rows];
% k9 ^! h  t3 T; h. Z4 {/ L/ X$ w                end;
6 A1 g7 G3 L2 j! `% S                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 J+ R# q9 ?2 i$ X. f0 r9 [/ Y                        activityspace[1,rows]:=ct;
: ]# w) e; l% d, q% L1 A9 ]                        end;*/
        next;
        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);
        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;
% ]8 }3 z& O" [% j        lines:=0;
  C  Z: o: A  i5 C& C+ k        for i:=1 to number_of_machine loop
3 l4 d6 w2 ?  k; b5 u% d3 i% \                for j:=1 to number_of_machine loop
                        if j=i then
! J* q/ U8 {' ~9 e8 T) `9 w                                d_from_to_chart[j,i]:=0;
                        else
0 J8 H* g6 V; _) d% W/ A                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# E' I( ]- h. X3 T                                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);
: B8 K: x0 j9 f" C7 O                        end;
                next;
        next;
* y6 s; t: O7 A3 N1 H. }       
        lines:=0;
1 t4 q# G! g3 K& a2 s  t7 }& E5 h        partstable.delete;
4 I6 K0 Y0 l( Z6 n* Z' ]       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
7 m0 P( j0 b% S                for j:=1 to number_of_machine loop
                        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];
& A+ X0 ~) Z. q) l) c0 F( y$ r                        partstable[3,lines]:=sprint("parts");
6 S  L/ @! A  r                        partstable[5,lines]:=rows;
7 A# h: k0 O! ^! f                        partstable[6,lines]:=j;
( Z' M1 V6 u# ?. k                end;
        next;
' m, [# ?' U# \* l; P" t$ p! X: a) n        machinename:=sprint("M",rows);
6 ~7 \) D/ ~8 Z6 q* m/ }        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;标识符未知
        machine.proctime:=5;
) F1 K' d0 b. J, [( r, h. p0 P6 ~        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
' B# G2 p, y! R- r       
        bufname:=sprint("BF",rows);
8 i! |* M4 O9 N0 k/ `% _5 B        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]);
) N/ @2 Y0 \" K8 P        buf.name:=bufname;
        buf.capacity:=5000;
% c* ~0 D1 C2 q+ Z        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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 b5 |5 G: k, Anext;
end;