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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
3 `3 B6 p' B. f& [- g    i,j,rows,lines:integer;
    machinename,bufname:string;
) R. A2 d! d& J- x5 Z3 b! Y    machine,buf:object;
do
- V7 M0 H, f' D8 ^        current.eraselayer(1);
( R' p; D2 w& A; G/ N6 s+ H. ^       
! n1 V$ E# E) y! X4 I3 J0 X1 P: [        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. P/ E$ C1 V  Z8 V& M/ r                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
3 g1 o9 H  G5 O6 F0 D7 s& N3 ^                        print"yes";
1 r( f! C  L& f% O5 u                when 32 then
) s! _9 S+ p& \                        print"no";
                else
                        print"cancel";
6 O% T+ y( g9 e) }% S6 U                end;
! V; t# D; O3 M: \* @% s                eventcontroller.stop;
' Y) {  y1 C& Y* \. A/ z5 T  V1 F        end;
       
( X- M6 S9 Q3 X$ ~. e        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
- l9 X% ^! x# Q3 Q# t5 u, C        end;
4 u6 i) @" F0 m% I# {        bufname:=sprint("BF",i);
0 c/ i* ^" D" J: F        if existsobject(bufname) then
, I: ?& ?% H( W6 g9 V3 t. U                buf:=str_to_obj(bufname);
9 _2 k' ]6 i) K4 [8 W                buf.deleteobject;
        end;
        next;
, r1 Q  i; i# Z! f/ `- ^* A4 @$ W       
9 a- P! G% k; r# S1 z        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 k+ H9 ]$ n! K7 b                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: V$ b  g9 i, c                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' n* q0 S9 H* D' p) b                        print activityspace[1,rows],",",activityspace[2,rows];
9 c5 ?# R1 S8 Y5 L4 X% u+ I4 `                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" t) \' P9 j2 y' k5 u                        activityspace[1,rows]:=ct;
- V0 \0 V& E% {. M2 L                        mark:=true;
( U1 ]; p0 ^8 d                        else*/
                        y_max:=y_max+dy;
' ^4 b$ n$ ^$ S7 E4 Z. m8 x                        dx:=0;
                dy:=0;
                        --end;
! ?: J  `* i5 H                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;
* ?+ E. q- x/ M            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
* c. A4 A4 \3 z- u! [3 ?9 M+ A                end;
                dx:=dx+activityspace[1,rows];
  i" X2 F: {+ F0 I' O" K7 y                /*if mark=true then
                ct:=activityspace[2,rows];
! d) W* x: k8 \! l6 R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: h. I$ M- ?9 x4 k2 G6 C# R8 b                        end;*/
& N/ @) v$ p  Q0 W        next;
        y_max:=y_max+dy;
& x+ ^9 Y+ p) Q& e" E! ?8 X        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);
       
5 |3 e2 W. C9 _9 `        rows:=0;
% `0 c: N5 o! p9 d6 _5 E; }3 c* ]        lines:=0;
, e) h8 W) h. R8 ^) D2 Q2 m        for i:=1 to number_of_machine loop
1 X9 ^" C0 w+ @7 q* L1 a0 x& P+ d                for j:=1 to number_of_machine loop
0 A  b* Y* J. `; X! C                        if j=i then
' X" |; D( J9 k                                d_from_to_chart[j,i]:=0;
8 {8 G) q0 A( D- |+ h                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- v4 B' }! Y+ C! A7 p6 u9 J                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& ?* F- n# p& w6 v8 q                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
7 Q' A8 w" U0 b6 r' }/ Y                next;
        next;
       
        lines:=0;
        partstable.delete;
# K; D( }; N; T* X( H5 @) R+ r       
        for i:=1 to number_of_machine loop
* M3 ]3 d$ U$ r+ V, z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
5 J7 E: o3 ~* [2 x) F                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
5 Z# L  x; q* B2 B. d% z                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ L9 l2 @3 N/ Q) b                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
9 G+ ?4 {4 o# ~8 ?" k# X- m                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
( k6 i4 f, E$ L' P4 V                end;
2 O7 k( ?5 P( Z$ i4 I0 Y" q/ ^        next;
, z0 ]4 ~% b( X* u( v. ?$ A        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]);
" k  p8 D! @& `( ]        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 D, p- ^; u. {- C       
        bufname:=sprint("BF",rows);
9 ?, i6 M( S9 t0 D& Z& f        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]);
& \( ?3 P+ i2 J4 i7 l* P4 O" s        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
6 Z3 Q) b/ T$ O+ k& r        .materialflow.connector.connect(buf,machine);
( V: s7 k5 T4 b" g0 D       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 F/ J- x: u% R, l3 ?/ ?dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, P4 J' M1 f/ o! b" z. I1 z7 Nnext;
! t5 C; L/ z' E% b- V/ W6 mend;