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

zooey

is
        mark:boolean;
7 q/ D6 O8 Z0 x" J4 y+ \        dx,dy,ct:real;
8 y% @, M# w7 C9 D5 E3 r4 N5 ^0 j& ~    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. i, X" A* `+ j3 q4 H                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
  M9 U/ @& n4 G/ c" {1 C                        print"yes";
+ ^( v  m# s7 Z# i' ?* d                when 32 then
2 W+ a7 a+ L9 u. t" G. n                        print"no";
                else
$ X* h8 V& W8 p" Z# t                        print"cancel";
                end;
                eventcontroller.stop;
) d1 b9 N4 d3 z6 |% Y        end;
# y, S/ p- D. m& A- @       
+ P0 ]9 f* A* Q9 S) }        for i:=1 to number_of_machine loop
7 p+ L, ]- {! p        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
- _+ B! T# }" J2 _5 M        end;
: `$ v+ x+ i( `9 d9 @+ b* G' d4 u; w        bufname:=sprint("BF",i);
9 ^8 _0 D( B$ k) s% g" K: O        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
0 K/ }) ~+ G+ e  P. [% j) O7 `                buf.deleteobject;
        end;
        next;
, H' N4 ^: |) o, m       
* t3 c7 [. a9 w7 n) b: ]( J        dx:=0;
+ a+ c# t! `5 `0 e; y        dy:=0;
        for i:=1 to number_of_machine loop
5 A1 Q  n: T, Y' b( H$ T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 s& J# C% m! w$ b                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, f4 V7 t! m( T0 L. J$ ?3 _5 G7 D1 I                then
3 f! o8 S& @1 B6 a                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" e" R  C: T0 D- z9 \                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& [& p9 P% f; J) G9 _4 K                        ct:=activityspace[2,rows];
# M0 t. Y. `" w) ], a" P                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( z" n9 q4 A# M7 I! P                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
7 P5 Z# i# R# n) j9 s8 ]# F                        dx:=0;
                dy:=0;
* t7 G: f1 O) v: V( ]                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 B8 z% f$ q& A$ O3 Z; W                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
  y, B, i# Q4 U; y8 U3 H! Y2 W                        dy:=activityspace[2,rows];
  T6 z0 N' M! i# L2 M/ b! L9 H                end;
                dx:=dx+activityspace[1,rows];
) K- K4 u" C. A4 M+ e& O                /*if mark=true then
' U: j! u5 l) G+ x* L                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( p& w* b& H- G5 \. l3 B- I( `3 u                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
        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);
       
2 i' \) W' X$ e/ A: s/ }        rows:=0;
/ Q" A" @* }2 ]. e        lines:=0;
* Y+ W7 r* K% L/ i. G/ o( C& g        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;
, l$ ?; ?+ n3 _; b! r3 o                        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];
* J  u" [+ V7 e/ e) C' h                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
" m3 y7 O8 T1 L: |8 A" P                next;
        next;
       
        lines:=0;
2 O6 e4 n  {0 n/ P3 e7 n. B  N        partstable.delete;
       
8 }2 m% i( C9 @% T( Y0 u  @        for i:=1 to number_of_machine loop
6 v! S. U2 `) c9 w$ S' f                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
8 U  k7 z" N7 }+ q: d( ^                        lines:=lines+1;
' \* G( a5 s: `4 j( h3 t$ V/ l4 v                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' p/ U5 E. D8 Y  {. H0 c0 X, ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
- l: p8 n9 ?& L3 b% E2 T                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; c& X) \: A3 N& s. G- T1 Z! |                end;
        next;
' I- [3 O4 W! l, J3 X. }        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;标识符未知
, f7 S2 w# N" ~- U& A        machine.proctime:=5;
: V. u* S8 a( _% Q8 c        machine.label:=activityspace[0,rows];
, e& c' Z) P% z9 V6 k        machine.exitctrl:=ref(leave);
       
9 F% _4 ]9 a) S/ J        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]);
9 e2 ]& \' K( i3 w        buf.name:=bufname;
. M, s( f1 }. ?1 |- Y        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
9 ^  V8 g4 B8 y9 u5 t/ u       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ G* s6 C6 e/ j& P& Gdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
! u  N; s% b, x& pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
0 A& ]! D# i- S' w( `end;
( R) n, n& H. ], s3 Z4 A