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

zooey

is
        mark:boolean;
: R5 T5 B0 L5 Y4 M2 x6 L        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ ^5 x7 ]9 a, C; e    machinename,bufname:string;
    machine,buf:object;
6 |0 ]; t6 x* J& q( \do
        current.eraselayer(1);
. K4 R# t$ H; t) f       
: o/ H/ _8 I7 u4 C        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
                        print"yes";
                when 32 then
2 z5 Y5 Q, q, n" J  B+ F% L' B. @                        print"no";
                else
                        print"cancel";
8 n. m1 s0 b( W8 ]3 f8 F. [0 i6 o                end;
                eventcontroller.stop;
2 a3 s; W" I) f# c$ j) y        end;
       
2 h% }, L' i4 E9 e; {2 F        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
3 L: Y4 N+ ]' x/ r$ \$ U3 U6 W9 F                machine:=str_to_obj(machinename);
                machine.deleteobject;
: b. D. x( _. b- e) r; v        end;
        bufname:=sprint("BF",i);
; i; e7 j) H; e( Z, D; _  N        if existsobject(bufname) then
5 q% X8 j7 i2 u' s) _$ Y                buf:=str_to_obj(bufname);
( h" u; v( o$ G, s                buf.deleteobject;
        end;
        next;
' q! w) G; U& `# @6 J+ }) Q       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
9 g: O3 i+ {( ]# x, L                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: G0 \$ ?7 H5 A& S! c4 \; B                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
' Z& S2 F- d/ s4 W& I7 {6 E5 w                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 R: K/ n& S. }+ w0 `/ E2 x                        activityspace[1,rows]:=ct;
* a8 ]0 S& G2 y# o3 s                        mark:=true;
                        else*/
0 B; c9 E3 T8 t! q' Q                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
4 J4 f2 R7 y& [, g8 G) ?                        --end;
5 I5 U. n; M6 b' P( l+ v  e1 b                end;
" t1 W9 A6 @$ P; F! i: b% ]2 Y( J                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;
& z" @! P" r8 e( d$ q            if activityspace[2,rows]>dy then
, P- N; c2 b1 s$ e/ m                        dy:=activityspace[2,rows];
                end;
0 h) b/ n3 V( E! M" e                dx:=dx+activityspace[1,rows];
                /*if mark=true then
* r  y8 W! P- Z                ct:=activityspace[2,rows];
% {8 g' {3 A/ R7 f0 @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 Y) K+ {" w' t, c                        end;*/
5 D: e' w( V5 d' ~        next;
6 G1 d+ U* ~8 G' m6 t        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);
        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);
: t5 M; K4 O8 J+ D( z  X- z/ c       
        rows:=0;
4 a) b, P( D1 x1 m$ U" S        lines:=0;
4 y: m' u. |" X, W        for i:=1 to number_of_machine loop
; P5 v( a- y* a                for j:=1 to number_of_machine loop
                        if j=i then
0 M1 l) D/ y+ V; e0 u& Y* \) i                                d_from_to_chart[j,i]:=0;
+ v$ B8 j* ^. y9 @/ W5 `                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 c+ e( O$ `, s1 D4 V( I# j                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
! O; s- u" f5 _) D8 w/ s                                d_from_to_chart[j,i]:=abs(dx-dy);
6 n$ K, I  a( O0 L& a                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
       
        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
( O( ?* P8 N+ m3 T! q" l( B                        if w_from_to_chart[j,rows]>0 then
$ U$ m) s* |2 D/ x* u& T" R                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 f  T4 C' j1 b) \1 p7 @, i                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
- G* t$ i. W3 Q' T$ _  s        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;标识符未知
3 P+ h9 ?1 q$ b0 l$ @) h: o8 p        machine.proctime:=5;
' d. Y0 }6 ]7 |  ?% u' f& _! W        machine.label:=activityspace[0,rows];
  g, d) I7 G5 O% k: M8 P        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]);
! \) t+ K. j' I: D  ?6 o        buf.name:=bufname;
9 K: k' s& y1 v% M        buf.capacity:=5000;
. }/ G! D5 C) S+ P        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
3 i7 Z" q- `9 K$ P: p       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  Y' ]2 s8 _. b$ h# L/ |2 Q% Ddy:=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;
. \- u6 J5 s$ C1 a, jend;
: Z* p, ^" Z( V