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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
9 {5 Y# t: `- J# t& J! [3 O& Y    machinename,bufname:string;
    machine,buf:object;
do
) Y! F' z% }# P4 u$ E" J# [        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
5 C. f1 y$ C( S: n+ D) x                when 16 then
                        print"yes";
                when 32 then
, U  C* |1 _3 ?                        print"no";
                else
# A2 O  \: ~7 u9 i: I2 |7 x                        print"cancel";
                end;
5 y& D+ D# J3 o$ `, Z                eventcontroller.stop;
( D" S6 G) w( x- d        end;
. y+ U) K+ y* Z, p) J       
0 ]$ n, _# p+ P) S+ D0 `- E8 G% ^        for i:=1 to number_of_machine loop
! b+ g* v; N0 ?8 R/ {        machinename:=sprint("M",i);
        if existsobject(machinename) then
) G) b7 v$ l% p" `9 M* ?: b                machine:=str_to_obj(machinename);
                machine.deleteobject;
6 c  N8 f8 u1 N/ [0 K        end;
& u. D; t6 E: k& l, b5 m& _        bufname:=sprint("BF",i);
/ J% }% {; r1 n5 c3 h        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
3 k7 j7 W$ Z3 [$ h. s2 f# I1 ~5 }        next;
       
        dx:=0;
        dy:=0;
- J+ M" @, c7 m* v+ |0 z4 {2 m        for i:=1 to number_of_machine loop
, ?* ]9 k4 S: W+ w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 Q& U) m1 d1 d* H' p* @* f/ X                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( R* U& f6 K8 B2 U1 {0 f  M                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 z8 M. R7 b! P* F  ~8 ?5 m" v* d# ]                        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];
                        activityspace[1,rows]:=ct;
% p! q, i; ]4 \                        mark:=true;
3 g3 {1 f2 d$ E  ^$ H$ R4 }2 J                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
1 w8 a7 P8 M3 g                dy:=0;
                        --end;
                end;
' V, w6 j2 Q8 s; `' a2 q# {( h                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( @# N) x9 E" y9 }! \. {                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# d6 J7 \2 i9 ^4 }            if activityspace[2,rows]>dy then
1 f! G& n) `8 l: S  j, y* P% u4 G                        dy:=activityspace[2,rows];
                end;
& _7 x+ _1 O1 z) \  Y  H0 a                dx:=dx+activityspace[1,rows];
5 i% g  w3 D) f6 M! l6 ~6 m2 t                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
. L* H3 _* o& c+ X5 n2 ]) 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);
+ y+ X$ q- |8 _# A3 W/ K  W        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);
       
9 s9 f: F/ z. Y! D7 [- Q0 }        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
; l$ S/ _' ~! y+ _; p' z/ k                for j:=1 to number_of_machine loop
/ T8 a9 f# G7 G" G' v                        if j=i then
0 _4 A3 G7 v% j' b$ G( I                                d_from_to_chart[j,i]:=0;
' C2 h: n% _% @/ }                        else
) V) P4 a! x' D* `! G  T/ l                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
0 H# r8 d; V, r# V                next;
6 \( w& M1 W2 D        next;
       
! x. g, G, D; I, u% S; P& e        lines:=0;
        partstable.delete;
       
: L9 v3 Z7 r, o) Z+ }        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  H7 Z9 w* v# {$ L5 f                machinesequence[2,i]:=rows;
# N( F' ^8 n3 P2 j# o                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"));
3 E( g0 X  \/ C" Y  I                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
" o% M) O2 w6 u( @" S                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
$ y1 I, P, j5 `8 R9 w                end;
        next;
$ O6 Y! b0 Z1 N9 t' ?5 V        machinename:=sprint("M",rows);
- o+ i; i. [8 t. ~6 @1 z) C) G        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: i& Q) N) G: ^% B/ F1 v' K        machine.exitctrl:=ref(leave);
. Y  u2 g( s- R2 E# t       
        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;
        buf.capacity:=5000;
; F( v0 T2 ~, ]7 E$ E5 d        buf.proctime:=0;
+ O, d9 M7 ^/ n. p, R        .materialflow.connector.connect(buf,machine);
$ Z8 |+ s* m( G       
- v/ k" Q. [6 u        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
: Y9 b0 T! y6 y+ Jend;