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

zooey

is
  F8 t- q4 y% r- c        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
8 I$ X, G5 x3 w, h6 `9 S- r2 u% W( H9 p    machine,buf:object;
! a7 k4 g) K' @' L' t  wdo
1 o; t+ C7 y/ L2 ?/ y4 x9 J        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 D- w! F; d; p+ s  v3 W                when 16 then
$ p/ N# N- H  w2 x. z7 p                        print"yes";
                when 32 then
                        print"no";
                else
: G: p4 `; `# j0 U: ]3 Q- J                        print"cancel";
                end;
9 _+ w2 s4 n4 \4 `                eventcontroller.stop;
        end;
       
; O6 @6 w2 n2 H# l( n. ~: k5 w        for i:=1 to number_of_machine loop
2 X7 z/ J0 ~' f  Q        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 Z1 [& w. \2 `0 I* h- f0 m' i                buf:=str_to_obj(bufname);
; J9 b8 c/ }# v* r: c                buf.deleteobject;
        end;
        next;
$ G6 w4 |* ?- ?8 L/ E/ O  ]       
0 e0 b; {) i! c7 e% j        dx:=0;
8 E% {2 I" u* r1 O        dy:=0;
! h' r# ~) `8 |2 h1 \) ]) }        for i:=1 to number_of_machine loop
$ x; k3 w9 B2 |  L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ v9 z- U1 j5 o; O+ u3 p3 u                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
9 f; ?) v7 j  {  E, F2 y6 y& Y                        /*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];
' Z+ ~8 G6 k0 H, z0 [! o7 `                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 M- }; m; t- o3 L                        activityspace[1,rows]:=ct;
$ @; x  S7 q9 c+ |5 P2 A9 H5 ~7 b                        mark:=true;
4 f( k9 v4 W. ]8 P$ w7 I! j                        else*/
7 k0 h3 t, G8 f* s) T2 G2 |                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# J! D; D/ l  f5 l. V+ j                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
) M7 J& R( j2 M( W  l" ^                        dy:=activityspace[2,rows];
/ i% Z2 i! K* R5 B9 m- h                end;
- t. b" a1 t, O8 n# K( i7 J# Z                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
! d( C8 A0 ?. j! ]                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ `. u- `9 H) x9 X3 f! I, H- e# @                        end;*/
        next;
" A' K( E; }2 `/ K        y_max:=y_max+dy;
0 N* i3 N  \* O$ \6 {: {- ?) ~        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/ [# G0 j- m" H2 Y/ {' F        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 C0 K2 r  {1 J! a9 V, C       
% [3 r: Q+ f. H; y" @' ^8 m8 C        rows:=0;
, k9 T& B. {6 ^8 U: W( x) b. I        lines:=0;
1 _8 L& h/ h- C' i  X        for i:=1 to number_of_machine loop
" u/ L/ W7 E  R( L                for j:=1 to number_of_machine loop
, c" C5 }" s' e3 I) s. w                        if j=i then
% T; n. \7 i3 z/ u; ]1 ^1 q6 `3 [                                d_from_to_chart[j,i]:=0;
# R* {3 O1 i0 c                        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];
; O% A( N( ?6 {% w                                d_from_to_chart[j,i]:=abs(dx-dy);
. y7 t' g- G, Q$ C, _* o                        end;
5 N- V9 a! e8 `& j                next;
        next;
" n9 k# i1 A2 w) U       
  W4 T1 N5 }" F' u9 C9 v        lines:=0;
: M! X. ]% U: T) s8 P* E        partstable.delete;
       
7 F( w! r# x9 A8 t' P& N$ d        for i:=1 to number_of_machine loop
: t% t1 L& h$ V, K* c) @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
2 x8 m3 \$ z+ ?" u: r5 c; P                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
; P, X" _8 v! z) x7 n                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: q6 Q7 Q, X; l6 N' j                        partstable[2,lines]:=w_from_to_chart[j,rows];
- C3 A9 \- D9 {& a                        partstable[3,lines]:=sprint("parts");
0 ~/ L# ^* d% h1 r                        partstable[5,lines]:=rows;
) c9 ~/ A, ~3 Q5 e: E' U. ^                        partstable[6,lines]:=j;
                end;
0 b: {( n6 t) o, N7 o# Y9 K  S$ r        next;
* N% S0 s! u- {3 e9 P7 q3 Z        machinename:=sprint("M",rows);
( @) }& z& D5 J* F4 W        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;标识符未知
( g2 F* V  y! R6 d        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
, p. G6 s/ d, q8 [4 m# v7 f        machine.exitctrl:=ref(leave);
       
' D( D3 I2 N3 G4 Z3 W( [+ |1 s) M) B        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]);
4 X" z9 g5 x7 k% D        buf.name:=bufname;
, a6 o8 @; H, j5 b2 I0 |9 j' U        buf.capacity:=5000;
+ a# a% A8 b* d+ L2 V        buf.proctime:=0;
' d# z% [! R" t1 w8 @7 G        .materialflow.connector.connect(buf,machine);
2 G2 F1 w& Y" f  n1 l       
- T& M* l6 G: ~/ Q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( N- R8 J7 m! l1 edy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  v* |% p) e/ G) q4 F: ~' u: u# f! ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. s. o- i8 l# J9 E5 e" {next;
end;
; Z2 N* t' l; }0 q9 P, J. _