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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
1 Q; ?$ x" V3 @8 W+ U        current.eraselayer(1);
. p: P: o" x! Q, F3 R       
9 _4 c$ D. B4 V, d! N: @        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
0 g) |# o$ x& Z                when 16 then
                        print"yes";
/ d3 P5 F% V' X. @                when 32 then
2 V( Y7 j, H  L# [/ Q                        print"no";
                else
                        print"cancel";
, C- ?% ?3 G  B& Y& f5 |' v& V4 _                end;
' C, @. {4 o& s5 f% }                eventcontroller.stop;
! z7 c$ t, q; D        end;
( |( D* }! L# V. k! p# Z       
        for i:=1 to number_of_machine loop
' I7 y% s4 d3 q- Y& A        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
" |+ u9 y6 _4 X: @( S7 s! `        end;
        bufname:=sprint("BF",i);
6 s. r5 W& D7 W7 o2 n2 L8 I. ~        if existsobject(bufname) then
. G2 u0 ]3 X% i+ I+ [8 r: p/ h                buf:=str_to_obj(bufname);
- B2 U1 S/ i& r0 n                buf.deleteobject;
        end;
        next;
: _. m$ R, T8 J' Q* g       
        dx:=0;
        dy:=0;
# x/ v2 x6 Z5 S        for i:=1 to number_of_machine loop
. R. C; @! S5 Z1 _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
! r6 K& ^) w. M( Y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 ~, _0 y# u1 R. o. g                then
, V( K/ w8 ~7 m/ W( r  \% T                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& A  I0 N! ^9 s  S                        and activityspace[1,rows]<(1.05*y_max) then
0 s" c6 Y/ M6 D) {/ V                        print activityspace[1,rows],",",activityspace[2,rows];
; P  {" k* v5 B9 ?! p; E                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
9 B  [9 n; n" K, j, `                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
$ c: I( S; H& \9 R- F                dy:=0;
# H# _7 W. t/ F( @                        --end;
; {/ w# H8 X# ~% Z% J* n                end;
% @7 r' E+ L/ l4 A: P                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;
/ t1 |- N+ s& Z! b0 Z            if activityspace[2,rows]>dy then
2 ^4 C4 O# N5 a+ X8 g$ N0 {                        dy:=activityspace[2,rows];
$ X, L2 n8 _, u: p2 _5 Q                end;
                dx:=dx+activityspace[1,rows];
5 Y' Z2 b9 z2 K4 f; @) _! g                /*if mark=true then
                ct:=activityspace[2,rows];
) y$ r) m% ~* K! ?% L9 m* Y                        activityspace[2,rows]:=activityspace[1,rows];
4 B/ y; o( J& x  j8 k! W; g% Q) s+ L8 L                        activityspace[1,rows]:=ct;
                        end;*/
( {1 u* y: c/ F8 X# V        next;
. X+ H( f: d2 C) u" f  q        y_max:=y_max+dy;
- h, o2 y9 I  O6 y        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);
% \- d  g: G; ?$ D8 z4 d        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);
) T3 u" D* X$ ^# ~7 P/ W& h       
        rows:=0;
        lines:=0;
: x4 {. S" _) B/ J0 A. k% H  l        for i:=1 to number_of_machine loop
9 G4 {" C" z' ~" F- R                for j:=1 to number_of_machine loop
                        if j=i then
# L1 ?6 C8 B* d! I8 k6 P. [                                d_from_to_chart[j,i]:=0;
- W6 a1 i1 j( F                        else
3 Z$ ]% I* U. C$ }4 a/ Q& d/ @                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 `* C) O) S" {0 Y2 M) K                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
; e% K/ z# F# C9 {- n                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
! y& N2 E( |* @$ y) l                next;
( ?" I, c1 t: s; Z        next;
$ R) ~1 E5 G7 F3 r3 H- v8 G8 D       
& q* H1 `7 @0 v% l# f5 r" {        lines:=0;
( \: S8 R6 b8 R/ G0 n        partstable.delete;
; d3 p. l. n( _/ N       
6 P2 {! J" n( m3 d" w% f        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 P+ q  \& Z1 N( ?. W                machinesequence[2,i]:=rows;
2 a3 {% S; n9 _0 _' _9 d. P6 @, s                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];
  c# I& L6 B' i1 C                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
& n' q1 ?0 e: L/ y! g  @                end;
: d8 x3 S! s7 g        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]);
$ \, G% T$ |* I# x/ |        machine.name:=machinename;标识符未知
. U: h# }$ m  t3 G3 f8 R' a        machine.proctime:=5;
" |3 N8 U9 Z: |% h/ t        machine.label:=activityspace[0,rows];
4 H4 y7 L5 |5 ~; N" {+ c" C        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
7 y( d0 T& Y. F# g# J5 m        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);
  ~( P- T, B. O9 v7 P, d- f       
6 Q( j# N7 g8 o* Y( r6 j/ _        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% F" H* x* Q* ~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);
9 `- B5 L$ v3 E  pnext;
0 t6 t8 C  k* i( Fend;