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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
/ }' t" r' l) R0 p    machinename,bufname:string;
    machine,buf:object;
do
0 ]; _8 T' R. z6 O. ]( p+ m        current.eraselayer(1);
       
: W. V0 q% t: U5 H# u, S3 \/ m! `        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
- B5 J5 k: ?" U" y# f                inspect messagebox("设施数目不对！请核查...,",50,13)
! j3 n4 ~$ i& \/ p                when 16 then
0 w" w6 V8 `1 K, B( v( j+ C! f                        print"yes";
                when 32 then
6 I* m' \2 {" Z% w" P                        print"no";
                else
8 S6 _# [: r; J4 }                        print"cancel";
2 N2 |3 r" w( h3 w# L. n                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
" U' h, ]  a1 L: J7 H9 j" v+ ?                buf:=str_to_obj(bufname);
2 C$ L: z- ~, ?* G. R                buf.deleteobject;
3 y1 `9 P1 f) c5 m        end;
        next;
       
        dx:=0;
        dy:=0;
7 E* u0 Q& z3 m9 X' p        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) K) r1 ~* h3 x& j7 F- ^                --mark:=false;
# M. s5 O! v+ a, Q7 z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 c' }- r& D% v: u5 W3 c                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
3 i9 B" @; _7 ], ]6 V/ X6 X                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 W5 e; m8 G2 ~6 h                        activityspace[1,rows]:=ct;
' H! k# \8 w! z                        mark:=true;
0 J3 a7 r# D! _7 B# a$ `' M1 k                        else*/
                        y_max:=y_max+dy;
3 m# V. h0 v4 g, E3 s                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 J" [: h2 i) U& p; f* y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
. z- J. N$ M" {            if activityspace[2,rows]>dy then
, |6 e4 |) V( K' }" c/ n                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
" B& n5 ^! b' ^( U                ct:=activityspace[2,rows];
+ ?7 E/ L# {; U                        activityspace[2,rows]:=activityspace[1,rows];
7 ^, z. j. w( V& n                        activityspace[1,rows]:=ct;
- c2 l& c& @! b$ z                        end;*/
        next;
        y_max:=y_max+dy;
" ]4 E0 A! v3 V; T        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);
1 q) i5 v5 S2 X; x' I3 k) ?        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;
0 U! h+ u" A9 e: P4 k7 q        lines:=0;
* d, w  }; T% n% p        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
. u) D! a9 c9 g. ~$ b* q7 ]% {* b$ ~                                d_from_to_chart[j,i]:=0;
: r, K3 M9 q+ z2 Y3 {- s                        else
9 a3 m0 t/ i6 c7 g                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                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);
                        end;
                next;
        next;
+ q+ q$ q0 _6 I       
. N/ y+ N& _: F' e+ D        lines:=0;
3 @+ z8 j8 ~- P7 [) X1 f" p        partstable.delete;
       
- b" |8 p/ C) ]3 k, M        for i:=1 to number_of_machine loop
% k) z0 w' i$ w  L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% x. \# B6 w6 R6 \                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
9 E  `% G  b. C6 N2 u! Z* C* Z1 H4 m                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
4 h2 G5 y# {* r# |                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 [4 z" c& j0 A, u9 J                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
6 Z; [, o! d% ?0 r) t/ Y                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
* r0 a% t9 @- p. Y( R' R8 t9 q" f                end;
- k+ n) l, N1 _4 w* a. h        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;标识符未知
7 ]! u0 E' v. X$ @9 n: ], G  f* `        machine.proctime:=5;
5 P7 s" p+ C8 N! K6 H        machine.label:=activityspace[0,rows];
6 L, a5 @! c2 u2 {( z4 H/ n        machine.exitctrl:=ref(leave);
2 v: ]) i1 I% M6 k! a8 W       
9 m$ a( {' @, z0 a        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]);
1 F$ p6 y3 \1 o. J9 _* v        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
2 @2 l' {+ {1 n        .materialflow.connector.connect(buf,machine);
9 u. H) F7 m5 F0 Y) F4 J' o       
* y( N; P4 u) t+ ]5 \$ J$ O        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' |$ [- l6 a% n" U, kdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
: u7 R* V! h! B5 Z" f( @current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
2 q# M  s$ H8 Knext;
) u3 z7 o( C; Oend;