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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
1 R8 @( E& r* ^" v4 s1 n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
& i. `8 m( Z7 A* L" O) n! s% Y                when 16 then
                        print"yes";
( T5 F. Z0 h, C+ g: S4 Q                when 32 then
- [" V+ c! O7 U                        print"no";
  {8 S+ g! }( L* x9 a5 f                else
                        print"cancel";
                end;
                eventcontroller.stop;
  h) i) G& W4 ]$ a2 r$ C        end;
* m, H; _, n: w- R- f& s       
+ k: o9 k5 N5 c. l: K5 ^" g0 b6 r        for i:=1 to number_of_machine loop
1 R- y9 l  R# r  J7 Y3 F. ~        machinename:=sprint("M",i);
) q+ l: `, j: X2 P+ N- V# `+ Z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
) Z! \; A4 k1 F9 o4 x$ Y: {                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
7 i3 m/ c6 B% z! z+ a        if existsobject(bufname) then
. `  i$ n# p; Q, S& P2 E                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
/ W* \9 b: K, y2 e! N# G$ H4 u4 n$ l        next;
       
        dx:=0;
3 K) v0 j1 [: S: ~: h! Q        dy:=0;
) d' `; [# i. s* r) U  J        for i:=1 to number_of_machine loop
+ I# K; s! H: M' k0 D7 B6 z5 @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( ]% @( O2 o4 u6 K% v                --mark:=false;
+ r4 @. m, M+ v! n                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# n" v$ R& ^9 u" Z' l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
4 V! V$ c0 l9 A# f. E- e: a- _1 D                        print activityspace[1,rows],",",activityspace[2,rows];
2 U( B; x; W% [( d                        ct:=activityspace[2,rows];
6 ^3 L/ S: d+ [: @7 x                        activityspace[2,rows]:=activityspace[1,rows];
' d6 C( ]7 T& u. ?                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
3 ?! B9 s' R* C6 R5 T( r9 ?                        --end;
                end;
' `" R- T; d- B# F/ c                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
( l  V7 b) H! h' p5 b  p                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& A+ Q7 \! Y) C) Z                ct:=activityspace[2,rows];
- v- N  H+ s+ y6 }# j                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
& F3 y" t2 i1 d* W  u4 {3 o        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);
' c3 u. q( X5 J! g. a        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);
+ d6 L/ d1 _# k6 D: A       
  h* V: F/ L5 [: J; Z8 ~+ g/ X6 k        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;
                        else
: C+ p* J+ p- V' P                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 v, `) _7 F/ X  @# L* d0 K! F                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
$ F  U) w! z/ h. ~/ w                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
. ]& J. m# g6 V, ?% s# Z3 L0 \0 r$ T9 \       
        lines:=0;
9 [- Z/ v& b4 Y: G/ H9 p        partstable.delete;
       
4 R! s6 N; i/ c3 o) h        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
( A9 p- p! Q$ O, }0 w                        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");
$ ~$ \* j: J% @8 b6 I7 [% r0 _                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
8 G& d6 e8 g$ G# j                end;
" Z8 a2 t  A8 G9 N2 U: _& b        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]);
" k& s  j- e# G% J! t        machine.name:=machinename;标识符未知
        machine.proctime:=5;
9 ]1 I$ t0 J/ X" P! n9 J        machine.label:=activityspace[0,rows];
+ {' O' G: s$ B  R/ h% b        machine.exitctrl:=ref(leave);
% b4 i% |5 ~- X6 Z. G! `5 o% q, O! g       
        bufname:=sprint("BF",rows);
0 v- B* u# t3 [, v5 `4 I3 N3 t4 w, q        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]);
. r7 R3 W7 A: O. U        buf.name:=bufname;
5 q7 Y$ v" \( X( }% }; y: K        buf.capacity:=5000;
2 u; g+ Z- q" \2 R        buf.proctime:=0;
) G$ f, F; ~3 R, k- e/ |        .materialflow.connector.connect(buf,machine);
       
, @' e2 ]& l: T' B" m1 p' A        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;
3 ]5 p: D0 q: \* d) W; @% Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
) _  ^, Z' Z# Rend;