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

zooey

is
$ L1 v: O6 `- P9 \$ h        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
7 B0 Z: I( `' o6 C( k9 K5 n    machinename,bufname:string;
4 Z( o6 Z* S; p% s9 o; x    machine,buf:object;
do
8 @: x. [( [# }5 {: X        current.eraselayer(1);
( k$ j  K- r. h! H1 Q. v+ p       
) Q: Q+ G1 E  [5 y. V9 r1 ?2 H0 C; ?        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  a: Z8 Q) E* y                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
3 x9 R( N* M) V* r# D' ~- Z                else
) H8 ?! r6 H' a, t8 s2 ]1 a- P                        print"cancel";
                end;
3 w9 Q7 B( k% C. k: t6 I$ S' u                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
2 r3 z& x: m. t, |, ~2 s        machinename:=sprint("M",i);
( q& X; f7 \; ]" ]        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
! i+ n( u* z& [1 {2 o' i9 y                machine.deleteobject;
8 {6 [1 ~+ X' r0 m5 H; M        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
& @3 ?/ b6 q3 ?; T' Y0 W; _. W                buf:=str_to_obj(bufname);
% Y4 f7 L: O% L                buf.deleteobject;
/ o* Z4 Z5 S7 |. T. h: G        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; {4 n2 K- b  M" W/ Z2 P                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 o" |8 F: p1 A1 \                then
: s- h5 ^$ X! }9 Z' A                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: |, _, H4 f0 V& S                        and activityspace[1,rows]<(1.05*y_max) then
% y* f6 A; H( o: r2 i                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! H, C* |& Q/ z& A4 X                        mark:=true;
8 p8 ?& L1 _/ x7 K' c9 n/ x                        else*/
) H( A6 p- `% i3 e                        y_max:=y_max+dy;
6 X' V, o& u; o: {: B( P                        dx:=0;
                dy:=0;
$ o$ q* ~' u+ l5 s: D+ j( r                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 V1 b! \" {' ?  x0 _' H                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];
; f! l! }( c1 A+ N! O                end;
% x4 }: v, d8 d/ J% V                dx:=dx+activityspace[1,rows];
4 c4 z% D8 O0 f) k6 ]                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 I, W6 `$ ^9 T" k% i                        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);
        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);
       
        rows:=0;
# y3 A" {1 s) V) j        lines:=0;
        for i:=1 to number_of_machine loop
" g7 v7 ], V" |                for j:=1 to number_of_machine loop
) ~  P( t- @- a3 E  S                        if j=i then
1 y! H0 V3 A5 v/ [) Z                                d_from_to_chart[j,i]:=0;
" ^" M, o3 l3 T3 G                        else
% k# v4 \, q3 P& _# b$ k9 q: F8 l                                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];
+ \) ^2 D1 D7 l9 K                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
        lines:=0;
8 Q$ M. @) g  l4 G        partstable.delete;
, o, U7 T3 Q9 G, g: U* x: K' r- a       
        for i:=1 to number_of_machine loop
8 k! k, }" D, ~; n9 w+ [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( T' h+ ?3 h4 J& [. A                machinesequence[2,i]:=rows;
! {  ^0 ~! @2 Q2 M9 E                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"));
" ^* s, X3 Z  {                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
' ^  b: J* v7 }, @                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
9 R& _5 d0 _/ ^4 W3 a2 d' S        next;
( A; e3 H  q1 }& {* y        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]);
; P+ \4 H* \: k/ \3 O6 U2 n        machine.name:=machinename;标识符未知
        machine.proctime:=5;
2 g/ ?- K4 M& j; ?' c$ V        machine.label:=activityspace[0,rows];
8 u0 j6 d2 `( g2 Q# `5 l7 N        machine.exitctrl:=ref(leave);
       
- |7 F1 w! @$ y+ ~- `9 D7 I        bufname:=sprint("BF",rows);
. s) x; X  p+ o" B; B3 s! ^8 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]);
, i  p/ T5 q* A* ^) [( {        buf.name:=bufname;
# u% J  m4 U  O        buf.capacity:=5000;
& j9 D5 w' t. ^, l' M, T4 F4 F        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
% J" @( h: p+ m, o# t1 c6 T6 m        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" e+ n! d8 ]% a* Y/ a2 \8 z* }- Cdy:=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);
6 b( S9 j2 }$ O% _5 n# Enext;
; t9 e0 m& ]/ e  C6 }0 |end;
$ e, X! Q3 H- n# i4 k