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

zooey

is
        mark:boolean;
  Y+ R* V. M% Y  H) Q, T        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
" Q6 x& ^6 |2 u- L( {do
* u  N8 d) g" q+ y        current.eraselayer(1);
  _# [0 j5 a3 M       
/ Q8 Q' G$ B7 C( c$ \  m2 n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) p1 E& G- Q! M8 a( F/ J                inspect messagebox("设施数目不对！请核查...,",50,13)
4 H; `  r$ O4 k, Q                when 16 then
% C6 I/ i+ ?9 e) I4 T( ^                        print"yes";
  V) x" W7 i. _( \                when 32 then
) @: E/ l+ ]5 q                        print"no";
                else
% t4 w6 u# j# R' r                        print"cancel";
4 F1 O4 c: H; L# P+ b3 R3 q                end;
; J6 B5 Z% \( V  p/ c7 t                eventcontroller.stop;
4 m$ M8 Q; F$ N5 ^5 h        end;
6 E, g  K$ r2 i       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
; K$ q7 A. ?. f+ \        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
$ W: D) o7 S7 j/ i2 K6 F                machine.deleteobject;
* p; Q4 o2 D$ ^" u* k7 O5 Z        end;
: R! n4 }. l9 u, o# _& [5 a+ c8 x        bufname:=sprint("BF",i);
2 ]  J# w. j  S1 y& ~        if existsobject(bufname) then
2 M4 C/ r$ H3 l" Q                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
1 v% ]+ b# D. _$ f& ^. F+ A$ r' J7 r       
; l& E" S) p& M. M# o/ G        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 j3 l2 Y( q& T, A                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% q) |* i8 n. s" ^+ R                then
: |( n! p+ {( }* ?                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& _, U2 ]) p5 c                        and activityspace[1,rows]<(1.05*y_max) then
! z6 n/ S' H5 @8 Q8 e0 y                        print activityspace[1,rows],",",activityspace[2,rows];
% Y) x; C" ]+ D) ~+ S7 V                        ct:=activityspace[2,rows];
3 m# Q- h0 h) ~2 ]" L3 J                        activityspace[2,rows]:=activityspace[1,rows];
7 D4 @4 v6 E2 j/ U; v                        activityspace[1,rows]:=ct;
$ |8 Y: O; t& _4 b+ r  N                        mark:=true;
                        else*/
! N* Y' Z% b4 Z- l& B& x                        y_max:=y_max+dy;
                        dx:=0;
5 V& ^9 P' t5 r( B2 B1 r5 _                dy:=0;
                        --end;
1 a0 g& m0 M( g                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
  s  N# B: p, {. w# V6 F3 M6 T" h. l                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 R+ b! y  n: h- _2 S  s                        end;*/
/ K" s. N$ P- r! H: F. V        next;
! {! X& Y5 O1 _% P4 l$ n        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);
3 }, G5 t7 z7 t9 ~& x) T; v        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);
7 D; p; N/ N6 L# D4 W1 P7 e       
        rows:=0;
        lines:=0;
8 g& n. ]! e! J" M6 v        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
. m& X% N* m! n) Z  j& i7 s$ p' |                                d_from_to_chart[j,i]:=0;
4 A1 T& N3 J* m+ G0 S$ J4 ~: a                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                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);
6 }$ O) `9 c* P6 u7 R9 X( y: M                        end;
                next;
        next;
5 q% C" J4 C2 q- p       
8 T* B# ^7 E; h" D        lines:=0;
        partstable.delete;
: N6 n7 s- H: h& ?0 l/ N$ a       
7 n% k& n& c, o# r6 a1 l- Z5 G% P        for i:=1 to number_of_machine loop
: z# h3 B/ y, [. Y) h" U: o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
, @5 g7 L$ g' P& g3 B4 M/ l$ U                        if w_from_to_chart[j,rows]>0 then
/ x* K7 |% i" g3 U                        lines:=lines+1;
4 u  B3 {: j; b. x! N                        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;
: v, @+ P0 T+ {7 C                        partstable[6,lines]:=j;
8 o+ f0 l8 x' l! N                end;
        next;
$ q' h, Z+ o5 E        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
, R0 _; A; y* W1 L        machine.label:=activityspace[0,rows];
9 ^" O; y- Y8 n6 W7 E7 V7 C* `+ b        machine.exitctrl:=ref(leave);
& t, p9 M" y0 D/ a3 E& v& P0 ^       
8 P4 S6 B5 E$ ^7 `. ?2 O        bufname:=sprint("BF",rows);
+ a! n$ e1 f* H; e        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]);
$ O" n# R5 X* G; A# P3 l        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 E/ [! q+ K& k  V7 [" gdy:=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);
2 v' q4 K* u/ U4 u2 c  J4 knext;
. }4 P* b1 `. rend;