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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
5 @. j* D: @; f5 Y/ W    i,j,rows,lines:integer;
    machinename,bufname:string;
/ Z/ v$ B! z" V0 ~5 x, S% v$ h7 D$ i    machine,buf:object;
8 O# j% r( ]% J5 x4 W+ gdo
        current.eraselayer(1);
+ X3 ]1 X. R6 F4 Z       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: `5 A6 i9 e7 U                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
. ^. Z% C) q/ G% ?" a- a                        print"no";
9 Y4 R. y8 Z% @" {4 A! k                else
. p% {" V* R) h" m5 k                        print"cancel";
- X" c" C: L: T                end;
! W0 \- s/ U0 s7 I                eventcontroller.stop;
* l% B: G" Q5 K6 d& U        end;
       
        for i:=1 to number_of_machine loop
* a5 u9 G6 m. j6 p' f        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
5 k7 K8 F  c: f* m! A- L1 w        if existsobject(bufname) then
- Z8 b6 |6 [6 t% _) m                buf:=str_to_obj(bufname);
) `4 X! ^! \7 R6 b                buf.deleteobject;
: ?- ~* q7 G! v* N# q        end;
        next;
       
        dx:=0;
. P0 c, ?/ v0 i        dy:=0;
        for i:=1 to number_of_machine loop
* }: P/ u% b9 {+ R% \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
2 ]! n- ]: h$ n                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! w; S+ X; k* J) e0 [                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];
7 n. l! A# P& U0 W, {4 l                        activityspace[1,rows]:=ct;
3 N+ b8 x# R! O1 E# z                        mark:=true;
9 v* }  T9 [) n# t5 Y                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
) W- ?  L1 o' W9 K& }( Y& k                dy:=0;
                        --end;
: h2 x8 L% S1 p8 Y- z5 b8 E9 W                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;
. r  E0 d: n% P* q3 |            if activityspace[2,rows]>dy then
$ b4 O2 u8 ^& w) \: V" q                        dy:=activityspace[2,rows];
                end;
- a2 X" l5 k8 Z% C8 R- ]6 ?                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 V: t1 h' s) J% E4 G4 y3 n                ct:=activityspace[2,rows];
: s/ A4 u8 I* e! \6 V2 E- F! M                        activityspace[2,rows]:=activityspace[1,rows];
8 Y( `9 c( h2 z1 n' X                        activityspace[1,rows]:=ct;
                        end;*/
) G8 A/ Q& h8 C+ x, j/ |* s' v- {% y        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);
. F3 H" p- z2 a5 q6 c+ x        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
: E* [2 f2 y( a" @) R# W, s0 }) l                        if j=i then
8 r! F- B! V( w- D* O3 q                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 m, n* w+ x4 F6 A+ `' n- G                                d_from_to_chart[j,i]:=abs(dx-dy);
8 m/ D# ^  E$ U8 k$ [! p                        end;
4 b$ d1 u5 q, m. M                next;
        next;
5 J" ]! ^) Z5 W; K& m- \       
        lines:=0;
: J  D0 R9 m- O        partstable.delete;
       
        for i:=1 to number_of_machine loop
& Y6 g: `; B4 B0 @2 Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# F9 f7 x4 Y+ e/ X8 t& r                machinesequence[2,i]:=rows;
, [- R. J+ k2 |                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' k4 `# z& [* v" F" ^; B# B- g                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  {( p5 u- z# ~" X: G2 B- g5 m                        partstable[2,lines]:=w_from_to_chart[j,rows];
* g3 f. @2 h' {. B6 k; V6 S( Z2 F                        partstable[3,lines]:=sprint("parts");
1 W  V. _1 S% H% D  m                        partstable[5,lines]:=rows;
; G9 o+ D. j" h+ K                        partstable[6,lines]:=j;
                end;
3 p* B; K+ D, m0 i! z: X$ N4 r& ]        next;
, \: t; F2 s$ O        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]);
        machine.name:=machinename;标识符未知
, Z& j0 Q; u: d! |# {5 I8 A" C# z        machine.proctime:=5;
9 T0 t7 X- K( U; R# Z( p        machine.label:=activityspace[0,rows];
9 c1 n* `7 c/ x+ X4 i6 K+ }* P0 ?2 t, e) }        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]);
( `6 u  T% ?4 P2 M- ^3 b        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
+ d; g9 q. ~# G& ?" t) T8 l- q4 G  X       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- O) J  V4 d- onext;
1 j" r  f$ T5 {7 }7 z  qend;