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

zooey

is
        mark:boolean;
! t3 g  e3 v: F9 ~- F8 _$ f" m* o        dx,dy,ct:real;
    i,j,rows,lines:integer;
; l$ {4 E; v- z8 n( v/ u% |    machinename,bufname:string;
/ I( u* o; M, y: Q1 T! f    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 v0 v4 ]0 Q5 N. z; ?, P* ~                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
( X" ?! U% D; S% C                        print"no";
                else
5 c* [% W2 c6 V. \7 Z) _+ ^                        print"cancel";
' t$ x* [' Y; Z; A7 w8 o                end;
( Y/ {9 ?( }5 P0 Z                eventcontroller.stop;
0 \9 [" B" w' A2 l4 H& r        end;
6 C1 K3 U/ G1 V9 |# w8 O9 t$ c       
" J7 q; l$ ~/ F( b        for i:=1 to number_of_machine loop
* v; L/ W  }3 r  E! E4 G        machinename:=sprint("M",i);
) H' J% p4 C) v" \        if existsobject(machinename) then
. T2 d% p* G, X4 a# c; ]                machine:=str_to_obj(machinename);
- e) i/ L; a0 L2 ~4 }                machine.deleteobject;
- R4 ~* P0 u  {. }3 v        end;
        bufname:=sprint("BF",i);
/ i7 G7 S" i9 v- `        if existsobject(bufname) then
  c5 T) a" _8 L& p                buf:=str_to_obj(bufname);
' Q1 l; M+ Z: O, a; E                buf.deleteobject;
( `: h+ \# J  Y% s- H5 s        end;
        next;
, v9 Z8 C5 A. n0 p       
        dx:=0;
        dy:=0;
2 I4 L6 E' R" a0 j" ?        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 J: x0 p- c  L& F9 K' e8 V+ M6 \                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' o9 X  p( f8 W* b$ P- f                then
% k( G4 L1 N3 I6 E                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
. P' U1 I6 N% }                        print activityspace[1,rows],",",activityspace[2,rows];
2 U3 h! z. d% f2 Z) b                        ct:=activityspace[2,rows];
* w4 e, b; Z3 n2 o7 O$ {; _2 k, b                        activityspace[2,rows]:=activityspace[1,rows];
9 N: A) _/ h+ b. }1 K* |, N) g                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
) e' d) n; s  o$ W3 [- y3 N: I) d& a5 U                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, D! k9 Z3 ~2 c" o                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# G: i. {" @: h6 @            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
1 E* U* ?, c+ A  @3 \& u  X& }  |! z1 e9 O                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
- f1 {% P: w1 Y$ Z. m) ?                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  u" p( ?+ k9 e6 H                        end;*/
$ P3 z3 X' e6 i7 y" u8 Y8 x0 j( K        next;
        y_max:=y_max+dy;
5 j# p4 b- I- K& e4 u( I9 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);
        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);
1 z8 D9 j$ }% V& M6 {& O/ b- A       
/ B1 l; w3 J6 F        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 [4 P$ u$ c$ D( a                        if j=i then
                                d_from_to_chart[j,i]:=0;
; t+ A4 `* s, x$ J0 G9 ]                        else
# D8 e: V- G# _! B& q                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* ^; Q) K) p  i# d" a6 x: E! `                                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;
) p4 h% g+ H8 P- A# |' g2 X        next;
0 f7 ?5 @& g! D6 `7 N       
        lines:=0;
0 A  _* y; v& X* W0 k        partstable.delete;
       
  ~  v$ L, M* [+ t  r        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& o( _9 M, B: b2 V2 ]                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 O9 c; {9 u, \0 g                        partstable[3,lines]:=sprint("parts");
; I# V7 u! ^' `                        partstable[5,lines]:=rows;
8 l- l  ~, ?* I) z( P                        partstable[6,lines]:=j;
                end;
/ b# R. T' Z  c        next;
& [( |+ R7 M. ^        machinename:=sprint("M",rows);
7 }" y; {7 `0 c! \) n" f# c+ r        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]);
) G5 E& D( e$ F# `4 y; v        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
9 m0 Z  n5 u) f: H        machine.exitctrl:=ref(leave);
; l) w- D- C: g0 F6 p       
        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;
" {/ x# u4 ^6 j. ]' _        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! d3 {+ V% b  I* f% Rdy:=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);
% A. c# d+ X6 f3 Rnext;
+ f& u4 l- e4 \end;