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

zooey

is
        mark:boolean;
; E6 V% o+ P! _" B; Q& W$ \( ~        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
6 X) y- Y0 a% E/ P        current.eraselayer(1);
! O- x1 A+ W+ N" G       
- t; t6 h  f5 A" k  H        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 E" F: s* F$ T6 G  e" O! }' [' V                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
; p9 p7 T, Q) b( b                when 32 then
                        print"no";
  v8 ]  k; Q0 S9 C3 j$ V" m8 ]" _                else
. W" C0 g5 s& V* q+ U, C$ t                        print"cancel";
                end;
0 G0 M* R; q' z, g5 l; K" j                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
/ W$ [) d  z. N2 x/ m; d2 T        machinename:=sprint("M",i);
: l9 E9 w1 j* ?        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
. i3 \! N* J2 ^                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
$ k# J  g; A( w/ B4 ]% d# i        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
" N4 R) i0 q6 {6 P4 ]0 Q' [4 i) Q" Q                buf.deleteobject;
9 z$ V& v4 t2 ^/ m' t' \6 R  _3 V        end;
! ]5 t% n9 |2 ]0 d. c& u8 x        next;
       
        dx:=0;
        dy:=0;
/ Q! W3 C! s3 I8 l) o2 b, u$ p        for i:=1 to number_of_machine loop
9 k% _" ?3 d% H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) q* m$ t# i/ ]! K, ?' z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
( a# [. p! l  L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, Y8 j4 E* X+ N                        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];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
1 A8 ]; ]& s( w5 z  V. ], Z                        y_max:=y_max+dy;
2 z' |3 g. b/ c                        dx:=0;
                dy:=0;
4 F& b/ m9 @+ X. `6 a                        --end;
3 {8 ~! a9 H; T+ A9 N                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;
+ t' N" b8 H9 Z, l  M6 a3 J            if activityspace[2,rows]>dy then
) F* \  i8 W6 ~! E* q# E% D3 L                        dy:=activityspace[2,rows];
3 J% b# |$ b  L6 @4 ?* v                end;
                dx:=dx+activityspace[1,rows];
) i. l! B# C: j" `4 M                /*if mark=true then
3 ?/ `  h! H9 [' k8 n- Y2 i7 B                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) i( z8 Y* K+ n' [+ j! c3 ~                        activityspace[1,rows]:=ct;
                        end;*/
* V  S9 ?/ j  K, w  W        next;
        y_max:=y_max+dy;
2 Y& q7 A7 J; `5 |- {2 E9 f        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);
       
5 G7 i1 F+ B, P, u* Z        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
! j* h9 z6 [* z6 H5 d                for j:=1 to number_of_machine loop
                        if j=i then
3 V- |( C' P- c8 [                                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];
4 W8 r: D4 t& R- `0 Q5 ]                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
7 W& e# r& u) [5 r) c2 `* x                next;
        next;
/ O% C5 e0 b/ d' d. t0 }5 O$ Q       
9 g" p/ H! Y: B7 N! M8 J        lines:=0;
, P1 e/ H2 }& A& Q/ }9 p! f        partstable.delete;
       
' @2 U# P6 Z/ h* K  m1 S        for i:=1 to number_of_machine loop
% i  n! l! O: g3 G( C. X# b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
; f: c" B4 i" S) D; M                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  S/ {8 T& o) Z  p                        lines:=lines+1;
. h$ u7 J3 e) s9 l) X0 t                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, z. I/ v- S1 s                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
. n3 k9 }9 n% H3 H* Y# Q8 b                        partstable[5,lines]:=rows;
# Q4 F- t# j/ c8 g. u                        partstable[6,lines]:=j;
9 W9 @. A4 ?& N7 P                end;
2 v7 v- D( q' i7 `& P( M        next;
% M  c8 a, E7 [        machinename:=sprint("M",rows);
        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;标识符未知
( L8 z) j. k5 L8 _* E+ n" |! _& @        machine.proctime:=5;
5 ~! W- }3 E5 S7 Z. G        machine.label:=activityspace[0,rows];
6 e! M8 b- O' _2 G, F        machine.exitctrl:=ref(leave);
* ]) m, m6 ]0 o  Q7 O+ E6 T2 ^2 L8 `       
        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 U$ c9 X' P/ x* V       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 _. L* n( @; l: Mdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
; {" u4 F4 o7 P4 Y# x, V* E' Vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
) V. i7 a: L8 R1 [, Y8 h5 ^( b* J- mnext;
end;
6 h7 K9 D" K0 R( _" _- G" D