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

zooey

is
0 Q+ Y4 n: i  O" V" Y9 ~* t        mark:boolean;
$ e7 s) \& j. F3 w3 l" @' ?7 f7 E        dx,dy,ct:real;
7 m& l, n; k2 n" ^    i,j,rows,lines:integer;
    machinename,bufname:string;
8 ?. ^" i) _! N  ?    machine,buf:object;
! n& z# B, L0 q) R# I. u( tdo
/ ^7 T) A) D' L3 W% j4 L9 @- {        current.eraselayer(1);
" E* d6 O  E& u3 q& s" D8 {9 g5 X       
6 a' J" Q5 P9 J) G1 j& z1 E        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
  x$ m. Z5 M! y+ s7 e- o) D* J                        print"yes";
                when 32 then
                        print"no";
                else
3 d# n. M+ h, X                        print"cancel";
/ z+ e, E( _( |2 f4 j1 ^7 R                end;
, p" k4 W8 C; w                eventcontroller.stop;
        end;
4 T, F( ]' T0 d" f       
# Y; d: j- C5 e# o0 ~        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 l7 Y* H9 S9 u7 H, [$ w; Q                machine.deleteobject;
* u# R* s9 c1 m$ J9 ^        end;
        bufname:=sprint("BF",i);
: p4 A0 Z4 c% R  Y" B# _" L        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
: j* S& }6 a' v3 m5 z: {: G& f                buf.deleteobject;
/ u7 B* y& P4 l7 ^/ j  `        end;
        next;
       
        dx:=0;
2 A6 x) Y3 `  {5 k        dy:=0;
- U, a* S6 T1 T) ^7 ?' n! i' m        for i:=1 to number_of_machine loop
) S) F; F3 J3 t: y. i( U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% Y- B* n0 O# b" H5 E9 t1 I; U                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 w- q# ~+ X6 D* c' H3 w+ P                then
# I. \: h" F6 C7 I                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
  {) X7 [7 ~- G& w3 j                        print activityspace[1,rows],",",activityspace[2,rows];
+ l8 K; q+ `. w/ I! f                        ct:=activityspace[2,rows];
: T- E3 V0 {2 j8 D  z- f                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
- Q) I: |; F* v" z/ h                        dx:=0;
) M9 t# S, R! o6 Y3 [& r                dy:=0;
                        --end;
                end;
. C/ L5 x9 A. e/ i  H; I                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 `+ m/ t% b* ~                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
7 l9 O9 y: J- i$ h' J; E& y  _/ L& h+ B                        dy:=activityspace[2,rows];
                end;
8 k$ P0 g' E, _2 N$ k                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
! g" Y+ g& c# t1 i3 y% e" X  `) _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
4 s% h: G1 M2 L1 `7 ?# j/ o0 X; i        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;
        lines:=0;
        for i:=1 to number_of_machine loop
) @6 Z2 ]8 X" _2 B# K                for j:=1 to number_of_machine loop
* R+ S$ v5 S6 S5 |: \7 \4 I                        if j=i then
7 S, y. J: W. c1 ?( C& C0 ?9 a' s                                d_from_to_chart[j,i]:=0;
                        else
+ N5 ?0 v9 w& W4 D0 u( A( _/ U$ P                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* [; ^' l. G3 a/ E/ u                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 n! q8 _! u2 x: v+ G8 ?" Y) V; l                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
/ A7 x" i/ l5 z# ]3 f# D7 ]) r! e$ ]        next;
1 x4 y4 s* v, S; s5 a       
+ O" O4 g, H3 y3 ]( V0 K        lines:=0;
8 N: W5 P3 o1 w0 Z        partstable.delete;
6 q" K9 t* ^5 Q' {, N       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, w6 M6 G! o( Y: N% o) V- S  ~                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
0 a$ m) U6 x; Y7 Y2 R                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  Z9 C0 W: K5 I6 ]                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
4 U1 V8 c% k* Q" H$ X4 `! N- G( e0 @                        partstable[6,lines]:=j;
) v* K: V- O% x8 l, Y                end;
        next;
        machinename:=sprint("M",rows);
' P0 w0 l5 U+ B5 U- 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]);
( Q- g/ F0 @% c& b" A8 V  X: _2 d; [        machine.name:=machinename;标识符未知
        machine.proctime:=5;
8 J- Y7 f3 v  u4 {* n  C        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
; z1 [  j1 l. O+ P/ h0 ^        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]);
" ]2 @# B  P* G6 \" o6 A        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
; u# Q! z* J: |  T! H9 Z- {! P$ u        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, n8 t$ ~. z, I2 gdy:=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);
0 @- r6 ]  X3 z( E8 U* {next;
, e+ S, w: F1 _3 i1 D  b0 \: @end;