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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
0 q) Y# n$ R5 S# W  g- }" \9 q    machine,buf:object;
do
        current.eraselayer(1);
0 T+ R/ [7 T) b- m3 q3 r       
- D9 ~; W4 I( x9 z0 e  R# L        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
! o- p: t0 G; s1 z2 n! |# ^) m                when 16 then
/ B  r; D& X2 k6 \                        print"yes";
* v+ A3 B) ~- R& ^8 j                when 32 then
  D9 |- z% D1 j  b% C                        print"no";
! T- W4 {, F: l& ]" y                else
                        print"cancel";
                end;
                eventcontroller.stop;
1 ~6 R% ~) I2 c- N/ W. F        end;
) R: Z+ T. l: U2 a- ]# z+ g       
* K' V: A& N! Q8 W6 N+ G        for i:=1 to number_of_machine loop
; I0 D8 M/ _! ~$ h, y; F* i        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
: e. d& b$ x0 Z7 o6 N        end;
        next;
% Z5 O1 R  M# y+ i& _       
! M# O3 S/ ]9 ^/ |# P        dx:=0;
. M, N3 ]- v4 ^' i+ T0 j        dy:=0;
- E6 X6 q9 J5 ^" c1 P1 \2 s        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* k/ }& Y! K. ]' T1 Y9 m                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ D; `8 u, m# J+ p0 n                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];
5 L# i- ?: L# n                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 p" A( N6 _" P  @2 a/ X' i                        mark:=true;
/ V+ c$ t0 ]3 L: ?6 \8 l/ E                        else*/
                        y_max:=y_max+dy;
# m# c* l* Q2 z4 _* P# b                        dx:=0;
! i5 Z* C1 F9 ?# U* w. y3 D                dy:=0;
                        --end;
                end;
- q# k- Y. Q9 D4 M; _- a                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];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
! n0 ]: A. x( g2 u                ct:=activityspace[2,rows];
* E+ i3 n9 `7 O6 u5 P) f5 ]5 d                        activityspace[2,rows]:=activityspace[1,rows];
3 A! V6 }) ^4 r                        activityspace[1,rows]:=ct;
8 d4 F; ~. P$ ]                        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);
: A! j# p4 J2 o7 k8 e: l        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);
8 T' x6 f1 a1 ~* P$ x' P' s       
7 u0 a* p  e2 Q( S        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
' P; y1 P) J0 S8 v: Q" r                for j:=1 to number_of_machine loop
                        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];
1 F. \$ p! V+ h4 n                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
1 d( \) Y* z# f  T                                d_from_to_chart[j,i]:=abs(dx-dy);
3 O5 i) \. P. Z) y. c. |                        end;
  f" ~7 J# L2 F: q" s( c                next;
5 _* I2 P8 h' d2 _        next;
       
        lines:=0;
        partstable.delete;
       
1 g5 ]7 s1 x: H: |) F' S' l* I8 m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& I+ d; V0 m$ I0 U# ~$ I1 o                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];
' C) J: C" Y& H+ j2 |, w6 i( g                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
$ F& }8 S6 p4 F* S        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;标识符未知
( X) q7 A- q: I" r/ m        machine.proctime:=5;
! [" r& \$ W. I% I5 L, _* G        machine.label:=activityspace[0,rows];
2 y( M. X; d* Z: D6 c        machine.exitctrl:=ref(leave);
9 F) }4 }" X- `! 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]);
; ]. X- R) C) D; x5 Q        buf.name:=bufname;
4 |7 Z; {3 Z" f: t        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
; G% f1 S+ m# @& ^0 D& Z( W$ V0 c        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& N* U4 y0 ~% ~, q0 y$ xdy:=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);
! z! p9 L6 P5 u) {3 enext;
$ {' G9 I5 V% F3 ]/ h  |end;