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

zooey

is
        mark:boolean;
( \+ K4 T& z: F; o        dx,dy,ct:real;
    i,j,rows,lines:integer;
* c  P6 R3 _- D    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
' I4 x; `- M) A, g        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
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
) s& c* X2 ]3 Z  H/ O+ Q% M                eventcontroller.stop;
        end;
5 p9 b4 E4 B* S$ a4 h5 v       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
+ N3 {+ f4 P4 e" E4 O/ N8 a9 b4 }        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
+ S: g" v# |  s. W$ V        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
' `! f" |( J, j+ b/ |  ^                buf.deleteobject;
, s2 ^' T5 Z1 w4 m3 l        end;
        next;
       
6 [" G" T( C0 v1 X        dx:=0;
        dy:=0;
6 f) `# l$ U5 h        for i:=1 to number_of_machine loop
( E( A$ O% c6 H7 ?- h8 o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% Y/ N6 q+ J1 f% B9 S$ x                --mark:=false;
' D+ r' z, p2 p' K$ V                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 e0 B) h% w+ n9 d6 q7 y                        /*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];
$ P0 h' R+ _- W) [" v. p5 D                        activityspace[1,rows]:=ct;
, F) A$ |% y( l8 ]- t                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
' h. a7 d5 j! B( |6 S$ O" ^1 j                        dx:=0;
                dy:=0;
                        --end;
                end;
5 W6 e7 I2 y' T! s                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;
  u, T  W+ y5 d+ y$ K: u            if activityspace[2,rows]>dy then
( o9 r3 Q. h0 ^4 \+ b: G                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
" o) x. o! N$ F7 e% V8 A3 i                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% k& r& P0 n5 S" h                        activityspace[1,rows]:=ct;
                        end;*/
        next;
8 ]0 C; q8 Q( F, _. c. a        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);
5 K* o% h' T9 s8 j# q: v       
        rows:=0;
        lines:=0;
6 r6 I% v* f' O& _        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
% ^4 m8 q6 w" Y% G5 \! R# S2 S                        if j=i then
! }: j0 d8 H4 _                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) l' D. b/ I6 T: Q, 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);
                        end;
6 i4 E( n5 @) g7 j* A1 l                next;
        next;
       
6 R' y/ f* ?1 Q0 X7 V; h        lines:=0;
8 k7 t4 c1 F* j2 [* o5 D        partstable.delete;
       
        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;
                        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;
                        partstable[6,lines]:=j;
                end;
$ i. D8 [* I, c        next;
1 Y& ~, h: l( t3 u" \, o        machinename:=sprint("M",rows);
9 ~/ `/ `# O' ^" r8 C        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 T$ Z9 [5 S, C; E& J% ^        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
* i8 q' Q, y  D        machine.exitctrl:=ref(leave);
       
" o% P: X' N$ Q2 I; t        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]);
- R& J, H+ E# B0 g! t        buf.name:=bufname;
0 S" n7 v" g* d5 \        buf.capacity:=5000;
        buf.proctime:=0;
) ^8 J: j, E7 {6 [# j        .materialflow.connector.connect(buf,machine);
+ e3 X: e' l& R, s       
: k5 `, g9 C0 t* V$ }        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;
( t- {: t7 h& v: ?0 V+ \current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
" O# [! \$ H! x% Aend;
3 z. m8 H. @' ~2 R! c