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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
6 r1 G) @0 `8 M% a        current.eraselayer(1);
, x! A3 ^' U2 s1 _. `; R' q       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
6 Z/ W8 S1 l4 d4 w                when 16 then
3 M+ c+ K% _0 X' T                        print"yes";
8 R  b- C7 L" H                when 32 then
! b% E) A7 K& H( t* A                        print"no";
                else
4 c1 ?0 F. u  R! a# X                        print"cancel";
4 d. ?# @$ p5 M" m4 O5 J; B& P                end;
                eventcontroller.stop;
$ v- P9 t8 Y0 C7 W( c: B        end;
       
+ R2 b: d' P* R8 K! F3 q        for i:=1 to number_of_machine loop
6 |9 Q- Z- y" K  n& w4 z) A& ^9 A        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
4 m; p/ }  j  T& w$ |$ [, h        end;
        bufname:=sprint("BF",i);
1 }2 r1 e8 Z1 k        if existsobject(bufname) then
3 ~5 S# L2 F( O8 T) Z# o                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
7 R0 h5 I  Q* C4 q        dx:=0;
& E! b  H9 g- r/ k        dy:=0;
* H9 b) A( E( N9 C        for i:=1 to number_of_machine loop
& Y3 g- g3 N- W7 R4 d/ G1 W: t2 i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; O( Z. m0 A: A! N. B0 G                --mark:=false;
5 {! m* [0 r9 o2 ?; D; F9 c2 m; o0 e                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 }" Y* N% U) [" c3 C                then
3 b' @* U$ v, b- V7 T2 t8 {( ~8 M                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 |$ m9 d, m$ J' G                        and activityspace[1,rows]<(1.05*y_max) then
+ u( p3 A  q8 y                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 Y( L, C; L  }$ q, k                        activityspace[1,rows]:=ct;
0 x4 B9 o& z0 [+ i: e                        mark:=true;
                        else*/
! d+ a; u; y# n: Z* ^5 x                        y_max:=y_max+dy;
0 ^5 O6 D% o+ n" H; W                        dx:=0;
0 y6 B5 ~8 A/ ~# {0 ^: |                dy:=0;
' O. G1 J7 p. G, r8 l3 y( T                        --end;
                end;
4 A$ L+ U0 v% _  D                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# T4 u' q1 m& ^! ^6 G, q" |9 _+ X                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ T2 C3 M/ S) {  e( L- M$ j            if activityspace[2,rows]>dy then
/ `- o0 c: c  }3 ~+ P2 F) Z( L! u                        dy:=activityspace[2,rows];
1 f* m4 P$ K1 u                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
; Z) F% w# G% h& v7 p! d8 \                ct:=activityspace[2,rows];
6 o2 R3 i4 @) M# X/ s                        activityspace[2,rows]:=activityspace[1,rows];
* x/ `  N8 D8 k+ T# `; P                        activityspace[1,rows]:=ct;
                        end;*/
$ u. A( I4 f7 N% ^6 Z        next;
$ R% O! F  f( F- @0 Z3 x% ?1 X        y_max:=y_max+dy;
  z+ n+ f' K" f  e- S% R/ |, q2 _        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);
       
, C9 w& u* ^) ^9 M+ K% H        rows:=0;
        lines:=0;
; K$ V. S" R0 u1 P& V) m5 p        for i:=1 to number_of_machine loop
8 ?4 P% n* y: @- h3 F' r                for j:=1 to number_of_machine loop
  C- n( ?5 C0 f& Z- U8 L                        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];
3 q. l" N" Z! A. o6 R3 m% a                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
9 p3 H: _( h8 }; B0 C! U                next;
5 H* g0 ^. Q7 f$ c. @) P        next;
       
        lines:=0;
. f) L+ b; k- K1 d' D        partstable.delete;
! j) _7 N5 G1 M0 V# J       
1 \+ {% ]6 t7 y! o" k1 G9 @2 n        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
! Q, v0 l  f# X$ P- ?                        if w_from_to_chart[j,rows]>0 then
$ l/ g7 y- X1 e9 F2 ^9 `3 v                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 X/ s! g/ s( r8 L                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
  b6 J# {& j; U3 R$ u* O! U                        partstable[5,lines]:=rows;
4 G: M5 A4 R5 l0 K! j                        partstable[6,lines]:=j;
% B. Q5 R9 Y) ?, y$ ^                end;
. [9 R1 n7 \* q) {0 r7 \$ {, `5 ?9 }  _' b+ \        next;
        machinename:=sprint("M",rows);
4 s& Z  u$ Q# g  k1 W$ b7 ]. \        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;标识符未知
' p* {. w6 I" u' }8 `        machine.proctime:=5;
* n2 a8 c* }! [. w! W) l1 D4 p. W        machine.label:=activityspace[0,rows];
; ~; ?2 `2 Y7 E        machine.exitctrl:=ref(leave);
       
* l  p( N; \" F: i5 p4 m        bufname:=sprint("BF",rows);
( p2 r& a; \1 P, O        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]);
- ?* x2 U8 `& ^' v/ D        buf.name:=bufname;
$ z8 D1 `4 |5 `        buf.capacity:=5000;
+ d/ }- g& u- b/ Y        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;
( D+ A# A5 n, U. c* b6 Ndy:=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);
' ?- T4 h2 d$ S2 W4 Nnext;
4 u) }% R* T1 {( r  l* Gend;