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

zooey

is
        mark:boolean;
4 y7 F+ M0 X& L6 h! x) f1 J8 R& C$ Q9 W        dx,dy,ct:real;
% b: i- v9 \( S3 z    i,j,rows,lines:integer;
" \; }( \2 [, d    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
; Y5 I5 y) K0 G                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
  O, I  C- x$ l& v; R, e                when 32 then
8 G2 h1 m$ j7 h1 G                        print"no";
- a! P6 u) @+ b3 \/ N' y  C                else
9 |  h2 v! D# t' L$ ~                        print"cancel";
                end;
                eventcontroller.stop;
1 U" p# g0 C- n: w" P2 v1 x, x        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, J& Z6 _; ?0 E6 O$ V2 W2 _5 W4 y/ e        if existsobject(machinename) then
0 y& r) a9 F: K) e                machine:=str_to_obj(machinename);
9 o) K' `/ [/ S# p* I/ ]; M                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
- Y+ r6 Q  P- b$ ~: O0 |                buf.deleteobject;
        end;
7 o' F' @7 @! j4 {        next;
       
  o  X, m# d. a( {, l" q7 N" M9 f5 H        dx:=0;
! L, L$ Y0 G1 l1 W! b& F9 {2 {; v        dy:=0;
! N" B5 {- R8 ~8 R/ O/ c; b/ S        for i:=1 to number_of_machine loop
# G" K; ~! R& S" U6 o5 y+ \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 |2 v) p* s5 n8 _3 F9 [# u2 u' N                --mark:=false;
0 h+ [  N6 c( F$ {$ ?; E: M! k: z* V                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 I# n+ l9 I$ r+ E; c% S. l9 a                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
5 [6 y$ T+ n! y( Z* Y3 ?                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
) _' A7 I  O0 b8 G                        dx:=0;
! j& y' O' t) T/ Z- h! L8 H9 p5 q                dy:=0;
. x% K3 j+ r. k1 f                        --end;
: @7 }8 V' N1 V7 I                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  t2 k# c% e/ D0 H* Z1 _                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
  S: D* `1 W# m8 C                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
- o9 o0 q' h* r                /*if mark=true then
3 s  ^% H, u0 t1 j0 w, Q! x1 [8 m  \                ct:=activityspace[2,rows];
% {2 p7 U* c; |1 `( L# Q" l                        activityspace[2,rows]:=activityspace[1,rows];
( u! w6 {. X* i                        activityspace[1,rows]:=ct;
                        end;*/
! ~5 B) N" {: Y' [, r1 Z$ q# V        next;
        y_max:=y_max+dy;
! }) b5 E3 v2 {% ?0 @) }        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);
3 v  L3 |9 M/ [' z6 J+ ?        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);
$ I# y2 H3 J. b       
- c7 x3 D5 f& u! c        rows:=0;
( V5 }4 t' E  E/ \. [        lines:=0;
$ k" U& V' n: L8 h        for i:=1 to number_of_machine loop
. Z$ S0 I! ?( f! n. Y. X* }0 S                for j:=1 to number_of_machine loop
9 m) U- k  Z5 D* S0 O! p                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
  e3 h# z7 f1 K) N                        end;
                next;
0 o/ ?6 ]& |5 r' _( r        next;
       
$ x0 C" x4 v& @! n/ I# e        lines:=0;
        partstable.delete;
       
) E- l) f$ c, A& B" V8 k        for i:=1 to number_of_machine loop
; y3 C, c# q1 M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ C% O- ?+ v5 {6 O! u                machinesequence[2,i]:=rows;
  z2 ?, F+ u/ Z( w. ]) W                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];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
: A0 O! @$ ]" v1 X                        partstable[6,lines]:=j;
# h; T% \0 q- J) u                end;
5 X2 F% h$ q5 K/ ]+ z* I( H        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]);
# Q( j; r$ s8 f, u8 W        machine.name:=machinename;标识符未知
( @* n* k! J4 O        machine.proctime:=5;
3 ?' Z3 m+ E4 _, o        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
9 L$ X0 q5 s  k- x# k' [" ]; L7 x$ b( N       
        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]);
1 h# C1 V. g& I8 i6 j! b        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
; U4 y7 C' a" ~6 l. c8 _& E. j; F        .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);
! i9 K5 h  a  R  X+ t/ y2 Tnext;
4 |2 E' @5 S# ~/ uend;