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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
0 z9 y5 {8 Y/ G. j, [: L7 w3 N    machine,buf:object;
do
! W% Z) ]1 Q# n7 M( a        current.eraselayer(1);
       
* M! }, [7 y5 I% T" t# c; S5 v        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
- `! _  O, s; L+ S$ ]- j" t3 H) l                        print"no";
7 R: N5 S5 W- A0 l9 P                else
                        print"cancel";
  y# |9 z0 h0 ^5 d# L$ I8 l                end;
5 ~- H1 I( C  `  J& u                eventcontroller.stop;
  g& e4 p6 u* ?2 e- s        end;
6 I1 M  U8 u' p1 R; ]- Z       
* h2 ^( C( F% f1 I9 f- T! q        for i:=1 to number_of_machine loop
3 F& d0 H8 p1 m1 G8 A% }        machinename:=sprint("M",i);
        if existsobject(machinename) then
3 g+ R  V5 R+ m& g+ O                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
! Y4 ^. D0 \; C. d# G5 `; J7 B. n9 ?        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
6 Z, A7 a3 y) x1 {. m6 R6 O! _# u( K        next;
  H' X( K' Z5 m# @' d       
        dx:=0;
        dy:=0;
, W1 [% K" E% O. `4 K/ u% ?" U* t% k        for i:=1 to number_of_machine loop
! \5 N+ }! @+ m3 R  ~, v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" P/ \6 Y% v. Y- k& k                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 A% A) O& L, X- S1 ~                then
9 j# x1 J9 x( e. _                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, O+ D) h. C" N6 h$ c' [                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 D7 ?* G1 {2 X& g                        activityspace[1,rows]:=ct;
& r3 t5 f7 C1 d5 O2 L' r6 P                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
0 X7 u" t, T( z+ u                        dx:=0;
                dy:=0;
                        --end;
3 `0 s: ~) h& |6 u4 o8 f                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& v" I" w8 e  }) l                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
5 D9 Q( |3 A+ g9 S7 B+ e1 O                        dy:=activityspace[2,rows];
9 k" Z9 F# \2 U& c( u  y* {                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
8 `$ O* r2 ~2 @( j                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 F0 `- T" g- t3 E                        activityspace[1,rows]:=ct;
                        end;*/
        next;
. k! T  ^" e) j  J: W0 g5 N/ ]        y_max:=y_max+dy;
3 n- [# Y& z. x& I        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);
+ S& x3 y% a' @6 N       
        rows:=0;
        lines:=0;
1 `8 K0 ^6 @! {" R) J5 ]+ ]" ?        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
" W$ R2 d1 r0 l3 V2 P9 c2 S9 Z                                d_from_to_chart[j,i]:=0;
                        else
; z: z( j' S  f5 L0 E4 I# L                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: P# a8 X5 ?( r" k9 R; A% H! q                                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);
, W4 \/ K; w. `1 M                        end;
                next;
: J4 C/ K# r2 g- w  F8 u  ]6 Q4 a) V        next;
       
3 K/ v9 I" K/ v6 l; j  j        lines:=0;
% y0 w5 F3 E4 d/ u9 M  I# u# N6 {! q) b        partstable.delete;
8 w+ l! H8 F/ H9 {3 `) }       
4 h+ N9 M$ z) S3 [3 F. k        for i:=1 to number_of_machine loop
) ~% s5 @. e: ]# A$ F( y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
& Q! ?  U( k0 `% f                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
3 r' I2 h5 E' A$ T- x                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, t0 O1 b, o4 C. i4 T                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ J* Z  d' Q; A7 ]' a  {% L( s                        partstable[3,lines]:=sprint("parts");
3 B* L* L2 I( q                        partstable[5,lines]:=rows;
- A" A% Y# [* m+ u3 l" B4 J/ c                        partstable[6,lines]:=j;
2 z) G" D3 L( q# q  S9 |! t% J; ^* \                end;
4 n: v1 i* s5 W' }. E& P0 t        next;
        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]);
* T8 W8 P0 r8 u6 s: \7 h1 C        machine.name:=machinename;标识符未知
- L  D2 h" a6 N" S- ]4 s        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 a' z; o) c  w- P4 P& ^8 k       
        bufname:=sprint("BF",rows);
# O- X' b, @! A8 E: h        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]);
( ~4 l- Y3 r4 X& [3 Q0 f$ n4 n        buf.name:=bufname;
        buf.capacity:=5000;
  t/ u! \5 w3 X* C        buf.proctime:=0;
# I! [) X1 i! S) ^# P  v- ~        .materialflow.connector.connect(buf,machine);
1 ^: {6 @  C0 u# L7 I! |       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" t5 W- J- i+ U0 i& l- M0 A1 Ody:=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;