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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
$ D- D) G9 j; E; T, ~9 h' S    machinename,bufname:string;
    machine,buf:object;
do
+ A; r( d( U; O2 j* m        current.eraselayer(1);
       
  x7 L$ R) y' J/ C        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 z' N  F0 j4 z! W# B" C                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
- u- {0 D$ h0 m                        print"yes";
2 z, f9 }+ X: `4 h! D" v& p5 E                when 32 then
9 T7 q' M- ]: [2 a                        print"no";
' P+ b7 X0 s8 v5 w0 [& A6 k                else
, P& W+ B: d: a; V$ ]0 \* X                        print"cancel";
* h9 c( R! o/ O' R! ]1 I# h                end;
                eventcontroller.stop;
' w( e- e0 a. h2 ?: D        end;
- H. z0 E- j, M6 [- N; P- |( G* H       
9 e! O) G4 t' E  `0 t5 h( I        for i:=1 to number_of_machine loop
2 [$ c6 A$ m$ y        machinename:=sprint("M",i);
9 r4 R4 c" x( K3 V0 }7 N8 _. {        if existsobject(machinename) then
/ E) Y# ]$ U3 g3 A( P                machine:=str_to_obj(machinename);
7 `- {, d* v2 T                machine.deleteobject;
        end;
* U5 ^: B* J3 d1 R        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 q0 s  |+ }0 d                buf:=str_to_obj(bufname);
) O, l& v3 A+ C6 N# y6 l0 ?                buf.deleteobject;
        end;
        next;
5 x$ A  B7 ~& ?/ G! w( n: x, `$ S. v9 h$ m       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
: p5 {& p  ?/ O! W# r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- X! m! r7 I" S: q* _                --mark:=false;
3 [9 `" w$ A  u$ B( @2 F                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 r. N: T6 d4 U  _0 v# ?                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 c# y& p. L. _" W' t8 c                        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];
3 X* p4 q' O* E) u6 m  `                        activityspace[1,rows]:=ct;
                        mark:=true;
- c5 a' _, k7 c5 z                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
! S) I4 E- y  _  u" o                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. S: v6 e  G% X: A0 e3 \! W                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 r/ J$ a, F) H( ^7 D& ]. m            if activityspace[2,rows]>dy then
" D' Q! R% S3 B- y" _2 }% Y% b0 o                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
) ]% \; F4 x( X2 Q, O+ E                ct:=activityspace[2,rows];
, _- ^2 ~5 n& `! A) a                        activityspace[2,rows]:=activityspace[1,rows];
. ~- m% _' h8 k0 F5 @                        activityspace[1,rows]:=ct;
                        end;*/
        next;
  s4 e: a/ V% Y% Z4 v6 D# V        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);
        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);
       
        rows:=0;
# ]& {- v1 n9 F; F. }  T        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
+ F8 a. [8 n, D; K/ ]                        if j=i then
/ q4 ?) s3 _- s  j, B% a                                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];
- H! B3 a4 M  ^7 ?                                d_from_to_chart[j,i]:=abs(dx-dy);
9 {" @# Y, y% p! N# ], _* C                        end;
( x8 B+ {5 b- E6 V                next;
        next;
       
        lines:=0;
8 `$ J6 _: {' N8 ~9 O' [1 s        partstable.delete;
0 g. v& r# h7 A" i/ }       
' a. K0 ?# i8 f3 N1 l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 d  b$ @1 G8 @9 P                machinesequence[2,i]:=rows;
$ T4 ?) s! o9 s$ c, A7 z' f                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        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");
5 a8 D8 m# z2 n2 c: S/ n" {                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
6 I8 {4 a, X1 J" J        machinename:=sprint("M",rows);
4 L; d' Q5 M. h3 k& w& W1 b        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]);
* A7 s- j/ j0 D5 V        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
& U+ A! \" R0 O  t        machine.exitctrl:=ref(leave);
. \( v4 x! x6 ?, x       
        bufname:=sprint("BF",rows);
; A8 \1 D& y* x/ r8 A        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]);
: l' N0 z! W% P8 H0 {( z        buf.name:=bufname;
        buf.capacity:=5000;
* p1 e; O0 l# [0 x& U        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
: j; R5 K! d% X6 _/ f, w( e        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ D) ?2 o/ Z6 I% F$ P  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);
, i3 d7 m0 y+ Tnext;
  F# ~$ Y$ j: K- `: p- T8 wend;