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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
* W) E9 D6 e4 M$ s# w  ^0 {9 ^4 y    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
. `5 O+ a- a7 t5 A( n- _do
        current.eraselayer(1);
! M. A+ B- w6 q' s( X: O       
0 n5 v! u9 O, l9 o; i4 a* o        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. P" m/ m; h, o8 w                inspect messagebox("设施数目不对！请核查...,",50,13)
! @4 s% @6 w- |                when 16 then
                        print"yes";
9 p2 A6 }/ x& S; T* m, w                when 32 then
0 I6 W* Q( o4 |0 Z5 P6 r                        print"no";
" ?3 ^4 F6 A' y! w# j                else
9 s" ~: B3 a; u- ]                        print"cancel";
                end;
! Q* B8 \, Y/ j5 L- c2 {; L" a                eventcontroller.stop;
. V2 U8 t, Z1 M0 S- \2 @        end;
4 \6 x# l# i0 o       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
: e1 @8 ~. M4 h& a' t/ w9 m        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
$ P: Z. L' }+ z$ r- A0 d                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
! ~# j4 S6 t2 D/ h; Y" N        if existsobject(bufname) then
1 t# U2 x# l$ L# U                buf:=str_to_obj(bufname);
: J) P4 @) [8 N, O; E# V! ~+ T                buf.deleteobject;
        end;
: ~) d- f# [  S! ?( m9 N8 I) C        next;
       
3 J! c5 s$ }7 l6 {" d  z        dx:=0;
$ j4 d! \- |6 V5 I. w        dy:=0;
        for i:=1 to number_of_machine loop
7 U' E! S( ], b7 F+ L. W, m" f                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
2 ?$ V" @" _9 C6 z. b                        print activityspace[1,rows],",",activityspace[2,rows];
; p5 B+ v* }; g1 J" r7 \* P* W                        ct:=activityspace[2,rows];
  T4 x1 g9 X+ f4 m/ Y. S/ \                        activityspace[2,rows]:=activityspace[1,rows];
. S) ]6 E# z% B& f" k6 e5 W                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
, O$ B  ~4 {: f- u7 B                        dx:=0;
- f" C  F( p0 E/ g9 V: N                dy:=0;
                        --end;
* F( K7 E' D# e5 M                end;
' L' h4 C3 H6 Y9 V7 `                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;
3 }' U4 i# W0 ?6 G+ P3 w            if activityspace[2,rows]>dy then
3 Z4 h$ T& P# m8 ^                        dy:=activityspace[2,rows];
' u' O* R  [8 G& L0 S8 l) j% m                end;
                dx:=dx+activityspace[1,rows];
* T+ j: Q4 S" G2 e( a" ~                /*if mark=true then
                ct:=activityspace[2,rows];
/ e# o# O/ s0 ]" A: L# n                        activityspace[2,rows]:=activityspace[1,rows];
6 g! o: T6 F- K                        activityspace[1,rows]:=ct;
/ _& R( a& R' B) V4 e# U                        end;*/
        next;
        y_max:=y_max+dy;
4 b) k' M* d  N5 n        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);
4 ]+ U- r0 P, ^1 a% `4 u  Q$ t        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);
       
        rows:=0;
8 h6 y$ O" s( s# d        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;
! A1 \& H3 d; J4 J& ~0 [, k, V                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ P- z: X) [2 V+ G1 {& O                                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);
1 T# G! u% M' F# a8 M* }                        end;
                next;
0 j0 }( I  j4 F  A$ h. {; c4 `        next;
       
- E4 q' e5 x8 |2 p4 z$ b1 E( H3 _        lines:=0;
! n; C; P/ p& [        partstable.delete;
       
* E- A* z" V+ u8 N" n  @1 p3 `9 ?        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
1 |3 b- z- _0 B7 O% V, {                        if w_from_to_chart[j,rows]>0 then
; C/ f- k6 K% K1 L1 d/ }                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
# R1 F& \( v& J3 q! O  x                        partstable[3,lines]:=sprint("parts");
3 H" l7 J6 Q2 r* h+ F( P7 Q                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
  {; T: Y3 M, W: e  g( U                end;
9 K! [- F# k) G$ ~, m" x8 K        next;
; u  Q1 E% l" G& E! X6 ]7 A" A        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];
. q- n" D0 s; W! ~% J        machine.exitctrl:=ref(leave);
       
+ J5 S! b; H% m: n7 G; G: w' O        bufname:=sprint("BF",rows);
8 b# D+ M6 f  I2 L8 h$ P        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;
' u3 M' t) k! B        buf.capacity:=5000;
        buf.proctime:=0;
/ e( G* V* m: i: {) K        .materialflow.connector.connect(buf,machine);
3 W7 H& \2 V6 J/ Z1 ~1 U3 D& o       
, K/ A, e% J- G1 b        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 f. U( s* c" u6 qdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
4 E: x3 H0 F- |* \, E; j5 a: `$ pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;