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

zooey

is
        mark:boolean;
6 k9 ~2 n& m3 l) l& x1 I1 f# B        dx,dy,ct:real;
    i,j,rows,lines:integer;
. Q$ y( s( [. U6 \0 M& ~; v    machinename,bufname:string;
    machine,buf:object;
do
7 x( y+ X8 ~0 w3 Q) S        current.eraselayer(1);
  q; l, w: D4 q0 r9 l       
- Q) [% d4 d2 n  T, Q7 P        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, P$ ?; d/ ]) l: l% D! Q- |8 g                when 16 then
                        print"yes";
                when 32 then
' O; M* J& A9 u                        print"no";
                else
' O5 c4 S5 a; U& {                        print"cancel";
                end;
                eventcontroller.stop;
        end;
* Z+ v3 }5 H% I  x+ [; @       
4 f& b, E! f6 h* M# @" ?7 ^  O/ c        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 O% ]2 p& _- t/ W! j' O                machine:=str_to_obj(machinename);
6 r* a9 ]2 i& k8 E) u" B. ]4 v                machine.deleteobject;
9 D+ s. h0 M% A, @/ `2 n, e        end;
) y1 N# g( H. b% J* a        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
% }0 n2 p2 A1 m! c3 s                buf.deleteobject;
1 H* K3 W: q7 o6 B        end;
        next;
       
, ^7 T5 ~0 i, t7 I        dx:=0;
        dy:=0;
; q" X' R: M* c' S        for i:=1 to number_of_machine loop
6 o2 C/ j' S. K, H1 u# |8 W                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 q* [2 I- r) E0 ]5 T6 Y' g                then
' \. L5 E8 h" x; m1 L                        /*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];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: a& m4 n, A3 h                        mark:=true;
8 @0 n# j* ]) Z# t6 n9 g                        else*/
                        y_max:=y_max+dy;
, L2 ?1 L" s; Z! O                        dx:=0;
, C" H. _3 B( z) g                dy:=0;
                        --end;
* `' @: T' {( D% R) s2 M5 r' T! n                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;
  b2 S' |1 T8 |; `; R- S4 A            if activityspace[2,rows]>dy then
9 H9 {7 O+ b3 a! I                        dy:=activityspace[2,rows];
1 K6 R1 a0 m8 q                end;
% Q: X9 N+ v; w6 h. J3 j8 @1 _/ H                dx:=dx+activityspace[1,rows];
' |3 Y. Z4 K5 [9 K/ c& B/ Y& i                /*if mark=true then
% w+ [2 P6 v3 I- }  d/ ]                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) P/ U+ g0 i9 p5 m  u, E6 L2 N                        end;*/
0 D) A8 m( ]" x+ ]% b( P6 u( C        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);
        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);
5 s1 u8 I; o2 M+ i9 J- J) E       
        rows:=0;
+ x7 Q& [3 P* O% o+ a3 r        lines:=0;
! l' {  Z0 _. S$ H        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
/ N' d! @: ]* ]& \  q                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 e; H4 M+ ?0 i                                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;
        next;
       
        lines:=0;
- z4 I3 w. Z+ H) e5 P8 I; k8 |        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 z, n* ^5 g: J2 I                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  V3 O2 a2 P8 e5 }                        lines:=lines+1;
" t+ N! `( w+ T2 v6 v3 v                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 G* ^5 \6 e8 M' n                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
. R, N9 y% G% K4 Z                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
7 t& z) n  w! S        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]);
& E, X7 S0 j+ V, K% I6 O& @        machine.name:=machinename;标识符未知
        machine.proctime:=5;
( H, ~' k7 @. E: y        machine.label:=activityspace[0,rows];
$ {3 ]% n" q! [% U5 o        machine.exitctrl:=ref(leave);
       
        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;
* d; ^( |( `+ K- X! R0 z        buf.proctime:=0;
6 y2 ?+ s4 J) K, U: r4 a6 F2 \        .materialflow.connector.connect(buf,machine);
: w1 [) v3 L9 @# c  h) t+ X! 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;
* A9 G# V' _+ T+ K0 r0 Icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' Q2 {6 a! d. k; x" l" o$ v9 ?next;
5 d* S1 Z) @6 X/ Dend;
3 b; d0 o9 t4 j/ J$ m% E8 z2 F. A