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

zooey

is
  L0 ^; E9 n. H7 n2 A5 ?4 r7 _        mark:boolean;
        dx,dy,ct:real;
! w4 F, {& x; {7 L: s    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) t) L# \5 K3 ^7 P- g! n                inspect messagebox("设施数目不对！请核查...,",50,13)
' b. V( l( r5 ], f- |8 h% V                when 16 then
                        print"yes";
, x, w5 s# C! O' D$ N                when 32 then
$ j) U% f8 c0 p' g# _                        print"no";
                else
% k/ [3 ^! i. x* }2 M) V) S) Y# N2 A9 z                        print"cancel";
                end;
* }1 ]0 A7 Z6 ^8 A6 ]                eventcontroller.stop;
( }. g1 O, U+ v1 w        end;
       
! u$ {  e3 W" {% y  X        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
: V# F# I1 N$ S& u, w, s        if existsobject(machinename) then
" G7 D1 p. |2 ]( c                machine:=str_to_obj(machinename);
8 W/ r, X  T  J( W  D: c                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
( z( u8 I5 S# I3 v- h6 s( e        if existsobject(bufname) then
) L$ ?1 B" _4 m% ~* x$ D; q* F! n6 S                buf:=str_to_obj(bufname);
' x1 q; d7 V! \                buf.deleteobject;
        end;
) p6 E) M! f% _0 R; }9 A8 d0 s        next;
       
        dx:=0;
" ~* k' J& [/ E7 {6 @: {0 R        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 l4 b3 @8 X! ~* m  H, R0 ]                --mark:=false;
8 B8 K) ]9 R! D2 _. {. X/ D, g/ H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
$ ?3 c7 w+ p9 H0 q                        /*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];
                        ct:=activityspace[2,rows];
" t  H1 I" Z; Z! Y, n% e                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; y  m8 M% w0 Q, [( u+ m+ X                        mark:=true;
" Z) q/ q& `5 }6 s                        else*/
' `( m; _6 Q; @1 o3 m1 |  h                        y_max:=y_max+dy;
                        dx:=0;
4 Z. `( G: ~$ H5 m                dy:=0;
                        --end;
                end;
7 B0 |6 l$ N3 d. I                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
4 Y- e, W  _# ~4 t5 q5 x                        dy:=activityspace[2,rows];
' K1 \5 J- M+ u0 J; v                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, w8 _, D% v1 }/ k, H                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
6 W1 r$ |0 [3 Y        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);
       
' f. m* x7 y8 j! W+ F; n& v3 N0 |        rows:=0;
        lines:=0;
3 }4 o4 a% n& |- C+ E0 D% o. o% J1 B        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
, G( e* e6 E7 d                                d_from_to_chart[j,i]:=0;
. n# r1 h4 R" ?- {                        else
% n5 t9 F3 B" |& s                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 T2 E% ~$ D) Q5 A% ^0 u; ?                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
, q. c' z- K6 ?* K8 h/ @                                d_from_to_chart[j,i]:=abs(dx-dy);
- J! E! O' l% [2 X                        end;
6 F4 h% U- }2 N$ n+ q- i6 D& z7 I                next;
5 V3 I  X! q/ q6 x+ z) C        next;
       
! V% y& s9 Q7 W1 j! i' Y1 X7 W2 I        lines:=0;
" C6 V  s! E, ]* U. c' S        partstable.delete;
       
        for i:=1 to number_of_machine loop
1 M, W6 E4 w3 _$ z0 @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
0 a. v1 `1 s- B                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
; h: s1 L, w: ^. G( K  Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
- Q: b9 f* O! v                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
& N) _! U% A) s# R                end;
9 t' M% }  A  ^        next;
0 V0 X& H% J- h# U" o        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]);
        machine.name:=machinename;标识符未知
7 Y5 p# q8 [( A% l7 l$ r/ Q6 D        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
# x& s; e) I' g, N0 {9 `% V        machine.exitctrl:=ref(leave);
: P. z0 p' ~' z       
        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]);
2 A# z! E8 D$ o- A        buf.name:=bufname;
        buf.capacity:=5000;
( u; _3 J, k; r3 K6 {3 |        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 i2 ?2 }4 \7 Y5 T. T: mnext;
! n1 \* K8 m: U% Vend;