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

zooey

is
        mark:boolean;
; N& u) y/ v& L# O! D        dx,dy,ct:real;
2 F1 U# e9 d! U$ E: y+ v/ j    i,j,rows,lines:integer;
8 t. c0 B" d- E# ]5 J4 j, T    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
- R* `* z/ B/ ]% H8 u" V2 Q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
! N8 F4 {: Y4 k9 T1 |! j: M4 H                when 16 then
                        print"yes";
' g; B0 G+ t) c9 R                when 32 then
                        print"no";
( h+ P$ x- x! }                else
  m: }; ~8 q8 J8 o0 x                        print"cancel";
                end;
                eventcontroller.stop;
1 r+ {' C- ]4 [9 s: u        end;
' D+ @# B3 @% N3 e9 K8 y       
        for i:=1 to number_of_machine loop
- u5 {! W, w( w  b; O        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 J% G; x' K. o) o* W+ o7 u                machine:=str_to_obj(machinename);
$ B0 S" ~9 O% p9 Z+ Y                machine.deleteobject;
7 h" o1 ]" u) n/ ?) e8 v8 Z7 a        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
$ l5 V$ d, s& \0 a& `                buf.deleteobject;
- w6 D& R' o3 \3 h        end;
  `/ a2 m3 z3 W9 K% j- w! t; x        next;
       
        dx:=0;
8 e3 h# V% \: h, S        dy:=0;
1 G, @3 K9 C8 t7 z, ~$ k, e        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 b, q& ]( l# l8 a( z6 n" c                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 I+ G; Y: g! C% O% Z! Y                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) Q! n4 ^3 @$ m3 l                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
) ]; l% T3 ]* x! ^2 C! q& R                        else*/
                        y_max:=y_max+dy;
0 l6 K; X- m( x: Y) a$ W) S% H6 u, S                        dx:=0;
                dy:=0;
6 V" D( ^1 f* K                        --end;
                end;
3 e0 r% n; {% H: T                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;
            if activityspace[2,rows]>dy then
) w1 r0 o3 t& {# s2 M                        dy:=activityspace[2,rows];
3 d# B4 X+ D- W3 F7 Y8 C2 S+ D% k                end;
                dx:=dx+activityspace[1,rows];
4 z. b/ l9 I. d. M% x7 X# w; ]                /*if mark=true then
                ct:=activityspace[2,rows];
: b5 k" ]( w' _/ J6 C8 R, t4 Y* g                        activityspace[2,rows]:=activityspace[1,rows];
% Q* s! d6 B( f                        activityspace[1,rows]:=ct;
1 }* E2 E5 c$ H                        end;*/
        next;
        y_max:=y_max+dy;
' f6 X- ^( N1 p5 Q* P        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 p$ G3 M6 G- f7 u* d2 t) }  X4 W, i       
        rows:=0;
        lines:=0;
% E0 b, X; c6 _& v2 @" f# x( o        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
3 s1 I# E9 ?. x) j. x+ i/ K                        if j=i then
* [8 K5 P0 t& |                                d_from_to_chart[j,i]:=0;
1 N  D5 }- w: n& t" J0 J                        else
! N1 `- p: p! \3 M; o                                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];
3 \! A# F! _/ ]                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; v5 d3 r6 U+ l5 t! I' _7 n  d                machinesequence[2,i]:=rows;
2 C: _1 Y  H, K                for j:=1 to number_of_machine loop
# U' r7 V. H, w9 r9 x                        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];
' M$ w. k. R+ g                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; T6 G0 b  `3 {5 J0 {2 `                        partstable[6,lines]:=j;
                end;
/ I, ?# _7 x" m" l7 n5 Q, k        next;
  B2 ^8 t8 |: c  Z, x9 |6 G0 f        machinename:=sprint("M",rows);
  q- F3 k% s& f- j) h* L' w5 g) p0 ?        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]);
( L, o7 Q7 ~7 N1 a& m/ |; ^        machine.name:=machinename;标识符未知
        machine.proctime:=5;
9 X! j. D& Q/ y  x- i4 j7 o        machine.label:=activityspace[0,rows];
' o8 K  @  K( N4 G8 G0 C9 T% ]        machine.exitctrl:=ref(leave);
" G9 |3 k  b5 P' C3 `& O- ]0 I- {       
% E0 l/ V+ _( k% ]4 }        bufname:=sprint("BF",rows);
# y- P3 X7 M  x8 V5 n        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;
9 e% m$ T, L) m% _        buf.proctime:=0;
6 d, \. v  D- v. o        .materialflow.connector.connect(buf,machine);
       
        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);
9 V: I* ~; n- V' H6 hnext;
0 F4 b: f+ N; R1 M2 Jend;