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

zooey

is
        mark:boolean;
6 n5 c" B5 d* q- K        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
3 @; G! C% W1 _    machine,buf:object;
8 ]; J3 B  n2 U  ?* Ado
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ Z0 {) t& P! M+ X% t* `                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
. t: h1 R% @$ H6 w$ A                        print"yes";
                when 32 then
                        print"no";
; Y5 {$ y& n( u                else
+ U3 D  |" T% i7 ~  `                        print"cancel";
                end;
                eventcontroller.stop;
        end;
$ w' Z' F$ g( J4 v* W       
7 S6 ^- I/ F' n: I0 R        for i:=1 to number_of_machine loop
8 ?; z$ ~8 p  F( E1 {5 v        machinename:=sprint("M",i);
        if existsobject(machinename) then
" u; h* o2 y* M& Y, H( ^                machine:=str_to_obj(machinename);
: I" y2 t( p5 M+ Z1 U% \8 d                machine.deleteobject;
- F. R1 X7 T. ~' X+ ]0 b; F& Q6 s        end;
) g8 a: R5 V$ U' U        bufname:=sprint("BF",i);
8 D# T0 @" K$ Z( `        if existsobject(bufname) then
! V3 y" L0 }, }& n. T7 d- i4 c2 ~# v! \2 A                buf:=str_to_obj(bufname);
& ]  n4 ]: j5 u; v9 |, {3 x6 T                buf.deleteobject;
        end;
# c$ q  P/ d6 F0 J9 q2 e8 C6 V        next;
" \$ S" E2 T5 b$ X: ^- D       
  u, y& @$ F" I        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
. k  g5 i+ O8 x: T' N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ |) N- T" x) O2 ~                --mark:=false;
  `4 n: s9 x# E& n5 T* P& r- i                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& R6 r4 _+ g( N' @) k+ v2 U                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
; f+ _9 h9 r  G( {( t3 X                        activityspace[2,rows]:=activityspace[1,rows];
* l" U( i' x% E7 p% f2 c+ [9 B& @: w                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
9 A9 z$ |  l/ C& ]  z                        y_max:=y_max+dy;
, J$ \: U* e0 v! ^3 A1 p0 X# G                        dx:=0;
3 M. s  Z; j: I$ n6 l) ^                dy:=0;
                        --end;
                end;
                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
7 R! y5 w4 @$ L                        dy:=activityspace[2,rows];
& u# c- }9 [7 o& d3 M4 w                end;
7 m% _2 f  C" z) u% C; j                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 P" A3 ?3 s2 q9 y; ~$ I4 ?0 @                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 |  e6 W9 D3 M) |9 L                        activityspace[1,rows]:=ct;
                        end;*/
        next;
- h& A! Z( U# y        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);
* j; u! S4 }" D2 g, V+ g' h6 s       
        rows:=0;
  y: n: s* W; U( U        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
/ I* D) J6 x) L: H                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
. w6 \# L5 c+ S- k6 O) \/ {7 a6 N                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# h4 I7 X! u2 j: F                                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;
2 G. q# s+ o, d( q  v; }                next;
        next;
* m! H2 a: W  @       
1 K, Y/ D6 T4 I' m) \6 _        lines:=0;
, r4 ?: z0 |% n5 H: |4 s        partstable.delete;
       
        for i:=1 to number_of_machine loop
* p4 o7 v! |5 K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
& n$ o! A( s/ {) Y* [+ u                        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];
- k) L- t" Z+ |) M4 y                        partstable[3,lines]:=sprint("parts");
' X; X* A: y; R+ Q8 C# L                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        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]);
1 x' p1 A" W4 I; Z" w- l        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        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]);
$ x& d* {& Y# L' x- E- `) P        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
4 n; l- Y: k. r& k) N        .materialflow.connector.connect(buf,machine);
       
4 v3 Z% {) n2 G8 d: q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 ~3 U) m2 N' Qdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  A* O+ N: z, H0 _3 Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
( }' z5 {* p* V: u" H; d$ Bend;