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

zooey

is
        mark:boolean;
: r3 y1 g1 H# B        dx,dy,ct:real;
    i,j,rows,lines:integer;
  X) I  h& D6 M! U    machinename,bufname:string;
    machine,buf:object;
do
- `* z1 l6 t( H, z' {9 P        current.eraselayer(1);
3 s9 |5 k+ n* y& ~+ c       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  O6 }8 S6 N' ^* Y                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
" u% U7 w+ G1 S* s* I% Z                        print"yes";
                when 32 then
                        print"no";
                else
/ s" l9 @( @$ f                        print"cancel";
/ i- i3 Z  C/ F4 y                end;
                eventcontroller.stop;
5 H; U, O0 m0 I+ o8 l        end;
% Q. Y, r# z: O. X       
' b+ ~5 j: u/ B+ P4 j5 _+ `! ]        for i:=1 to number_of_machine loop
3 k4 N* `- A$ Y; S5 F# P        machinename:=sprint("M",i);
        if existsobject(machinename) then
! C2 g) X$ M  ^2 w0 c                machine:=str_to_obj(machinename);
                machine.deleteobject;
6 R* \: g( |0 x" U5 ?, t9 a3 p* Z        end;
        bufname:=sprint("BF",i);
$ h! m- U4 V9 d. V" @        if existsobject(bufname) then
3 g$ N0 B, D/ v4 k, X: G" A: d                buf:=str_to_obj(bufname);
                buf.deleteobject;
, v; @( r% ^1 k+ l% b        end;
2 x/ _1 j5 @2 s        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
0 n# B4 l0 ]3 T& ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& f4 |' S& p0 m5 n$ h* x, _+ s( K                then
                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 k5 G2 C+ l: w) y                        activityspace[1,rows]:=ct;
                        mark:=true;
9 P7 E! f1 ^5 n                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
3 V; W( k$ Q" P* b( `9 M, h2 m                        --end;
                end;
# d/ ?" t* d1 N$ R+ l/ e. j4 z                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 i; W' Q! C+ ^' u% J* `                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];
                end;
                dx:=dx+activityspace[1,rows];
8 O* p: O5 u& h& N3 v% G                /*if mark=true then
- [% O6 M0 H6 m3 u3 |0 L                ct:=activityspace[2,rows];
% l) F& z5 x' i                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
% J3 n. P7 M6 s7 B5 ]3 w3 Q6 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);
0 a* h$ ~9 x5 z; L8 a+ ?2 D, {       
0 V$ T. ~, |8 k" f        rows:=0;
8 T% i" P; u1 J7 [1 Z        lines:=0;
        for i:=1 to number_of_machine loop
4 d# j) n7 o+ N5 }4 D1 l6 q                for j:=1 to number_of_machine loop
5 ]7 N$ g# ~' h! g                        if j=i then
9 ~- a' V) o2 u! [                                d_from_to_chart[j,i]:=0;
. w+ h7 V; I8 z& w+ k                        else
) O' s' D, s6 X                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
0 E+ u1 x4 N% V9 B                        end;
, b# z" `  y+ C2 U* N4 q                next;
- t# D( |: y8 ?: @: u' v        next;
       
        lines:=0;
        partstable.delete;
8 a, N3 ?( s6 G! H$ p7 B5 T       
        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
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
; g8 {% U, k/ _. g6 @6 J0 R' A                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 ^  S1 J. `2 K& u6 I# y( W                        partstable[2,lines]:=w_from_to_chart[j,rows];
- @: n6 H3 G! j) z                        partstable[3,lines]:=sprint("parts");
4 K9 C& W; T3 T2 o. ^5 h                        partstable[5,lines]:=rows;
6 M4 A# Z( _4 v                        partstable[6,lines]:=j;
                end;
6 w( G  J5 i, ?6 E! u5 P        next;
+ e9 |" T" a2 W) e+ P2 x9 [- 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]);
3 X0 _* h7 i/ u4 S0 W3 F) N        machine.name:=machinename;标识符未知
/ F  W1 _1 G! L/ R3 h        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 A- Q+ s- h" c0 \4 \4 w        machine.exitctrl:=ref(leave);
' M9 ]5 S; _- l& r4 S0 J* s! K: W       
7 F. A* Z$ k: d" L        bufname:=sprint("BF",rows);
% p* E- T, W9 k  ^1 f  {        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]);
' _9 K& |3 h/ L. n4 G! c  K        buf.name:=bufname;
1 ^* T& ?+ P5 s; k        buf.capacity:=5000;
6 p9 I2 o+ H' e3 {        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;
9 ]) l+ n# v2 ?- X4 ^( O. mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;