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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
, E- E3 X0 c# v/ I$ s8 e) h- y    i,j,rows,lines:integer;
    machinename,bufname:string;
2 P; [( q( Q: R6 i3 d+ ^    machine,buf:object;
) O/ O+ C- Y3 R0 w$ j  Xdo
        current.eraselayer(1);
) p) l0 E4 S' U" F0 U% X       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; G, m* ^/ [7 e% N% C( R! _) C                inspect messagebox("设施数目不对！请核查...,",50,13)
+ u/ M; D+ O* F5 a: L: }; Q                when 16 then
9 s" W2 @8 S. S2 P8 T0 t+ Z% E                        print"yes";
                when 32 then
% G7 j( m/ |2 S                        print"no";
                else
* E3 d! O$ c' ~. y' H1 b                        print"cancel";
  M2 }* s! m0 J8 w                end;
; e" A9 P' M9 w* _+ `. \, W* T9 ~                eventcontroller.stop;
4 W2 Y% G( U  Y* m' s        end;
9 J8 F$ n  u3 d0 Z4 j       
  d+ a* k, c) W0 v" z( j1 d0 B        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 l* X& X) \7 r; b        if existsobject(machinename) then
6 H8 U' ]3 ~; E0 {: K6 d0 c                machine:=str_to_obj(machinename);
                machine.deleteobject;
; s8 S% I+ ~  |- m. @7 S        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 {/ {# m5 I% ^3 X. i9 ^8 ^, r                buf:=str_to_obj(bufname);
" x! H5 S9 i# I; h0 W; `                buf.deleteobject;
        end;
3 x# {- i  v: F" H; p" m6 e        next;
       
& \" D$ E/ ]8 q- g0 ]8 U* P% ?        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  I/ d" f: E( [: f1 D                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# N$ X. W! B: R                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! w' h, P& O* {                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& D9 R6 h/ r# ~1 U$ I                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ f) I! H+ y' i! {5 g; Z                        activityspace[1,rows]:=ct;
5 c' Y) T- i! @* S# j: F6 C& D                        mark:=true;
' S6 a  _) x  y$ I, @                        else*/
                        y_max:=y_max+dy;
; M( Q5 D' I" ?+ O* ?/ _, e                        dx:=0;
- N+ _8 x- {: ^6 f$ l, Z( \                dy:=0;
                        --end;
  S- ?7 G( r, {" b( j                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;
4 y: G+ _; j4 N1 J9 b6 q  x+ h; e            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
7 O8 ~0 a' E7 \; e: n                end;
1 q3 r/ J& k' [$ [2 c/ ~                dx:=dx+activityspace[1,rows];
% L7 D, z* G5 R! h. H9 |                /*if mark=true then
                ct:=activityspace[2,rows];
6 ^; @, q3 E1 ~* `9 Z& i; T                        activityspace[2,rows]:=activityspace[1,rows];
- p6 }5 ?! i* P                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
9 R7 T4 H3 \+ H1 H: Z% p) r" L1 z" Q        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);
6 z' q) y% z! k8 |# S4 C        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);
, ?; x+ [3 e; v: Y9 R       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
5 f* a/ ]. o8 V- K                for j:=1 to number_of_machine loop
! H* \. Y) O& P. d3 f                        if j=i then
- V: M6 ]& y$ A* T9 a                                d_from_to_chart[j,i]:=0;
- t% z* a2 u2 [0 I: j2 K                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) y7 j+ @# p, H, m$ F% N                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) G9 F# {: @) Z/ I9 y: y                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
# r; Q3 f# s( w7 w% `3 P  _                next;
$ t7 s3 `; P/ _# x. R, P) O        next;
       
4 b. @# ~( S; d& k; m$ H, K        lines:=0;
8 T5 d' j. k" O& F* K: Q        partstable.delete;
- j' L+ g* {3 q% y1 e# o/ d9 Z& {- g       
- W* z, L& z3 r" H; x/ N: f7 i        for i:=1 to number_of_machine loop
) p8 |. w) P% ~+ a4 |: C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& s9 Q. D! ]% }: T0 q$ n# q                machinesequence[2,i]:=rows;
5 n0 r0 \2 e7 N2 c" ~) H( Y                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
% c7 a3 r( _$ e1 t3 B                        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");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
0 O& z" I) E. ]' c: ]6 a& \4 _/ ?        next;
! a3 `. f$ ~( C; q' H1 g        machinename:=sprint("M",rows);
8 z# z0 ?  k, V: Q1 M        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;标识符未知
, i! y' t( g- V: F9 a        machine.proctime:=5;
# `; g: l1 S; A% c' p        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]);
; _" j) |- m! V) k+ F        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
6 ^6 x. ]/ x+ V/ k8 x, y  T        .materialflow.connector.connect(buf,machine);
       
7 s' q4 [! j3 T- O  J" D" G        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* L* x5 d' L$ X: fdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
! j0 Z9 R4 a+ @current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
6 R6 o6 Z+ S8 Hnext;
end;