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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
3 ^4 W7 A! F$ q/ v6 C& |3 n    i,j,rows,lines:integer;
    machinename,bufname:string;
5 R! ~2 G$ Q7 J+ a! B, g3 N/ F    machine,buf:object;
. t" F$ `, n: Q9 j5 t+ D) Jdo
$ N$ v  N+ c$ [3 a        current.eraselayer(1);
: L2 c! |3 u2 J* \       
- K( @1 n5 N" B! C        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
7 H6 `( H! G* ?7 m! p& _                when 16 then
                        print"yes";
                when 32 then
                        print"no";
9 E( r$ T5 t! ?4 P5 P/ j" J                else
7 x, f+ X7 D2 h6 g                        print"cancel";
+ I/ _# f6 f1 F/ u: [% J% ?8 t                end;
/ i3 b+ s" B7 d( {/ j, E6 ^                eventcontroller.stop;
* B  S; n# V+ [        end;
       
2 M' x) ^( q: A+ ?& T) r2 h) v" B3 n        for i:=1 to number_of_machine loop
0 [4 y7 d% r/ \% A( o* k+ i; m        machinename:=sprint("M",i);
        if existsobject(machinename) then
7 r7 L+ [: ^  }1 P- D                machine:=str_to_obj(machinename);
: k* j% ?3 q- B. S9 i( o                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 k! J8 y( e0 p5 v                buf:=str_to_obj(bufname);
                buf.deleteobject;
* [% C/ P  }5 p' `# U7 B        end;
( ]7 W1 A- j3 m5 j, d        next;
       
        dx:=0;
! b9 A- [6 ~& H5 `        dy:=0;
. Q$ d  n9 N9 `1 ]        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; @$ g; `' k9 v# L5 l0 a  k. _5 m2 Q                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# j; B: b5 o3 q+ O4 [                then
+ Z  j+ D: S$ Q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# W! _/ H  L7 `/ C                        and activityspace[1,rows]<(1.05*y_max) then
9 G9 i/ b1 y0 k; r& q                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
0 @2 E- i% h6 f8 {                        activityspace[2,rows]:=activityspace[1,rows];
! v  K2 u) P1 P! ^4 f; e: K                        activityspace[1,rows]:=ct;
0 n$ D. C2 M5 v$ o' Y                        mark:=true;
' Q5 z* z! R3 A3 L% X                        else*/
) j) Q( n3 B& ]! }2 r8 ^: n4 i8 B! |                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 e2 a2 H8 T/ i1 M7 b                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& G3 R$ U! u; z0 K5 B& z8 Q" n            if activityspace[2,rows]>dy then
* v9 G* t0 H% C  q7 Q                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
0 K' f9 {4 W2 I. n4 x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
8 m. t2 |; @# m        next;
9 Z, E3 O. K; t. s        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);
3 u) p5 O' ?1 R6 ?        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);
; Y; Y4 c( g* x  \  z& P- Q0 A       
        rows:=0;
- l9 |4 x# t+ r0 J! I" T        lines:=0;
9 |8 j" n+ J* Q6 K2 _        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 A" d+ s( _8 d5 ?                        if j=i then
                                d_from_to_chart[j,i]:=0;
" {+ M1 R$ \" o7 b) D" G                        else
, M, ^& {3 F* h# {3 ^$ n# k                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
" ~2 k( C; ~3 g, ?+ r) z                        end;
2 b1 ]1 z5 R1 {7 P. C                next;
        next;
       
        lines:=0;
        partstable.delete;
       
- q5 `% h2 k% O& m3 {) s        for i:=1 to number_of_machine loop
7 ?4 m2 ]1 q  l' |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ f! E& J) V4 u$ ^                machinesequence[2,i]:=rows;
# o5 A1 ~! X3 u1 n; ?* C& h% G5 v0 ^                for j:=1 to number_of_machine loop
+ P2 h6 ]) T. c                        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];
* A& P* {0 p$ h5 T                        partstable[3,lines]:=sprint("parts");
9 h- o+ a0 S7 j                        partstable[5,lines]:=rows;
$ E  R. r+ S3 C1 i& b                        partstable[6,lines]:=j;
9 i1 y1 b, ]- _2 Q9 ?$ m3 _' \                end;
        next;
        machinename:=sprint("M",rows);
, i4 x7 z8 R/ g; m& A4 {        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]);
$ V1 E5 `5 G1 D. @$ J0 F* p. ~3 l        machine.name:=machinename;标识符未知
        machine.proctime:=5;
. f$ Y/ Y( ^" x) G        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% r  N$ c2 e% B  F       
        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;
& s& ]$ t4 I& @' M  Z' a        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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 A5 ~$ n6 h! Q# q( @) ]7 `( Y4 E7 Anext;
8 n, z( J3 J6 b4 Z" p; h* ~, l- tend;