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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
$ R; r' Q! ]% B        current.eraselayer(1);
       
- j+ Y! v! K+ ^7 n. u3 G        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. A7 o+ l) N7 @) }" {                inspect messagebox("设施数目不对！请核查...,",50,13)
- O& \3 ?7 J# I+ s  u5 _' u% T( ?" U                when 16 then
  _/ o- W$ o- G, ^! Y; w                        print"yes";
" d8 N8 g# B; ^' W                when 32 then
5 U; v. @' v/ c8 t0 p! z" o                        print"no";
6 [& F# A% b) c                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
' K! c5 z! \+ C8 ?4 l        for i:=1 to number_of_machine loop
! {5 V# X/ i3 Q        machinename:=sprint("M",i);
" a4 N7 u8 W- c) t( @        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);
* t4 C& }! K$ e0 b                buf.deleteobject;
" E. \0 o8 @8 i3 S/ M8 X5 k2 h        end;
        next;
       
        dx:=0;
9 ~4 B: x& ^' o3 T        dy:=0;
& e' T. T2 G2 ]5 b% X* n        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* Z, B) E# Z6 |3 o5 G# p                --mark:=false;
) d! x: v8 t9 i4 A: t2 f& {3 q                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
% G7 l4 t! _+ q5 O6 K7 L) i                        print activityspace[1,rows],",",activityspace[2,rows];
+ d1 [; s6 s+ g1 o                        ct:=activityspace[2,rows];
: e1 P0 [4 I5 \8 p2 E- y; O                        activityspace[2,rows]:=activityspace[1,rows];
& j: l6 {3 p9 Z9 F* X  x8 m8 V                        activityspace[1,rows]:=ct;
                        mark:=true;
' z+ @& C+ \, ?* o% s5 q5 n' ]                        else*/
                        y_max:=y_max+dy;
, i$ ~* `) K: N& L% L7 p' x. v                        dx:=0;
7 C- b, m/ J# p% m+ i                dy:=0;
                        --end;
                end;
                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;
5 v9 e  U, s$ h! A+ n            if activityspace[2,rows]>dy then
8 k$ x& V- R3 r- @' K/ b, M                        dy:=activityspace[2,rows];
                end;
9 f1 I- J/ u$ h                dx:=dx+activityspace[1,rows];
% P$ L2 k9 K& t4 q9 {& @9 m" ?                /*if mark=true then
: `- Y- {$ H% }$ X2 L                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
7 S7 V* S3 s. d5 F+ j        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);
) v% `7 L: q% ~5 M. N7 [        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);
6 I; q& j/ L8 Y* |" Z& U       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
8 X8 D" A. b8 Y0 _3 H7 C                for j:=1 to number_of_machine loop
- _, |" @9 q6 M  a& {3 }% X& Q% A                        if j=i then
                                d_from_to_chart[j,i]:=0;
) @+ [6 [5 Y7 H6 P                        else
                                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];
: S9 h  u3 U. t) {! _                                d_from_to_chart[j,i]:=abs(dx-dy);
/ o9 x9 l  ^5 y+ y5 W) q                        end;
                next;
        next;
( r: m- e& l3 y- z: z% P( a       
" q8 o6 l- b3 ]# a  W        lines:=0;
        partstable.delete;
% ?  X2 K/ a, q+ h5 ?       
        for i:=1 to number_of_machine loop
) u$ E9 b5 S+ c                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 w% E" G3 P) [( r/ h( B  H6 h1 `                machinesequence[2,i]:=rows;
9 j9 V% h/ s- h, [5 G                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
4 Y  X, I' |6 m) r" K/ z( }                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" Z# @# t) u" s! M7 J1 z0 F                        partstable[2,lines]:=w_from_to_chart[j,rows];
. l. y( i0 Y5 ~* |! |& k7 k                        partstable[3,lines]:=sprint("parts");
: Q, G7 `) J4 r6 T                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
$ o* l; E# O' q7 D                end;
' @' a2 P0 t* s& _9 M        next;
- M' H0 e6 u9 f9 _5 r1 y6 s, L        machinename:=sprint("M",rows);
6 ?& a+ G# _  @* \$ V7 o        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;
* a2 T6 F# V  Q4 v2 _% g# B: `        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
4 K! l/ s9 j" ?1 ]* h* V% y; @* F        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]);
        buf.name:=bufname;
: Y% o: _' l0 t  m' t5 X3 ^- b( t        buf.capacity:=5000;
        buf.proctime:=0;
) j+ L3 L  e( x* z        .materialflow.connector.connect(buf,machine);
. I4 ^3 D+ \7 s$ @& n& v       
  E: }! F- R1 n0 [: J, R+ Z; Y+ C- H  B        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" H0 y' e8 r7 ^# o) x% mdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ Z5 _+ ~& a% scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
- h! ~' b: \7 N4 kend;