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

zooey

is
        mark:boolean;
  g2 q8 U4 y/ C& v. S        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
) N' f. l, E: A        current.eraselayer(1);
       
        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
9 {$ P" r" J- g5 v/ ]                        print"no";
                else
2 a4 k% _% u+ I# r- j                        print"cancel";
0 O+ _# K7 d9 c; K& n# n                end;
                eventcontroller.stop;
        end;
       
! f  P  U- W" q  _4 v9 X        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
  _/ k. i- a) `4 S        if existsobject(machinename) then
# f5 d- {/ j9 I0 c                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
2 }& B- ^' D  r* N        if existsobject(bufname) then
  Z4 ?9 X( V) T* q4 `4 f                buf:=str_to_obj(bufname);
) _# c0 P' \4 p- ]  o+ s8 b4 L                buf.deleteobject;
1 [* n1 u9 Z+ `        end;
        next;
       
3 ^, r3 z- ?+ k2 H) e/ z        dx:=0;
  c7 r: P. k3 B0 R+ W        dy:=0;
        for i:=1 to number_of_machine loop
- M& i3 d3 g/ B: e# t- m4 m5 n( w9 n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
2 z0 b* z  j( M: A+ J2 t/ T                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) ?( H- `; W, J1 ?7 l) @2 l, X& }                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 Q7 w7 ]9 E) E4 l' \! P, y: |                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
% c; Y# v! j- _/ S; [; a                        ct:=activityspace[2,rows];
# H8 W# A. g/ a' W: o- @                        activityspace[2,rows]:=activityspace[1,rows];
/ M8 D8 E# t/ W                        activityspace[1,rows]:=ct;
                        mark:=true;
- _% P  u* g' b5 v7 F* V                        else*/
                        y_max:=y_max+dy;
. D* i# u6 G- w: j1 q, X                        dx:=0;
                dy:=0;
                        --end;
2 u0 ~. z2 T8 H4 d  y1 v: k                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" ]  @. l6 D. n6 r                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ B! H. |: H8 U4 ^* q5 E1 v. a            if activityspace[2,rows]>dy then
4 d$ ]; [0 j# @                        dy:=activityspace[2,rows];
9 U5 M* J% U6 B/ E7 d: \                end;
9 U5 J, `" f! |1 J! L3 l6 J                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
& Z5 r. W6 F& m2 f. D% }' ~4 v8 ?: E3 l                        activityspace[2,rows]:=activityspace[1,rows];
0 T5 B  p7 }* ^  \                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
% P5 P* q  b* `& T4 K        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);
0 N8 U( h% S$ \3 ]" E" V        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);
, Z5 X; `" h  m; c  q       
0 H( t9 [* W) q        rows:=0;
0 P( o- A6 F3 e9 N        lines:=0;
        for i:=1 to number_of_machine loop
$ B5 M/ t! ^3 T) M                for j:=1 to number_of_machine loop
                        if j=i then
9 D& C/ h. L2 M                                d_from_to_chart[j,i]:=0;
                        else
' p* _1 R, L1 Q( e  M                                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];
7 O2 t& \- h3 x" j% ^  I                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
- B* j% U% g# q4 u                next;
        next;
! e; ~; A- Z4 p. {/ B0 u" L       
        lines:=0;
        partstable.delete;
# k- h/ X( |" U       
        for i:=1 to number_of_machine loop
: g9 v( c" O1 R9 ~- W* b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
4 V1 u. G: E4 {8 `" X                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! L" M5 k' Y; L- S5 n$ Y2 f9 @, H                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* G# C1 T2 i0 F7 L$ ~. A; D  C                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
) |3 s+ t& {2 Y* o2 H1 b4 X                        partstable[6,lines]:=j;
                end;
        next;
3 F6 D2 w% g# G2 o& A        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]);
, n6 K, p" k6 e        machine.name:=machinename;标识符未知
        machine.proctime:=5;
0 x: {$ l5 d0 k4 P* Z: i2 C( y4 }& E        machine.label:=activityspace[0,rows];
        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;
        buf.capacity:=5000;
, m+ \$ M( f2 B. l6 ?5 M$ {        buf.proctime:=0;
6 E/ ~: z2 B' [" F/ {% H0 @        .materialflow.connector.connect(buf,machine);
! W' ~! V$ q3 r6 N  J5 R' j! L- J       
4 `' l' d2 {9 O8 ?        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;
  a: N; M8 I, w1 l5 G