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

zooey

is
        mark:boolean;
$ u' e: n1 j: J* u# U7 }$ k        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
+ Z% |1 u- d7 H3 W& X2 I4 H        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ n2 L, K+ q. a2 w. M( Z7 D9 _7 r6 L                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
, c- b: n6 d3 M& u7 h! p                        print"no";
                else
                        print"cancel";
4 X3 E+ U' O/ Z  _4 n. ?7 A                end;
, g: H) c, t4 I6 L                eventcontroller.stop;
        end;
       
, O+ a% Z# H% f- u; ^  |; U* E, S        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, Z( X- f# a; b0 p2 I* F        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
  p0 j! \. J* U- k                machine.deleteobject;
: y: J! g/ i+ Q        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
. O; |: y- @6 s7 y0 O5 x% A9 k+ L        end;
# e" V5 J, K# w6 k0 s4 P        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! u& e! Z+ p  ]: M7 @, n' D                --mark:=false;
$ {! e8 C5 L- v: W0 p3 U+ A' _                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 U9 V( x3 K" f                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
) _. E1 j) l2 D# {                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 c: b/ X- A% o6 \                        activityspace[1,rows]:=ct;
* s/ w3 n2 ], j# s3 p                        mark:=true;
/ w4 Q0 v% K' M5 J                        else*/
  Q2 P$ v- _; N/ H# J9 Y                        y_max:=y_max+dy;
+ |+ G3 q9 \, o2 f                        dx:=0;
9 ^, h% s$ l0 ~5 k# m                dy:=0;
                        --end;
5 l# n7 `9 x0 R" F+ t9 k                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
& M$ R4 z1 M9 T. X( c) z                end;
' Q# n/ @$ |; `* P$ |  H1 x: N                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 u" p4 x, V4 ~2 T2 u8 v  ?) u0 ^                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
5 }; F+ B) y; T; A4 p! {! g        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);
) c& q* G) D* G! F7 T$ ^, S' R        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);
! A* @0 g  B2 l3 t$ {" z2 j" i$ r       
3 K- i1 z  U4 ^& z        rows:=0;
        lines:=0;
/ J' o5 @5 ?. y        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
6 X& l* M* a% w" Z5 [; l# n9 f- A                        if j=i then
                                d_from_to_chart[j,i]:=0;
1 q* `+ j; S. A0 r- b! N, J                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 v5 L  n9 E$ Y                                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);
+ o5 }* ^2 u0 Y, E; ]                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
) {$ K* C( _5 O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- @, [- z5 U9 ?, c: U                for j:=1 to number_of_machine loop
# O/ U5 Q% z5 D& c& E- q) y" h                        if w_from_to_chart[j,rows]>0 then
- ]8 e6 R0 c+ y                        lines:=lines+1;
7 L- o3 F4 X- V                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 Z- O/ }3 y9 H4 I* h6 ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
( E$ q+ P8 l' A& t# B' N                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
* @' g0 X0 ?9 q- F! J; Y        next;
        machinename:=sprint("M",rows);
' }$ s1 |+ ?+ [& 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]);
* X7 A2 B: p3 U        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
1 a9 y% _3 i% u) @& M" }. n        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 x6 e  b, y2 j2 _% Y# o        buf.name:=bufname;
7 o8 @& y* Q0 P; J, @5 M( H4 i        buf.capacity:=5000;
' G0 [( ^) ]: c6 Y8 I; K        buf.proctime:=0;
3 @$ ]& |2 ^- Y7 K5 K" N        .materialflow.connector.connect(buf,machine);
       
3 W) h- ?9 m& r+ ?        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; p7 R4 k" D- P' _) |2 h; W2 t! _dy:=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);
) y2 B; o: L9 R: [. vnext;
end;
- o; E1 U0 i4 r% s( r( U/ t9 R% G