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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
& P0 z+ j" n! V$ t9 A    machinename,bufname:string;
6 {: q7 P  x2 @% o# G, y    machine,buf:object;
do
        current.eraselayer(1);
! A+ E+ S( X3 D# E) P       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! j& k5 C+ i1 I+ O; ^                inspect messagebox("设施数目不对！请核查...,",50,13)
" d- `; S, a; A+ S* [& |# _                when 16 then
                        print"yes";
                when 32 then
                        print"no";
' {0 f: h: `% m  e6 ]9 e                else
                        print"cancel";
7 b* A& ?( k$ D' F4 a                end;
- v: G3 s2 ?7 ?! j( d6 j                eventcontroller.stop;
! |1 o% S6 t& B; K$ C        end;
       
5 h& B! l. K! O& ~" w; X        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( ?: h" j. ?& Y+ D1 t                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
- N6 Q+ p2 v  |! X  m/ q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
: g& B: K9 ~  y                buf.deleteobject;
        end;
! @8 ?+ l* J! l: z* @& L; j        next;
0 [1 b  f0 D9 _4 P       
7 }( A0 Y$ }, \+ k3 g, u8 {; k        dx:=0;
        dy:=0;
1 M" C8 Q; y5 E* C        for i:=1 to number_of_machine loop
7 ^( ^' `( M" Z; |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) L% G  k$ C; A8 N- ?                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% ]- g' _+ k' P+ @1 x. G6 h9 P0 X- r                then
6 |7 X8 }" o2 o1 o. {& T                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 N8 ^# [& L! d! c& Z8 l# {& o                        and activityspace[1,rows]<(1.05*y_max) then
5 z! L: K& Q4 g$ M                        print activityspace[1,rows],",",activityspace[2,rows];
/ I% E6 Z, V4 h& s0 U  v                        ct:=activityspace[2,rows];
& W* [. ~# F" t# Z9 m' I/ E) Q                        activityspace[2,rows]:=activityspace[1,rows];
' X5 c; \9 e7 r1 `& I3 P0 J                        activityspace[1,rows]:=ct;
                        mark:=true;
( Z# c" ^" n( N; N                        else*/
1 ]2 X! ^6 c* z  P/ p8 n- Y                        y_max:=y_max+dy;
5 t) S1 s6 N) V( l2 U. T, T                        dx:=0;
                dy:=0;
2 r! g7 J1 t$ K7 i5 W8 i                        --end;
! S: `# h/ `: R& |) e2 y. ^                end;
) w9 ~2 z" w5 d( \" h8 g, ]9 E! }                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;
. o2 c8 s# m- Y: V  O  W            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
$ }6 c  q. P0 j/ k# ~                end;
4 A) S& X9 M- U$ Z! J5 i                dx:=dx+activityspace[1,rows];
2 c$ b1 c9 H2 l" [/ c' S. M$ C                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ X6 X4 \; d$ g% L" c% t# q                        activityspace[1,rows]:=ct;
( \" q9 P7 `% m* Y1 P& o7 ^( a  e2 C                        end;*/
. @3 {" T, u9 C- A. C6 h        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);
, s, r5 U& z( O+ }# g% o        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);
: o% R  X% `( ]. I5 A       
        rows:=0;
- [3 Q6 f7 v4 m4 N  B  W3 Z        lines:=0;
2 |3 z0 y1 t1 ^- |# n; J        for i:=1 to number_of_machine loop
' x: {' t4 R  G8 ]9 v& z' R                for j:=1 to number_of_machine loop
5 L1 u- z1 h# c9 E: O6 A                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        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];
* A! X4 @- G. [                                d_from_to_chart[j,i]:=abs(dx-dy);
! `8 W4 B) h) x  q* \- y! J3 R                        end;
                next;
        next;
6 ~; U( T7 L7 T( |       
2 r6 s* I7 h+ i2 h5 R# C        lines:=0;
! K1 l, I/ @. ~9 A; w: ~        partstable.delete;
4 Y; A; D$ ^7 `, \' [: J       
4 L' H  g8 ^+ L        for i:=1 to number_of_machine loop
5 m0 h% i' b9 B$ C- k) U/ b2 R: e# J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% A9 n) e! m4 O* {* a                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
2 W' ?# u& F, m7 ^0 l! o                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 R4 E5 d2 d" Y) q                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; A* @* L: N4 [                end;
        next;
& `% P4 F/ }; W' \9 \' w        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;标识符未知
  x+ L2 Z* K& v+ m. F( `6 A7 ]' E* Z$ L        machine.proctime:=5;
% m% V. s7 t- S$ \  n; l4 g        machine.label:=activityspace[0,rows];
8 p# o. u5 D8 N! G7 M  \9 F        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
0 S) ~7 k0 B5 e: h. ]$ r        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]);
7 d- E% }: X& ~& L        buf.name:=bufname;
4 T+ d0 F2 l* N2 I4 s4 x4 R8 M2 `- J        buf.capacity:=5000;
/ q1 }2 Y* ^: O# G: b3 \& L        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. j4 [) q' I" F# U2 u# \) n! e* T       
/ X3 T) s- l0 l& H$ c1 b$ |/ H        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 H" _7 n5 x2 j! q; Y& m# {- ?dy:=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);
/ X; K9 ]% G" f, f+ F3 R9 \next;
% d6 w) C: w/ J1 t9 e7 wend;