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

zooey

is
        mark:boolean;
0 ~. p2 T6 ~# p, E        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
" V9 U. m1 s6 U$ W1 k+ \    machine,buf:object;
do
% v+ {; Z. b0 I9 P) o; r6 G6 S6 n0 h        current.eraselayer(1);
! d# ?  s5 B8 K- t0 @/ i1 k$ P       
9 `1 m9 N. @; z0 S/ e        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 O4 R) R4 S5 x: G/ V5 z                inspect messagebox("设施数目不对！请核查...,",50,13)
$ ~' L' M  |* b9 w                when 16 then
                        print"yes";
8 k+ t3 O& G# ]  F4 N                when 32 then
                        print"no";
0 I& t- q7 x; i6 M; f3 ]; `                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
1 q5 g- z7 i  `" a! w1 r" ?( X0 e       
        for i:=1 to number_of_machine loop
: @, C- U+ e3 C6 G* p        machinename:=sprint("M",i);
        if existsobject(machinename) then
6 N7 Z. ?$ x9 z6 L9 N8 S/ q                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
9 N5 F2 I$ X. ]; r- y        next;
       
3 j) ~! a% J: {/ R7 ~( f        dx:=0;
+ m& f7 |/ j% [, t7 ?        dy:=0;
  ~9 ^- e0 o$ `5 W  v' l5 _        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& p2 K) i: d, O3 g                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 e( U/ h( X& k( t6 y: e: q" b                        /*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];
: Q2 F& \0 |' C( f0 B                        ct:=activityspace[2,rows];
6 W1 [  y# e% h9 J% h                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
1 f4 T8 ?8 @+ \& {0 ^% H5 ]1 Z                        else*/
2 ]& a3 ~! d! q0 c  a                        y_max:=y_max+dy;
# R$ b) S3 P0 p/ s4 N                        dx:=0;
& C8 T6 |, }6 h                dy:=0;
                        --end;
, x$ o" u8 G7 M2 ]& q                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ l9 S4 F  f. b                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
/ y- u0 W# w. z2 }0 ]5 Z                        dy:=activityspace[2,rows];
                end;
# S/ e, I3 n" ]: T. O0 x: X' |                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 v  R0 E: J1 j                        activityspace[1,rows]:=ct;
                        end;*/
        next;
! i+ N' ?7 g  ^2 I        y_max:=y_max+dy;
, }" q9 @$ A$ k/ D$ `9 z( u        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);
! d- d6 n1 k& k2 ]2 b4 ^/ z9 ^- P! d       
3 d' R" ~6 Q6 z( [6 c- R6 `& a# N        rows:=0;
        lines:=0;
. p) I6 u! R/ u        for i:=1 to number_of_machine loop
4 |# A. W# ~8 `                for j:=1 to number_of_machine loop
1 M: c/ H5 U7 N* J                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 W& x8 N0 v2 Z; y" S6 ^8 c                        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];
$ [% k1 s- T# Z  Y# v4 d                                d_from_to_chart[j,i]:=abs(dx-dy);
# j0 ?/ n2 n$ u. |8 G# i4 k                        end;
                next;
! h( S" O6 g  e% M8 Q        next;
       
        lines:=0;
        partstable.delete;
2 s  p0 l: a5 I# V: p0 M       
$ P1 e) U7 R% C1 V        for i:=1 to number_of_machine loop
0 ?8 {/ \, t  d* E; C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
. Z& }% _) B6 x3 a$ E7 c- ~* T) |                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
; E+ g5 i3 z' p# z( R3 z6 Q                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: r- K. f9 g$ F$ a# b5 [                        partstable[2,lines]:=w_from_to_chart[j,rows];
# r/ j6 p9 Q3 Q5 z) y1 s                        partstable[3,lines]:=sprint("parts");
! x% j/ d9 W1 I                        partstable[5,lines]:=rows;
: s  Z' a8 Z$ Q/ a6 O8 |* r                        partstable[6,lines]:=j;
) A. |7 [* l3 p5 O: [8 Z  k                end;
6 z3 ]+ J0 B6 L1 _& S0 {        next;
        machinename:=sprint("M",rows);
, H4 R1 Y3 @+ L+ w5 C: i        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;标识符未知
        machine.proctime:=5;
  {0 s0 k5 V; ]% \# R9 K        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
* f% j( b7 v. x* K6 v9 m        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]);
3 N5 v" K. A- ?9 A1 T. E        buf.name:=bufname;
: G( F7 b- o  k        buf.capacity:=5000;
        buf.proctime:=0;
! [2 l  D9 W  A8 B0 k        .materialflow.connector.connect(buf,machine);
, b# S7 d1 d  Z+ f5 l       
6 g  A. U8 S* T4 Z        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);
& b: w) }! |' i' z; Mnext;
end;
% J8 q) @3 N3 M' l' d