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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    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
6 z) W) J% Z8 l0 O* D7 n/ h                inspect messagebox("设施数目不对！请核查...,",50,13)
6 n) i+ b  {3 q5 Y                when 16 then
/ [% L* {, _; V1 }                        print"yes";
! ^+ \9 h% ~- l                when 32 then
( p$ @( ]9 K* a                        print"no";
+ Y! ^% a* _2 @/ r                else
                        print"cancel";
9 D; N3 T( I8 h' N4 T* R% X                end;
2 m! A" w" A8 w1 I, K$ w/ M2 R* q2 j$ G                eventcontroller.stop;
        end;
       
  `+ X0 D8 C$ w: Y4 E2 p        for i:=1 to number_of_machine loop
" G+ _' S$ ^, |        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
9 _1 G6 d; B* L/ w; C1 j4 O                buf.deleteobject;
        end;
9 N/ T! W0 M* {1 _7 @        next;
       
" T6 e( k: X* n0 U& m: C        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
0 O& D5 ^6 A' \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! c* @, W: D5 ?+ L0 I' o                --mark:=false;
, M1 A( u6 A  g7 D5 Q. R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: o- b2 R7 K3 s4 k                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# S( ?1 }+ m8 ?6 ]5 |8 t. ~                        and activityspace[1,rows]<(1.05*y_max) then
+ N# E; |% `, M# z+ e' j                        print activityspace[1,rows],",",activityspace[2,rows];
" v9 H5 V. \( t( |1 K( |                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: }2 y9 [8 H& f6 ~2 P                        activityspace[1,rows]:=ct;
$ m- r" w7 b* H7 V' O' w/ A9 C% k                        mark:=true;
; r; p, D9 l# L% }; r7 ^9 c                        else*/
' H4 ]  i) x+ s4 B* P                        y_max:=y_max+dy;
6 |# o0 w, q) n9 l9 w( w                        dx:=0;
                dy:=0;
* S5 m  K. m# @                        --end;
                end;
7 k3 B* k0 H7 c0 l) K% |                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];
( M7 U  U; H. M7 Y! Q3 M* O6 P                        activityspace[1,rows]:=ct;
' a$ G) p" w# ~6 W) W                        end;*/
" T. _# G5 ]2 |) F0 W1 d6 z& r        next;
        y_max:=y_max+dy;
1 T# Y& u- p( {& |# C- M        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);
' h; h( H4 W1 {- d6 U) W       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
# d* c7 u  g2 V; H5 B                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
1 m) c  H  R. g0 {                        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);
! E5 h7 i! E' W( g* r% S                        end;
3 H! \, u' H) U                next;
3 M  c- M* _0 {& J1 J% y        next;
/ }, b* t, ]. P: n       
        lines:=0;
        partstable.delete;
       
1 ^* i, Z, `1 D# r2 @; t+ J        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! L* x6 o- Y$ h' S2 P5 M- r7 D                machinesequence[2,i]:=rows;
9 `, y) y+ b# V0 R: Q8 r& l6 _                for j:=1 to number_of_machine loop
; F) E- G% H" z                        if w_from_to_chart[j,rows]>0 then
. ^" E8 L  Z& F                        lines:=lines+1;
& P) ^1 E7 b7 [# C                        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;
& ?: Z& v$ N) ?9 h+ T) u                        partstable[6,lines]:=j;
3 A) ]9 K( `- t) A9 _                end;
8 E* j* l# o/ t        next;
        machinename:=sprint("M",rows);
8 O; |9 _: `* L* |        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;标识符未知
7 \, \" Y) N8 R8 a1 k5 O        machine.proctime:=5;
* O1 I" n% V. B( N0 q        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
( V( r) W/ I! a. B, n        bufname:=sprint("BF",rows);
/ `+ K$ ?* k- u- l        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]);
* [* W( y1 a" m& s  O+ \5 J1 h1 ^/ V        buf.name:=bufname;
        buf.capacity:=5000;
3 P5 x! a3 O. }3 ]6 t! B/ \        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) ?$ f0 Z$ T! o       
: {. {! F4 O2 \        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# s' M& c, }2 Y' C% m5 Sdy:=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;
- l' o2 Y8 X. x7 v1 R  ]1 _( K, Send;