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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 Z4 G& v* [2 j$ D2 W1 i0 T    machinename,bufname:string;
+ X) J6 M6 G- r8 I& L' Y+ h9 j    machine,buf:object;
' f: z3 ]4 W2 u3 ?% \$ N- Ddo
        current.eraselayer(1);
# ]# G9 ^3 G  G; ^5 o       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
/ O: p1 S8 m7 g! w" d                when 16 then
7 N. _8 D2 F, u# V, C5 `, h2 L                        print"yes";
                when 32 then
0 @; e& T) b% B4 L* y+ S                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
; E# y% u, c5 Q7 ?/ w        end;
5 s9 ~' k' L. x( s       
' b, A9 |% @( X2 u/ J# V) c0 x6 f$ T        for i:=1 to number_of_machine loop
& i1 O" p$ x: `) C0 X# o        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
. J. {0 g) |! O9 z% p0 j1 z                machine.deleteobject;
7 e- j6 y4 ^" }" J        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
; o! ^; s1 d  L1 Q( z/ n( K                buf:=str_to_obj(bufname);
! E* F" s# M2 L8 o2 P                buf.deleteobject;
        end;
* c8 A5 u2 M; c7 j        next;
       
        dx:=0;
3 ^, K6 u0 C+ y' X) A        dy:=0;
! ^$ J5 F( J+ l* t        for i:=1 to number_of_machine loop
2 {( H% J" ~+ g! _/ v2 V  [( o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: ~, F! e" [! S5 f  W0 n! A2 S" |                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
6 C8 @1 y6 d$ s; R) U+ G+ o6 a                        activityspace[2,rows]:=activityspace[1,rows];
: @+ w, |& |" Y& \8 H1 t3 u, S, z                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
7 }! Y: |8 G; d% i                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
# W1 I: ^, g( H' x  u$ G2 h- b, D7 U                        --end;
  G2 u: ]$ ?- b                end;
. d/ }0 F) e# _                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;
5 [/ {7 v6 D- o) ~% O9 s            if activityspace[2,rows]>dy then
* m. E/ ^' w8 V! U                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
+ h. X% \! R7 T" r2 P                ct:=activityspace[2,rows];
( f, e# }6 ~+ V, k                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* g0 x* d; z* a9 U" I5 U/ ~1 M                        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);
  l; t- s) c, u1 _3 ^        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);
6 [$ Z  k2 \! r+ F( {; V8 }' C       
  c( C0 J4 z1 I' p) d& _5 X0 D1 Q3 A        rows:=0;
. x6 v# {. r- M        lines:=0;
+ z+ n6 p4 G/ K8 U' M! T9 d! D. o        for i:=1 to number_of_machine loop
( z, u) I6 J! F) L4 r6 k5 X+ G- ^                for j:=1 to number_of_machine loop
" T0 A% d( l" z* _( t$ l' T                        if j=i then
5 H& X! ]1 i! k/ s' o) {                                d_from_to_chart[j,i]:=0;
                        else
% S4 l* D0 b2 N! `9 K: G: U/ D                                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];
( u( M3 |1 o/ A/ F* P                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
' c  k8 s# d3 ~8 `        next;
       
        lines:=0;
# m2 f! a3 u' R" s- A        partstable.delete;
! R: w. ~! ]: z- V8 `       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  j, ~+ N* X# |                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
1 X1 o9 Y* X( I6 Z' L                        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;
. X, X) `% }: }* R8 T                        partstable[6,lines]:=j;
                end;
        next;
, K8 s4 q$ G  y; G        machinename:=sprint("M",rows);
8 [8 r$ U5 x% L6 ?# Z        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]);
2 ^8 Z: o4 x5 J9 `6 T9 H        machine.name:=machinename;标识符未知
        machine.proctime:=5;
% u  @) }% u8 U. a, [' \- J. T5 \: M        machine.label:=activityspace[0,rows];
. C3 E% C9 Y: ^) |% v$ |5 ]        machine.exitctrl:=ref(leave);
* \# X2 d& e; \$ S3 u5 A+ s       
" s* D  e! w5 s9 w. y" \1 e        bufname:=sprint("BF",rows);
3 ]0 A" R1 h) Y7 N( E3 [        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;
! G* s. H% q# Y& V( t2 e( Y6 @        buf.capacity:=5000;
        buf.proctime:=0;
4 ^" V4 z  ]" }2 O) A        .materialflow.connector.connect(buf,machine);
# i. `& @' A' C( U$ Q" ?       
0 @4 F8 ~$ e# j        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 e9 x" u4 f" i6 O+ @3 e+ ddy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
: Y% r7 y; B% W& V7 p. fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& i7 b6 y: Z+ s: E* yend;
+ h' [$ I; j' [: p- d( n4 x