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

zooey

is
        mark:boolean;
$ e- x6 D9 n, Q: ^# J+ @& ]        dx,dy,ct:real;
, A. G; m. ^* w5 {    i,j,rows,lines:integer;
# @% T1 p( t( F; i9 M/ Z% T    machinename,bufname:string;
! ?7 ]" S4 ]9 z; \1 O    machine,buf:object;
; d5 ^) l! K3 E: c! }) Odo
& \9 L: V( I$ T8 S7 C' o) V0 ~$ ^# G        current.eraselayer(1);
& b3 ]- j- l; H# @/ w0 _. E       
6 Y* }! X+ @9 F  K1 |        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) h* z9 ?" A+ ~+ o7 v) S* [# Z6 ]                inspect messagebox("设施数目不对！请核查...,",50,13)
( d9 G; Z! q! Z  S                when 16 then
                        print"yes";
                when 32 then
                        print"no";
! J) e  w( C  o% C3 t& V! [' b                else
                        print"cancel";
+ a6 I! A4 |4 A" M1 Z# K                end;
3 ^  r' @9 [) M& }! u' V* H                eventcontroller.stop;
( L6 n" i  q% z. x        end;
3 o  N$ f5 X" U( k       
        for i:=1 to number_of_machine loop
$ i. [, }9 T8 s3 Z: Y" g        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
) x9 W- T; I0 N; |1 V        end;
* q! k/ s( f# [% T9 C4 v. F        bufname:=sprint("BF",i);
0 B+ N) B# r9 W5 i5 o, `2 p        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
# h9 V) h6 f) y# d        end;
+ T6 b; R* q% d6 _0 ?4 f+ x        next;
       
# r1 Q+ y$ Y3 g0 O        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ J7 f" l2 l6 \, o                --mark:=false;
9 q3 z" m* I, i! W' x9 J                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& S) @- P8 p' b3 s+ h; ~                then
! L) Z$ L8 [/ o8 \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. v* B: b+ u/ H                        and activityspace[1,rows]<(1.05*y_max) then
. H+ _1 s6 ?6 m                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. H7 R' g" B" L  ]/ ^                        mark:=true;
                        else*/
4 V' w+ i% P; a0 T  o- f* K( F                        y_max:=y_max+dy;
" u3 @: W6 Z4 N( t! n4 C; Y5 j                        dx:=0;
/ J- q9 k0 G" ]& n  q# A0 \                dy:=0;
7 e6 C$ m* S- R- ^- t9 V                        --end;
                end;
) y/ o5 P. l9 }1 J/ ~  |, z. @                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;
; N/ D$ b6 v* @! O/ K            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
' e- V% d4 X) ~2 z                dx:=dx+activityspace[1,rows];
$ z- t) s: X  f8 t" u1 m                /*if mark=true then
0 \# ?0 J7 s" x+ ^1 [3 {                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 k: c) j2 Y9 M0 j) e                        activityspace[1,rows]:=ct;
                        end;*/
        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);
0 n; O; A4 c' ^( P9 C       
0 c. d7 m* k( Y, F& V        rows:=0;
) Q( [3 O/ P4 _        lines:=0;
5 G# G$ D* d( s: c2 W: {        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
" q* O( }# J: t' P8 }                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# _& `' q8 O; E                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# F: K- u/ e, p+ o: ~1 t; q                                d_from_to_chart[j,i]:=abs(dx-dy);
" t7 C" A& V3 }4 K( P                        end;
                next;
; L! f! Y* a2 \6 q1 f3 j8 L$ e        next;
       
/ d, ?* x" {& q5 g( K1 h' I        lines:=0;
        partstable.delete;
       
+ G7 n$ e) H- C+ d        for i:=1 to number_of_machine loop
2 b6 L3 ^0 p1 y/ I- Z- n. D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# N7 q& ]9 r( I, C3 N) T; f                machinesequence[2,i]:=rows;
' m* N7 z$ O0 ^) {5 Q+ g. y$ E                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
, z0 U& t8 H5 P- e# T                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) Z. J! z. K% S6 [: S                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
6 Q' p3 ]3 p/ H6 }                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
9 S3 q3 x! U" Q3 `& N9 N6 k* O        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]);
. c1 q  Q$ z* H        machine.name:=machinename;标识符未知
$ n5 y# ?" j0 c  L+ e+ N* z% \        machine.proctime:=5;
; S$ b. z* Z2 K0 B( ]. O. K        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
, k7 c( R. w' q' P* j       
. ~2 ^; l3 ~+ F2 ]' M, K5 O( ~! X' K        bufname:=sprint("BF",rows);
5 I4 O0 y8 Z( w4 ]2 I' Q  ~9 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]);
        buf.name:=bufname;
+ D8 |1 @) c; ~. {3 ]0 i        buf.capacity:=5000;
. @, m) [  n4 o6 S4 O' w! h3 r* g        buf.proctime:=0;
, J; U( P9 o- X) l' I( l        .materialflow.connector.connect(buf,machine);
: f! Z1 G4 X- l% z- E/ Z       
( q3 C' `9 O2 ?# f        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);
next;
end;