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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ v, w9 L- V" d# e! z    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
- x5 m0 U& t3 I' u1 u4 w       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; ^6 ^. w1 K* L5 o0 h: E                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
. O$ V# A/ K) x- ?+ [3 O                when 32 then
4 x! j* {3 J# K7 ]9 ?1 y                        print"no";
2 P& S- a( F9 ]# }( r                else
% l# f& m  m7 X+ ^% R                        print"cancel";
1 {- r5 ]+ [* G* E                end;
8 O/ _+ f# ~& u, G                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
5 J. C1 b% I) V# H5 W: J        if existsobject(machinename) then
# s/ m, w6 i6 Q( ?                machine:=str_to_obj(machinename);
                machine.deleteobject;
' L/ e9 p- Y$ W2 K9 G        end;
        bufname:=sprint("BF",i);
/ \' s  X2 P% B2 q) Z        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
  }3 q* n+ X' x        dx:=0;
- D: }3 t* v5 I        dy:=0;
, T9 u# T3 Z3 Q5 ]1 Q) B! K        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 B. H4 r% i3 d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
; Q6 u3 w2 K# q6 ^8 I$ J                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) m6 ~  ]( s% t4 y8 M8 z                        and activityspace[1,rows]<(1.05*y_max) then
0 E" L1 C# e. \$ f) R$ P% Q+ ?                        print activityspace[1,rows],",",activityspace[2,rows];
# L  ]* ?$ P  g4 p6 S& V/ j6 X                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ b# N/ `$ J* M# x1 r2 m                        mark:=true;
                        else*/
; S. H' y6 u9 d1 Z: ~# Q7 w                        y_max:=y_max+dy;
. g% p3 E' S1 i# @& Z' t2 t                        dx:=0;
                dy:=0;
                        --end;
& b* P" h/ |# r                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];
, ]' E2 p5 K+ V( i2 f4 u! d2 K                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;
        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);
) [) g+ H/ v: P        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;
$ S! U7 `( A% G* ]. V1 E% _: @        lines:=0;
        for i:=1 to number_of_machine loop
! y. x: t- T7 R) _3 `9 x                for j:=1 to number_of_machine loop
, M$ V) p: e- v4 O5 j6 Q                        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];
3 |+ F2 Z  z* X# G) A. Q8 l2 R                                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);
                        end;
                next;
7 Q2 ]) L9 ~4 V( e7 x* l% R$ _        next;
7 |" K7 X% q( e- a9 I. y& ]4 N       
; ^' K9 O/ G- t% i0 O6 ?        lines:=0;
        partstable.delete;
# w  n) I& l$ B" @8 P       
        for i:=1 to number_of_machine loop
' U7 w" h5 W/ K4 _% d5 r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" @( [% A2 `" Y; k( W  f7 }                machinesequence[2,i]:=rows;
& s5 B! R  v5 b4 Z/ j                for j:=1 to number_of_machine loop
4 _. p# R* f/ ?/ K+ [                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 B! u* }( P; \. Z0 A- U                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 n% s9 w: m8 R2 q6 n' `6 t6 a                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
6 `: E' w6 y3 w( c3 y" ^* U        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;标识符未知
6 A( E" R( L" J3 F+ Y" O% E        machine.proctime:=5;
& r( S( D0 o) Y" X+ B1 E5 T- D5 k        machine.label:=activityspace[0,rows];
1 p9 i7 I& O$ s1 t) T        machine.exitctrl:=ref(leave);
       
- S, k' `; P- |/ f$ k+ H% }        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;
- @" i: p; Y7 C5 T0 i        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' Q8 S) a3 ?$ Y+ O7 A/ k: hdy:=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);
9 A, @* U/ G/ t% w% M" o, D* L9 ?next;
# W* x6 A& i3 {1 c  Jend;