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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
. g) `) Z! K" X    machine,buf:object;
do
: x8 J% `: L) s% t. q7 _4 G4 u        current.eraselayer(1);
2 l5 n- j' L. W' v       
. D( {! z7 Y9 Q% R& h  \: [9 y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) R3 t* S9 R1 H. s, X. K) J- _" O7 x                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
  D! w8 P4 t% y                        print"yes";
; U6 R  N+ Y7 I6 Q                when 32 then
                        print"no";
                else
# ]! K/ \7 R! R                        print"cancel";
                end;
                eventcontroller.stop;
) a1 Y; \, I$ O( g# Q        end;
       
        for i:=1 to number_of_machine loop
$ }/ [" J6 C% a        machinename:=sprint("M",i);
        if existsobject(machinename) then
6 @; q+ `' a; h' M1 q                machine:=str_to_obj(machinename);
8 B/ C0 }0 G2 K4 @6 c                machine.deleteobject;
2 x+ \9 s  c  l; ~# m3 G  U( ?        end;
        bufname:=sprint("BF",i);
  q% J/ Q  F, d) h2 \        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
1 P( }; l% R5 u" d7 Y$ n                buf.deleteobject;
        end;
: H  T% F/ t: B+ C! H, [        next;
5 W) v! P  c8 b* X% D       
3 E% D" D* Q5 u        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# v2 |: K2 ^  t% w% l                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];
* X% J8 B" r# F, L1 b( i" I                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# f& E' ?0 }& K                        activityspace[1,rows]:=ct;
2 u7 i8 W" T) v5 G. w& \9 Q                        mark:=true;
. N( j, m, g7 I. c4 ~- O& P( ~4 c- A                        else*/
                        y_max:=y_max+dy;
& g: D$ X: z% [                        dx:=0;
                dy:=0;
                        --end;
                end;
0 q  C" w/ G4 D  ^% O) F                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];
$ A# M, m  E2 f0 c                end;
                dx:=dx+activityspace[1,rows];
1 k4 {' ]( Z/ Q/ L& k" z                /*if mark=true then
                ct:=activityspace[2,rows];
4 g  E+ s8 I5 t: v$ e( q1 Q$ z) x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
8 N% N$ m4 L7 x        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);
% X7 |# A) {; Y+ s$ A/ g! E$ C+ W2 N       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
6 u/ a) K6 A6 N. C/ O                for j:=1 to number_of_machine loop
: v) R& n% {0 ?3 Y1 y                        if j=i then
. {( [8 V5 `7 L* f2 p6 Y- t                                d_from_to_chart[j,i]:=0;
+ M3 y: a: ~( K- [) l                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, a% N* Z1 d0 E5 b4 P& r                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
5 W4 c; ]2 Y; x  m2 r5 k7 F                                d_from_to_chart[j,i]:=abs(dx-dy);
8 ~! M( E- R& Q5 ]                        end;
                next;
        next;
       
$ h0 ~6 d8 z4 h# y        lines:=0;
& y3 ?/ ?. W$ ?6 Y8 T3 x# ~        partstable.delete;
% O4 Z% g5 z0 f5 h0 b       
        for i:=1 to number_of_machine loop
' y- m7 R) k  l1 H( v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 s- F$ Z% G! k# u                machinesequence[2,i]:=rows;
0 e. p9 P1 r0 H) c  B) ?1 t. b# ]# t                for j:=1 to number_of_machine loop
6 ^2 k- ^& F8 ^: [  M5 u                        if w_from_to_chart[j,rows]>0 then
7 j, m" B  m2 C2 \0 [  C                        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;
                end;
" ]( k- T2 }) z5 l) [6 ]  L        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;标识符未知
; z, V% `/ W/ q1 m) C        machine.proctime:=5;
2 G4 u; |: {- [- a7 x4 f* O" x        machine.label:=activityspace[0,rows];
4 y% {! q( r( b$ g$ _        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
5 }" Y5 l/ Q# o, \2 D        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]);
; D9 V' }: i8 ]1 ~2 r. X& E        buf.name:=bufname;
3 x7 V7 c7 ]" t4 s  y6 O. I        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
6 G, c; q4 z3 B0 M+ j8 h; M: F2 ^" ]