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

zooey

is
        mark:boolean;
; e" C# i$ n. U. F* B4 A        dx,dy,ct:real;
3 W& m" p' G# E- F+ d' d0 r4 ]4 p    i,j,rows,lines:integer;
    machinename,bufname:string;
( h, W. K$ u7 v  B+ L2 S- m( `    machine,buf:object;
do
# [& t( I6 p3 _! r! M* ?        current.eraselayer(1);
0 P; w% @" \; h) u. f       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" M. @: n0 Y4 f& p. X                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
! T5 P: u/ R2 ?( u" D$ E; R- X4 D                when 32 then
9 v, }% a% K. ^# l( a2 G                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
  f& M, j( |& s. f       
+ i  h7 C! B% I        for i:=1 to number_of_machine loop
* P# d& s% S: ]: u7 n2 _8 ^+ D/ v        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
2 H+ }( `- D. S; B+ N, O) ~0 i                machine.deleteobject;
/ l( I/ @* w: h( B        end;
; B; F. W; n: }- k        bufname:=sprint("BF",i);
        if existsobject(bufname) then
9 L; [/ p# B! g; z& M                buf:=str_to_obj(bufname);
6 d6 L) i0 T: x$ E" L                buf.deleteobject;
; y/ p: o$ k& W: O& |        end;
8 d/ _. w  t5 u8 m. F5 I        next;
* J+ n# m6 [8 U3 |3 v       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
5 ~5 K) z3 T! d" v7 s/ m: i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
$ z4 b7 N" z$ _0 r$ ~, Q                        ct:=activityspace[2,rows];
. }1 n: z! `' c5 M0 r7 |0 I. G4 T                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ ^% W; {" Z. D$ c2 {                        mark:=true;
- T# k5 D9 q5 Z                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
! n+ q0 f% |" n, ~7 U                dy:=0;
                        --end;
                end;
( @2 B& s; a; S1 V5 g                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ _. J" _, o8 E% c$ e4 c                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 ~& M6 n2 D3 @' v            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
% p, C; @. M, l% N) m5 |# Y                end;
                dx:=dx+activityspace[1,rows];
) F. H! K: ^* ?, l: x! C                /*if mark=true then
                ct:=activityspace[2,rows];
+ d# h; y5 g& H8 [; S) j                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: f) o) _( R3 H2 i                        end;*/
0 m( m+ [) I4 ~. @# l7 O, @9 r/ N, O/ s1 {        next;
+ `  W& T% N" j( w. R  ]        y_max:=y_max+dy;
; T' g( A* W( ~/ ?0 j4 F        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);
. B$ k- t5 f+ e1 L& a8 ]8 \! K       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
+ S6 u; _; d( b+ m) g                for j:=1 to number_of_machine loop
: Y# H, r) Q0 B                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
+ G) ^- D+ U3 ~2 D. H$ k                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: E0 E% {) O* v. \+ V                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 V$ d9 \8 ^  W  a2 U                                d_from_to_chart[j,i]:=abs(dx-dy);
1 K, Q3 z. u6 T6 k                        end;
                next;
. Q5 O7 a  ]* C8 i        next;
. H" j& f' N( h  j       
        lines:=0;
7 f0 E  }  m; ]* [; e& j2 F        partstable.delete;
       
2 W) E" j. Y! [/ q/ q        for i:=1 to number_of_machine loop
, A# V7 \7 t5 k6 j7 q# |$ Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
  t2 v: v- z; B. A                for j:=1 to number_of_machine loop
/ Y1 C- J8 N& D                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
( W' B/ \" X1 o                        partstable[5,lines]:=rows;
3 U' V9 v% D1 E) n1 B# O                        partstable[6,lines]:=j;
! V/ G( B. ^2 e% |                end;
( t/ d/ W) D" q' `0 Q        next;
6 U/ w, _# Q3 B1 U6 ^8 O! H" ~. ~        machinename:=sprint("M",rows);
7 ]% Y6 y0 v% H" a. 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]);
! B& _2 N7 Z  U3 V* U* @0 q7 S: u        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
% X* \) ^" P; s0 o- _  n        machine.exitctrl:=ref(leave);
- g* `' H" S5 @7 I7 Q! v6 E$ e, C       
( s7 o2 `3 v: z, T% Q( z' V        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;
        buf.capacity:=5000;
5 d) o/ w" ?% R& N        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ b" d0 [; |9 x7 ~( M+ Gdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
; A; ]: y8 ^2 }( Ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. v4 W+ T. v0 v9 P* Snext;
end;