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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
2 s" K( x, F2 Y4 n    machine,buf:object;
do
        current.eraselayer(1);
9 M+ L7 d) U* K( Y. l) K1 {       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; _7 R: a; w+ R- J: v                inspect messagebox("设施数目不对！请核查...,",50,13)
( a5 T9 R9 {& E# w) ~' e                when 16 then
                        print"yes";
" c+ n0 j8 b. s* B/ U& Y0 |3 u                when 32 then
                        print"no";
( o; a, e* V( }; _2 ^% b3 p1 E6 Q                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
4 |! A! y7 ^  f, ^3 K$ b        machinename:=sprint("M",i);
3 E; G7 U) s! N9 d. ^$ }' P        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
8 I. M& O' \  T+ C/ C        end;
9 E1 h2 y/ w) U: C! W" M2 M! j* h) G        bufname:=sprint("BF",i);
        if existsobject(bufname) then
3 k8 p2 i8 u) B* R& B                buf:=str_to_obj(bufname);
1 I: F% k8 c/ A1 [' C2 l5 E                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
: q; @; Q2 g8 z( V- p                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  H1 ^& m9 {; Z$ d" e                --mark:=false;
$ b7 _) T+ L; h2 u( U, u" D: j& B                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 R# P, g7 g" A  F! t                then
$ k' ~, i: M! E5 d                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: K" o# K3 a0 u                        and activityspace[1,rows]<(1.05*y_max) then
1 ?+ f: k- ]/ l0 L- _* U                        print activityspace[1,rows],",",activityspace[2,rows];
% h# a1 _6 V( q                        ct:=activityspace[2,rows];
: X2 M4 {1 r% B: e8 p                        activityspace[2,rows]:=activityspace[1,rows];
) C# M. c9 D; F: h0 |                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
0 a9 U1 _' d9 B9 C& O% `                        y_max:=y_max+dy;
/ S7 ]# O0 E0 f( z6 O                        dx:=0;
                dy:=0;
                        --end;
                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;
            if activityspace[2,rows]>dy then
1 R( ?, t5 B7 I0 |& k& a4 p                        dy:=activityspace[2,rows];
                end;
3 [: P. H2 t! \& \! u3 U                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
/ h+ \1 [* d! `7 p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* L9 T5 g# V) d/ t. a2 A                        end;*/
& F' Z2 h! N: w        next;
: b7 w! k; ?$ I        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);
2 z: Y7 }) c9 U) |( t/ S2 R; T        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);
       
+ Z& a' `; a, p) h" _3 f2 o! N        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
4 C2 k2 I1 b/ ~' W                for j:=1 to number_of_machine loop
  j; g3 Z2 M. D0 q" s9 N                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                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];
  ^1 l1 v# c5 s; ]0 p& n" q                                d_from_to_chart[j,i]:=abs(dx-dy);
3 v/ M8 h. }" q6 Y                        end;
                next;
        next;
       
        lines:=0;
! l1 ], f* S& \0 J1 r        partstable.delete;
3 q% X* _0 n* Z/ O' B       
        for i:=1 to number_of_machine loop
' d6 |- \. L) J8 L, r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 z% L4 I5 V5 `) O7 D8 d; }, p$ h                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
: d! C1 P1 w0 E& a  t9 w1 v; }: U                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ j) g0 W$ U2 Y* u8 ]! P                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
1 U" w) _9 k1 i3 \/ \                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
9 c3 z; M# H4 A; G/ L                end;
: f& s8 V$ K* y7 N+ y& |        next;
8 [( e$ o3 E% h( Z7 K' x        machinename:=sprint("M",rows);
2 R3 T) W1 [, Q* h        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;
. D1 H9 n. m" G) T; P2 L        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
& t; b6 K7 O  q0 I( J7 Q        bufname:=sprint("BF",rows);
0 Q7 Q& Q+ v) \- ]/ }: U        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]);
3 ^' \4 M* K) Q; G        buf.name:=bufname;
        buf.capacity:=5000;
* q& H6 Q7 @+ D; `  u" ~7 l        buf.proctime:=0;
: J% t& {! @: _5 W* [( u' c7 S; o        .materialflow.connector.connect(buf,machine);
       
, B5 G0 P5 C8 D6 G" T: c        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 z: P& ^& t0 Ody:=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);
* T: l1 F4 o5 R* |( nnext;
0 m9 L: v4 y* c. Q% Q) Jend;