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

zooey

is
! a0 z6 a: q2 C) m1 x        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 o) T2 S( o& R8 V    machinename,bufname:string;
$ n3 {. v5 l) T. _& Y    machine,buf:object;
do
7 s, a" l; \- l' H1 d$ w" h        current.eraselayer(1);
       
3 u2 Q: i& W9 n% I7 s+ G        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
4 `3 M" y9 M% E  x6 \/ O                when 16 then
                        print"yes";
: v: e# J9 k) ^3 i                when 32 then
2 r% @& K9 C5 K1 X/ ~! J                        print"no";
& i. ]+ f6 O! w7 _4 P; x                else
                        print"cancel";
                end;
                eventcontroller.stop;
) l2 @7 O# h1 R# `8 S* C        end;
2 g5 f4 g, R; U/ s" O       
4 b5 ]/ J" o. @) U& H        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
4 ?. x8 A/ {+ B2 l        if existsobject(machinename) then
8 r  ^/ s0 n, w                machine:=str_to_obj(machinename);
                machine.deleteobject;
) y  J+ L1 g' t3 T. Y; t8 i' p6 Y        end;
        bufname:=sprint("BF",i);
, [# D) _5 [/ f1 X3 v( p$ c        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
; p: o8 H' R$ |6 m$ [# e$ C* i        end;
, L6 ]% }2 |5 c0 N2 q; x; U3 }        next;
       
4 ]* {) _4 H0 _# s* j6 n& Y        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
( H) d/ m6 F3 @2 g3 [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ q' C! R. t5 _4 U                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) {0 o2 s: W7 A! W  b. p                        activityspace[1,rows]:=ct;
) n$ V- e4 e# w. K                        mark:=true;
% o; B% F! D' m3 N                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
; g6 G/ B! g; Y, S# f) q                end;
                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;
% f# i* P) I1 v) O0 l, L, l            if activityspace[2,rows]>dy then
/ g6 @/ C% l) }. z/ w                        dy:=activityspace[2,rows];
& ?0 A6 ]% g! r                end;
                dx:=dx+activityspace[1,rows];
1 Z2 H2 A. h- f4 r$ f6 y9 b                /*if mark=true then
  x5 v% S) _. F* c2 u/ W* [, n" |; O                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
8 z- t( P' c5 d% o        y_max:=y_max+dy;
8 t; `3 g: y$ m; s/ i4 d        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);
5 }) H5 A0 B% p$ B: g& M+ R       
' l+ d$ d6 K  q2 b% M2 B. @; b5 {* x        rows:=0;
        lines:=0;
/ Z4 s1 K# L9 c        for i:=1 to number_of_machine loop
, x+ X7 [" n( R; f5 g" M, n                for j:=1 to number_of_machine loop
2 K  C, y( d! f' ^& G, C$ _% x                        if j=i then
9 B5 v2 K6 {! m' ?& F1 c                                d_from_to_chart[j,i]:=0;
                        else
5 Q6 H! ]2 g. G7 K                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 V8 K" C# s8 ?5 n/ m                                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) O& |2 s4 C2 ]/ E7 M                        end;
                next;
        next;
# `$ z; s+ {; b  i       
7 K4 C# V0 j8 [+ R5 t+ {        lines:=0;
# m; _5 \8 @) D5 Z: D4 E8 ?) Z        partstable.delete;
5 f$ j# H2 h& R5 f* V( p       
1 e$ T: h' z/ S+ [4 I3 E        for i:=1 to number_of_machine loop
: s% R9 g& ]; s8 ~/ S7 q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
" H3 J: u; Q% z2 o+ [                for j:=1 to number_of_machine loop
2 ]. \/ W( c; K3 X/ I                        if w_from_to_chart[j,rows]>0 then
7 h) h0 H& i; q# k6 t( n) P                        lines:=lines+1;
- ?' t# U0 N8 d2 y1 D                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" ?6 D2 g+ o4 C, d0 f3 B9 j                        partstable[2,lines]:=w_from_to_chart[j,rows];
) ?1 @9 i0 I3 V3 R' Q3 T3 B                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
$ R; `4 g% @0 u/ O                        partstable[6,lines]:=j;
4 H  Q& G! ~. n6 e5 n4 a* ?                end;
8 ~: }# X* Y% R) k, @0 k        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
6 O3 h3 t7 F9 `  M        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]);
  {$ N2 k8 \6 K; a5 X9 x& Q        buf.name:=bufname;
        buf.capacity:=5000;
7 ?- `$ M) s" y$ n; j        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;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
4 U: r9 k, Y- ]! u+ ], xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
% b: Z  Y/ s9 ]7 T  M! `( Knext;
end;