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

zooey

is
        mark:boolean;
) k( u) L6 ]7 T  v        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
2 s$ `2 h( ~4 u, J# J1 [    machine,buf:object;
( m. p' I# u7 i- y" P0 L8 b8 Mdo
        current.eraselayer(1);
) b9 s, B- y( t! T8 [& U2 E& D       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: A* b6 B6 s( p8 u  w$ @6 _                inspect messagebox("设施数目不对！请核查...,",50,13)
" }1 N& g/ A* u+ _+ j                when 16 then
                        print"yes";
                when 32 then
                        print"no";
" B0 l* G* b$ k, V6 }                else
/ b" i: `! Q! k6 N  z  R8 k0 K, j1 `/ U                        print"cancel";
/ H$ @3 q" p6 D  o5 t3 W                end;
5 n. A; r" W' y, ]6 R( d, J                eventcontroller.stop;
: D' S/ n& p' H7 s$ v        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
: ?3 J3 v9 T  T9 q/ {* M        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 T0 y3 A; ?( ~1 _8 f  z                machine.deleteobject;
3 P/ P2 s+ S5 i# i+ V& ~        end;
' x0 W  z/ _% L# l$ _        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
, w2 e9 L* m6 o- G! n4 o                buf.deleteobject;
        end;
        next;
7 |7 {& m- U6 x* M0 v       
        dx:=0;
6 L* c+ n4 w& Y7 e. {" _        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
; ^) Y* I2 N2 N# C6 g& A; ?! ~) X                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# _) t: l! Q) u                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# K  n" I. n. `, B! b: |* k                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# _. S4 V) S1 z                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
6 @* W0 d, F4 A# |$ H* N$ z                        dx:=0;
                dy:=0;
                        --end;
& j; \- f9 W9 Q3 n% ^! b                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! [4 l$ Q5 z" G                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
2 N1 b9 Q# X5 N  L+ M                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
9 M; b7 o7 s' T                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 g* H" r$ R4 Y7 U* {. N                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
5 {0 r& F: R0 W7 P* P. e9 h: I7 D        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);
) g, E3 q0 I7 H7 k# ]9 w% s       
0 A/ h1 i5 G9 V3 C& i        rows:=0;
* ~' s5 s) f# G6 W0 d/ Z        lines:=0;
        for i:=1 to number_of_machine loop
/ K8 q) w% K/ l  Q" A                for j:=1 to number_of_machine loop
                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
( Y8 ?# T5 b  Z3 P' n# g                        end;
                next;
        next;
+ A, J/ P& X4 {% J8 r       
% T7 J0 j1 ~4 q$ w, Q        lines:=0;
8 @( m2 N- u6 A" o2 X6 T# U. ^% X        partstable.delete;
' o( `: j7 V' b       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% m9 \  S2 ^( b) p                machinesequence[2,i]:=rows;
2 d4 \1 B, d! w% Y6 {, l                for j:=1 to number_of_machine loop
9 U  X- n. `( ~" f, f                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
. `3 @; R' ]  c' I! Z/ q# A9 ?0 D                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ b" V* Z2 D8 d0 l! |( J) m                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ F: h  q) `% h4 D1 c5 u! r                        partstable[3,lines]:=sprint("parts");
5 I. B+ L" e) S1 {, z                        partstable[5,lines]:=rows;
) X$ H- d( B+ E" k                        partstable[6,lines]:=j;
                end;
  L7 P7 H4 C- w* B, B        next;
        machinename:=sprint("M",rows);
% ^( K6 l# y9 t6 u  @+ @        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]);
) \8 X5 |! z& H, |' e0 O        machine.name:=machinename;标识符未知
, ^' N/ P* N/ H( [        machine.proctime:=5;
8 X/ U: ?/ d+ @, v- m0 w% t( }. q        machine.label:=activityspace[0,rows];
7 J1 x+ L) ^# d        machine.exitctrl:=ref(leave);
       
        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;
5 L" k8 {% i* Z/ _1 _% `( y) s% n        buf.capacity:=5000;
        buf.proctime:=0;
/ ~+ @" K- E& {2 L: w; P0 E2 Q, [        .materialflow.connector.connect(buf,machine);
) Z7 \5 R' E1 j- \& N       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 r% B9 [* D' l/ Ady:=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);
# V$ S+ g! X" M! \6 T" _7 enext;
end;