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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
& i9 S9 a; p. b2 v6 b' y    machinename,bufname:string;
4 ^) k0 ~3 F, d! ]7 ?, a    machine,buf:object;
" m6 K- h/ ]) O9 q- hdo
% `2 |6 P# w6 d+ h        current.eraselayer(1);
       
( r6 K& g' M4 e% N0 v$ {, o2 L8 \        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 Y  |, V% `* `8 d; K( B                inspect messagebox("设施数目不对！请核查...,",50,13)
7 v; i( B$ W, n4 ^- c                when 16 then
! H( ]( |& T3 B" ~0 O                        print"yes";
2 h! l$ F' y. M8 Q+ `1 G                when 32 then
6 C0 [7 @8 O4 }) [                        print"no";
                else
6 L& _$ u4 n) {! t                        print"cancel";
: e( O& n# W5 k$ G9 V, V2 f                end;
                eventcontroller.stop;
; {% J) i: T9 H- s" n! p- n        end;
9 Q- Z- t4 ~5 F2 ?+ ]! N, W       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
; W5 r, R& Z5 M. K  r9 \! @        if existsobject(machinename) then
. h! k5 F  s- ~3 d                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
& a$ L! s  z3 _* Q1 A" ~: r- [        bufname:=sprint("BF",i);
$ e( L* G) N6 ]3 `2 V$ S8 x- G7 ]        if existsobject(bufname) then
' e- N4 Q/ J* p, o! S                buf:=str_to_obj(bufname);
1 x& e! T& I9 Q  g                buf.deleteobject;
: G3 U+ q5 m" `: b3 q        end;
        next;
       
1 i  n3 I1 c8 t4 N( l5 b        dx:=0;
" x3 m& B0 B1 H  ~7 d$ h. z" n        dy:=0;
) N4 q1 U+ Y" y( y. f5 ], x$ ^/ U9 l        for i:=1 to number_of_machine loop
3 J$ Z+ r. \3 s, v: R0 o4 N( V: l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% v- ?( L- @- N1 p2 F: O6 i0 ^                --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]
8 F. w5 }5 X8 I# V/ R5 c$ H$ V$ S' E& u                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
( n0 o4 W; n. [6 D                        activityspace[2,rows]:=activityspace[1,rows];
2 v9 D% c( E/ b5 N# k8 u                        activityspace[1,rows]:=ct;
                        mark:=true;
0 W0 k, C% }5 u( w) r3 O                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
6 Q* H6 C8 R6 }9 f                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
6 {( h) C; J( N( u8 F; ]& n# X0 V                        dy:=activityspace[2,rows];
4 m1 h7 _5 Y& u/ y1 e. X7 h& F) R                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 b$ |2 V) R3 K& b                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 J' n. T" p  t! }6 L8 W/ [( K                        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);
        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 b% @( f: _4 c% c" m7 [       
        rows:=0;
1 q" c4 P& k0 L7 j) O8 d/ q        lines:=0;
3 r8 ^; \; n/ h3 F        for i:=1 to number_of_machine loop
( ~- K" {1 k4 I: g                for j:=1 to number_of_machine loop
                        if j=i then
; P6 X: S2 `; v- A4 V' m                                d_from_to_chart[j,i]:=0;
                        else
% ~: V, L" i& J7 s: @# L- @                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% D* T# R$ b) r& c8 V                                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;
  h3 i! n3 V, W3 M1 g6 }+ [                next;
" Y) @' J. M: V2 d" H! p        next;
       
        lines:=0;
        partstable.delete;
' [" a' J- O3 E4 j       
0 E  ]% X: `( s) x        for i:=1 to number_of_machine loop
0 \' m0 D7 d0 m3 Q" n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 |$ P8 G$ ?! j, Y                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
- k5 ], J* ], O                        lines:=lines+1;
3 e+ `$ W  A: W                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% x; K; w; d2 v1 \/ \, V                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 m' a3 G: G/ h9 T, \' a- W4 y- j' k                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; Q% I. _0 ~5 I- O- T7 W% U& G                        partstable[6,lines]:=j;
                end;
' X7 S  v, S4 u- p% x( A        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]);
  O& o1 e- {7 y+ u% l) m$ j3 P3 D        machine.name:=machinename;标识符未知
  G6 a. ~" @0 }' c! S5 ]7 q        machine.proctime:=5;
6 [1 a1 r  S. }- a: B+ @; o        machine.label:=activityspace[0,rows];
0 D, \- p3 ?; o& R        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
  t; ?/ m2 [) v) p        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;
- P. ]4 @2 c/ w. Z$ V/ w0 Y! F        buf.capacity:=5000;
        buf.proctime:=0;
) i( E* A: ?$ b2 V" N7 d1 Z# q        .materialflow.connector.connect(buf,machine);
  K* Y- j# U- Q9 J       
& R5 N6 ~/ w# |6 d; N, F) c1 w        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% ~' F# L! @( Mdy:=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;
end;