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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
: V$ E& O; D  ^/ c; h; T: b    i,j,rows,lines:integer;
    machinename,bufname:string;
( M' D) K8 {2 b$ V1 H$ u4 [, Y    machine,buf:object;
7 R; v, h% X. i8 ]- a- e8 ]% Xdo
3 P% t$ k0 _0 J. A% j4 Z& v8 U        current.eraselayer(1);
0 @" S: _, T7 r9 a$ f  J0 k6 `( ]       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& i) N9 d8 s2 }) l$ \- n                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
# j7 @/ O* R) ?4 D  h+ ?! [, u                when 32 then
) B5 w1 G' u+ c  d1 @# M8 _                        print"no";
: Y& z9 d6 n: D2 b" o                else
                        print"cancel";
: L! O: V+ A/ @& L6 U9 A                end;
* Q- s% N0 _, w) r% U9 o' d6 [                eventcontroller.stop;
" Y8 N% L. }4 l, x1 V5 ^        end;
' e! O% r5 h* E       
# W& }5 W8 M/ Q' y( G) [$ J        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* Y2 M. f$ p# h# ]: H        if existsobject(machinename) then
( u+ u6 A' `2 c3 M                machine:=str_to_obj(machinename);
                machine.deleteobject;
2 M( @  D% k2 o$ C1 c$ X  D        end;
4 M! d5 m9 R1 e- n        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ S* w, s$ M0 m4 O( b. ]$ o% n                buf.deleteobject;
        end;
4 }+ u# c) [' P/ R" E        next;
       
/ E5 X( r8 s( D" `& z- I5 k        dx:=0;
' Y, X! P2 X; p# P# l6 G, B        dy:=0;
        for i:=1 to number_of_machine loop
$ o" s& X/ s; \5 }7 v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
" r% A$ b8 S9 m) a4 a( V0 {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 F8 g/ n" j# W5 N% l- o                then
* \2 |6 P. i$ Q# z- g                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
- x0 l! S! p4 K9 A8 a. ~4 o                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
8 a6 `9 c% V% L! y                        activityspace[2,rows]:=activityspace[1,rows];
8 a7 }0 _! ?7 y2 r' ?3 l) f6 y: Y, b% `                        activityspace[1,rows]:=ct;
                        mark:=true;
$ r% ?0 c, V0 l/ M                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
3 U  D% P: {5 }' a9 b3 q* y) q                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 p* @7 ^7 N& s& ]2 J/ O: P1 X                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];
, R8 x- s+ K- {  b                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
$ v7 r' [4 x; ~$ w        next;
        y_max:=y_max+dy;
# v, o% _3 l) i; n        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);
  {' K: s2 r6 j3 i. @3 k- @        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);
( }5 |9 u, |& Y# T) p7 p) W4 \       
3 {5 q& C- }0 Q7 n0 j4 Q        rows:=0;
" g  h% J2 @5 A- T* s        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
* i+ p) C. `3 ^  H! M4 l                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
9 j. |9 Q( |, B& a                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 V# p) Q4 Q9 l+ R* w3 G" W5 o2 _                                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;
& Y3 r. w) \: s8 i! l1 k  B! Y( @                next;
        next;
- m  c  }7 Z/ M' A       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
" P+ U  C6 i+ J' L" o                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 E% V5 G" u& t                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 B0 B* }7 a! n" `" y8 w                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
% a: s' p& j+ V                        partstable[6,lines]:=j;
+ P; z7 p! |; n( Z$ H% q4 u4 v0 G                end;
$ U/ N: T& ]2 ~) U/ ]- U        next;
2 O% _; R) j+ k6 O# v" X        machinename:=sprint("M",rows);
9 x; b2 O5 {% m9 \        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]);
1 h6 C& f8 l2 ]& s        machine.name:=machinename;标识符未知
* _7 ~1 a9 s1 }  G8 u        machine.proctime:=5;
; ~* m" ]: N' c$ O        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
7 D9 d% w# A) U       
9 Y2 L' {) B  U        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]);
  Z8 t) l$ k) l6 x' d+ Y        buf.name:=bufname;
        buf.capacity:=5000;
# d8 @' _, t7 v        buf.proctime:=0;
0 ]) s; M( E/ q; f, z  M  V9 _% F        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 ^% {% X+ T1 M$ Zdy:=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);
9 u3 O( {" }4 r0 y' Q0 Xnext;
( S+ @% U' r, O2 y: Fend;
" w9 U8 {6 F) y+ x