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

zooey

is
        mark:boolean;
9 I* h! M& x2 T3 o4 T/ o, f1 w5 u        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
' G) C& B& r; |* Pdo
        current.eraselayer(1);
4 N* L- g3 V: s( O* Y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
5 W; x* l: {1 }6 M0 j& ?2 s8 A$ t                when 16 then
, U9 {+ F6 ?5 D9 D: S                        print"yes";
                when 32 then
                        print"no";
$ ]( s+ E; U  o/ `" W% f, c: F* Q                else
                        print"cancel";
                end;
% Q) G. V' Z% K% M. r/ W8 c                eventcontroller.stop;
" }* c+ @, A* W        end;
       
6 o: B; B2 ~; ], }" M7 y  c1 M        for i:=1 to number_of_machine loop
* M. R) e( h/ V        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
" w1 n9 u$ p1 K% N, R7 D        bufname:=sprint("BF",i);
# {: F/ {9 B# n* R        if existsobject(bufname) then
* }2 ^, B3 X* j- E- d                buf:=str_to_obj(bufname);
                buf.deleteobject;
- ?, w* V+ E/ G$ p9 q8 T) P& \        end;
. A. b; c  p1 q6 |) R$ m        next;
       
        dx:=0;
$ Y% Z! `; m1 T2 o- O$ `        dy:=0;
" H; H- x6 l  M, A1 A5 ^        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( ?6 y- t' ~: r1 Y/ V4 _& A                then
/ f) w- v/ O( B, v& |! X3 l! }                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" ]' ]$ r. a) e+ G0 R                        print activityspace[1,rows],",",activityspace[2,rows];
1 z" H) ^4 S8 ?. j                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 x- _' C$ t1 K8 ~' J& w! c* j/ M                        activityspace[1,rows]:=ct;
2 p7 t9 E' V# N8 [" R                        mark:=true;
; A' j# N9 |8 y- F                        else*/
  X2 k' e. g/ i                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
# q3 |. t7 d) n7 ]                end;
! j! c& l! S! r$ C6 `! W                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- `3 E$ H7 X, [0 f0 P: y6 Z3 E9 z                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];
% {' p& q9 U4 E$ ^  e                end;
2 d: \5 C. u9 |9 E2 v8 i& s                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
2 q; _7 F0 y" g7 L3 [$ l! w                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
* P6 G; w) R& x& T! P. }" L+ t        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);
+ K2 [0 K: j0 M% 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);
+ Q3 M# ?- n! F! `       
        rows:=0;
        lines:=0;
# m' M6 x* x; u2 x; E, l9 D        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; @0 f- f) a% C' a; F* ^+ U; l                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
. l+ v" M( Q# P                                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];
8 R1 k$ h. A- b                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
, J6 W  `; f- {, b9 S        lines:=0;
3 O" V8 }$ T# _$ w6 J6 M8 _        partstable.delete;
       
% H0 ~8 D3 a7 p, e        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
1 N  A+ x: v: n& e: m" @                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
+ A) i  |; _$ a8 d- y9 Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 h% p6 |/ z& i; t                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ @2 z9 m9 t" `                        partstable[3,lines]:=sprint("parts");
. I9 x4 s% M, j' x3 d+ ], }& n                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
* i# ?0 M) F, X6 h) g: @% e& P1 ^# a        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;标识符未知
2 B, k* F$ k# w3 I        machine.proctime:=5;
3 u. e" z6 P( ]; e+ D        machine.label:=activityspace[0,rows];
$ Q$ W' g9 E9 r% g3 T# |$ ]        machine.exitctrl:=ref(leave);
6 Y: U! U- p& i3 X. w) w       
        bufname:=sprint("BF",rows);
! |6 n; X: \0 @! K( T        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;
" U& I. X  N5 F( \& c        buf.capacity:=5000;
5 c1 T; P4 n" Z' j# _8 z  E: y2 \7 Z        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
: S* P( s3 B" t2 f3 G       
        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;
6 v1 A/ n) A# M; Dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
5 ?- T/ P3 W7 D- b4 U1 mnext;
end;