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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
' y1 ~/ H9 O/ c# b    i,j,rows,lines:integer;
    machinename,bufname:string;
3 w5 @( C5 F2 s* y1 x1 l4 m    machine,buf:object;
do
        current.eraselayer(1);
# `8 d+ O/ i, V+ N5 A1 a4 ^2 z2 q       
* v9 x0 [( a' G# k8 Z- k5 ?: @        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. g6 z$ r& u* M1 N( e                inspect messagebox("设施数目不对！请核查...,",50,13)
/ R  W2 W2 U0 p0 N( m                when 16 then
                        print"yes";
                when 32 then
7 [1 Q; ]. e- R                        print"no";
( V6 O3 ]0 Q7 a0 P- l# x' ?                else
1 ?' m# |, n0 c  d                        print"cancel";
                end;
% i" ]% d# V" z3 N) t/ f                eventcontroller.stop;
& x2 g% j6 ~0 ~5 a. B' x+ j' D        end;
       
        for i:=1 to number_of_machine loop
; D5 Z, |% W$ u  g        machinename:=sprint("M",i);
0 R- h6 t6 M% ?& M4 A+ Q1 L        if existsobject(machinename) then
. J( X3 T/ k9 G9 W+ R# b                machine:=str_to_obj(machinename);
; W6 L" y/ z6 P, u& C2 N0 b0 ^                machine.deleteobject;
$ y9 m1 k7 N) c  T1 l1 U! s4 W. n        end;
        bufname:=sprint("BF",i);
3 K! Z, b- d# l, Y0 z        if existsobject(bufname) then
7 z8 ~& x( Q% t) U5 L                buf:=str_to_obj(bufname);
* ]0 k& j( v. }                buf.deleteobject;
2 }5 D+ b# j$ w        end;
        next;
9 ~* S$ l+ `. X9 Q. }5 }  w* C       
1 g. R) T5 {- `+ v8 v        dx:=0;
! q8 N. K' @( Y7 L        dy:=0;
  S4 U: T( b- s        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 o1 I, l3 X/ I$ L7 i                --mark:=false;
* Z& K3 q: K7 L# E                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 Y# I7 t) n' P/ o                then
! a9 D. C: v9 W* o. @                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
3 X* E' H* A% A6 c* \, l7 m( o: D                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ I6 [4 O( D2 T! I$ K" W                        mark:=true;
* s% J% D3 z. y" \8 f- U                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
3 Z+ b" \1 Q  r) T; X1 [! ?& W5 c                dy:=0;
2 H2 z  ^9 R# [: k                        --end;
# L( ]6 R* l$ I: S1 Y                end;
* V1 O7 I4 b+ F6 p8 F0 Z! g. L                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 U- v/ Y" f* y1 V, o, h0 y& ?                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];
                end;
9 |! K; J2 V5 v3 @# Q5 v" i" O                dx:=dx+activityspace[1,rows];
& p, B9 t" J; R) D' \; a1 m# J                /*if mark=true then
                ct:=activityspace[2,rows];
# a' L3 v; X/ f: q% v. s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ Y, ^. [& ?1 C                        end;*/
        next;
2 c# V( v* ]' i1 D        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);
% ]! R4 d$ B' r) \  f$ x' Y        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);
       
* ~/ T, z& Y- \' j        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
! p# v+ k! w! y                for j:=1 to number_of_machine loop
                        if j=i then
1 T1 h5 u( `4 W. c: s. ^. }                                d_from_to_chart[j,i]:=0;
                        else
  d+ l4 r- q) m4 }) L) I% p( w                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 u3 r0 V+ ]2 k, b                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 ^; a. ]2 ]& e6 O. U9 w6 i                                d_from_to_chart[j,i]:=abs(dx-dy);
5 T1 q  C2 I6 d                        end;
% p& \3 A  m1 s5 i- z- l                next;
        next;
       
        lines:=0;
        partstable.delete;
+ a# w1 V/ y/ C- |  P4 [7 ]! r       
0 v$ d, H, _. ~2 p# G4 N5 Z        for i:=1 to number_of_machine loop
9 G7 X3 L& ^$ \, T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 [- k( M2 \1 j2 L* ^                machinesequence[2,i]:=rows;
0 O/ b9 O9 l" q( T; u& H                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
& J! u% ]) H2 ]/ i                        lines:=lines+1;
, ]+ n9 A. e$ O1 f+ V* h& C                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" z7 s* ]! t; P( k6 _4 s                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 m0 G' T# g% w                        partstable[3,lines]:=sprint("parts");
- K. }2 V1 u# c* v4 o+ @# S) o                        partstable[5,lines]:=rows;
; W/ a/ \9 o# o" Q7 m8 N& C                        partstable[6,lines]:=j;
, B. g6 E) R9 t; G                end;
  g! L& T+ q4 J( R! o& V( `        next;
        machinename:=sprint("M",rows);
1 M; s" w7 h* Z- u; E        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;标识符未知
        machine.proctime:=5;
- b7 I7 Z; L2 c" V5 h% m        machine.label:=activityspace[0,rows];
. u$ R/ t! j+ M) h        machine.exitctrl:=ref(leave);
       
- U, ]2 z$ t. _8 l4 y        bufname:=sprint("BF",rows);
# m2 \$ ^. Z7 z- W. `" G        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]);
- B0 d( n  T8 x- I% v: }1 c4 Y1 k        buf.name:=bufname;
        buf.capacity:=5000;
: U9 v2 k" S/ }" \5 x# n        buf.proctime:=0;
/ ~) X4 Z: l( s$ C! v        .materialflow.connector.connect(buf,machine);
       
, Y4 ^7 r: ^* E+ x) r/ ?, V: X        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;
0 @& b5 B- A2 E7 j/ ~& W1 v, _current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
3 h# X8 C: [) d2 ]1 ^end;