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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
3 k! L) Q# e/ j    i,j,rows,lines:integer;
, Z, g& T9 Q0 g6 s- i* j  F( p    machinename,bufname:string;
5 @  c$ T  f( L0 v& [  w    machine,buf:object;
do
7 ~4 V& ]7 p( t# [2 }0 g        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ o4 ~* ]8 e. P6 {5 a                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
3 M' u2 W6 s% H1 l                when 32 then
                        print"no";
                else
                        print"cancel";
# H; Z5 N0 p/ P9 P: n" a                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
4 p. P6 I, M7 v1 U) h/ M/ d        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 C4 j4 b& s% s3 x8 z                machine.deleteobject;
        end;
/ T4 Z4 T, n, [4 P8 t7 f; B        bufname:=sprint("BF",i);
# }: M$ h( k4 n8 m' ~* m        if existsobject(bufname) then
% V, Z+ N: h9 ?. N% y  Z8 T                buf:=str_to_obj(bufname);
( {6 Z, A% n/ X                buf.deleteobject;
        end;
: B9 }. M6 a& q" V5 M, @        next;
3 E6 r. l9 ^  @3 b+ f4 H8 B$ O       
        dx:=0;
  G: |( {9 a$ T1 x        dy:=0;
        for i:=1 to number_of_machine loop
/ ~  V1 A! V/ C0 S7 N& F: K, ^9 d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
6 V& N  o/ F+ f, S' [) H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
/ j6 V, v/ P6 D0 J# p                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  \, O. ~! Q' R. m: i( r                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) F& Y. s* L2 t9 M9 u% U                        activityspace[2,rows]:=activityspace[1,rows];
* a9 _$ D) F  W: z* Z! h                        activityspace[1,rows]:=ct;
- N: d) `4 j/ T- g" s+ D                        mark:=true;
                        else*/
8 K% U9 U9 T1 Q4 \" V* I; w                        y_max:=y_max+dy;
! M$ Z; \0 u( ?3 \  n                        dx:=0;
                dy:=0;
/ W! Z4 t1 M  @* [                        --end;
                end;
( ]2 P4 m1 k5 i                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];
& Y) M0 D0 A- I3 H& l                end;
  S6 n- E6 n5 u* `$ e$ U7 V' Z                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
" x5 a, L- S+ T                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
& Y7 I9 Y) N3 z  p& I+ u! }        next;
        y_max:=y_max+dy;
- x6 i8 f! Z8 W* Z$ r8 J1 C" @( z        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);
$ c- R& u3 L4 m       
" v, K4 \( v* M- Z# W# `        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
* f4 }/ }; W- I                        if j=i then
, R/ B2 {6 M7 q                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ _& c2 H: y% K/ L; i                                d_from_to_chart[j,i]:=abs(dx-dy);
3 r  U, |/ z2 ^/ B                        end;
* [2 \) E4 i2 W! c" A) o, y& N                next;
        next;
       
" i1 Q& b( n: T, N        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
& H5 N- z: O& ]2 ]4 @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
. c/ o/ D- B9 w                for j:=1 to number_of_machine loop
' N) N8 u5 D. @                        if w_from_to_chart[j,rows]>0 then
0 V5 Z- d4 C  }$ i4 }' s3 ^* i                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ I8 |1 V; b2 f" e5 ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
+ z: T( X# j" g& f8 r5 z                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
& ?4 d5 u, ^0 r0 L( c- Z/ `6 T                end;
" _, J! |1 S* Y7 N        next;
4 L. i3 e9 ]3 C) S        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;标识符未知
2 \$ f* I% ^2 c9 p; h' ^        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  m6 [6 L. U3 @( U, y! `       
        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]);
% V5 `8 S& j: h        buf.name:=bufname;
6 J% y: E' @. e6 J1 _3 }  s9 }: Q        buf.capacity:=5000;
1 r6 ?% q1 k' J2 r! n  Y# \7 D        buf.proctime:=0;
0 A( T) t3 d7 z, _0 V7 p        .materialflow.connector.connect(buf,machine);
( Z4 R) g/ ]$ j; ~* V' H       
+ F. `% f7 W1 }8 ]1 k5 X9 a        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) B1 ^! }: W$ H( o8 tdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
3 ]% [/ j/ I! }0 G+ vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
# L, q2 l" G: onext;
end;