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

zooey

is
  F9 B, @1 ?8 c6 P        mark:boolean;
' I8 S& ]  f! v1 w9 f( k        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
- I1 _* y7 g, \$ J- W- I+ p" x. X1 j    machine,buf:object;
do
" P+ [' E+ [7 t# j$ E( ~        current.eraselayer(1);
- r/ @; t- x# m' t/ L) i: s4 P       
, R8 c0 G& `2 _, ]. ?        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) T7 ^1 }7 V  n4 l- Y                inspect messagebox("设施数目不对！请核查...,",50,13)
6 |* x  ?3 [; n9 C6 L1 M- Z                when 16 then
                        print"yes";
& ]6 w0 F) o. s# O! Y                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
# C' q( p/ y# J- o/ J3 k" b. o7 F# W                eventcontroller.stop;
        end;
4 _  g7 [- r( a8 E/ ]  @5 `$ @       
% O' ?& L1 J* E2 z; q! A        for i:=1 to number_of_machine loop
/ f9 q* E! G: n2 O( T; P! T  h        machinename:=sprint("M",i);
        if existsobject(machinename) then
+ b" n5 t# I! Y& e                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
0 l' h% ^. s( v                buf:=str_to_obj(bufname);
4 x# k3 p& E  ^6 Q                buf.deleteobject;
        end;
% z! _" ]2 g; g9 F3 ^" c        next;
( p6 ]  M. f; k5 e% d' n/ j       
, ^5 w% y7 o* C# L0 H- q' C        dx:=0;
  x* ~0 G3 N! i' v4 p. e        dy:=0;
        for i:=1 to number_of_machine loop
6 |( X8 x# ^2 n# ]+ I" ?7 b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 l/ I0 C0 P$ j8 V  N$ N                --mark:=false;
2 @7 r/ o) ?( I  ^                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
3 c1 |8 N5 w* `% V3 z  c                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
, \, B* u; E% Z- K2 M$ ?7 t                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
  D# T; P6 t7 G+ t7 X                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
& B" _/ ~; h. v                        else*/
; Y$ |' I& f8 F                        y_max:=y_max+dy;
) v# [1 J' M, w6 p0 s. B: o* S                        dx:=0;
/ |0 n) ^& O2 d- B0 q( T                dy:=0;
% u5 B3 j8 J$ r2 ], E7 y! ]- [2 S. m1 M                        --end;
                end;
! ?3 S! |% ^9 R                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. v# W) H9 f! H2 s4 A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
" z- \8 Z8 M: x, j            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
0 w; }$ N7 N8 p6 H2 k0 ]  ?* c                end;
0 y7 C# L, X. x* [. [2 w                dx:=dx+activityspace[1,rows];
  T+ f( h* ^/ ~* l. s! L                /*if mark=true then
                ct:=activityspace[2,rows];
# }' p' t2 L7 i. d                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
! |! L" z* _0 S) _0 s" S3 U        y_max:=y_max+dy;
# _5 N% `3 E* {. K) S. E        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);
0 J" \: e" B3 U$ l       
        rows:=0;
: ?$ q. A$ H. O3 c) O- O* m        lines:=0;
, j% ]1 y% @$ A0 A        for i:=1 to number_of_machine loop
1 W8 }. \" W- _: Z% R                for j:=1 to number_of_machine loop
4 S( d& e7 L. [1 H. b8 O) s                        if j=i then
& n$ }4 _# b& r8 C1 M                                d_from_to_chart[j,i]:=0;
9 i& P5 S' x" B' b/ I, T+ m% t                        else
. A) G! ^( c# S# A5 ]                                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];
8 Y) m) z7 K8 h3 r  B2 Q; ], }                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
        lines:=0;
- B6 A$ _& a: U" ]( F2 X' H        partstable.delete;
, Z! g/ U3 p8 v1 q& s       
        for i:=1 to number_of_machine loop
9 l) o; l2 N! E" ?! F: H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% n5 `0 Z# ?1 b/ B3 o3 F+ Q6 h/ K                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
; U. I# A4 [" @. I1 e                        lines:=lines+1;
2 S, b& X! @1 ~* R/ G                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 f& t% q6 Z9 y: R- l8 {7 r$ T$ E8 E                        partstable[2,lines]:=w_from_to_chart[j,rows];
! F$ P9 g0 ], o) m0 I  V* c                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
5 j! K: ^* Z" s! w9 h* u% Z                        partstable[6,lines]:=j;
: {) ]; X: f3 {7 y: {/ C( C                end;
+ ^( u) U9 ~9 z, I9 q7 k        next;
1 |7 j$ h! p% F& ~        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]);
* A- s, u1 _2 Q, p) P& \0 U8 M6 F7 d        machine.name:=machinename;标识符未知
        machine.proctime:=5;
# b$ B. i5 T% E, S, l& I4 z$ E        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
7 M* r1 b' R# U       
& p6 g/ F/ W. W% p# ]6 k        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]);
; [+ h' k# a" h9 _/ N        buf.name:=bufname;
! [2 ]; e' @! h( c; m        buf.capacity:=5000;
+ }2 X* D% [! T$ B" O8 D, h        buf.proctime:=0;
& A/ ^/ s' D4 m/ r        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, a9 @  V  {7 \( U3 P" |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);
next;
, U' Q$ |+ b" j' k: uend;