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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
; r2 H& p. T! S$ l: ]3 x: p: Qdo
        current.eraselayer(1);
! a) Y/ Q( M/ X3 e' E& j% Q       
  X/ l& c3 n5 d4 I# @& ?        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
& H& U+ |: r  N7 F0 i0 _! z  f                when 16 then
                        print"yes";
! ^5 M- r& d4 [( v                when 32 then
" E2 {# B4 ]% s                        print"no";
                else
( q, ~# ^4 r. ?8 V- N7 J9 k- O* _, B                        print"cancel";
                end;
                eventcontroller.stop;
; |0 w3 m+ r# ^  t  e! w% ?0 m        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
. |% `) ~$ E, ^' U( m& H% Y5 \        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
8 w$ V# z9 P* j+ x' ^( Z                machine.deleteobject;
& b2 C* u% t- x; O: y( a        end;
- }# I( r( T" U, V1 j        bufname:=sprint("BF",i);
" W1 \' a8 o: Z7 ?9 a        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
- L6 e! d+ G( I3 D6 @        end;
' Z3 G' v2 w9 P+ f# k" v        next;
       
* d; @& ^8 m0 C' l& ]5 o3 C        dx:=0;
" j. o( |& T" Y" ~0 C) m        dy:=0;
. _3 A- y' i3 ~, j! z) C        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# t+ z; c" r. X9 f/ y0 ?                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
! Y' T  Q# v* H                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" d( g* w- U) _& y# m; g* g) i                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, t, ]* e, p- J" }) ]) i2 H                        activityspace[1,rows]:=ct;
% k% v7 j$ W. _% z                        mark:=true;
                        else*/
# D0 Y$ f; Q- q( H* q                        y_max:=y_max+dy;
. G5 h! w4 j5 H5 u( P                        dx:=0;
" |0 d% N" s: R1 a* u                dy:=0;
/ R4 o5 F7 i& z" M( Y' R0 W                        --end;
, g" |2 {, d; C/ h  v+ _# Q                end;
! z! r1 O$ E) Z                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;
9 k  x$ ^$ k5 [* R( `0 v5 q2 D            if activityspace[2,rows]>dy then
- W0 ^! d4 \% u' L3 Z$ G2 _* M5 B                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
- T5 c* r6 s5 b9 B9 G- |  x* t8 Q5 e                /*if mark=true then
                ct:=activityspace[2,rows];
' S3 b0 ]3 \  m+ v: T" M                        activityspace[2,rows]:=activityspace[1,rows];
( L9 F9 r# h9 r( U2 ~7 @4 E                        activityspace[1,rows]:=ct;
* Z3 l6 k, Y7 G# r6 c' B                        end;*/
        next;
5 n& m9 k; s+ }6 t9 T/ O+ K' K        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);
        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
. W/ l8 p2 E7 ~7 d: i, s% v                for j:=1 to number_of_machine loop
                        if j=i then
; c  l9 V4 Z# C                                d_from_to_chart[j,i]:=0;
9 Z2 N5 o7 N) T* F4 \                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
. \+ r& N- I9 t" j                        end;
                next;
+ e6 {- ]3 o3 H  ]3 f        next;
2 @8 h2 }0 M, z/ g/ e       
6 ~2 d6 g. b! I# c0 p        lines:=0;
! U" V( K0 b. G2 m. c" k1 Y        partstable.delete;
       
- ~9 i: {+ a- T1 A0 z# G        for i:=1 to number_of_machine loop
; [8 N& A$ ]1 K0 s# q7 L4 ]5 l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# o5 s( m/ F6 X7 {% I                machinesequence[2,i]:=rows;
2 p( i; b: V1 T$ l3 i' f! ^% `                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
2 z5 c7 T8 u3 @" O+ D2 k  {! C3 L                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  _+ R8 M' q" K4 V0 y; |: E                        partstable[2,lines]:=w_from_to_chart[j,rows];
" y8 U1 \& a4 M7 e+ _: ?- a                        partstable[3,lines]:=sprint("parts");
* q. `/ N' d4 }" V* V                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
5 L% ]7 z% q+ O# o& j  {- h% W                end;
- ?' V, a9 O0 ?        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;标识符未知
9 {; r; @' I2 ^        machine.proctime:=5;
  N8 e% r) w4 Q' w        machine.label:=activityspace[0,rows];
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
9 N& ?4 f# @: \. i& d        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
- V  u- [$ x" _7 e2 J2 z        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;
# ^) i6 B" r9 s4 tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
1 v! a0 F. V* a8 [end;