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

zooey

is
        mark:boolean;
; c6 x- U" L( m        dx,dy,ct:real;
$ m% Z4 S3 Z( p  s    i,j,rows,lines:integer;
    machinename,bufname:string;
( @: \9 F6 x* l+ \4 o    machine,buf:object;
do
        current.eraselayer(1);
       
/ j" ^* k  Z* z$ M7 [        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* O$ V8 Y. y* j) K, |                inspect messagebox("设施数目不对！请核查...,",50,13)
. v$ s5 w, r% b! C7 G$ u                when 16 then
* e+ P( e4 n9 I: Q, w- v- e2 i                        print"yes";
2 U6 Q4 l! D2 b                when 32 then
0 v" B& Z3 ^# v, d                        print"no";
+ j# g" J5 ~6 v2 [$ j                else
                        print"cancel";
                end;
% L" `7 w4 ^: Q1 ?1 N$ ~                eventcontroller.stop;
! Y6 w& M+ ^! a: `4 V- \0 Q        end;
+ {% w5 O+ U7 \$ e6 f  a       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
% ~& m( ~  `' S' B# N        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
1 y9 Y: W) H) F0 X5 t; ]6 B                machine.deleteobject;
6 v+ h8 Y' W: i# J' G        end;
. W7 t$ H1 v. @) j        bufname:=sprint("BF",i);
8 m" A: o  N& X        if existsobject(bufname) then
& P. {+ i4 [5 i$ Y; v7 B                buf:=str_to_obj(bufname);
3 \( x5 V1 l) B! J- A7 t# ]                buf.deleteobject;
        end;
        next;
       
        dx:=0;
9 \# M) N% Y* l; G! y, h. F        dy:=0;
# x9 {$ r: E1 ^* b        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 w9 ]8 a7 {8 J4 r  _, a                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: J$ T8 ?( M+ N6 h2 U                then
6 l2 e. H, Y& F; i( i. F                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% `) x* b4 |- w0 K/ Z                        and activityspace[1,rows]<(1.05*y_max) then
$ o- x( D$ ?3 I4 G                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
2 u, n0 G( V( {9 }0 e& w3 b9 h                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 G4 l5 s" S" T2 Y2 W, W/ @& ~                        mark:=true;
* m0 T% N; t$ K1 {0 z6 R                        else*/
                        y_max:=y_max+dy;
% q# y6 E( y$ \6 b, u( S* h5 r) c                        dx:=0;
. @; {0 _: ^! Y) |                dy:=0;
) Z. u2 s+ z' K- v( R                        --end;
( M" W7 Y; q( \1 G! m6 H1 s4 X                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- ~7 n) S  Z5 l0 b) R5 p7 W- D                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 N, }8 U: ?  M( s( F2 J1 B            if activityspace[2,rows]>dy then
2 |0 u& C, h  c' R- Z                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
/ r# S( o4 J1 g! g! K  k3 [0 I                /*if mark=true then
                ct:=activityspace[2,rows];
9 {) L# H, b& d1 Z1 M( S                        activityspace[2,rows]:=activityspace[1,rows];
& V; U, G: P. W                        activityspace[1,rows]:=ct;
                        end;*/
4 _% g' r9 w7 ^+ ]# r0 F        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);
        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;
* I# D& H$ A) m  _0 A' A        lines:=0;
# h7 o! G: w. J2 k3 z( f        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
3 z) S0 w5 r9 D8 ^# U; x9 r& |& d                        if j=i then
: J# Q1 N5 U# O  I; G                                d_from_to_chart[j,i]:=0;
; R% V8 T3 H& b; k& X" {                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- E+ p9 ~2 Q9 y. w! q( U- ^                                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;
; h- U& R) b# \                next;
        next;
- {/ Z' a7 w( Z- b! d; V- u+ x( W       
& M6 f& M6 Y: n- A+ E0 h( g5 D  R4 R) Z        lines:=0;
, p2 D8 N: p! B/ ~        partstable.delete;
' R$ p- ^. J- H% W' A  f' _* e* j       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; l" x% z- z: i                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
% X8 j* _8 Q7 s. q; x1 h                        if w_from_to_chart[j,rows]>0 then
1 a8 O# |/ E5 }& _2 g0 Y9 f                        lines:=lines+1;
- ?; N$ L2 G; O% \0 H- p3 E7 o$ T3 o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
& F9 L# _* a( l" O" z4 ~7 f                        partstable[3,lines]:=sprint("parts");
6 ?) x" G* a% P. W1 v                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 Y; K! p& `# A: V7 k  y                end;
        next;
6 k/ a1 X, j. Q$ t$ j# e        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]);
/ E; i! b8 ?0 z! M1 z6 W        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
, R* F1 B5 K0 d; C+ H/ I        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
. ~1 T% I/ S" w. A/ E( F        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]);
9 O' P# ]2 \: e; G, y, J  i& u$ X, `        buf.name:=bufname;
        buf.capacity:=5000;
+ V" {# k  j+ C        buf.proctime:=0;
0 k3 ~7 R8 s2 m( C6 Z        .materialflow.connector.connect(buf,machine);
* C. T6 n7 r2 t8 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);
5 @4 m5 `8 t# x3 @, L: \next;
' G: x) Q3 w2 G/ p) V& H3 Z+ d2 R. Aend;