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

zooey

is
        mark:boolean;
+ D+ D5 U0 P, c/ O+ U- C        dx,dy,ct:real;
- l$ a- F; z; D4 H* S9 W    i,j,rows,lines:integer;
6 P4 ^3 [% O8 @8 K* [    machinename,bufname:string;
    machine,buf:object;
: e3 u& Z4 t+ G  w4 t! O! ?0 b1 k( Tdo
6 L2 T( j% ^5 k2 T- F% I, D        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)
                when 16 then
/ Z2 Y3 ~6 k8 _. k1 u& r0 v                        print"yes";
+ v- U0 T0 \) k+ F                when 32 then
, B( d" j* g' w) w6 x% W# ]& f                        print"no";
1 w0 A" _- A% |5 a* B. i                else
- ?/ E  U: u4 L3 {/ I1 s                        print"cancel";
                end;
                eventcontroller.stop;
0 p; j5 N. e6 F+ o9 g( {* Q, ~        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
& g  z1 P" x. o. q$ a9 S1 R                machine:=str_to_obj(machinename);
                machine.deleteobject;
2 N( Q! k0 q- v: z6 A0 a        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, l) b! d, s0 l- M- d4 v+ A' J                buf:=str_to_obj(bufname);
                buf.deleteobject;
5 D/ t1 v2 I: y; {, W8 z+ q        end;
        next;
       
        dx:=0;
        dy:=0;
9 h/ F* q. M/ s' H, G! C' A' b        for i:=1 to number_of_machine loop
4 O( P$ g; D3 o+ `9 J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 |6 p: f3 C6 F  G, ]* r                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
+ H' y( ?4 Y. i8 f                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) a3 ?3 N0 M) O+ O* y; t1 q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ C2 L% E! w& n% p                        mark:=true;
                        else*/
! f9 Y: o8 Z" G) Z3 J                        y_max:=y_max+dy;
( O) h# f) O* ^) O; D                        dx:=0;
                dy:=0;
                        --end;
                end;
2 I, h" t6 n6 q* X  P                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;
' }7 E% A$ W/ L            if activityspace[2,rows]>dy then
/ [( L/ C* A/ i% R, b1 H* F; J: G                        dy:=activityspace[2,rows];
. V/ E* J- S9 Q- J                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  Y! l8 y/ \' O/ N4 s                        activityspace[1,rows]:=ct;
                        end;*/
" ]1 v0 w& Q; Z5 U+ E* \( h$ E4 r        next;
7 H0 E9 @6 J1 u+ \        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);
+ _  J4 A6 N& I% U; r7 u        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);
6 z* j4 ?: v: ~       
        rows:=0;
1 a* X5 ^# x- r* w        lines:=0;
' |& r8 F) r6 g" V: Z        for i:=1 to number_of_machine loop
! Z# c; j' M* C) {, U                for j:=1 to number_of_machine loop
                        if j=i then
9 ~) X. z3 T0 b                                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];
* y% P* k  b; @0 p0 ^& s                                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);
                        end;
                next;
1 T0 [' p" Z$ F; t) n1 [        next;
       
' t: Q* a+ S9 ^7 x; Q1 I. l        lines:=0;
        partstable.delete;
       
6 Y/ N4 U* I; x9 d+ m% w* q5 t        for i:=1 to number_of_machine loop
( L3 N- O( W: ]5 o8 |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
0 l* M6 }! ~. M$ p0 }$ S                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
9 D* S; S. \9 B1 O  e2 S. M                        lines:=lines+1;
$ L( V3 X$ v( J# _# ~+ n                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ Z& T% z: a/ m                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
6 g* {  z* g: L                        partstable[6,lines]:=j;
                end;
        next;
& l' J" X7 i6 q" F- ~9 i% j1 l        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]);
1 r) R9 `( V- {9 ^0 u        machine.name:=machinename;标识符未知
6 J7 H) k7 B3 ?+ y: l" W        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
& A4 F% t. B  @% s! V        machine.exitctrl:=ref(leave);
; N8 }( l- Z  }: X8 p1 q" L8 e       
! x6 L/ @7 k8 k+ J- a( l        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]);
        buf.name:=bufname;
9 L+ {6 W7 e. m. `# n* _        buf.capacity:=5000;
% p* p1 X$ G. @        buf.proctime:=0;
. W; H) X. n" x1 a. d+ A        .materialflow.connector.connect(buf,machine);
       
6 ~/ S0 S7 u- u        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 _, `" {! q. h. Rdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
, Q) I$ D( C1 W$ q3 ~current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
# N  z- ~  F/ M% X* F8 v% Q, rnext;
end;