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

zooey

is
        mark:boolean;
& m1 N6 P0 e5 u6 T. y3 F        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ C# _+ l& q+ M    machinename,bufname:string;
    machine,buf:object;
do
3 C3 E9 E' E4 i$ @  ^. P$ L9 W        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 c+ f  B" u0 |6 u: Y0 j                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
2 F9 u4 r5 t8 r5 E                when 32 then
                        print"no";
                else
                        print"cancel";
* F1 X4 d0 u% N0 o! |0 l                end;
                eventcontroller.stop;
        end;
  F1 }; ~( {  u       
        for i:=1 to number_of_machine loop
6 {* J+ P+ ], q3 A1 o" O+ H        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: d+ ~) }" _$ E' w                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
+ m2 {, B& I3 ~       
* R5 U& f8 Q" g* _  |% w( ^        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
  r% Y. |) S" ~% F' Y" I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 |* L) b* ?; q" n! h+ f$ A/ n" a7 x                --mark:=false;
/ l, G5 }# |$ h+ ?% U1 R0 U                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
  v( I& ]* C- ~  c. F& d2 X                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
$ i8 X2 C& I  g# p8 I; Q                        print activityspace[1,rows],",",activityspace[2,rows];
  u5 w4 w2 b2 f2 T, ]7 t                        ct:=activityspace[2,rows];
1 T2 @5 q$ S( j/ K                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
3 K6 g- O- M1 t  R! K% Z" `- r                        else*/
0 X# V( d- Q; q  k$ ^" f& c7 d( s                        y_max:=y_max+dy;
                        dx:=0;
5 y1 \) n, Q! Y, k" b% }3 q                dy:=0;
                        --end;
( \' p' Y' r/ ?, U. _3 U                end;
3 R$ G1 W4 A1 u$ v* h) i: U                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# I' Y% ?# l0 ~# h# K                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;
  E) m) y+ M; k& j6 d8 n                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& f$ g0 Y) }" L/ X/ Q8 q2 ?1 s                        activityspace[1,rows]:=ct;
                        end;*/
: P( K/ N' w% a2 a" E& L        next;
3 g1 \. E( |' D! J9 f! F        y_max:=y_max+dy;
, t9 o: r& U' p        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);
- E2 e+ o  I2 D" f1 Z$ q        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);
3 ]. G9 T, W) D- g       
+ B4 H! ^4 R; i  d4 I% y) g        rows:=0;
        lines:=0;
/ @, X5 e$ B/ ~        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
/ a$ O" M4 w' m                        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];
, ]7 L8 A2 T# k9 e                                d_from_to_chart[j,i]:=abs(dx-dy);
3 g2 {8 P" H% T9 z                        end;
+ g3 e3 \% M; t& y) l6 I* s' Y                next;
        next;
       
        lines:=0;
/ s8 g8 j4 D2 _8 e: i3 E6 @        partstable.delete;
# F  Y" U( y4 Z+ i4 S4 E% Z) \       
        for i:=1 to number_of_machine loop
! ?. @# h1 O# B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' N; K8 |% U: ]9 O                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
3 p/ }# q0 }/ G! R$ f                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# d0 _. n  M: G: q. r( ?6 X                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 Q. [$ ~6 k$ K                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
' w9 H* N) p/ p' N                end;
2 W$ Q! X( j( l" _' v# ~6 O        next;
2 Y0 x2 I% y' A        machinename:=sprint("M",rows);
  ~: Q9 f: Y9 E0 Q& [6 m% r        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;
        machine.label:=activityspace[0,rows];
3 W4 y0 j, M6 H& F9 u7 a) Q$ h        machine.exitctrl:=ref(leave);
9 ]4 O: y7 r& G, x. h4 ]8 Q       
# O% j  R, \& R        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]);
3 E  X' g: q. L. E- D        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
$ d" M& n. k& o5 y5 o9 o       
        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);
: N- w& _) c$ d/ dnext;
5 }( }% p" u) `end;