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

zooey

is
0 z: [6 s$ p- u0 l) ]        mark:boolean;
        dx,dy,ct:real;
$ l$ K7 A0 q3 k8 p    i,j,rows,lines:integer;
    machinename,bufname:string;
9 W. g; o/ f4 P6 P# ~    machine,buf:object;
do
# z5 j) F2 g( Z2 K8 Q        current.eraselayer(1);
- L% [& E: u& \' `       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
* d) o2 A% Y  `6 r. S                when 16 then
                        print"yes";
5 x4 O% [# t9 H                when 32 then
: o, l7 z* @! p                        print"no";
                else
' F+ j- r. W8 r) U                        print"cancel";
' g- r: D" [8 o9 d6 `. R6 y" r                end;
: H# Z& E1 k: W" e- C* }4 ]                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
8 U( R6 V& ~7 T5 V        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( `/ e: [4 z* V0 k( @- f/ i                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
- D3 f) d, O( @! ?# r& \        if existsobject(bufname) then
: f) U4 Q1 M* e! i8 k; V                buf:=str_to_obj(bufname);
                buf.deleteobject;
* n: H4 y4 K1 h6 o0 G; B        end;
# `% i) n: f7 d$ g        next;
       
2 S- i: S4 _7 M        dx:=0;
! b" M1 o+ r5 Z$ k+ u        dy:=0;
' I+ z+ X, T; e4 Z* q0 M; q4 I        for i:=1 to number_of_machine loop
  N+ u. k0 q* E5 w9 G) l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' W# F: J& {. X  ]4 @                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 H9 l2 {" u8 p+ h                then
% G% T* Z% y' Z: n6 r' Z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) X6 e  {4 X+ X& X: L% \                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
- k; i0 h( ^6 j7 T) k$ I                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  u6 l( @; }3 g                        activityspace[1,rows]:=ct;
% P- K9 b" i. I' t) a( \5 v. v8 C                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
5 b$ v8 Q5 }6 e& B4 |+ o& k                        dx:=0;
                dy:=0;
                        --end;
5 G6 y7 E; p1 Q& T                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];
& T, u/ {$ x" m( B( X9 q; w                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- H$ X) V/ t/ T' |                        activityspace[1,rows]:=ct;
                        end;*/
- L5 x* k5 P6 E! W8 |        next;
6 i2 K8 U0 \# ~. Z' n1 q8 ~+ f        y_max:=y_max+dy;
( s4 u2 [  C" \! \        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);
0 o1 |% |6 A" {8 y. ?        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;
        lines:=0;
        for i:=1 to number_of_machine loop
# C- m! t" }" x* O                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
, G5 ~* r" a* M- K% V, {                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% e4 [( r& D; v9 [                                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);
( a* S$ w% J, T3 ?                        end;
# W+ B. F7 k# T, W                next;
- H8 H1 B! c% y4 l1 ]1 I0 F+ j        next;
6 L$ A: [' L0 r7 K       
        lines:=0;
% B# n* Z4 q4 x. Y% T/ q% C        partstable.delete;
* P8 X% g, P/ K6 L       
) O4 u, T4 X) Z- r        for i:=1 to number_of_machine loop
  }9 ]: h! C9 l" C                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
9 D9 e7 N4 M/ Z# t. P" V% [1 }                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
' C; z  a" t! C+ A                        partstable[5,lines]:=rows;
* ?8 x9 d4 g" C' p/ ]3 D4 M                        partstable[6,lines]:=j;
                end;
( J  R1 R* N8 b" {8 a        next;
! k# x: r  W: m4 R& S        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]);
3 ~9 H; _3 i+ q/ a+ `; P        machine.name:=machinename;标识符未知
$ |& ?. U* e9 F; C& u        machine.proctime:=5;
7 v$ _: G+ N$ y- n  l        machine.label:=activityspace[0,rows];
8 ?) E3 N' d; M# Y. D* }        machine.exitctrl:=ref(leave);
. h: z! ?" H+ I" c6 Z       
# L4 Q/ ^- m7 a3 a6 v        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;
7 H7 _/ b# t: Z! s! G; o0 t5 r        buf.capacity:=5000;
        buf.proctime:=0;
7 N  m  {' V8 E& E: |% h        .materialflow.connector.connect(buf,machine);
  @& {2 d+ r8 X1 r, @0 g# B1 I       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 p6 P5 Z" W* S5 ^" e* edy:=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);
) |" E/ ]* k, G+ {5 lnext;
0 ]/ K. E- u! O( mend;