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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
( R4 H( k0 [% ~0 l. I& N& p2 [    i,j,rows,lines:integer;
* U$ m0 S' D3 l- f7 U    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
# I+ k' R( F1 y: k6 ~                inspect messagebox("设施数目不对！请核查...,",50,13)
! ^2 b* L2 C) S' Z# f                when 16 then
- W1 a+ Z0 h, T; S; C' d' l" c                        print"yes";
/ J6 ~# n# C# {6 K                when 32 then
                        print"no";
* p7 D" r0 B- I, ]* B                else
/ l" G2 k8 V, A                        print"cancel";
# {$ e; m' ~. p. l( Y( V                end;
! P) c8 H' H2 U. V- |: w4 j; v. V4 B                eventcontroller.stop;
' M1 C; N: ^' R        end;
       
        for i:=1 to number_of_machine loop
. ~2 I3 w) q1 r        machinename:=sprint("M",i);
0 k/ i% [) @3 F, N2 g$ Y# m, D        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
! Z, w( i, X6 E- _        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
# o. G- f4 z8 G) k  ?9 ]& F0 M                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
5 f: \! u" ?3 f, S( p        for i:=1 to number_of_machine loop
' A9 q; m1 \( X1 L% e+ i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: _5 R5 V" f0 F3 P% D. g2 h3 g0 t; h                --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]
/ u$ B+ u& P! b, Y" ]- k                        and activityspace[1,rows]<(1.05*y_max) then
$ k5 R# @6 r7 l9 r                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
* T* }! S2 T, ]! T0 @' [$ I; F                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
0 d5 X$ b' M7 D  F: U8 ]                        y_max:=y_max+dy;
                        dx:=0;
/ G% R/ A  f, }% o- P' Y) z                dy:=0;
                        --end;
                end;
4 K) c7 }9 W, D, @( ^/ k( t0 [) e3 w                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
, h. e" W- {- o* A. L" @# _                        dy:=activityspace[2,rows];
                end;
7 k1 `- ^3 n6 U/ }7 x) r                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 a0 W+ s( }( m3 ^                        end;*/
' R! z1 `: h, |( ?$ J        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);
        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
                        if j=i then
0 U! U4 [7 s0 B  L2 j3 w                                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];
/ f3 m+ G; a2 X, U3 J  c; F; g                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& I0 _9 `. ?8 Q( ~2 w8 `                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
# \" q, q# w+ L# M                next;
        next;
2 [+ ]4 G( H9 Q& `* S0 q: Z/ \  T! y       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
0 k2 ^; r7 Z& ?2 E  X. v                        if w_from_to_chart[j,rows]>0 then
- o4 R* o" a  w$ D2 C/ p4 ]: k0 p                        lines:=lines+1;
- E% t7 Q( y; A% T: K1 Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
, W  R7 x! P) x                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
5 ^! {8 E# h5 s: Y                        partstable[6,lines]:=j;
. o* {9 u6 c  g" w                end;
        next;
        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;标识符未知
        machine.proctime:=5;
6 l1 @  F& U) p4 B: P. ^' e        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
( `# {7 O- \' P3 J       
: ^+ R0 T: W9 U5 O5 f$ |. y% v        bufname:=sprint("BF",rows);
) p1 ]9 u. a. U' ~4 u) V% K        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]);
7 {: [: j* \1 ~+ R4 n# @3 J# I- B8 [        buf.name:=bufname;
, W6 U: e  V" f. v& o! W1 v8 D        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
9 D8 M, K5 }  s3 f# \8 T/ e$ D       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ c7 a8 p$ X0 G6 ]7 L( h$ v# g  G. Tdy:=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);
+ b+ B- C" T" T8 v3 Y2 b6 ^) hnext;
end;
; A: F7 |5 w6 l4 P) H