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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    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
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
* d/ D, e/ H% \7 z                        print"yes";
                when 32 then
                        print"no";
0 L8 C1 w9 X+ v/ e' ?2 D+ g% i) Q                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
, X6 P) q; E1 e( f5 z, `        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 W( H* e1 z/ r# X2 w                machine:=str_to_obj(machinename);
' k* Z4 E; e; G! g! L0 E  N                machine.deleteobject;
        end;
( O5 ^' Z- G  b8 O) p        bufname:=sprint("BF",i);
: t/ \3 X2 Z+ U4 ^) v1 L2 ]; T        if existsobject(bufname) then
4 S# {, d/ \! ]                buf:=str_to_obj(bufname);
4 G, |# z3 q  }$ z7 x! p' J                buf.deleteobject;
        end;
: C- k, ?7 q8 ]2 S        next;
' j# C* ^# M# b) K6 i- h# R; v       
" g* }7 T9 [1 F1 A. t8 z0 a        dx:=0;
        dy:=0;
/ D( R% r. m7 Q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 n+ }! x$ B3 G+ D, F6 d. J                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
& ?; y( V3 J$ T( p# Y- u' m                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
" M; s+ a  J3 c7 p/ m4 s8 C9 y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 z4 x! E" k3 Z+ B: d/ t1 p- s                        mark:=true;
8 k, X9 `: i. P, s) V                        else*/
- {4 P- p7 [7 i+ y% l- w' s                        y_max:=y_max+dy;
- n% t" J8 Z% L, N% G, l                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' I6 K! n; e6 z5 @6 o/ q" \2 G                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
6 C, B8 M0 Q& u& {                end;
. V2 |; ]5 b5 u2 T" \, z                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
/ {: B& k  b9 [. I) t: ]! J7 C                        activityspace[2,rows]:=activityspace[1,rows];
/ a" L# R7 V. m( m% R                        activityspace[1,rows]:=ct;
. _# @" a4 {2 s7 {) [" s                        end;*/
        next;
8 e; E2 _6 z' v% Q4 i8 O& U        y_max:=y_max+dy;
  {. `1 u) }2 `3 A! K) o        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;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
$ T. l3 _4 w% X' O$ D, b                        if j=i then
7 g4 X0 c6 h5 n$ j! l                                d_from_to_chart[j,i]:=0;
+ _; l( U# j" w9 f9 }                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- E" m# ]  O: G7 h* p                                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);
0 a1 s8 Y) o% f                        end;
, `. z+ J% U' A( }                next;
        next;
4 F8 f7 p/ o, z$ a' ?       
  s( R' O7 Q* |% A. A8 I1 a  N        lines:=0;
! c9 o% W6 E- h& G        partstable.delete;
9 g7 a) U7 f$ x7 V/ A% o       
. g2 u6 {& T# p        for i:=1 to number_of_machine loop
5 ~" i" W$ C. P8 v8 L" r- F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
2 A8 T! a. v" s: i" `$ ^' Y. @                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# `% ?% S/ D# r" n( N8 a5 t                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
/ g) R; L: G8 U3 y2 j/ Q1 g                        partstable[6,lines]:=j;
                end;
        next;
( R; Y0 B+ P  m7 b        machinename:=sprint("M",rows);
! x  p0 j' f& g$ O! 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;
        machine.label:=activityspace[0,rows];
7 R6 @$ R6 m+ Y9 {2 }6 |) T5 q+ M        machine.exitctrl:=ref(leave);
       
, p: s- @: H9 t# |  f4 y- a) o        bufname:=sprint("BF",rows);
. e% S, s3 h2 s" U5 q        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;
0 W) b  G6 l- e. r( W3 H; O        .materialflow.connector.connect(buf,machine);
0 E3 h( l. G' D$ r4 q  h       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
7 x+ ^- U8 H  I: zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
/ r+ |+ H$ y$ M) g" l* Snext;
) J8 l) m9 y' M" r  |- y# c$ @end;