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

zooey

is
! f8 G4 X3 F; F8 I        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
& P8 J3 s- }( n+ T    machine,buf:object;
do
7 y7 N" r) J" Q% {% @        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 ^  m$ j: V# O" w                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
. _' g* x3 S2 g6 s                end;
                eventcontroller.stop;
        end;
       
. h; O, o" A: H        for i:=1 to number_of_machine loop
5 v: q# H: F* G- q. S& Q        machinename:=sprint("M",i);
9 C) i2 L6 e# i. e" }8 \        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
9 a6 i9 t: W  ?( i3 L                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
0 V% c/ Y3 S( |9 M; a9 G        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
% Z. w+ V* W  ]5 G: v                buf.deleteobject;
        end;
        next;
       
6 q& j  b. {9 @% C4 N6 X0 i        dx:=0;
        dy:=0;
, v$ c; z. y, `" l2 U        for i:=1 to number_of_machine loop
7 y9 Z9 n/ M+ m+ @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 A& h% H' [4 c1 {7 h                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' ]3 o/ C* k5 F: m/ f5 P& ]                then
7 Q; j6 k# P3 A% R; N; d                        /*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];
) }, w0 S& J# D  e' |                        activityspace[1,rows]:=ct;
7 z' u. `. Z7 v0 M                        mark:=true;
3 L; M0 c; d& [0 ?3 @- L/ h                        else*/
                        y_max:=y_max+dy;
7 q1 L+ F/ \% e- m' F4 C: u# C6 Y                        dx:=0;
                dy:=0;
                        --end;
$ r4 Q: _- v1 V  K$ R                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: z% h( Q4 L! s$ X3 v7 V; k/ m                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];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. {, P: G+ l, L6 f- ]! @                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
3 F- T! b- _7 u( Y) e" q        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);
       
( [( ~% }; i& X. m        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
) q) a: C4 U5 q                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
7 K/ f  G, W5 U2 I3 T                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% H+ L  c5 ?1 ^, F3 t8 z; p! R* H                                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);
, A1 }3 T! @2 h, A  e                        end;
                next;
# L! P# ^( c! V5 T! P        next;
       
) _  n  y0 l& T2 }0 c7 U        lines:=0;
% L! W  H: i6 P1 a9 p        partstable.delete;
: f! B) u! X$ c% G; y# G       
( ]: J" n# ]  f' G; V        for i:=1 to number_of_machine loop
0 B( V2 U3 o: k" M3 v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, a/ l3 l% p& T6 z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
5 \& ?' w) ?+ X. Y- r6 o) z                        if w_from_to_chart[j,rows]>0 then
2 H; B8 N' W  ?; l: u                        lines:=lines+1;
$ g+ n8 a8 m' o3 t                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
2 b# i1 g* u( A0 P% ^0 O                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) e5 |; A7 D" b0 A2 ^% f" U2 S                end;
1 ?. ?$ h6 k: H/ b        next;
+ a  E# z! D* I; B        machinename:=sprint("M",rows);
        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;标识符未知
, m' m/ v* Z  t. ~8 J        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
8 p9 _+ G2 v& G& ]5 e4 k$ F        machine.exitctrl:=ref(leave);
3 d$ F% Q! R8 J" y. O9 |% v       
6 f9 v3 D$ |+ t: M+ h* l7 j        bufname:=sprint("BF",rows);
- F! _, I' F- g        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]);
# o$ C- ^$ O6 h' T3 c  o        buf.name:=bufname;
; m7 N# z6 @8 [        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
$ [8 B6 b4 F, U9 ?* H" O: l        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;
: c' @5 ^8 m8 [! ]2 J5 hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' }" T9 y9 p1 y1 @, g. E; Ynext;
end;