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

zooey

is
' c: ~( i/ d& W( b0 q. e% o        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
7 {9 n+ ^1 j  g: b7 N" h        current.eraselayer(1);
       
1 N- N0 D  B: D- q+ P0 E  b; V        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
$ F0 F  M7 q1 K- @0 H1 Z5 G( A                when 16 then
                        print"yes";
                when 32 then
                        print"no";
$ S8 r$ U0 C5 o$ l- [' _                else
                        print"cancel";
                end;
                eventcontroller.stop;
0 _: J' X) Z! W        end;
6 ~/ g* X+ C2 W! F; o: t/ h. z       
3 Y; P* q6 R! y0 e" z2 {        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
( W5 ^/ {' s4 F& C- g2 \; ^+ W* a3 C                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
" `) }% h. x9 k6 u3 U        bufname:=sprint("BF",i);
( d1 T7 X# \, Y" ]; \0 H% R+ `        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
8 v! @! c8 h) E" O        next;
7 H9 ]; P7 u' F" d$ ~9 H$ g       
        dx:=0;
% Q* J% [3 o4 I' |        dy:=0;
0 d4 e0 e/ z$ j* f6 U) }        for i:=1 to number_of_machine loop
8 E% C; a: a! w' M$ |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
" G" H0 x  K/ {3 t. X( z1 a/ E                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  S/ N1 N* ^* `# Q# d* F( O                then
8 e: v: e+ u0 s0 W                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" ^. V2 l$ X9 k8 F                        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];
- w! b# O* w$ ?                        activityspace[1,rows]:=ct;
$ q" A1 ~: M7 \3 S  [* r                        mark:=true;
  N% K1 y2 |) c! ]; t% v2 r  N                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
: O/ G# f7 L, C  W) M5 K( e                dy:=0;
! Z2 i7 h2 R1 Q; s  l. J$ p* A7 w/ I                        --end;
. J4 C2 X4 ?2 D# W( n1 g                end;
                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
" P. E: q  \. L: K2 z                end;
- ~8 q' K: D# W$ v% v' U. H# I5 s) W; {                dx:=dx+activityspace[1,rows];
+ [- v9 P, T- T1 k+ Q# K                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 z7 N+ h7 u; I5 @+ y                        activityspace[1,rows]:=ct;
2 d0 ^  l, m( B5 ?6 F                        end;*/
* g; Z  i% b4 R6 E: S4 ~        next;
/ x/ ?0 {9 |8 [# g) k. B        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);
2 A! p" B! P) H1 \0 I! O       
: f2 a) |2 w, D5 y7 b) r8 i" E        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
$ |4 }9 J; Y. ^- Y# k                for j:=1 to number_of_machine loop
( x$ |+ O' }' x& k: F                        if j=i then
                                d_from_to_chart[j,i]:=0;
- K% m5 P( j% p) ]/ [3 H                        else
3 x3 H! U7 g* R: c- F+ J6 R3 D, N" g* W                                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);
                        end;
  H$ x( [4 d: M# r5 Q6 R. _                next;
$ \% W2 B# A6 h        next;
       
- F# c- q# B* g2 I5 n$ N9 R$ @        lines:=0;
! N+ Q* i; i# p9 b$ r        partstable.delete;
- I. a, P9 m4 t5 k, f) ]       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ w% I4 a" K/ _1 D. f+ q                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 L, i; C/ p% V& ], @! H                        partstable[3,lines]:=sprint("parts");
5 r) [- r$ e% M5 V0 O: j                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
0 Z2 Y9 _- k' l" ^$ M! S                end;
& a" p6 H4 q- P/ y        next;
! o* d: J( \8 T6 H# E        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]);
; f4 N8 x5 F$ j$ N4 S3 E        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
& k' g; V4 ]" a( {- ]        bufname:=sprint("BF",rows);
; ~& t* p% f+ W4 v        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]);
$ O9 v9 m* y: r! h0 t9 {        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
# U$ j8 U. B( u' bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;