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

zooey

is
" A+ H& \" Y. y        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
/ S! ?8 m7 c4 W    machinename,bufname:string;
( i+ D6 ]% k5 ~5 b4 G1 T7 Y% w8 R    machine,buf:object;
do
3 w) x1 p6 @+ O1 D8 J5 V        current.eraselayer(1);
% `2 ]4 r2 p% J3 v( A- W' b       
1 r% f' u& \0 \: O        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
. M# S5 i) i1 W8 A3 j  \                when 16 then
, v9 \# e8 k" Y; t  @. J3 |+ ?3 R0 L                        print"yes";
                when 32 then
4 `. T' {/ S! w: @# ^! }                        print"no";
' t' }. d: j- B, t, ]( h                else
5 s" i: {! y# [" |' q& [                        print"cancel";
                end;
9 e1 l" R7 \+ X$ O                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
, G" M/ I# v; o. _        machinename:=sprint("M",i);
2 T$ I1 p, ?8 C- K        if existsobject(machinename) then
/ P) S4 n% [* d7 g4 J/ ]                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
5 [" Z9 o9 U& u8 j        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ v5 w& M3 U( n8 s3 _$ ~                buf:=str_to_obj(bufname);
                buf.deleteobject;
! J$ W+ y  W0 h7 O4 I. e1 ]        end;
        next;
       
8 \. I' s+ _+ [/ v        dx:=0;
5 u: C8 w3 K  ~8 x9 m! j        dy:=0;
8 F4 H/ O/ J7 `, c9 Z# b        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 R8 f' R( T5 v+ u  o1 {: s5 a                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 q3 i* f- w+ Q                then
- c$ k6 V5 `; C  i) R                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
$ r' r. p8 e7 _& |" N% G* H/ O7 m                        print activityspace[1,rows],",",activityspace[2,rows];
  K  C8 n1 e$ x& Q; _4 }                        ct:=activityspace[2,rows];
; K  P! I% G# K                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 @6 G1 H* _5 b0 E# d                        mark:=true;
  c& A" O$ k: c- w) K2 O5 `3 ~9 ^                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
! Z3 j- P8 y9 s  ?/ w9 @                end;
' b1 R6 u# F1 _' J% S5 s! e- R                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 H9 D) w3 v0 o% l+ s; w' w# p! P2 S                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];
5 c4 J9 c- U: }" M$ B                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ L. n% r" D" [8 H6 R7 z9 p                ct:=activityspace[2,rows];
1 T- P1 G1 [; g: l+ B0 W- I                        activityspace[2,rows]:=activityspace[1,rows];
. J# t, R* p7 y6 u                        activityspace[1,rows]:=ct;
                        end;*/
3 Q* M+ s0 R$ C7 h        next;
- ~, ]* I- L3 K& w& ~# T) {        y_max:=y_max+dy;
        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);
& i; D3 n/ B+ \0 I7 ~       
        rows:=0;
% X- |; z" _. q7 E% `) y        lines:=0;
/ b2 |4 ^1 F3 w        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 K* Y1 T( G8 j! n% Y                        if j=i then
                                d_from_to_chart[j,i]:=0;
; w. G7 T8 z" v$ t% V                        else
                                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];
0 D& o+ |( u5 P$ s0 \                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
% z3 K) [' u( P2 h# M: m, d" N                next;
# \' T4 `1 v5 X4 a; k3 o8 u        next;
       
        lines:=0;
        partstable.delete;
4 }  o( H) T+ z% b) s4 N1 P       
- W$ w- \; y& v        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
3 O- Z) `% ]6 e! _                for j:=1 to number_of_machine loop
% M: l2 Z/ ]/ M                        if w_from_to_chart[j,rows]>0 then
" k5 K- s! @! N5 A5 o; W                        lines:=lines+1;
" z5 j/ I, @9 E$ {) x                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 T3 G4 h- y% D  B                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 c& E0 Q0 M$ [; [% Y4 Y                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
$ N9 |, X( a& r: ]- f                        partstable[6,lines]:=j;
! }8 E+ o0 W  D3 u8 T  x                end;
  H. R' B  |9 p9 c/ q        next;
- H6 U  o& t: U( `1 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]);
, T$ Z+ L  _: q# k5 g& \) r! c7 _        machine.name:=machinename;标识符未知
        machine.proctime:=5;
0 H+ i9 D) ?8 y( J! G        machine.label:=activityspace[0,rows];
& y  q+ j8 B: ]7 S  `& I$ Z3 @        machine.exitctrl:=ref(leave);
       
" E3 ^; a8 q& C) {" V' Z        bufname:=sprint("BF",rows);
/ x$ Z3 [+ ^( N: `4 I        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]);
3 F4 z7 U" v9 P7 @4 A9 l& a3 q) n4 _. a* {        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
# j8 t8 E: s$ v' k4 M+ V+ o. Z7 p        .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;
3 ]% n( ^6 s  H% o2 lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
4 u- }# F$ z% I/ o9 q