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

zooey

is
        mark:boolean;
, J* _* s8 y# `+ {- J, O3 |        dx,dy,ct:real;
    i,j,rows,lines:integer;
, }$ J- h7 ]% a, Y; i' N3 B* l    machinename,bufname:string;
    machine,buf:object;
# q, G2 A: e. O. f2 Q# I7 ?2 Gdo
0 `) \( r' I+ g+ ~) e. ]        current.eraselayer(1);
; I9 b  [( a' S2 l0 U$ F       
) Q9 B& w; Q) ~& c& }# _- J        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 ]" ~- R7 ^! S2 j. o                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
" ]3 i# Y& V' [                        print"yes";
                when 32 then
                        print"no";
                else
2 G0 g6 X+ F, s! J                        print"cancel";
; ?, I! U5 {1 Q% P1 [, t: P                end;
  t6 V) {. E9 F' L: g                eventcontroller.stop;
        end;
- Y) p! q. W+ [       
        for i:=1 to number_of_machine loop
! C! i+ W) A* M8 \6 L        machinename:=sprint("M",i);
        if existsobject(machinename) then
* b1 |4 N! F* z; P6 f                machine:=str_to_obj(machinename);
$ Z3 {$ |* c  r' Y4 @5 E/ B                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 E% ?) K# q# R3 N3 B4 @, D" R                buf:=str_to_obj(bufname);
                buf.deleteobject;
0 Y4 S! n5 O- @. _; k        end;
2 h. M8 G  b+ S% z, m4 x! |        next;
- }8 J: M4 k6 ^6 f, s+ X+ L% X3 M       
5 _+ x! c, g* V0 `% S" D        dx:=0;
5 S' {- m' x! r4 |7 u5 x        dy:=0;
        for i:=1 to number_of_machine loop
  W) X4 ]& g3 e0 O, ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 u( c8 v0 h  T) s  @# t/ j' J: p                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
                        activityspace[2,rows]:=activityspace[1,rows];
$ c, E3 R+ t& T. k+ k! Q                        activityspace[1,rows]:=ct;
                        mark:=true;
: X: L0 s5 c0 }2 g$ C; E                        else*/
                        y_max:=y_max+dy;
: C& ^. d( [8 M                        dx:=0;
                dy:=0;
/ {/ F" f* x  t* ]0 p' @                        --end;
                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;
) w; Z5 d: K/ k" R            if activityspace[2,rows]>dy then
: S' K2 W1 {3 P; f; @                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
" @" _9 A  R# c% ]. u: \                /*if mark=true then
                ct:=activityspace[2,rows];
: }& W5 {, {; I4 R. B                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
3 |, b' V% {( _0 ~; N9 [2 ?        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);
2 R- r* ]4 d1 f$ q3 x$ G; [        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);
       
: w. k  W( e. u9 k        rows:=0;
' z. r0 F9 u" Y        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
2 `4 G% p1 W% C9 H3 Y4 A" t9 U                                d_from_to_chart[j,i]:=0;
9 S8 P) b, g. W9 k! [" ^                        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];
/ U4 o4 w: p9 b) q. U9 K* @                                d_from_to_chart[j,i]:=abs(dx-dy);
, J8 ^( q0 k" P7 |- ^; `2 y. c                        end;
4 }2 u. R0 o- h' O5 Z5 u                next;
        next;
/ m8 B3 w7 w! @       
9 \( j2 m$ Q" E; Q8 l) ?5 Y5 a        lines:=0;
3 ~/ y) Y& E0 Z; {3 l" w2 n; u        partstable.delete;
, A. C) V+ @& _$ o       
/ b- U+ ^9 L5 G- Q# [        for i:=1 to number_of_machine loop
! p  k1 T1 B) G% R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 c6 a* m' u2 l- {                machinesequence[2,i]:=rows;
                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");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
+ z2 [; D' k* Y$ W, L* ^                end;
9 s' j( D* k5 j# {        next;
        machinename:=sprint("M",rows);
# [0 B6 ]' K' }  u" U9 J" \! k        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;
6 p0 ^/ ^! X0 \. ?2 Y$ l        machine.label:=activityspace[0,rows];
' U! C- _& ~8 D8 @6 x& ]        machine.exitctrl:=ref(leave);
& X0 R; ]3 ~, J2 J# B       
        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]);
( q0 S, A+ o! y( A/ Y' Z" J& p        buf.name:=bufname;
1 K) T  J5 b% I# l        buf.capacity:=5000;
) r) [1 k# w1 J        buf.proctime:=0;
3 [8 D) ]: O4 t% W, K/ U        .materialflow.connector.connect(buf,machine);
9 C. y( s# w; D7 v$ p+ L2 F* H       
) x! g' ?4 ^' x& k        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;
6 k. C4 P; ?* z4 [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
$ N, R8 U8 ]. E, A( S" bend;