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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
* Z  M  s: M, ~    machine,buf:object;
- A+ T; v0 T$ C% y* |do
1 j* U  Y5 t4 y& w0 r" y: o        current.eraselayer(1);
       
/ y4 R9 e- U0 [  H        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 S% I& q7 j) Y) h% D8 e# h                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
2 k% e3 H* y: Z  t                        print"yes";
                when 32 then
                        print"no";
                else
; y0 q& K1 f( ~6 ^1 L: X: J                        print"cancel";
8 S7 O* B! R  T+ B                end;
( m8 G% k2 e5 a: u6 G1 X/ B                eventcontroller.stop;
6 W' w4 t, e/ U2 E1 r        end;
       
        for i:=1 to number_of_machine loop
. l' T! f! Z7 F0 l0 K8 Q1 S        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
3 y$ y3 ]8 j. }/ b6 d7 m5 _" ^0 m                buf:=str_to_obj(bufname);
                buf.deleteobject;
( g  @' q) U+ N) C: R4 O. N$ H        end;
        next;
       
. Y- v# a9 p3 |& \6 r( q7 E4 y* I        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
; s& i  Z- L4 H  I0 Q2 f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. b! o1 \* S5 O1 q1 x4 e3 Q% f                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
2 h9 P% [9 {# E! L                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
9 o' H! w, y8 u9 M7 }                        y_max:=y_max+dy;
                        dx:=0;
- Y2 p$ f; d8 V' O; C% G  q6 I                dy:=0;
. H: h6 y; D2 C$ a' Z' L# Y  Y2 s5 O" t                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 [/ U: Y: h  ]5 ~; H0 D( {! c                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 x+ W" _- {/ o* w            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
  E! H) H" v' l. j$ s                end;
                dx:=dx+activityspace[1,rows];
- J' b0 ?2 }* G$ J' J6 M8 O; W" B" w. m                /*if mark=true then
                ct:=activityspace[2,rows];
+ ]# [# W+ q+ W' d' y% _6 L; l3 b                        activityspace[2,rows]:=activityspace[1,rows];
1 a8 y$ e- I) X% K$ g                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
) `4 x7 X* E# B8 [* X8 r" q( ~       
  q- r6 C: o1 r9 Y        rows:=0;
        lines:=0;
        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;
( u: I. c. d% p! n# s                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  x9 ?8 V- {' k# J& T7 P1 m9 k                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
( l& b2 g/ F2 T8 Y                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
# o6 C& }! J% N4 d/ D- t) g" K/ b  O& c       
        lines:=0;
! Z1 K  Q6 y0 m3 B# w6 ^        partstable.delete;
5 u' h7 E# W' n+ ~2 q8 ^+ v       
2 F( |  u% e! |0 B        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
  B2 h6 L; ~: L& b8 r' r2 g) d9 n; s1 \                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
% G, Q4 D! ^. ~1 k# j+ L- V                        lines:=lines+1;
( K0 Z' q$ P1 D* j8 U& B, G! L                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 A3 B( P! ~& f, E                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
) p! H( P( g7 Q  L4 w+ W/ ^0 m        next;
* o# f" [- z3 h! _0 T- N' J$ _- H5 @        machinename:=sprint("M",rows);
" A( V/ O3 h; e2 c% {1 ?, g        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]);
; n9 X& s, f. x) ]        machine.name:=machinename;标识符未知
6 p! d3 G4 a* Y8 l( m3 q7 |1 _# G* _        machine.proctime:=5;
+ N! l6 A: s" p        machine.label:=activityspace[0,rows];
% q$ b: r/ {+ }+ k# T        machine.exitctrl:=ref(leave);
1 q9 i4 ~+ v, V0 d       
7 j  j$ z; ]& z- ~, G4 d; B3 K        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;
8 o) p: x" I) \& X        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. ^; [: F. m. A2 s) \       
        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;
5 ?! F9 m; g& ?1 `/ O6 Icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;