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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
2 o) N- [& x  H# j$ }do
( C' v8 s' v: N- A9 ^& Z  L9 G        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
6 v% p7 T* S) r; g/ X! q                when 16 then
                        print"yes";
                when 32 then
- u0 ^" r$ ?0 o* e; q( R                        print"no";
2 E* ]7 h0 q  j4 H+ g                else
6 S) A) L2 L# U( I  R3 c                        print"cancel";
                end;
6 G/ I! ?) X, ^9 U9 i2 t9 J. @" ?! ^                eventcontroller.stop;
        end;
       
" g3 T7 J$ \# j# G4 l: }6 }        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 ]+ h- A6 f& X4 c+ y: w6 t                machine.deleteobject;
        end;
; Y4 E" A% W* [- z7 |5 F        bufname:=sprint("BF",i);
0 x7 ^, J' `* Q% t2 z5 o        if existsobject(bufname) then
' k  w3 w/ E+ S& ?3 E9 j                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
* A3 y* }/ o& |( `5 ~        next;
7 [9 G( m$ f1 ^8 k8 O' @6 O) M. @       
        dx:=0;
9 f* O/ v- l) J        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 e3 o+ i2 M# L9 @" t( W7 ?                --mark:=false;
/ }2 l6 v/ y- E+ R, R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ t0 m9 t% I3 n4 T& [2 y; e, n, L                then
# L) f; `" |) L, f                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 m+ \# e2 V2 v. W% F3 g: d                        and activityspace[1,rows]<(1.05*y_max) then
* I& x" O) V  `( f, t) Y                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
  S. }, F+ r$ y  N8 x; K                        activityspace[2,rows]:=activityspace[1,rows];
! Q" p* M7 z. e- y' R7 Z+ C, i                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
" g  `( _0 q! H' w6 Z                        y_max:=y_max+dy;
                        dx:=0;
$ z3 e# w6 f. a# o0 o& a6 l7 M                dy:=0;
' }& R+ ?: Z9 j: S' W$ p# o                        --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;
' |! k: I: z7 R& B4 z            if activityspace[2,rows]>dy then
+ r3 X7 L0 T; n) O% D                        dy:=activityspace[2,rows];
8 K4 Q. k* F7 Y+ Q$ r                end;
$ j; r" P+ S! T                dx:=dx+activityspace[1,rows];
8 g4 H1 I# |" f3 {* L) a                /*if mark=true then
: r, q/ a7 l! f$ h6 I                ct:=activityspace[2,rows];
* g# B. @, o, ]! [: W  c% f  G9 L                        activityspace[2,rows]:=activityspace[1,rows];
/ \9 [* j: P8 Y8 z- f( w- V                        activityspace[1,rows]:=ct;
                        end;*/
        next;
0 E( ~# r# e% S& x: D) W9 P  L        y_max:=y_max+dy;
        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);
* ~) M  i* f% n" 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
                for j:=1 to number_of_machine loop
9 C) y4 a* A- k; `- Q& h) X: k                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        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];
4 N6 l* d. J. F. k: E+ c, y! L                                d_from_to_chart[j,i]:=abs(dx-dy);
, I% |$ U- {3 C9 l) E8 v- o                        end;
                next;
        next;
" @1 C; ?4 ~" \+ \. n       
        lines:=0;
2 \5 K, G0 O6 @+ b7 k7 X        partstable.delete;
3 I  c' o4 y; c& B) j4 z6 Y       
, B/ u  _3 ^/ H        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 ~* c8 s" ~7 p' O+ `0 `                machinesequence[2,i]:=rows;
$ ?, a0 z$ i/ H                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
& E; ~% s& `' k7 s: J+ Z4 ?5 j5 C" M                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: k3 \0 N2 n9 ^  [) ]; }4 q                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
  d4 ?0 e# {6 Y                        partstable[6,lines]:=j;
                end;
6 v% O. @. v& L) F3 g        next;
        machinename:=sprint("M",rows);
- T$ {: ~2 V% \4 E! a        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]);
$ `" ]: Q9 R" R9 `* ?        machine.name:=machinename;标识符未知
        machine.proctime:=5;
5 T' g- B& C% u& B+ d1 T        machine.label:=activityspace[0,rows];
+ E: ?5 y0 @5 C1 _( k        machine.exitctrl:=ref(leave);
       
! j& N$ i$ p; b5 j, {        bufname:=sprint("BF",rows);
) p- }" \- Z0 R1 c9 E/ A        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]);
, ^4 P( P0 |1 F' }8 ^: n        buf.name:=bufname;
4 ]' I) F0 {- ~2 X( V0 H0 j        buf.capacity:=5000;
        buf.proctime:=0;
8 m- [, e- N3 J* x2 e1 V: a. m# T        .materialflow.connector.connect(buf,machine);
% t& ^' f) M. B4 n0 ~) x) @' y$ \       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ b3 Y: P( `( [# W; [7 p5 Xdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# H% L$ M( T: ~4 d1 _& Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
+ C: \% q2 a* P, Vnext;
end;