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

zooey

is
        mark:boolean;
& E6 n/ _7 `6 |- X        dx,dy,ct:real;
# Q6 d8 w: j; G- b1 _" ^    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
1 V& ?3 ]+ ?: ado
* G; B# p; u5 Z: ^: ~/ K7 [        current.eraselayer(1);
+ H$ ^$ n2 I4 k. M9 K6 E       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
( n) G% e7 l; p6 G0 N* @" D                when 16 then
& U3 r6 j. ]9 P3 z1 n# U1 V$ l5 t                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
, r5 ^% }$ }" [! {/ G% u                end;
                eventcontroller.stop;
        end;
3 T0 @% Y" c3 o) O  N       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
" _* n8 {& b4 s6 R+ P& d                machine.deleteobject;
( N) X& C# Q! o! [; o        end;
        bufname:=sprint("BF",i);
9 w6 V7 b9 ^8 ]* Q& d. m        if existsobject(bufname) then
! e! o; h: F) L# _9 `' b) F* A9 n! k                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
4 P6 K" M9 }7 e5 H) b/ l       
2 d" X1 J) D% A; W7 n) t7 z        dx:=0;
$ m* |! u0 i. ~3 I% O, B        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' t! i& ~+ c& ]  ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
7 k& w8 @5 ?$ X; G* ^7 Q                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
: t5 l0 {  r$ l( m$ J                        y_max:=y_max+dy;
( x1 Q1 @7 o  w& R: q5 {                        dx:=0;
                dy:=0;
                        --end;
- W8 }3 U" F( F2 l                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 X6 N. d3 Y- u1 @  d! L# M$ L                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];
0 V0 r0 W# V2 k! `                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 B. P( b9 v$ ]3 E                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 ?  {4 D9 h" u* @, d( J                        end;*/
, A' T0 C) T9 D        next;
        y_max:=y_max+dy;
$ O8 s/ D: N7 t' y0 D        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);
  n! W) _+ l2 v) x; W0 c. F) s       
        rows:=0;
% t. f( P% X9 G' [        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
3 L9 K+ q  }; U& h+ ]/ S" k                                d_from_to_chart[j,i]:=0;
( s, r  D% m: l8 }8 X  D2 e+ X                        else
5 T4 Q8 M' q) ]# g/ h- B                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 j4 Y- l; d! f4 ]+ k                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
5 Z8 X+ f, e" z                                d_from_to_chart[j,i]:=abs(dx-dy);
9 V' ~" R& g$ i% J& }0 h" |3 {                        end;
. G6 K: @: R( q1 y+ ^) k2 Z                next;
. r  q) e% O+ S4 |1 r        next;
& x2 D7 W6 X4 ]; b( d* J       
        lines:=0;
* ^' B( T" o$ I/ x: U        partstable.delete;
- h: k" B7 L  t1 b7 w       
; R9 J$ L0 \4 o& _# _+ E: R! d        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
3 X' o- t$ U) E* C  ?' C                        if w_from_to_chart[j,rows]>0 then
# e9 z% T7 V3 ^: `/ q                        lines:=lines+1;
/ O( @2 U0 a! Z1 j/ P! F# y* }                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
0 \4 V1 t) r) G  S$ t0 T# ?                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
' Q0 o2 A" A) W+ K' u4 P                end;
        next;
        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
$ U$ \9 G7 r0 P2 V( N        machine.exitctrl:=ref(leave);
       
        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]);
: D; d; H* t7 |, l# Z7 J        buf.name:=bufname;
# G+ w9 j9 f* f* z, ?6 O) f5 g        buf.capacity:=5000;
# o9 q  X# r/ N) w: p& x& b        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 ~2 l# n* {. B! M3 ?) L) d0 p       
  J1 ?$ _0 ]* @- N0 ~: j        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);
next;
' l  K9 _7 u# _3 send;