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

zooey

is
        mark:boolean;
' q6 K, F4 C2 U1 k% t. N# r# i: h        dx,dy,ct:real;
+ G1 a# @8 u6 I8 n* [8 n" m    i,j,rows,lines:integer;
2 y4 n4 f, B" x7 B    machinename,bufname:string;
! L1 h  z# `( Y4 A) h0 |3 P    machine,buf:object;
3 h$ O4 `. ]) J! H, ~% M/ q: hdo
6 ~' f+ C$ ^8 F; ~! \% W        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
* |4 Y( H: k' X& b3 J                when 16 then
" K- r6 J9 Y4 y( }; X6 Q                        print"yes";
                when 32 then
                        print"no";
3 w3 J- U6 E4 T/ p                else
                        print"cancel";
* K% Z+ H# o7 R& e1 I4 p0 A                end;
' D) K( \6 W- E) q0 V3 d; J                eventcontroller.stop;
        end;
       
1 z0 d, X- U0 Q' b! I5 p7 p        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
$ c0 |9 e' I3 K# V  G9 q, y+ d                machine:=str_to_obj(machinename);
( I& S; h/ P- h! n/ }2 A                machine.deleteobject;
. s; a! z8 F+ J" \: O7 j        end;
8 D6 l; |. s) t, p        bufname:=sprint("BF",i);
' w- b0 b4 T+ A        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) i9 h; e# ^( t/ G                buf.deleteobject;
4 T4 a: ]) V& T        end;
  K1 N9 F; \: z* z        next;
/ `+ p. O) {4 \3 Q. D       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
( }. _. c+ ~4 f) Z! Q+ i: l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& f% ]1 ]# E  r9 g9 B/ T: t/ X1 U                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& p3 `7 n, D" j* g                then
: B2 P) {( W4 \# D- u$ r; O  ?3 N                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( ]% l; r6 ^0 }% q                        and activityspace[1,rows]<(1.05*y_max) then
, }8 e6 ^# G1 \6 x) a                        print activityspace[1,rows],",",activityspace[2,rows];
- I# ^+ }* o" E9 }8 k                        ct:=activityspace[2,rows];
% h8 K) _( }5 |9 z: o1 W                        activityspace[2,rows]:=activityspace[1,rows];
( o$ a5 X8 H+ {  n* p4 g9 @                        activityspace[1,rows]:=ct;
                        mark:=true;
1 Y" i, U+ h7 K( y; W- Q0 x                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                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;
, v9 |! d0 ]" j            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
- ]0 x( }" v+ `7 I7 B                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 n. a4 @9 X; {+ D0 T# f                        end;*/
2 ]  c. Z8 S/ A        next;
) W' G( x; _2 M        y_max:=y_max+dy;
. t; ^' Y+ ]9 H  W. B        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 T2 W& A: r/ \: l% F        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);
       
        rows:=0;
$ v" H0 X3 |+ {/ Z        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
) v' [4 _2 i3 _                        if j=i then
7 w9 x+ [, Z: v- F                                d_from_to_chart[j,i]:=0;
9 V. u1 n: M& R7 b                        else
2 J7 d7 B- I- y                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 p8 [2 a; t9 S6 q8 G                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) A+ r1 F  m7 H/ Y                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
& b' ~& Q3 O9 p( Z                next;
& K1 e4 b, {9 T: e        next;
       
        lines:=0;
/ P9 I* `# I* U* s- m" B( M        partstable.delete;
2 K6 `- t6 k& ^5 l4 f       
        for i:=1 to number_of_machine loop
3 m9 z* v# i, ]. R/ K                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
3 J# n* G( D: U9 `7 R                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 _+ D2 F6 e5 ]7 D' {% E                        partstable[3,lines]:=sprint("parts");
2 `  R& k' B5 B4 u# p# c9 E* Y' I                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
6 k& d, A( l0 H3 u        next;
5 ~  q$ s  W% Q- O        machinename:=sprint("M",rows);
: w5 ^! c2 D5 z/ l3 J7 O& p) ]        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;
8 V: x2 _& F1 i% N7 X! r1 o        machine.label:=activityspace[0,rows];
4 d5 w" z: A/ E) K3 p& @$ d        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
$ R/ a9 i1 Q- w4 ^3 f  C# H        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
" w! \2 ~- y  e  K        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
6 [# g/ K; O# y8 x6 S# U2 J4 y        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
( ^! |0 E2 }7 k4 e( |+ Mnext;
end;