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

zooey

is
        mark:boolean;
3 O- t/ y, ~% A8 S. ^0 m( _        dx,dy,ct:real;
  J8 a# V: b4 W! H    i,j,rows,lines:integer;
. z. y: y/ [% x    machinename,bufname:string;
    machine,buf:object;
: B. C& a- o- o/ Z$ G7 |0 ydo
        current.eraselayer(1);
       
9 c' j/ A( C9 C/ N        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
: b4 a4 g. H/ W6 i( ?& q, f* S0 ~4 \                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
# v- s! {' j! _( c3 a        end;
       
, j/ O& n: S( h* N        for i:=1 to number_of_machine loop
+ t9 K% F9 m  I& w        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( E  ?# L0 N& m& e, I% g7 b3 O                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
+ ]: x/ ?* w" w- t$ V                buf:=str_to_obj(bufname);
                buf.deleteobject;
  A! Q& R* Q. k- O. [        end;
, p2 S5 G& e7 n$ f: ]/ o        next;
# k) F" O4 w2 C$ D& ]5 q$ R* F       
        dx:=0;
        dy:=0;
7 K6 k& n% }$ y: J, @$ N3 r        for i:=1 to number_of_machine loop
0 h1 U8 W5 M/ P# d: I5 }                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' j% p. w( w" ~  N, Z9 a) {                --mark:=false;
+ }1 w6 O4 v- b" t                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  g; ^4 S8 ^* H9 z  d& H2 \                then
6 L1 M( {9 X3 B, h/ A) a                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 C" N! u2 i- M                        and activityspace[1,rows]<(1.05*y_max) then
9 Z- }( @3 O' X5 ^& ~) ?1 j                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) R3 D2 k" Y% f. g6 @                        mark:=true;
                        else*/
5 U3 V/ t2 ]1 F                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
/ U/ c( _5 A7 t% [4 y' z                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 l8 t! M8 T) R" K4 J0 r/ x                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, e" l6 M+ r( O$ F% }' j            if activityspace[2,rows]>dy then
* d% l- o: R5 d) Z% I- y3 l                        dy:=activityspace[2,rows];
3 M! I1 K& G! V7 B' S! F7 h6 B2 }% r                end;
, q/ F+ b2 n: [# S. W4 r                dx:=dx+activityspace[1,rows];
                /*if mark=true then
% T/ M  t/ u: x" S; w* P3 Y( N2 P                ct:=activityspace[2,rows];
2 `& d9 P( @0 p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 C2 z' }  \9 X6 ^. q9 H                        end;*/
  j. ?) B  U. M+ r" i; z        next;
+ F2 R* i; A# i0 I7 n        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);
6 p4 `! K" T; `4 J8 l4 d* `4 H8 r$ q        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);
! u* Y! u3 q  L# \       
        rows:=0;
        lines:=0;
0 M8 n+ \. t7 I, M" R        for i:=1 to number_of_machine loop
' N' P: ]" N7 J7 C- Z                for j:=1 to number_of_machine loop
0 M# J! H" G: c1 x                        if j=i then
% w" [& i$ j. a( B$ {* g                                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];
. g4 e4 |- @6 d* b                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
1 z0 E# p& P# @# r* \        next;
, T' Y8 ]. F; i* V  U1 o7 k% M       
% E$ l- A' B0 |# U) d% z        lines:=0;
# ~0 m5 o7 |* S9 Q        partstable.delete;
       
        for i:=1 to number_of_machine loop
* R5 r' [8 B$ G4 {' [) W$ O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
7 K! C3 t3 g- R7 \; K5 I6 k                        if w_from_to_chart[j,rows]>0 then
" T; Z7 e3 \! H4 ^8 K                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
6 A& R5 m3 M% C% z                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
1 z" b5 a$ |4 H; f                end;
" U$ p0 N1 h' N# B$ M+ z        next;
  ^) g2 c4 B4 z( k, ]# K5 [        machinename:=sprint("M",rows);
; r6 n6 R+ N# H        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
2 x( e- K3 |0 n0 l        machine.exitctrl:=ref(leave);
       
: V4 {6 q& ?' W( [+ E% d        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]);
  O: A6 @. p9 y: m% u1 O        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
" J) a8 I* U( A" m* g: v        .materialflow.connector.connect(buf,machine);
, \+ \# ?) ]; ~" F% l: b8 H/ M       
. I8 k) F6 s4 r( n4 U+ k        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* K0 s! w8 W0 `- m  ^4 {dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ B  k3 j# A1 n; u& Zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;