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

zooey

is
        mark:boolean;
$ O6 h3 t1 i' T6 B, F6 j        dx,dy,ct:real;
    i,j,rows,lines:integer;
# f1 Y) ^) V2 O) X% J    machinename,bufname:string;
    machine,buf:object;
+ t; c% ~3 K" t. jdo
+ `/ Q$ O) f: I, R/ A6 \        current.eraselayer(1);
       
4 E. v7 ^+ n& i4 D6 h( y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ @; a2 L& @9 Q3 ~" b, o                inspect messagebox("设施数目不对！请核查...,",50,13)
9 r( h$ b% u. I: h                when 16 then
                        print"yes";
) m- B' v% }) ?, F; h7 r                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
4 @, N5 @" y, D4 V# g5 n0 m       
1 n. V& K0 ]+ M4 V        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
, V& I) W& m* k                machine:=str_to_obj(machinename);
% x: j2 k. K4 \9 J                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
# `; I' P0 G3 k  C' p+ e: C                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
' G$ t) j5 b- U9 S1 W) r4 C       
        dx:=0;
5 `. T4 j4 ?) j# t: M3 t        dy:=0;
* Y) C9 o2 S& u' t        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: @. `7 B2 e0 t! {# H& Y9 l# k9 d                --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]
' K. ?7 y" C: |9 ~9 C0 C+ j                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
+ U( U3 d, v2 M: K: k                        activityspace[2,rows]:=activityspace[1,rows];
8 h" b. M! ^/ M" I2 u0 e% H: B                        activityspace[1,rows]:=ct;
( ~+ y+ y1 b* c# i$ i7 R5 w9 K* \! ]                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
1 t# q) E; j; @. b  _                dy:=0;
( O# c& y: K/ _2 u7 Y1 P' U' j6 h                        --end;
- O  p9 v, n3 d* f" e; @                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; i9 \$ B; r$ L+ }# q- ^                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
3 G9 V- Y/ T3 g+ X3 z1 U% E0 L5 g                end;
                dx:=dx+activityspace[1,rows];
, ]+ ?# x* I0 Y* E  V                /*if mark=true then
* m% A/ p- o1 s  H: I! X                ct:=activityspace[2,rows];
* S' {/ u' P% `1 P" S                        activityspace[2,rows]:=activityspace[1,rows];
! W4 O* x7 a8 @# p. p% ]7 E$ F* w                        activityspace[1,rows]:=ct;
/ h; m) z) O+ U5 D                        end;*/
/ ^, q% c% a5 H! W6 @/ `        next;
+ c# N/ q) Y. @& x3 a        y_max:=y_max+dy;
0 R9 v2 P( s- p6 S& _* X. I/ r        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);
8 c6 i- S  ~3 A& N        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);
       
1 h, `! z8 ~0 s5 {- U  o        rows:=0;
9 G$ K7 O0 C8 D6 i* t        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
/ v! \. Q! e8 W4 O) F- L2 V' J; I" L3 P                        if j=i then
& K& f0 M' t. G4 t# D: }( _                                d_from_to_chart[j,i]:=0;
. w; r1 P& u8 B* R4 W! f' E                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
# Q* S* b$ z$ ]3 Z; g2 }                next;
$ P  w+ }6 |8 a! O2 M( h        next;
       
        lines:=0;
        partstable.delete;
) Y/ L5 Z: b$ y" W+ d( }( }4 h       
1 i& F( t, W  j; P- w# y        for i:=1 to number_of_machine loop
- }* _. W( w- D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& ?) v+ }9 n! [* t: e                machinesequence[2,i]:=rows;
! N& \% o: M+ i                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
( k, w$ |# y+ _7 e1 z- ]                        lines:=lines+1;
1 V0 w' D+ m0 f) d3 V                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, A8 Q0 O8 y7 p' G                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        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]);
        machine.name:=machinename;标识符未知
: d1 ]- q  D# b5 \. o6 C        machine.proctime:=5;
- T# \" u3 ]% q' ?, R& G* w        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]);
7 m7 H! K" h1 X: O+ [; @        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
5 ]! g$ d* B3 P6 Q       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- c5 p+ F: z: d9 @  X# `  xdy:=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);
next;
- _7 [  t" L* w3 dend;
6 o1 ?1 v' y- I8 v# i- @5 q