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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
& @$ i  \( K7 h    i,j,rows,lines:integer;
" C5 ?" m+ ?, C& U    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
: `5 ^3 p  I& z$ ^# l' A. `) m       
        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
5 Z; B9 T% |9 f# `                        print"no";
                else
                        print"cancel";
                end;
% N' a* f  w/ K. U" Y& h                eventcontroller.stop;
4 ?% Y/ j  {! T( ~        end;
  r3 {+ {1 @4 A: a% ~' o       
        for i:=1 to number_of_machine loop
) ^; _- \; |" l        machinename:=sprint("M",i);
0 U7 I6 z+ }" u8 F. d        if existsobject(machinename) then
5 H3 o6 |& {" L  \! d' G& A$ w7 k                machine:=str_to_obj(machinename);
7 ]. V, L$ v7 ^                machine.deleteobject;
  l! s7 G; {' Y        end;
: v4 D) i4 H) A7 s+ u: t        bufname:=sprint("BF",i);
        if existsobject(bufname) then
0 o/ z3 j: B/ D& U5 [) Q                buf:=str_to_obj(bufname);
- R. U) a0 O0 }1 O" y! ?( N                buf.deleteobject;
  G6 Z+ i$ u# S+ k4 H        end;
. T2 C& W, ^0 ?' I3 W" _4 `$ u- Z        next;
       
        dx:=0;
& p1 W& u$ X7 W        dy:=0;
        for i:=1 to number_of_machine loop
& S+ D7 Y8 q8 Y* o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 @# o+ _6 c# k* d# O$ h                then
. T- H2 l3 W- p# r: ^. y: e4 J                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
5 e( B. o  w! q( s) _: {4 T                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- Z# u. h# Q  l6 ~6 W0 S                        mark:=true;
- i* e: j. }1 @5 b5 Y, g: H; T                        else*/
: C) F0 \# l8 ^& u5 A( E                        y_max:=y_max+dy;
3 A- V0 ]) D2 ]. U                        dx:=0;
                dy:=0;
5 ?8 s6 v4 e1 Q2 Z4 ~3 p                        --end;
" S4 ~; v% d6 i" K3 o) m- u+ ]                end;
2 @6 F. J) U) J$ b1 H1 j$ z                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 M5 j/ V; Z4 k                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
4 K+ ~; w* f0 r                end;
) D4 S' w/ S9 }3 p                dx:=dx+activityspace[1,rows];
' `2 f2 f. y4 `& C% b- r                /*if mark=true then
5 b# u6 N: w8 O# F4 f2 M                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ |+ }4 @9 a  X: b- {                        activityspace[1,rows]:=ct;
                        end;*/
, ^% A! Y& D0 t+ U2 L& N        next;
        y_max:=y_max+dy;
$ B( I0 g* a6 M& b! x, J        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);
3 }* [5 E) Y, z2 H       
/ u1 F! L8 F  g8 t) P        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
+ P7 l1 v/ {# G5 I+ @  R/ X                for j:=1 to number_of_machine loop
7 \) I+ |# _. W4 K( o, h6 q2 Q( h# T                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 ^/ a+ O; K6 ~  Y8 S5 U                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  \3 F) S* c. T5 L' ?                                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);
9 z2 [& R) G/ l0 m                        end;
                next;
        next;
% _8 }1 X/ }& ~3 }       
        lines:=0;
. ]3 S/ n1 Y, `1 v        partstable.delete;
' w! [- X. c0 @7 I( I       
$ |! S( M6 c2 z        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
6 K0 `6 z, q. O2 ^; U+ x                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
( h6 H1 z/ G* I7 \                        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;
                        partstable[6,lines]:=j;
: j5 |  L3 m8 A. j6 t0 r: e                end;
7 D7 T2 `) \; U2 \7 N0 b6 c# N) B        next;
0 i4 H9 ~+ j  q: R0 }" X4 p& f- p        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]);
; |& d, k* Z8 y* e( A4 R" m        machine.name:=machinename;标识符未知
3 H( n7 W9 b4 a2 X" v        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
3 I5 m* `6 y+ S$ Z$ w; ^, z       
* }+ z( ~& T# y( r+ G* m4 u. M        bufname:=sprint("BF",rows);
% M1 s5 s, _$ L6 U0 @2 V( l        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;
+ L8 ~0 }( q$ n3 W- a8 J8 d        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
$ [9 I" U- o: @" w2 f5 f% }       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& Q0 k. t/ G- n1 t& y( y) |2 Qdy:=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;
/ V7 R/ V8 q4 `end;