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

zooey

is
        mark:boolean;
; i) H! d0 W( r+ U2 u        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
2 ~" @/ d& _9 B( E! Q# zdo
        current.eraselayer(1);
% |3 t9 ?$ y/ f       
9 X# \$ \# D- j9 R. n; l- y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
% J9 F" z+ p0 h6 S( \8 F0 }                else
8 F( }) T2 |- y9 h8 A' k' c                        print"cancel";
                end;
+ A, Q  q7 {6 d+ }2 x                eventcontroller.stop;
0 h- W  G! G/ t3 `        end;
% o. z" ~0 @' I: [8 x! E       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 u7 c0 M3 |3 y$ }4 I3 z: o7 U, `        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 C& d% }3 B0 @                machine.deleteobject;
2 X, N' a( L: I# T4 k        end;
5 H8 \# M6 j; s# j- g# m        bufname:=sprint("BF",i);
        if existsobject(bufname) then
5 b# A# d, {( @6 N                buf:=str_to_obj(bufname);
5 A. Q9 D( q5 p$ q                buf.deleteobject;
* |# d+ X. n  N' I( Y8 I        end;
        next;
       
+ @# u4 |* S+ Q0 p2 U        dx:=0;
& d& X7 E! H$ ?1 S: C: D        dy:=0;
0 k; U- D8 K# Z        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
* I/ |( Z$ e5 e! v  \& `6 B                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  A  X4 t) [0 g! X1 n- _                        and activityspace[1,rows]<(1.05*y_max) then
: M2 Q  A/ Y9 [/ N+ P/ S                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
3 I3 }; {0 ?" A" o* ?                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 t. c, p4 f" E+ G                        mark:=true;
                        else*/
6 N) V- w3 q: B: n& Q) n                        y_max:=y_max+dy;
( [' K; ^8 ]* W! V                        dx:=0;
+ ?2 b8 n8 v, A                dy:=0;
/ l2 w; r. U" ?* w                        --end;
+ n4 I# l3 s( e" x6 Z% C  g6 @                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" n7 p; T7 q& V' _$ _                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];
8 P& \2 @4 A/ l' ]2 f                end;
+ ]/ }( l5 p; S0 V. B' H" F9 R! |                dx:=dx+activityspace[1,rows];
/ B- Q- K0 }( v$ L. S                /*if mark=true then
! n" ^, i( }2 J  w3 ?                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
4 y& n6 X& b6 G& m2 ]" }5 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);
       
        rows:=0;
) V1 X1 x3 w9 F, i        lines:=0;
        for i:=1 to number_of_machine loop
( Z* G# v% ?8 P2 ]                for j:=1 to number_of_machine loop
                        if j=i then
) T0 {) F% }7 U# P& D4 V0 S5 l6 l2 Q                                d_from_to_chart[j,i]:=0;
                        else
1 k9 b) u, |" h& L. ~                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 P( a* g! _( A3 f* `9 j                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ Q0 c& a2 {0 c8 Q: a2 h4 J; u                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
' b+ n, N/ k+ x+ i6 E        lines:=0;
' n. k/ i) I  ]3 W' t$ o        partstable.delete;
, o4 [& u1 ]$ J) a$ b       
        for i:=1 to number_of_machine loop
6 h) z# x* M, D( e5 P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
9 O# G$ w2 s" x                        if w_from_to_chart[j,rows]>0 then
- @7 W+ n# R" C  c2 G' }                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 T. H2 H1 _) T, J9 z/ z" y                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 d4 T8 s& x; J                        partstable[3,lines]:=sprint("parts");
- a5 Q: Z, ^- o8 z  Q/ k+ G                        partstable[5,lines]:=rows;
) _: `3 b0 l+ T; p) R7 S                        partstable[6,lines]:=j;
                end;
1 Z" N& i" T* U$ y" F        next;
& N$ ?$ L/ q9 M) {$ x        machinename:=sprint("M",rows);
/ ?5 X2 O1 ], L: 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;标识符未知
  h; u: T  K1 }# G* K        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
( a: t# e5 b5 e  V' n% t8 X% f        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]);
, `- N' ?8 u' S3 M: `& ?. S        buf.name:=bufname;
2 v# q+ ^4 p0 |' |* S& Z2 N( k        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
! ~! ]7 r1 T3 d% v) n9 q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# A7 d' q5 P& K# D8 zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. {0 {% @/ C$ }current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
* Z" d6 M0 {$ ]$ ~. T. I5 \end;
- B7 v! n- [5 n