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

zooey

is
        mark:boolean;
) K+ c) g3 h! x8 G8 T# Z* D  X        dx,dy,ct:real;
* Y4 {, B" M9 [6 W    i,j,rows,lines:integer;
& Y8 s- a0 _- ~    machinename,bufname:string;
( f, u/ f1 |) x# f, U+ d; Q1 S    machine,buf:object;
do
% e  W9 ?% t0 R, g3 w, K        current.eraselayer(1);
; B; _, A4 m& v       
7 C# W' ^! s5 d% t+ J        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' g% t" O0 R: ~                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
0 s" N# q1 m# V$ W0 x- m8 y; O- e: w                        print"yes";
                when 32 then
( Z( q; ?# K4 w1 O0 o5 }                        print"no";
" |2 E3 F* C: E  F                else
                        print"cancel";
- i) j" H5 v! N                end;
                eventcontroller.stop;
        end;
! ~- n# E) _( H       
: Y5 ^5 w7 o4 ]1 P0 ?        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
. h" s3 L/ g0 y6 x* Z- [        end;
        bufname:=sprint("BF",i);
  h. ~/ r) `+ i& T+ S" b        if existsobject(bufname) then
% G" d0 k  {2 J0 V$ }- p                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
8 \' `4 _- [7 h* F. \        next;
- k* n) D# p% |/ p: e4 F3 z       
+ n! O# ?9 u; R( |# a/ M9 T        dx:=0;
        dy:=0;
9 @' l" I, d, R! ?9 N        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
5 @+ d9 g6 e. J/ m" o( G6 X5 {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 i2 L' g2 r' J' B                        and activityspace[1,rows]<(1.05*y_max) then
7 T+ C: l1 v0 A- H8 F; c                        print activityspace[1,rows],",",activityspace[2,rows];
! r) x, H4 ^. d; J8 H$ l6 M7 I                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- k; N& z. s6 {/ D/ \9 W7 _7 {" i( \                        activityspace[1,rows]:=ct;
                        mark:=true;
* B) [& Q, i7 U/ ]# c& H& N3 a                        else*/
( D: u* B$ y. j1 @  f0 G                        y_max:=y_max+dy;
                        dx:=0;
) @# T  y( L9 B" A8 o/ X( w2 q5 m                dy:=0;
3 K) n9 R; M3 ^% ^( j2 y                        --end;
                end;
                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
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
3 \% @- b9 {, F3 d9 |- w5 h        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);
, J; `$ u! b0 x/ s+ b9 v        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;
        lines:=0;
+ Y2 T' r3 E# ?5 I        for i:=1 to number_of_machine loop
$ r5 d1 |6 y  I, U1 u; H                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
: Z- `1 `* W$ `" L1 g3 c7 j                                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];
1 V& H" }* Q! N$ I& ]8 ^$ T3 A                                d_from_to_chart[j,i]:=abs(dx-dy);
6 |5 z5 F, N- ^: w0 n                        end;
2 I* c5 F! y; t% b, t- M                next;
        next;
       
        lines:=0;
        partstable.delete;
5 g3 a! _) k+ E1 R3 Z       
# C0 V0 W0 W( D3 i; e- m+ d        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, H0 b: s3 Q0 |$ u" B7 c. s' R/ S                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
8 d$ _" W) V: Y& K                        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;
7 A& z2 ~8 u% A/ t$ `0 Y                        partstable[6,lines]:=j;
) F* K: q; s1 }, O9 o                end;
9 d+ Q9 f: Y' q% q2 H- ?/ R        next;
9 v. f% j0 u* @) \' t        machinename:=sprint("M",rows);
$ i) I9 u5 M* H* }1 F        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]);
( f- |3 V/ k6 a4 ]( v        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
- ]3 H9 U9 j6 U1 C  y/ m        bufname:=sprint("BF",rows);
% f- L( g) o' p& n9 q" g1 e        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
/ F1 D* i: u. ?5 E( Q5 r+ w+ y        .materialflow.connector.connect(buf,machine);
+ p+ t2 }* D, |2 z! e) P' m0 Y$ n       
        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);
& r+ z* `3 i5 Snext;
' h7 \& N; U* N5 P2 l5 N2 R6 bend;
: D7 B4 o' k0 u* Q