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

zooey

is
        mark:boolean;
7 A* v$ R3 u: t  I& A; l4 M) m        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
; Z: E. Y, b! f2 T! X+ E+ V) _+ ido
        current.eraselayer(1);
: g6 l( Z6 `  ?; E4 k* \       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" Q! W* ?% y: ]/ `) ?0 ]9 U& w                inspect messagebox("设施数目不对！请核查...,",50,13)
( K  `+ X/ I% k2 v5 ]                when 16 then
! r7 n2 J8 N& y+ k                        print"yes";
/ u0 p) G4 m/ D0 A                when 32 then
                        print"no";
# V7 I  E6 Z3 K1 H: N                else
                        print"cancel";
                end;
8 F; q& K! f& l; l& A( X+ K$ J7 \                eventcontroller.stop;
3 ^' b* `- F$ A* e; w        end;
) d; Z' W0 A2 H( i7 y       
        for i:=1 to number_of_machine loop
* W; x- e/ w$ n/ [) `9 e        machinename:=sprint("M",i);
5 `% ~3 m1 g" ?5 d- C5 n        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
8 B9 {+ X6 ^# P9 U) K8 o, m& C: x        end;
0 _2 W* M% e$ Y: f' s4 m- C        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) Q/ j3 ^! ~0 y/ b                buf:=str_to_obj(bufname);
- k" H6 E# V) Q" a: W                buf.deleteobject;
& P# j: D4 [8 m! U& n        end;
        next;
. _. j2 E. F" E       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" z7 h, a* N1 Y' E) H5 f4 v; ?. s                --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]
. M; ?+ T& K) Q' J$ y$ Y                        and activityspace[1,rows]<(1.05*y_max) then
" v- M8 ^7 g; l* e# T1 K                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
* N& U8 `7 e& p                        activityspace[2,rows]:=activityspace[1,rows];
% Q1 z9 s  R; b/ C9 ~, S                        activityspace[1,rows]:=ct;
                        mark:=true;
# T4 `( e/ z" ^9 u                        else*/
) G& ]' @4 b% ~8 p9 U                        y_max:=y_max+dy;
6 U4 h& \8 s  v5 S7 x                        dx:=0;
                dy:=0;
, _( j0 p) L# x7 u! Y2 o; ?7 j- I                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' M* E/ H3 f: r9 L                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];
                end;
; z" L5 n$ B7 T% l. g% C. c8 N                dx:=dx+activityspace[1,rows];
( C4 S+ r/ @$ [( J5 Z! S3 X, t                /*if mark=true then
0 |" ^* u6 i: B1 _# s5 H                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: [) _7 [& s; ^) |5 t& B                        end;*/
$ h- h8 `2 L- W4 s        next;
        y_max:=y_max+dy;
- B6 s" T0 l, ?        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);
1 x- Y. f. R4 b        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);
       
" T/ s  d$ ^; H7 o$ L0 t3 A- m        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 _) e: K% S& s" {1 c                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. r# l2 h, e: b- G                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
$ O% `# x0 S% {, s                                d_from_to_chart[j,i]:=abs(dx-dy);
9 e: T$ F- u* M7 }6 @: n8 X6 V2 L* I                        end;
: u: `7 g) H* V) v- |, J- T) F                next;
        next;
       
" H( J4 j  u. Q+ o        lines:=0;
0 z: \; Y* k1 `        partstable.delete;
( u! |2 U0 J/ b7 U       
        for i:=1 to number_of_machine loop
1 u5 C/ Z2 F# @7 [9 J8 C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 D5 e% r: n& }' A6 i$ J                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
1 G* m. s+ F3 W$ {                        if w_from_to_chart[j,rows]>0 then
3 ?8 a$ g6 _4 R$ Q: [1 K                        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");
: }' `& ?% u* m9 z                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
+ e) T8 g3 H2 E6 v                end;
% H" {9 S6 b$ l& b, T        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]);
3 P) J& U; d! B8 W: R        machine.name:=machinename;标识符未知
, c6 l* l  V7 N9 g# R" f        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 Z2 O; V" ]6 a- j  v       
3 G' R: i$ _/ _2 G* i        bufname:=sprint("BF",rows);
8 c2 w, h: R: F' w' V3 Y        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]);
4 c$ w* J. `% U9 v  t9 H        buf.name:=bufname;
* _0 I: r  V2 W/ l        buf.capacity:=5000;
# e8 ~; H/ p: C- ~, P        buf.proctime:=0;
  n/ b! W3 a: }3 [        .materialflow.connector.connect(buf,machine);
       
  h) o$ e" W; g/ |+ E4 W& \        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;
. y! ?1 N8 k9 V! M" [- ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. O# o& `1 j* A. H% ynext;
end;