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

zooey

is
        mark:boolean;
+ I+ {' o* l' V" f" }/ r        dx,dy,ct:real;
; ?1 V- ~+ {# @( l    i,j,rows,lines:integer;
5 i& R/ W4 A: R+ Y    machinename,bufname:string;
4 j. L5 y% o3 u& `% ^    machine,buf:object;
( y6 D5 l0 a! g4 t% e7 Kdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( a# x& E: l. J) a' m& p                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
/ N: y4 L% H3 y+ ?: s                        print"yes";
9 j5 S6 A7 ^5 X: D  f/ l                when 32 then
                        print"no";
' V/ M$ b4 ^7 ^, {; @                else
3 _! l' `2 D  m7 c, a; }                        print"cancel";
$ g1 a6 I7 X9 v+ B1 Z- ^                end;
                eventcontroller.stop;
! S2 f/ C0 P* c% e/ k+ w( y% R        end;
. \( e& \2 n9 N! A       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) Z+ `% L) Y+ j5 B/ R& d        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, q* L: H2 P& |, _& D                machine.deleteobject;
3 O3 y8 e* v) g" R2 T( D        end;
        bufname:=sprint("BF",i);
6 o/ F; N4 w. \, C        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
# A0 c' g5 ?  g" {, t- H; Z        end;
        next;
, P) n7 E" F% M5 |9 a% F       
- z( h6 g. ^2 ]& m# a# G/ _        dx:=0;
* I* N0 x2 h0 J" r+ O4 Q1 D        dy:=0;
6 C* b3 {/ u. d' t        for i:=1 to number_of_machine loop
# ?6 s+ r. b+ I8 d+ {" c/ i& {+ Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; ^* S7 ]+ n5 B* A" q                --mark:=false;
# f$ ?- a& N! C. ~( L4 ~3 P" a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- n7 @8 X, W* x8 {3 V                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
; d2 c2 [( h) u. [" F5 w! E                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
$ y+ U) b4 ]3 f4 A! o; J                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
# A2 ]7 d. m# v+ J6 N                dy:=0;
                        --end;
  `$ H/ ]% A$ j, M$ L+ f( {                end;
0 s4 e7 e3 |# i$ h1 D* k. x                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 C$ B5 }( X0 ]; Q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
! }( N4 j3 E- P; a            if activityspace[2,rows]>dy then
$ H/ R& r% t9 _1 G- M) F5 a% d0 R8 l                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
$ k8 `3 a8 _8 F* o5 z' b                /*if mark=true then
                ct:=activityspace[2,rows];
) i& |2 r2 c' h4 ^, i( L* J7 m* i                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ o: Y7 A  b. ~. J( v                        end;*/
# H( v8 \# m& U, ]" F4 t; J- r        next;
8 E, \- Z0 V% _% G& P        y_max:=y_max+dy;
$ k3 C/ i  R/ W' U9 n1 B        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);
8 T( i2 q& P  f8 n  T) ~5 X       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  q8 O3 Y* N& `6 A                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
2 N# s. F: J& a4 F; W                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 c: @% m  K" I/ 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;
4 h, p# q% |5 }        next;
# Y, A# l, z3 N! J/ e       
" @4 }. C' _8 I- S; N' f/ Z) }  [        lines:=0;
        partstable.delete;
       
% k# w& H9 g0 Q# R3 H        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
* u% @4 }# i& }% }; E! H- ?8 M                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 d  m) g: e! K- o$ N                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
, a# M7 @1 B; a                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
8 p, |* _/ m  ]- l" O7 P: v) M                end;
2 f- k, F" G, D9 c: d+ p* H2 {        next;
        machinename:=sprint("M",rows);
9 ^1 Y1 R$ Y! u% ]8 }+ x7 M/ p2 h        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;标识符未知
  K/ ~$ Q! D- ]6 D  o" [$ R        machine.proctime:=5;
7 V" h9 E( |' N: S, t) W        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
. M4 f4 Y* 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]);
        buf.name:=bufname;
% W* R, }: O, I6 W- t: \        buf.capacity:=5000;
        buf.proctime:=0;
7 }1 b* e8 b$ C' b        .materialflow.connector.connect(buf,machine);
3 ~) ^4 _9 j- a- N! Z2 G1 |8 ^       
        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;
1 {3 s1 G2 L' C$ \  L4 S3 i) t8 \) Vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, l# g* {% {; E5 A3 J* lnext;
* O0 ?1 n  G" f: X3 Q$ [' Z! Jend;