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

zooey

is
$ ~; P+ P1 W* L1 y- k( d% i$ c        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
+ ^% l: _3 l7 Q  x, o2 N# t: Kdo
- m: Z* ~, l9 I8 O- G$ M2 X        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)
0 e6 d0 F; j9 ?/ s% H0 y                when 16 then
                        print"yes";
                when 32 then
' u$ U5 T6 `3 W' v$ H9 S) e                        print"no";
                else
                        print"cancel";
1 C0 c9 ^' v3 R                end;
                eventcontroller.stop;
        end;
; q: W8 z8 v1 u7 o* G; v       
8 ]- {0 s1 d' Z        for i:=1 to number_of_machine loop
# y8 l- h5 f4 n2 q! y: H, X: P. ?        machinename:=sprint("M",i);
2 ?/ `, g" c- j; Z9 u) \        if existsobject(machinename) then
4 {8 _" }* E- e/ ~( K                machine:=str_to_obj(machinename);
$ E' d( F' G" `/ w# X1 z# j+ i                machine.deleteobject;
# _; k  b, v( |4 A        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
8 J/ j% `: Q: W3 N; b  I$ A& w. M1 t                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
7 J  s/ D$ [# K  v! m+ C- F       
        dx:=0;
        dy:=0;
: X* m) `7 r% `! X$ C        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# x) ]; A0 R5 z, n2 ^2 y" H                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! ?- g4 O/ Q! w/ c6 j. O4 l) Y. u                        and activityspace[1,rows]<(1.05*y_max) then
7 w( M' M; _- I! k  ^                        print activityspace[1,rows],",",activityspace[2,rows];
6 m: s( P. n* n: |! \- @                        ct:=activityspace[2,rows];
( a) M8 }6 t7 E" s7 V% ~" M0 E+ h                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
5 T1 `2 X+ w4 ~: c0 w                        mark:=true;
4 I8 H) g/ T9 q7 U; V$ G# H! G8 K                        else*/
; c" M" k0 G0 u$ a4 n( b9 M% R7 L5 R$ `                        y_max:=y_max+dy;
                        dx:=0;
; Q9 \3 Z& b3 A, p& Q' X8 T                dy:=0;
! @/ S2 c5 m) L2 z/ E                        --end;
! O! Q2 m, i4 `                end;
* }9 F7 b9 D- b; F4 R                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;
% n0 n0 ]. j! Y% a7 }% ^3 S            if activityspace[2,rows]>dy then
/ {2 C+ i( m  {, ?; o                        dy:=activityspace[2,rows];
% G, [) p$ Q  V9 f1 S/ K                end;
                dx:=dx+activityspace[1,rows];
3 `! d* v2 a& C$ y% A; {: M5 B                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 q3 T$ j$ W$ U- K, R% K                        activityspace[1,rows]:=ct;
+ Q, o* C6 e9 Q& o: x+ A1 s                        end;*/
        next;
        y_max:=y_max+dy;
0 ~# D$ S+ g; K$ x# ?, `1 t        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);
" s5 j  ~4 b' e2 R3 Z        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 f4 }: F! h' t+ |) T       
        rows:=0;
        lines:=0;
8 m# d3 Y, I% g$ F6 `  u        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
* d' U3 t$ B; }                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: v! }' i6 L3 @                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
" M6 n( E4 B/ \9 V5 {/ G                                d_from_to_chart[j,i]:=abs(dx-dy);
' k1 j. l9 t: g8 q* `. D                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
       
7 x. k8 b: C2 d        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, e2 }: D8 F' t% R                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
7 F4 @0 F2 H/ Q0 y                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
1 m3 P3 W) P0 k8 P0 o        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]);
" y; u! w& x: o+ Q; C        machine.name:=machinename;标识符未知
! h3 h4 V4 J" x5 l8 ~' ^        machine.proctime:=5;
3 `/ T) X& M& e0 l: M        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ z) Q' h0 n1 D9 H1 C       
        bufname:=sprint("BF",rows);
; N" }0 y7 C. G& ]        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;
- e  }: k+ u# [# R& f: o2 M        buf.capacity:=5000;
; ^/ ?0 ~+ l9 v/ J        buf.proctime:=0;
4 @4 [9 J6 C" d        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) q: p' I4 f* O* O/ C8 Ddy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
* @& a! m4 N* {) Fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
3 r" b% |( C, v- i! t- M