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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
3 o; m) t& i6 ^( I& W, @1 A0 Z    machinename,bufname:string;
; y1 w& c' f8 B$ X, }' @9 h# ~    machine,buf:object;
( p- l& h& l" E8 q3 N, kdo
9 O0 F% F1 r4 y) f2 _3 F% p0 V        current.eraselayer(1);
% b5 h0 R) q+ `5 ^6 Z9 }6 y" r$ O- I# t       
0 F1 g  X# |9 o: L        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
" X- Y* S1 L  }$ R                        print"yes";
                when 32 then
                        print"no";
                else
, g5 S: |1 f8 D4 x- x( h+ P4 K2 U. ?' c. W                        print"cancel";
                end;
/ ]# T2 Y5 M" ^. C                eventcontroller.stop;
        end;
' i9 x9 I) [7 ]2 g% O       
. k: H! _3 F) c- c        for i:=1 to number_of_machine loop
$ ?0 E( F4 k- W6 |: d) ]        machinename:=sprint("M",i);
        if existsobject(machinename) then
1 ^+ v' ]9 s7 b, K1 q% n- w                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
7 @% G! _4 [6 v* a: w. g+ I( N0 b        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
9 x4 M& @1 D' [- \0 ^. \, I" _8 @        end;
: v- E& Z" I1 Z+ I        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! y$ o( _/ X% T; o% e: q! M$ R                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
% @8 v6 v8 a$ C; _, [                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ q6 `* f* y) o$ M8 G2 K$ b                        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];
" R" s* \7 S5 k- @% U$ l                        activityspace[1,rows]:=ct;
) p! M- H: Q4 H1 i( C" L) ]                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
+ c) K; `5 q2 f5 G- b                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 Y! U; o/ o3 e$ D5 @, j3 J                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: ~7 E1 p2 z: q. m4 X            if activityspace[2,rows]>dy then
0 v$ J7 n1 J( [% f                        dy:=activityspace[2,rows];
$ t) o5 l" Q) c8 _                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
* k" \6 i* T0 y8 V+ P. r% B                ct:=activityspace[2,rows];
7 K1 X3 l& O$ u  f3 P$ ^                        activityspace[2,rows]:=activityspace[1,rows];
! j, T& f. c4 ^                        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);
- e( V, k3 \7 a5 ]% B  b, ?        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);
       
) m+ l' H1 t( i        rows:=0;
        lines:=0;
& b; H) s& c6 O) v0 Q- v& l        for i:=1 to number_of_machine loop
1 l' v9 |; j# e. i                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
( w  G* `8 ~  _! F5 [; X                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' P/ J1 n0 \, w0 m2 \                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
/ k8 d% @% Z! X% M) l2 ~                                d_from_to_chart[j,i]:=abs(dx-dy);
! ~& z( h! D; k                        end;
" k3 r: R3 q8 j  V                next;
        next;
       
        lines:=0;
0 I' L2 e  [  i! v  ]3 b        partstable.delete;
8 w4 h/ X' l4 A) F/ N5 X" k! a& u       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 X) M( `- n/ a" s3 h# u4 X+ D                machinesequence[2,i]:=rows;
                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"));
9 D% A; e1 z4 s9 W9 M                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
* C* E& r' j) r: T/ L7 K  M                        partstable[6,lines]:=j;
6 c' h, z  S# [0 j' B* {                end;
4 h# e, F& `7 w' _# o5 T3 V2 Z9 [% ?        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]);
        machine.name:=machinename;标识符未知
- \" r& @3 g- T, l" v( Q. F: F4 T2 Q        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
: w) j/ d" V1 ]2 _) l* c       
: t+ n5 C$ X0 _8 a        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, O, g8 H0 e; a% Z& xdy:=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;
end;
* \9 S: C5 B' D7 ^- x, }" Y' z) f1 D