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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
* F- k( h; M" g$ t    i,j,rows,lines:integer;
. K6 {9 S! ?% Z0 ^    machinename,bufname:string;
' ?" S  Y6 s8 Q" m$ ]( O0 y1 E    machine,buf:object;
do
        current.eraselayer(1);
       
) W. j9 ^$ p- m9 Z        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
7 G3 F3 k# O9 \3 h+ F) Q                when 16 then
6 i6 T# x7 T" S3 K2 E* t3 w( n9 U                        print"yes";
                when 32 then
                        print"no";
                else
3 o6 Q+ P& U5 d' r! k: D                        print"cancel";
% a/ @) h: ~$ J0 R  K5 U1 x8 T                end;
) t, y4 H+ a( b7 R+ q4 Z; U                eventcontroller.stop;
        end;
       
# q4 H6 c# r; a" ~* B2 u5 Y5 w$ {        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
$ ?7 H* @: z9 a        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
* G/ E. x$ k; d2 Y3 R" j6 x: K                machine.deleteobject;
        end;
+ N5 N' s; H, Z. n3 H2 y# Q( p9 k        bufname:=sprint("BF",i);
        if existsobject(bufname) then
( X( s, B* p. x2 x. q                buf:=str_to_obj(bufname);
) y& x" y, w( c* t% o+ |                buf.deleteobject;
        end;
  O/ N6 i6 Z2 h/ x+ r: n        next;
       
        dx:=0;
8 b$ Z! }, D5 }* W0 R        dy:=0;
8 ?, Z! R$ _: ~        for i:=1 to number_of_machine loop
# e% s& ^" m9 s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, b! \1 b# O; ]$ O                --mark:=false;
9 f# ~% L( r" i# t  W! r                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 d+ ~0 t- i; A, H1 X2 D                then
' a! c* E# S6 p) V                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ N: A' M6 u; ]  P                        and activityspace[1,rows]<(1.05*y_max) then
: u8 V' k& w' v: H                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
7 f$ q9 Q. h9 K: }7 ~& H" b' D                        activityspace[2,rows]:=activityspace[1,rows];
* L% _$ G4 Z' L6 ]5 g                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
1 M4 a- {8 w0 e1 [                        y_max:=y_max+dy;
                        dx:=0;
6 x, T$ }* f' a, c) h$ A. h                dy:=0;
                        --end;
% ?6 b! j3 A5 c! Z) a# D$ z& j                end;
% O" ~) `5 D4 ^) c( i$ G                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
% {5 X6 o0 {  o4 n, \1 ^& l                        dy:=activityspace[2,rows];
                end;
* g# {6 W, [1 U; F' r                dx:=dx+activityspace[1,rows];
                /*if mark=true then
) f# F6 A' g! K! Q8 q  `1 V8 @                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 M/ Q# Y* Y- |; j& I5 ?2 o                        activityspace[1,rows]:=ct;
                        end;*/
        next;
- [9 y1 I" |* ^1 W( P- G! X- M        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);
( v# Z/ [6 P$ V: b        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);
% Q( i1 |1 U5 D" `       
        rows:=0;
        lines:=0;
" t" E8 b# J# `& Y0 o, |; A) O        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
& a! D/ y0 Y* K. I4 y% X                        if j=i then
                                d_from_to_chart[j,i]:=0;
; K: X% ^$ Z3 E5 u                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- R3 A  A# s4 {" t8 V* e                                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);
) o0 y/ C- Y2 H9 c                        end;
! t) P0 u; R( c+ x1 J                next;
        next;
       
* \6 s: x: b2 F0 b! X$ ^' A        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ h, {0 s" x+ ?8 A: `( X1 Y                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
7 _' @: ?) o. q" N% U. X                        if w_from_to_chart[j,rows]>0 then
- ^2 ]" c/ J0 H                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
) J/ v0 U5 P' E: I! a/ m: ?                        partstable[3,lines]:=sprint("parts");
9 N  P3 J0 B% D& t( A                        partstable[5,lines]:=rows;
% j2 L' \% B  m6 K4 a                        partstable[6,lines]:=j;
" a' n: P1 ^. u: z, |+ b                end;
        next;
" e/ X% }2 h  i+ |+ ]7 ~8 _        machinename:=sprint("M",rows);
5 g4 B4 b) P1 f0 J( a) }        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]);
  _& O% p$ c: n& A        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ H/ M" p/ c: o7 b       
        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]);
" l. P2 @4 m1 c/ _5 k/ u$ N! {        buf.name:=bufname;
2 b" a1 D. `) O. @! A0 c) B        buf.capacity:=5000;
        buf.proctime:=0;
$ `' |8 g6 R( H% S5 u4 H        .materialflow.connector.connect(buf,machine);
2 ^+ d5 e! y" M. c" ]; v       
! ^3 e' @  c$ Q5 u        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);
next;
; c9 G, s; \/ ~/ B; s( Fend;
7 E. F- {- K2 e/ t. ]! [) |1 N