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

zooey

is
        mark:boolean;
4 {$ Q2 i2 d+ Z& p& v3 D        dx,dy,ct:real;
    i,j,rows,lines:integer;
/ `4 ]' C- Y$ e  h" y4 R. \    machinename,bufname:string;
+ R* S: l* u( _2 I  h& z& p    machine,buf:object;
do
4 U1 q+ e: i: U4 J% y5 E        current.eraselayer(1);
* `  J9 p( t4 ?& I0 P) P& B8 W* B       
/ {" G! p; O3 W1 _        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
                        print"yes";
                when 32 then
) N$ h: w! Z, p- }                        print"no";
                else
                        print"cancel";
                end;
' m( l1 ^8 r5 t3 A8 V! }4 H: h                eventcontroller.stop;
6 g1 @+ J8 @. R' b8 a% x* ]7 @        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 K# }2 n0 a; }' B2 U$ x- N        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
0 ?' H& Y6 [  E6 c3 {$ r8 h( \                buf:=str_to_obj(bufname);
# O/ c1 m! b2 v, [6 @                buf.deleteobject;
: C5 L  h' Q7 V0 m4 A        end;
        next;
; d2 i" ^+ l6 W       
        dx:=0;
        dy:=0;
8 v* X7 Q+ e7 c' ]        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! n3 `+ ~# \$ L. q3 f                --mark:=false;
) W/ p7 m# s/ r3 |                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- S* h! [% K/ R2 F* G# z                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) F! @& g. e! @- K/ T                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 `  v* c! N/ Q- ~5 K                        mark:=true;
                        else*/
7 s) M7 C. A* {; B# Q( |* X                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
' M8 Y/ e! n& F% r  I. o, [                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) o, Q3 N$ w, ~& O. i9 |7 E                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& y6 ~+ g9 h& A3 p) |9 k            if activityspace[2,rows]>dy then
; k$ \" L$ P. h                        dy:=activityspace[2,rows];
1 R6 r5 l! e# L3 m6 [( ]+ Q2 a' b                end;
' W3 X! \* }8 `/ G% d9 \                dx:=dx+activityspace[1,rows];
( X% L8 g0 i2 ^  o  {* P                /*if mark=true then
6 D0 w: v' h# ?! N9 H                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
, p! c6 G- G) m8 M        next;
. p$ H% y+ W  Q8 {        y_max:=y_max+dy;
7 N# V# c) \! a9 |        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);
; i% F$ }! a' |) O        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);
' v$ ~" q1 B. a9 |       
        rows:=0;
        lines:=0;
, A% W. V; b' s        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
1 U; f8 q, [2 {. s                        if j=i then
' H/ U, W0 H, U                                d_from_to_chart[j,i]:=0;
2 p( y* v! W2 N7 ~2 T                        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];
$ d1 `% Z+ s4 H' u0 ^: S; i                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
3 I  T* J' H! p4 S& ?" u                next;
, Y9 |1 K  j! H0 e        next;
       
' t, _% L! P% L2 h' w7 d        lines:=0;
+ ]. r7 I$ y/ K# l; b; I" u/ j        partstable.delete;
5 }8 b% {  {( H" A- K       
' I$ R0 {6 u8 }; y/ a- j! x+ U        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) V0 P. ?; O5 O& x                machinesequence[2,i]:=rows;
8 a" y! C. Z; Y                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  i# K$ Y; b% Q# o+ a6 V                        lines:=lines+1;
: e0 d7 R# y5 _                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 J7 Q0 i- a  l                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 \; A/ n' k  Y9 \' M                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
2 M- V' E& `1 `1 T9 r                        partstable[6,lines]:=j;
# y" c) H& W, E) }/ P# i                end;
8 y6 @/ M0 t; U+ S' v, y        next;
4 m% F" y0 L9 n% @2 h* E+ V8 T' c8 ]        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]);
5 o, H- O+ \. w6 Y7 D( \        machine.name:=machinename;标识符未知
        machine.proctime:=5;
6 N  c; N# R- g! p/ [        machine.label:=activityspace[0,rows];
  h9 k1 c6 [5 o: B& P" z8 U* }9 q        machine.exitctrl:=ref(leave);
       
        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;
3 k5 ~+ e" `; `, H- \$ @" H' J        buf.capacity:=5000;
  j0 h& v, ]- F( Q        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
8 z/ R3 b4 [2 R" j       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! [# [9 g5 s  [2 {7 f  pdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
3 W9 _5 _+ l8 E0 `+ Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;