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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
8 V' J% ~9 t. ^( m    i,j,rows,lines:integer;
( c4 G4 H/ m/ ?: H9 D    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 Z: ?5 E0 p4 O. H- i2 i5 k                inspect messagebox("设施数目不对！请核查...,",50,13)
. t* Y  c. `$ y' n; w8 k" B                when 16 then
+ D8 G! Y8 [! H4 n- U                        print"yes";
                when 32 then
% n- t# C, H% ?; I                        print"no";
0 Z( [4 F& X' {7 M1 }                else
5 C& }7 o5 S1 C                        print"cancel";
                end;
- ]. f0 B: d+ M2 H( S                eventcontroller.stop;
        end;
       
& U& n& ]7 n, J) t( }! J        for i:=1 to number_of_machine loop
1 A6 S4 \$ F2 }# {, O        machinename:=sprint("M",i);
( z2 K2 @; J" g# R2 I9 `        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
/ ?! ]. N2 |# F$ }# K+ j5 I0 Y        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) |7 ?+ f) T9 c( n7 {) c" Y2 V                buf:=str_to_obj(bufname);
& G) |- j: y& {' W7 D8 R                buf.deleteobject;
' L9 `3 m  L  X7 x7 j% g- O$ [        end;
        next;
       
+ D! |! j" y+ @( P3 k) O1 k) L2 _        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
6 q# p$ o4 b) b! @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( M8 [: j9 P8 U4 p* F/ X                        and activityspace[1,rows]<(1.05*y_max) then
% q/ f2 @0 U! V0 X* o                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 |; c3 @9 l# t8 T* X; y* \/ L. }                        activityspace[1,rows]:=ct;
% I5 ]+ E: ?. N( m                        mark:=true;
( S* a: @  b" E  Z# q5 {                        else*/
                        y_max:=y_max+dy;
4 w) y! u% D) x' C                        dx:=0;
; p6 G2 ~% w4 s- ]) H                dy:=0;
                        --end;
                end;
% g; ?8 ?8 B! ]0 s/ D* L) c                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( w! T: R5 \' i0 y/ U$ \                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
. G' _6 m2 o# D$ E            if activityspace[2,rows]>dy then
* q2 R8 u7 h% B* ^9 r( W" F2 @' z* `# R: V                        dy:=activityspace[2,rows];
8 q( R! S( }. `! w  }8 m) n                end;
- m* f4 Z5 j" r6 z                dx:=dx+activityspace[1,rows];
* n  M, Q. k( |; G5 [                /*if mark=true then
                ct:=activityspace[2,rows];
+ U0 e0 a/ T3 Z) j9 o                        activityspace[2,rows]:=activityspace[1,rows];
; Q+ h, a  A1 A                        activityspace[1,rows]:=ct;
: G! d, \2 \- r3 J                        end;*/
        next;
        y_max:=y_max+dy;
3 c6 e  G8 F1 t& B5 ]0 ]        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);
. I) ]& |7 h) W* I$ C+ [       
* z9 d. m- c# O; R5 W5 g        rows:=0;
        lines:=0;
  b! i5 B" z& K* v        for i:=1 to number_of_machine loop
3 k. s! Q/ H1 i                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
2 ?% s  X9 j9 p                        else
( R* e+ A6 o8 S) M+ |1 @$ i                                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);
                        end;
2 N/ \) Y3 V4 E8 L                next;
4 \6 P" j9 |$ y3 @9 y        next;
6 I/ i7 ]  s5 Y       
8 Q. A1 C7 A- D1 D5 S% k; G! K. G        lines:=0;
! F$ b  {+ R: k0 P. m- q! o        partstable.delete;
/ a) N* A( o  W$ Y) V       
        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
4 q. ]! S* Q( n9 e                        if w_from_to_chart[j,rows]>0 then
8 p0 m& I1 `  r; l3 G, ]: t- O                        lines:=lines+1;
$ Q% T6 I! n+ g2 m! U( H                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
; i: u4 _& p3 ?                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
1 O' O- g# e. Y5 d0 @% K; G5 o. M  s                        partstable[6,lines]:=j;
& @4 ?3 \5 p  i0 ~% F7 @3 h                end;
/ U8 v, Y) L' A        next;
        machinename:=sprint("M",rows);
; T; b( L7 h  K) Y        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;
! R* s* n7 q8 S4 k; H) T$ ~        machine.label:=activityspace[0,rows];
% ?' ~  |* w3 r8 J        machine.exitctrl:=ref(leave);
. Q" k1 }4 @6 m; d5 E       
        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;
- a; U/ h! x/ w" B7 U0 S  I* @        buf.proctime:=0;
& y2 q  N$ c; ]8 m$ h; B; k4 U2 o" i        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  Y- {* _' X) y3 O. `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;