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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
. o3 }: K0 i) n" Y6 r! u  Q0 i    i,j,rows,lines:integer;
% g+ ]# v" k+ e  u& u7 u    machinename,bufname:string;
5 P2 H! t4 m0 h8 m; e    machine,buf:object;
' O- b, y/ Y' s( N4 n5 Sdo
( A6 w& M1 y. U- B$ s* s, S        current.eraselayer(1);
/ G3 b1 \! ~) \! X4 x0 Z! }( o6 I8 |       
# p, _# _3 ^% z  g7 W        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
  P8 m$ u2 t& \$ ~( m. L                        print"yes";
% ~% c( t5 x0 V$ V                when 32 then
                        print"no";
5 M. y  T( g+ W# a7 \9 E                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
+ I1 k% q1 u% F8 D4 y' G4 ], O* w0 C2 _       
; s7 J* g# @& G        for i:=1 to number_of_machine loop
8 E, U1 [! }( E        machinename:=sprint("M",i);
, d+ |; |+ k* ?- i, y1 U- s0 @; d        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 Q: Y/ m& q5 f+ f: R                machine.deleteobject;
, G$ q) ^7 z- a! z: W8 ^        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( n/ A' X; v& R1 }' e1 E. ?; W                buf.deleteobject;
) B2 U" S& G; l' G7 D; V8 N9 X; B        end;
/ E" i1 j  w( s& O        next;
7 l% Q( k( }# P3 w5 H2 a; K& a% d/ i       
# J5 r% L8 v2 S* Q9 A' s1 e        dx:=0;
9 c+ ?) C, F% U7 R' r        dy:=0;
( Y+ ^9 k; F  P7 ~, i3 f) q        for i:=1 to number_of_machine loop
+ y  S( Y# S8 u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 a/ W' b0 t$ [6 I7 o                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: i3 H. X, P3 N$ E8 P  m                        /*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];
$ C4 U: d" l$ P; @4 y                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" ~7 K1 L) C/ T. {! B' I                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
0 _" j. e. M' @                        y_max:=y_max+dy;
1 [( m6 y! T, k0 p3 P                        dx:=0;
                dy:=0;
                        --end;
+ b6 T# V& m  h. t                end;
+ p2 A+ W/ T" e5 ^7 b$ w, l                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
                        dy:=activityspace[2,rows];
+ l% M  @; M0 F6 p  Z7 {- H& x+ r                end;
( J' X+ R1 B6 q2 p& E) g9 l! w8 `" m                dx:=dx+activityspace[1,rows];
1 F8 J! X2 v, I6 G$ u8 B1 m                /*if mark=true then
* m0 Y1 p7 Y+ E  V, E- U7 u                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: M8 X, {1 P7 d8 R                        end;*/
% B! c- |9 m( V- i        next;
        y_max:=y_max+dy;
9 O; K9 ]9 x) Z0 p8 O* b* o        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);
1 U( c  |- [6 P3 G* F0 X6 ^        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);
       
1 N0 C& `& N1 o8 o) z% s4 i, v3 B        rows:=0;
) X' O* l2 ~8 z  X        lines:=0;
        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
9 e" {. e6 a* m" n. `2 r' p1 j                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# v3 S( V( P( k. m+ [8 G6 Y                                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;
" v) X$ p& Q* h! s1 O                next;
9 [. Z( G1 r) V        next;
       
        lines:=0;
        partstable.delete;
' c3 z- `8 K4 d- B- m, M       
        for i:=1 to number_of_machine loop
  p  z$ o1 a0 P" i, [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 |- _7 b  d2 _0 U' x/ F                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
, d3 S0 O* \6 h9 \, K- C  ]                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
8 G( W0 t; x; Z; a* t& u, X; K4 q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
0 W. ]8 v3 O2 t4 [1 n                        partstable[5,lines]:=rows;
$ H5 B+ N- s6 m2 [  e                        partstable[6,lines]:=j;
, S7 [1 v) ]% C/ p                end;
        next;
) i+ m% `8 \  J0 K        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;
$ U, D; {& \" ~8 S) I7 h$ u5 A        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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;
6 H& Q$ ~5 _* G! p9 m4 E2 D        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
6 G" N  h+ G6 {% y, w        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;
' O" W: s$ F* s+ [5 rcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
( X! [8 }; ]; b' Eend;