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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
' h0 H' B% c8 C% F$ K3 c        current.eraselayer(1);
7 `5 i) V9 ~. g% ~# n% b, |, S# l5 g       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
/ F& F$ l) i) l                when 16 then
% h, @+ y4 N% A* m1 l: [  p                        print"yes";
; ~0 k6 `: g$ C, I. o$ [9 `                when 32 then
5 K# S8 X0 d4 l9 Y+ t                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
6 k0 B8 R' n8 h( t0 H        for i:=1 to number_of_machine loop
! X! R" `" v7 I6 W2 J- q$ p        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 C5 Z5 Z% t' H& F) ^5 m0 `                machine:=str_to_obj(machinename);
6 s2 `2 _2 n7 t+ e                machine.deleteobject;
: u; c- F- {& A8 p* U        end;
% S+ ?; {5 {, Q% U+ F- b' V        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) {4 G: E9 o1 x* ]* J  c; u; H, w                buf.deleteobject;
6 U) T# |" A2 H7 ?7 i, w        end;
$ ]! c% h" x- u: H) n" R. X        next;
       
        dx:=0;
        dy:=0;
- A( h. E2 u: d+ F. Y        for i:=1 to number_of_machine loop
- `# z/ s6 c" r+ l  ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! L7 F+ {  j% |8 ?                then
$ w9 M- b$ v: S2 E3 V- G                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* {& U/ ]2 G. r6 I* _                        and activityspace[1,rows]<(1.05*y_max) then
% ^0 ?/ p) s& Y& i9 y4 }                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. b" E7 z; X1 I6 o6 {6 b                        mark:=true;
# m* r; ]8 y  l) d$ Y                        else*/
0 p$ v/ v) H' |0 c: l1 ~& r                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
" l" ]; ]1 s" r# D) t5 n# k                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' |/ E7 G7 r" y( A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
+ r$ ~, M+ T9 P  x' D. g2 M            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
9 m% Q( s) t0 O7 A, y/ j7 [                end;
                dx:=dx+activityspace[1,rows];
6 N& [- x0 o: b, \! b" Y                /*if mark=true then
/ P5 u9 }( N3 C# f+ w5 I0 o                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ P3 a0 U8 ?, ^) z6 ?8 d5 t$ n                        activityspace[1,rows]:=ct;
                        end;*/
        next;
  m$ J. s6 O* ~( p! x        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);
" k5 ?$ p9 E; o2 f4 {$ N  a5 q        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);
* W- t5 R( K9 t/ u  B% u       
        rows:=0;
1 F  x5 a7 E: E7 [        lines:=0;
2 m$ ?; n; @( l+ Z7 l7 M! E        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
3 h9 G7 b! H) {' U3 D                                d_from_to_chart[j,i]:=0;
6 k, v# \; L+ C: z7 f                        else
4 A4 u# A/ R: @; r9 V+ J; j5 t                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& c+ y  ]+ i! k/ T8 v                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# N8 i" S$ K. `1 B" V- T3 r6 [                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
) W8 e1 Q, u- F- L6 h0 {6 _        next;
+ _2 C; R) Q: r4 w$ f7 Z+ k9 Y       
' X- i; x5 S: r3 P1 ^! m, q        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, }* ?7 V" a! }/ I7 S2 r! t                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;
7 d( `/ s4 ^- d, y                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
+ f! j7 D, l& M5 I  ^) ]        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;
/ ]$ B3 L2 O( w/ I        machine.label:=activityspace[0,rows];
7 X* u( ?- c* H; a9 y* o        machine.exitctrl:=ref(leave);
2 o! q# v1 P. M; g0 U: r5 U       
) n/ j  D( Y) [2 L        bufname:=sprint("BF",rows);
9 f7 B: f& b$ {3 ?8 C        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;
        buf.capacity:=5000;
        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;
" P+ H$ r) K: Y& Wdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 }( d% l9 @4 Y; U4 P3 ?next;
end;
/ t1 k8 P4 |2 w. B  D