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

zooey

is
* F4 X% I# W& `        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
/ D0 q# S9 t4 |( @$ o7 M8 M' J' p. J    machinename,bufname:string;
    machine,buf:object;
do
3 e6 `! q& l7 a8 N  j        current.eraselayer(1);
" K( b" G) R, p; b: r& v! |       
  i) B3 F$ j4 _        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* Z) B/ p: A  `: ~1 y% A                inspect messagebox("设施数目不对！请核查...,",50,13)
$ a( p5 o  M3 N: }( }2 ]                when 16 then
9 d% P* i. R5 p                        print"yes";
                when 32 then
) P* @$ y: r  t+ y; x- l                        print"no";
7 u" _3 O+ T% Y) O1 Z3 I! D                else
. S) J3 g0 C( P& s' \* ^% }9 A9 a                        print"cancel";
# g& p* i4 G+ p' r* S' P' t                end;
- i  X9 f7 e$ q$ o1 ~& t7 a                eventcontroller.stop;
) D) p2 V3 `( m( s' u  v% s/ y- [        end;
+ q6 Y1 K  }3 g/ J. h       
        for i:=1 to number_of_machine loop
- o' u, x* P' F        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
* P1 n0 o6 y: ~. ^" B        end;
* `4 M' L8 P5 c4 J6 X  l0 C        bufname:=sprint("BF",i);
) j+ R0 U' u# e+ Y. Z* z" v3 Q        if existsobject(bufname) then
; k) m4 Q* Q; t% @7 j                buf:=str_to_obj(bufname);
                buf.deleteobject;
- d9 j, V' ^0 p1 Q# Z7 _        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 O5 x( q* I3 ?# y# l* |# y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
' Q# k" b3 i2 r$ K% F: O9 C                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& a: ]: q/ U- e4 H4 V                        activityspace[1,rows]:=ct;
* c7 m7 M5 Q3 V, @                        mark:=true;
, i# V) s/ T5 q                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
* K& A# b  b* P& m, c  A                end;
% A' Y' ]0 [  s8 @- e- [7 U                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) D" y8 h+ B! R& |- b                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
; e: F) l6 {- H- J7 }                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
; G2 }9 B% J) h- U+ O  c                /*if mark=true then
- w6 X" A' g4 @  ~$ F                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
# D9 T, h1 `8 ?3 c; Z/ Z3 E        next;
& V' x* o, o( `+ Y9 _3 s6 k0 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);
+ E. h+ j4 {9 J! }( P! C- k1 q        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);
' I( {; h  V  ~5 T* [) p       
) H$ o$ l) Q5 r; X' j! j. t/ H: w        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;
/ K, D! b3 g. V5 x1 }1 ?  e3 o% ~                        else
0 J+ G, H& ?2 w6 N8 v; Y3 J" I( C) B                                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];
" v, F  g. q2 m9 l/ p" S                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
/ T+ R4 R) B0 e' h6 r       
        lines:=0;
: t% K% r0 R3 X* {        partstable.delete;
2 Z, t6 h8 ~# x" P* ]       
# r+ }3 P; i. `* F        for i:=1 to number_of_machine loop
! }- N% X2 ~# v0 b+ C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
' k. }8 t2 [; L, g2 g: `. e5 n$ M                        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];
$ X3 A1 {5 t4 a% q, }' t                        partstable[3,lines]:=sprint("parts");
; E$ u1 L5 a2 `: j) W! J$ ?                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
: q% B; h1 `7 L( M" A2 j                end;
. ]% k9 w- F: q0 F- `/ w: f        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]);
( h: l+ g- V: [  L8 J        machine.name:=machinename;标识符未知
3 c* Z, N! I& b) E7 m2 Q! h0 }( q        machine.proctime:=5;
        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
: f7 W. e: o: v        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;
% V  t, ~6 C8 Y0 `current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
2 D5 p/ n: C& W- V4 t% @# V$ o# {next;
5 ~9 W$ B% ?4 n2 B; D7 M$ _" Eend;
6 a0 D, M! q" C6 w  }. R