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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
; h7 ?8 y) i/ B. C    i,j,rows,lines:integer;
5 X/ ^2 x0 c9 q9 o7 t    machinename,bufname:string;
    machine,buf:object;
7 J# B, y, P0 n+ Pdo
. L' W, T8 W3 W3 S9 _: C        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 L7 j! i* M* z3 G7 q1 C; u, l                inspect messagebox("设施数目不对！请核查...,",50,13)
; a, P1 k. v( P; c0 i                when 16 then
  n6 P2 g5 ?( S" U: g& S                        print"yes";
                when 32 then
" \1 W( s  ~$ O' b                        print"no";
% Y( a4 Q* i9 p& ]                else
7 e7 N2 ?8 ]+ Z                        print"cancel";
                end;
6 N6 a. J% j4 b$ W! X6 T! k                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;
7 p/ f- t! m& w$ U        bufname:=sprint("BF",i);
$ ~8 R1 K; [* c, u        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
( ~& n6 a6 @3 ~- \3 x        next;
4 e, {  f& e6 v7 u+ p; c/ W       
        dx:=0;
. K+ T  C$ n% h; G8 l( H        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 c  c  d9 k; n                --mark:=false;
                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];
: k2 x6 V& \) c6 u1 H% N                        ct:=activityspace[2,rows];
! ?8 Z  g" P# [+ n                        activityspace[2,rows]:=activityspace[1,rows];
7 O) O1 I4 V8 K$ R                        activityspace[1,rows]:=ct;
# e0 [( e1 z( s1 I                        mark:=true;
4 r0 [) e! \  {* I                        else*/
3 L8 i" m& c3 k                        y_max:=y_max+dy;
3 P0 i2 w4 b/ w. L- @                        dx:=0;
; W/ s5 _# x* n8 B                dy:=0;
                        --end;
" i( c. D& r: Y                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
4 A, t  F7 t& Y# H! Y4 q                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. l4 p* J. P  o7 r( W* J                        activityspace[1,rows]:=ct;
                        end;*/
        next;
  x! R. g4 `, x2 G6 k) I        y_max:=y_max+dy;
1 ]8 }+ F" h% `        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 ~& _5 [/ A0 O3 e$ ^        rows:=0;
        lines:=0;
9 i9 Q- g) {6 Z1 n" {/ Q: u2 C! D        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
8 |) B9 K+ B2 K                        if j=i then
/ K8 W) z; T+ J% ^                                d_from_to_chart[j,i]:=0;
. m8 [' L: {+ s1 W. Q8 s5 A$ L) w                        else
7 V( x' p2 m" ?* ~$ G' h- n( F                                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;
/ ?6 l! ^9 e4 @8 g+ F7 M0 b( H                next;
( y  L. j  }9 M) N        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
( ^5 M+ U- ]- v0 I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
  u1 A- m0 b8 Q2 C                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ V0 S, b; r0 r' y                        partstable[2,lines]:=w_from_to_chart[j,rows];
( D* z- Q9 \9 H2 y7 M                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
* V: a% }' F5 s; T        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;
" S' R" ~: ?- s, |  F; w        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
+ T# j8 A6 p5 }7 U* i3 f* O5 P        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]);
  Z* P2 z7 u1 k  r$ C" S% P        buf.name:=bufname;
1 t! V9 T7 G- \& F+ t- @! k        buf.capacity:=5000;
/ J6 }1 x6 X- ~: m% y$ Y" b5 F        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);
$ D0 J' E# t) v- R1 bnext;
end;