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

zooey

is
        mark:boolean;
8 b$ Z0 F" U* [9 A1 a        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
. `; Z# s3 u2 T5 _    machine,buf:object;
% o, C% r4 ~* o$ h6 Tdo
        current.eraselayer(1);
       
' f7 N. O, y/ B2 p! h6 \, T        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
6 b+ h4 J. c& M: Q0 f. {                        print"yes";
                when 32 then
# Y6 s+ O" Z, \/ y' A                        print"no";
                else
; m4 T7 C. u$ S& U' e! i% [  Q                        print"cancel";
' u5 `0 v- p% Q- A$ O! k                end;
                eventcontroller.stop;
1 z( ?2 L  h+ e/ L8 ]7 d, F        end;
2 C1 E9 B# S* r  i. X       
        for i:=1 to number_of_machine loop
# ]+ `/ s. n5 ]$ z- k) ]        machinename:=sprint("M",i);
! @9 S0 ~' s$ {5 B1 `, s        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, ?- s# b: O# P6 _- t" ]                machine.deleteobject;
6 s9 a# P2 W& v. Z! @6 h) c        end;
        bufname:=sprint("BF",i);
! @& l" k# C; V4 r        if existsobject(bufname) then
4 r8 |& E8 f) T+ V* j8 W9 C                buf:=str_to_obj(bufname);
% k8 H! v1 e+ I9 @2 j                buf.deleteobject;
        end;
        next;
       
( D) p. e' s$ x/ q        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' H* h: j6 t( S; A2 Z                --mark:=false;
" F8 p" p+ ?( m$ W  n, Q8 m7 i                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 s/ F) Z$ I8 f" R- b                then
7 Q0 [+ c, U, l  O                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' B- y9 L) J" O. @: M. Z! y                        and activityspace[1,rows]<(1.05*y_max) then
. I& T9 _# t* U; b$ o                        print activityspace[1,rows],",",activityspace[2,rows];
) U0 U) W9 h+ j1 l  `: [7 y                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 X1 H( c4 ~+ X) \                        mark:=true;
9 A2 z) g+ \, e" \" x- T# S! p# ]# t                        else*/
0 R. L  n4 i  Z) A+ A$ s' A% {                        y_max:=y_max+dy;
                        dx:=0;
/ d, U. B/ o+ _4 N, t: U$ c                dy:=0;
                        --end;
  |& M  }2 m' r0 K. `/ F                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, k: V1 V% T6 ]                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
% t6 J% _) O) T8 k! z- f$ j" b5 l            if activityspace[2,rows]>dy then
4 K$ Y; x1 K/ I8 Y. v1 ]  D  Z- z                        dy:=activityspace[2,rows];
$ n  Q4 [3 D& T5 Y4 }                end;
9 k. Q' Y: u- ^/ I* Z                dx:=dx+activityspace[1,rows];
# }, d/ D3 \9 t& y0 _, s% `4 C                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  y* A- j- t" J2 N! R; }( W                        end;*/
! r. _6 q  N! j        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);
       
5 N3 |8 F$ ^6 {( U% w* O        rows:=0;
# y. _1 p( x: U. B3 N" ~        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
/ {6 `+ s' D$ l3 p0 Q                        if j=i then
                                d_from_to_chart[j,i]:=0;
+ H5 {% O& X" |/ R                        else
- d" |& [6 n- u, Y                                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];
2 f( A; G) N/ h' L' l$ B) _                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
        lines:=0;
- C4 S9 g5 D- p8 {9 n4 c- ?        partstable.delete;
       
1 q: d' D& x$ k- ]8 h+ ~  i; |% Y        for i:=1 to number_of_machine loop
, _8 M3 G% r, `6 r) H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 d/ R7 }9 c6 {0 r  y, V/ p' \                machinesequence[2,i]:=rows;
- \# p4 Y8 ?% P  v* b2 y0 `                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
! ]) j1 N  K1 `- 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");
                        partstable[5,lines]:=rows;
' \# I9 c) r  Z) W                        partstable[6,lines]:=j;
                end;
        next;
) g: n% i( T, s- i        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]);
        machine.name:=machinename;标识符未知
% S* h$ `% v2 L0 H1 s; B        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
6 b+ z& F! p' N+ f$ A       
) q4 E. |  S$ x" r- `2 C        bufname:=sprint("BF",rows);
. n4 Z4 f1 F6 d" u8 N& g, [        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]);
! _: F& A' [: i( V' h* T, e& X$ [        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
; j& r4 D" m, r       
) L& c+ o/ W( H3 c        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;
5 ]# S- ?" }6 g: y$ l% l2 l1 h0 _current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;