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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
  o1 D$ @* t* s! k/ k, K    machinename,bufname:string;
    machine,buf:object;
+ D6 m. m; ~+ M3 j  x5 l3 `do
1 ~0 a. z; _7 q: g7 m" \; h        current.eraselayer(1);
, X3 [7 V5 v7 J/ e8 |       
  j; p$ j9 T2 G; P, S9 s/ n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ V: s7 n2 l  s0 Z) z" e2 _% u6 G                inspect messagebox("设施数目不对！请核查...,",50,13)
6 b. Q0 L: O' y                when 16 then
  B2 b- }2 s* h3 I2 f9 J* \3 \3 `6 X                        print"yes";
( ^, X8 N6 o" N8 H" t. O                when 32 then
4 _  A$ H  h$ _. C                        print"no";
                else
  W, @1 |% F6 y+ w- c( O                        print"cancel";
                end;
" g2 y  {3 w6 c; ?' W  t# ~                eventcontroller.stop;
: w  y, t* r7 n; ~5 y        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
$ ^4 {& D6 ?4 ^% q        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
- l' b1 [. u, x5 I9 o9 y5 ~                machine.deleteobject;
+ L8 j5 F9 Y- h        end;
! X6 |! P5 e% w# m; `% G) _        bufname:=sprint("BF",i);
        if existsobject(bufname) then
9 D& V7 A1 u7 K3 n  a- S                buf:=str_to_obj(bufname);
4 \# e% R+ D, C/ F* }. Z% q8 @                buf.deleteobject;
        end;
5 [( I1 g0 `& M" l& p4 J, I        next;
) N! ?: f9 J4 z7 p" ~  i; z       
! g% Q2 q6 h3 y* ?        dx:=0;
' ^+ R$ `! }/ B7 q0 H3 x        dy:=0;
        for i:=1 to number_of_machine loop
: p8 S) w2 L, b2 I5 u+ ~) ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( }% L8 ~3 _2 P7 K                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
& {: u. T7 Q) s9 q7 B' J* }  v                        activityspace[2,rows]:=activityspace[1,rows];
( T; |9 s7 {5 c* @                        activityspace[1,rows]:=ct;
9 @' w% `9 P7 t1 }6 B, I, l' G                        mark:=true;
5 J, a: K! s$ B                        else*/
                        y_max:=y_max+dy;
/ U5 n7 A, N5 L# D, y3 S  m                        dx:=0;
                dy:=0;
                        --end;
- ^# m; |2 J3 ~' N; c: z7 p                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; h7 B: M( W5 y  T; H  c' k                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
0 @1 H) Q" V' J- Y. O. I                        dy:=activityspace[2,rows];
+ h0 [8 K9 V& Y% n  k/ ^4 y                end;
6 a; z5 c1 N1 h3 {( O                dx:=dx+activityspace[1,rows];
- U; |9 f9 z# ]0 C) J                /*if mark=true then
3 O1 L( |8 ~; K. P+ v! N2 j( l                ct:=activityspace[2,rows];
, p; U/ Q- l+ D, o                        activityspace[2,rows]:=activityspace[1,rows];
3 _' q- N1 I$ ]" n                        activityspace[1,rows]:=ct;
                        end;*/
+ q3 [2 ~0 b8 B. [* s3 Z( S        next;
0 N: U; V$ s" M& Y% o" x- K+ K        y_max:=y_max+dy;
. ]4 X, J5 f* \/ F        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);
  e! y9 i: E! u7 y9 A, J/ D5 `! [+ l( r        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);
       
4 y/ q1 Q- }3 \; n; I        rows:=0;
7 v6 t) i* C4 g- |) x) w% R, d        lines:=0;
        for i:=1 to number_of_machine loop
; f4 X, t% J' ^% {( ?/ F/ O                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
4 \/ p* ], S% Q) }, q. y: {        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
" t$ E. \  [) q6 w: t! |6 S4 S# S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
6 W% k! @- Q9 |                for j:=1 to number_of_machine loop
4 `. Y* K7 e2 _# o                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
: W/ W/ d# {% A1 a                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 v2 k# ^' \! B0 Q9 u                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
& F1 R# m4 Q( }2 n0 M                        partstable[6,lines]:=j;
( E- v, L0 |9 H. d. ]% B2 U: I/ J% |                end;
        next;
1 }# ^6 X5 A; G4 O1 C% P& G        machinename:=sprint("M",rows);
0 e. G9 k$ y" g, Q        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];
        machine.exitctrl:=ref(leave);
% ^2 E) R5 \1 E       
        bufname:=sprint("BF",rows);
5 A6 E; B& \5 e  o& T        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;
        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;
' V) q: Y8 m. M( Vdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
3 x1 P9 T. O4 R, @current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;