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

zooey

is
        mark:boolean;
' X# V+ k# i# \  z  z. j4 w; m5 W        dx,dy,ct:real;
/ s% K1 M, Y% G+ j5 _  J    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
2 x5 @. l6 y$ Z* Odo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ N$ [2 U4 ]6 t2 X5 U                when 16 then
                        print"yes";
                when 32 then
$ x0 l7 F3 w- h  ?) X6 n9 r                        print"no";
                else
; ~7 F$ p* v  \4 }6 u* R5 C                        print"cancel";
                end;
                eventcontroller.stop;
        end;
) g% a8 f) z. V" {9 C: ?" C       
        for i:=1 to number_of_machine loop
) b8 m$ K2 |* r        machinename:=sprint("M",i);
        if existsobject(machinename) then
$ _2 ~/ p+ L- c3 s                machine:=str_to_obj(machinename);
                machine.deleteobject;
9 K* n. r( q8 W% f1 l$ }        end;
7 K# q8 Y6 R5 C8 d5 G        bufname:=sprint("BF",i);
6 e/ o% U. |/ L4 y        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 c: X" a" N  G; w  w3 h. X                buf.deleteobject;
8 b3 r+ b0 |$ W2 M# u        end;
+ k* y! j& R% H$ K3 Y1 k        next;
3 ?+ J$ k0 x7 l- }" u" B% L0 r       
        dx:=0;
        dy:=0;
0 P; E6 G& M/ s) [        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
. D5 D+ U! z: s& {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: {- O8 U. ~" o  W                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
6 \* i9 O" p0 S  F& y                        print activityspace[1,rows],",",activityspace[2,rows];
+ B, A& ^2 t% q3 y$ x1 ]                        ct:=activityspace[2,rows];
3 ~) h" ]0 D# `3 e                        activityspace[2,rows]:=activityspace[1,rows];
) g6 r' ~0 z' N, Q6 K& y                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
/ b& V0 J. T$ {6 @                        y_max:=y_max+dy;
4 P$ C7 Z8 n2 }4 `$ [                        dx:=0;
                dy:=0;
" H' [9 X" a5 c0 u2 Y+ N4 w                        --end;
                end;
$ ^! Y2 v- Q2 r" _; ]                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  W$ u) `9 n$ U1 ]  M: C                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
9 f, a* i! N$ p$ v- r. l1 U7 T            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
$ B! Y: [5 b- u* c% F" b                dx:=dx+activityspace[1,rows];
7 Q+ n! H( p5 d                /*if mark=true then
5 A% p, H* {% j2 E                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
6 n$ M& @0 m5 f9 h7 f( f        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);
% E2 I' e$ b9 y: u        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);
       
$ m6 [) b1 ?" E) e        rows:=0;
* J7 [( g% r, q  l        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
" S$ O7 p8 j& ?1 S1 B# m1 K                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 D; ^- @7 f" k                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
- Y7 O6 r& {# u% [1 y  ~( T                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
7 g" S# _+ C( n6 J       
        lines:=0;
: j) o+ o. }( J        partstable.delete;
0 M$ S" [( Y9 u0 {8 I- u, G( S       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 e9 w( L0 S3 B; W; P# U                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
6 H! ?' e4 Z" I, ?7 z                        partstable[6,lines]:=j;
                end;
        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;标识符未知
        machine.proctime:=5;
  p) ]' T# N+ _2 V% |8 C        machine.label:=activityspace[0,rows];
" g) S- @: A% W+ g1 ?        machine.exitctrl:=ref(leave);
       
* L# f& |& N( S& {& d4 Q        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;
. j' k( ]9 g% ]: _2 M* w- f" I        buf.capacity:=5000;
; E% q$ n# |* {8 y+ y2 X        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
' b" _. r9 V6 j; P0 E, v7 M        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);
next;
; x! P" D7 {- v1 ~. eend;