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

zooey

is
        mark:boolean;
! u2 e8 M* Z$ S5 p        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 {$ J( h4 [' b1 T3 S/ a5 A  c  s' E" d    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
7 B8 W  Q9 K* e; h% ]       
5 b/ |# u1 n6 O        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ w/ _7 Q( x/ p                inspect messagebox("设施数目不对！请核查...,",50,13)
, [% Z4 l" ?" h                when 16 then
1 t3 M- V5 k! V" l  S( q                        print"yes";
( F: Q# J/ g/ N' r) t+ D                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
! v  P) [& a0 U) R/ J. x( v' w3 ]( t       
: _) ^2 F4 Y/ Q; r  G# _* i        for i:=1 to number_of_machine loop
* J' N3 u' V! c3 i% z& G6 {0 w        machinename:=sprint("M",i);
1 Y  x& D$ `$ Y$ d        if existsobject(machinename) then
1 }- w% _# v1 X, x                machine:=str_to_obj(machinename);
                machine.deleteobject;
/ g, U: l8 G* p, U        end;
4 O6 Y6 Y. |% t6 H5 Z; f        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 e+ m* H) b6 G/ S                buf.deleteobject;
        end;
% {, Y2 I% {- V; E        next;
       
, o: |* A' |4 J/ i! l9 k        dx:=0;
7 Z. O; F/ r) P! X# j        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 [. o( g6 F) X4 a+ j7 ?0 J! ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
& u4 |" q6 S" z( e                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
, k/ n3 }' ^/ Q- P5 m                        ct:=activityspace[2,rows];
+ Q4 B  H; N% R! n% L8 o' d                        activityspace[2,rows]:=activityspace[1,rows];
+ d, ?4 S# @% i0 |6 Q: O                        activityspace[1,rows]:=ct;
8 I" f$ S* E+ b% G" C* K                        mark:=true;
( Q8 P3 [" [) u                        else*/
. H3 t; A8 [3 u6 S                        y_max:=y_max+dy;
# w9 I; H+ Q/ I$ x3 d( v                        dx:=0;
                dy:=0;
                        --end;
2 X; o* c( Z- u                end;
' }$ k4 A1 |0 [. s: U. I                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
, s1 |7 V% y5 x0 G8 c' L                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
) B' `+ E- P* T) K* H( z                /*if mark=true then
                ct:=activityspace[2,rows];
' _$ B& g0 v; J0 J; _' b* {/ E                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
, w- e" \  \) |        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);
& @* k2 S9 u* T* E3 }* M       
        rows:=0;
# e: I# w6 H/ d# }        lines:=0;
; w9 i! K% X) J8 `  }        for i:=1 to number_of_machine loop
( U* L9 o0 A0 }5 e: }# V- C: C                for j:=1 to number_of_machine loop
; Z' b8 b% j4 _/ V                        if j=i then
                                d_from_to_chart[j,i]:=0;
1 U& J2 L0 i1 t4 ]                        else
% B; f) F' `0 q6 n                                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);
' z* F( S) Y) {4 }; v                        end;
& L( k% U/ s# T3 h5 d4 `8 \' Z                next;
        next;
       
% L. m5 j! M$ b        lines:=0;
+ p: J4 D6 m, f7 q; R7 E8 e; E        partstable.delete;
$ {5 P/ c5 m# N  }       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) l) M: M: U. t- M, Y- {                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
3 @2 w( h/ Q/ r' G4 H/ u9 D                        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;
) m- t  L# {; S. T                        partstable[6,lines]:=j;
                end;
        next;
  J* z& T3 Q( \        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]);
* n( h/ X% W# @        machine.name:=machinename;标识符未知
, c' H5 Q; O3 e3 o% |        machine.proctime:=5;
% N, I' z7 p' J2 Q% ]        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
* E% ^4 q& U' D1 R( G6 U( r: c, k       
5 C4 L9 m" t8 j6 L# E/ r9 k        bufname:=sprint("BF",rows);
1 ~3 u6 A) A! T% d        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]);
6 w2 t# z1 O4 a* C        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
7 i* o0 W* O3 H# B6 H% [0 T        .materialflow.connector.connect(buf,machine);
. o# i" X5 @  O+ @       
0 f3 Q$ T" n! T, J4 Q4 \0 Q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& m0 N7 Y2 u# G3 N$ h5 Gdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
2 S3 l; B. u0 A7 P% A$ rcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;