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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
- p+ f' b9 {& j0 E5 |, a    i,j,rows,lines:integer;
    machinename,bufname:string;
; t( U5 y; {1 E6 S* s* \; i* I    machine,buf:object;
: @: ?# O1 n  c  V: p/ {do
        current.eraselayer(1);
       
! I" @/ o2 C  x  }( V        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
# p' j1 ?! `! ]) @& T                when 32 then
8 r7 v2 |8 C- ~  P( c4 d                        print"no";
                else
8 d; c' Y4 h$ D$ l7 C                        print"cancel";
                end;
                eventcontroller.stop;
        end;
3 P) ?9 I3 m2 K) N! e* Y/ |6 x! }       
8 g' `  G8 G% i! {9 A" r8 d* E; D        for i:=1 to number_of_machine loop
1 ?, }3 I+ i& y# v9 `        machinename:=sprint("M",i);
5 k8 j6 ]7 c" _+ t; w" T. v        if existsobject(machinename) then
- P! ]0 E5 z' d# K3 I* z                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
$ L' @5 f: B3 d0 P        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
% O# `9 @" e8 ~4 }4 o        next;
       
        dx:=0;
0 ~* w3 }8 a4 G4 ~) T$ f3 ]7 Q! ?        dy:=0;
        for i:=1 to number_of_machine loop
  G: B! a" n- A  r1 y$ G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: G  j* e$ M1 ~% o                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ U8 ~' r/ C. L( d$ e. B                        activityspace[2,rows]:=activityspace[1,rows];
( S, B0 E8 I# D$ h/ O# b                        activityspace[1,rows]:=ct;
& J4 o% h* y/ }/ s" S: N- K                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
1 n$ n7 i4 @: P: D5 ]  J                        --end;
                end;
8 s$ f$ Q8 Q& \. ?                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  d9 H% V* A4 C4 a& F* ]) a1 G                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
% J. T4 G  Z5 }: }) p  G                        dy:=activityspace[2,rows];
  V: ]7 Y: R5 A+ E2 ?                end;
# ~2 b6 w; ^! R( {                dx:=dx+activityspace[1,rows];
9 W( f. t# F: T+ {* @                /*if mark=true then
+ x! c/ ]' ~# ^                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 T( C/ ]& u- ^- _5 R                        activityspace[1,rows]:=ct;
                        end;*/
- U1 Y& B( }+ c* R1 S; k9 d3 J        next;
        y_max:=y_max+dy;
- I6 F% \4 y$ Y% P        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);
' O0 \/ O7 J. g2 b" F' H$ J       
        rows:=0;
5 ]- N! R  h/ K  C  E& R( w3 n& q  [        lines:=0;
        for i:=1 to number_of_machine loop
8 W) r( V3 q2 d; A3 @                for j:=1 to number_of_machine loop
8 h5 I9 O' t0 K# Y4 M                        if j=i then
9 r, s# q/ S8 N' |                                d_from_to_chart[j,i]:=0;
- c9 r- U# N  q1 J: r                        else
1 \7 v+ Q- ~9 q                                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;
                next;
        next;
4 ]/ d! C1 J* J- U) K3 n       
        lines:=0;
% B$ [  u' i" z% G! i5 ?* V: }        partstable.delete;
0 G3 @1 p/ e+ h  m       
        for i:=1 to number_of_machine loop
. y  Q/ A3 D, ]1 {' V5 K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 F$ V8 I' t1 P; s& y                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
' g  @8 Y2 v6 ]9 A                        if w_from_to_chart[j,rows]>0 then
: }8 G. k: [' |' S1 ]2 ~; j/ k6 ^                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
4 K* Y5 `2 N: X4 Y" R( Z8 i                        partstable[6,lines]:=j;
                end;
* ?* I6 H% r" s; k/ ?: F/ i+ J        next;
8 S8 a5 l/ }4 I  j; a3 z        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;标识符未知
0 a7 D" k/ D8 \" ^+ F1 l0 N% i# {: ~9 T4 A        machine.proctime:=5;
- U1 @: @5 G5 i5 `! M        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ k" M$ t  K9 G3 z7 q+ a5 R- `9 j8 G       
0 f( c; ]: p* i0 }        bufname:=sprint("BF",rows);
5 l- e" s) N9 L8 z1 _        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]);
2 r& \/ n4 @! h3 I+ B& Y        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
, R* ?' S  b5 `7 _3 I# N* r        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# e( `% U, Z( ?) }! Ndy:=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);
8 [, D+ S' T  g, T4 A! r, Ynext;
6 [. j7 u( G& z' H5 N  Q' a9 a' V" Xend;
8 Q& o0 B- I) o1 u