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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
' C  \+ d( w# v1 ?3 n; q    i,j,rows,lines:integer;
    machinename,bufname:string;
% F* P# X" [1 _7 O& m4 y1 O+ [    machine,buf:object;
* H9 T; r8 ]1 H- @8 u+ p0 L( Gdo
        current.eraselayer(1);
       
, N- T3 x/ s; @# S        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
2 e) k0 w  t, |2 P4 K, T* J                        print"yes";
                when 32 then
                        print"no";
                else
  ~' V0 k: s' ~                        print"cancel";
                end;
                eventcontroller.stop;
4 W+ ^& m' [$ V0 v, A  d1 G' A& u9 u        end;
       
# l* {: o" _& h* u, w) V' ^( X        for i:=1 to number_of_machine loop
  ~, ~( T6 O& [/ g0 @        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 E! E( h; Q5 E1 D$ i4 y2 Z                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
& z- V9 ?6 k& M- m' `        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
1 L- m7 g3 a: r4 _. y                buf.deleteobject;
        end;
+ D- r  Q, W: I! L! O0 v7 j        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
: H" B/ q7 O9 D5 V+ h/ R9 ~' Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 ~; v6 p4 G5 i                --mark:=false;
* N' }+ Q3 z( c4 R7 n                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
- L$ {. r4 \: |+ f" E& e. G  l2 M                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ J% Z( t8 j" @+ U. v                        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];
: C3 w  S0 N" A/ J2 X                        activityspace[1,rows]:=ct;
                        mark:=true;
& T/ d8 e$ w: ~5 ~                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
1 t; @; X* C- _# e                dy:=0;
                        --end;
% b7 b! d' o; A6 R7 M, A' ]8 |                end;
8 E6 Z7 S7 W+ ~0 e4 s) B. e7 w+ y% c                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;
/ m( D: R% k$ L% t* h  p" ?            if activityspace[2,rows]>dy then
) J1 i! Y3 b4 g3 S( j% q& t                        dy:=activityspace[2,rows];
& a( T" m/ w+ h; K% g0 X                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
  g- c( J: ~) i                ct:=activityspace[2,rows];
# H, _0 L1 P" t' s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- @2 R2 w0 s1 T' z8 \, R6 y                        end;*/
% R; ^; M7 M( d! Q; n0 [3 D# w        next;
        y_max:=y_max+dy;
# H9 g' s1 n- w" `2 ?, e        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);
       
2 }" m) X, P# F9 B9 E8 g        rows:=0;
: p) t2 Q; y3 t) p- B6 Y        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' ~/ V0 j) Y: C+ x. s                        if j=i then
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
# Z/ K& ]  y0 M                        end;
$ z- m3 h7 J4 G. D/ ?: M' e                next;
! h5 x' C$ I( X9 t9 P        next;
       
8 g, H$ ]  [- s5 H% s. i) T* k        lines:=0;
        partstable.delete;
6 c) ~+ ~8 F  W& ]/ o) a       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
1 z7 s& I) T; v7 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"));
* f1 K. w. D+ P6 I) Y& G) {& i) m& M4 J                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
  t+ e) \) G& f) F8 R  V0 N                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
. A1 @/ m4 {, l& _" \' S9 f                end;
, ?# s% q. m! n: J        next;
" B% E* `& g0 `) k( A, m# {4 N        machinename:=sprint("M",rows);
* o0 C7 E2 G1 c2 w3 q! W5 ~! ~        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]);
1 c% F; F+ _9 u% ~8 A% c. L' l2 u        machine.name:=machinename;标识符未知
        machine.proctime:=5;
, q$ h# [7 I3 `+ a4 g2 d& |) k" @        machine.label:=activityspace[0,rows];
% Q+ l+ m$ l* z9 c6 D6 r# P4 W        machine.exitctrl:=ref(leave);
       
        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]);
3 u$ B5 s/ k2 Z        buf.name:=bufname;
: {; X- o4 n7 N8 J, p) g        buf.capacity:=5000;
        buf.proctime:=0;
2 }5 d/ C5 {+ }/ l2 G6 s        .materialflow.connector.connect(buf,machine);
- a; F. `: S# i+ C2 S/ u& t       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. B8 V- U& ], e. M. ^4 q/ l# tdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
( ~8 V# P& f: z) v4 jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 ^4 C7 I  W2 `5 h, m6 rnext;
end;