$ od -c -N 50000 [Indigo]<Loops>RELEASE>27-SEP-83>LOOPSMETHODS.DCOM!1
0000000 ( F I L E C R E A T E D " 2 0
0000020 - S E P - 8 3 1 2 : 0 7 : 2 5
0000040 " ( " c o m p i l e d o n
0000060 " { I N D I G O } < L O O P S
0000100 > S O U R C E S > L O O P S M E
0000120 T H O D S . ; 8 ) \r " 1 4 - S
0000140 E P - 8 3 1 9 : 3 3 : 3 6 "
0000160 r e c o m p i l e d e x p r s
0000200 : A p p l y M e t h o d A p
0000220 p l y M e t h o d I n T t y P r
0000240 o c e s s D o F r i n g e M e
0000260 t h o d s D o M e t h o d \r
0000300 _ S u p e r F r i n g e F i n
0000320 d L o c a l M e t h o d F i n
0000340 d S e l e c t o r I n d e x F
0000360 i x @ $ F e t c h M e t h o d
0000400 F e t c h M e t h o d O r H e
0000420 l p G e t C a l l e r C l a s
0000440 s \r G e t N t h M e t h o d
0000460 G e t S u p e r M e t h o d P
0000500 u t M e t h o d N t h _ _ !
0000520 _ S u p e r _ _ D C M i
0000540 n W O R K d a t e d " 1 4
0000560 - S E P - 8 3 1 9 : 4 6 : 3 8
0000600 " ) \r ( F I L E C R E A T E D
0000620 " 2 0 - S E P - 8 3 1 2 : 0 7
0000640 : 0 2 " { I N D I G O } < L O
0000660 O P S > S O U R C E S > L O O P
0000700 S M E T H O D S . ; 8 2 2 3 7
0000720 7 c h a n g e s t o : ( M
0000740 A C R O S \r M e n u G e t O r
0000760 C r e a t e ) p r e v i o u s
0001000 d a t e : " 1 0 - J U N - 8
0001020 3 1 4 : 4 4 : 1 5 " { I N D
0001040 I G O } < L O O P S > S O U R C
0001060 E S > L O O P S M E T H O D S .
0001100 ; 7 ) \r A p p l y M e t h o d
0001120 D 1 \r ( P 0 c l a s s F o r
0001140 M e t h o d I 3 c l a s s
0001160 I 2 a r g L i s t I 1
0001200 s e l e c t o r I 0 o b
0001220 j e c t ) \0 \ 005 \0 \0 004 021 001 C
0001240 265 005 @ 311 \0 Y 021 ! 004 I d 004 ` \0 \0 360
0001260 243 277 h 260 037 006 \0 \0 311 022 274 A J 006 \0 \0
0001300 311 030 265 005 277 h 202 \n \0 \0 [ 262 " J K \n
0001320 \0 \0 022 265 023 A o \0 \0 \0 C 265 005 @ 311 \0
0001340 \n \0 \0 \n \0 \0 @ B 032 \n \0 \0 020 L 001 L
0001360 002 274 Z 264 337 260 306 \0 ( 1 1 7 Q A P
0001400 P L Y 1 1 1 Q E R R O R 1
0001420 0 6 Q C O N C A T 6 5 Q G
0001440 e t N t h M e t h o d 5 5 Q
0001460 \ F i n d E n t r y I n d e x )
0001500 \r ( 4 3 Q c l a s s 3 3 Q
0001520 c l a s s 2 2 Q 004 003 c l a s
0001540 s T Y P E # ) \r ( 7 5 Q " n o
0001560 t a s e l e c t o r i n
0001600 " ) \r A p p l y M e t h o d I n
0001620 T t y P r o c e s s D 1 \r ( I
0001640 4 w a i t F l g I 3 c
0001660 l a s s I 2 a r g L i s t
0001700 I 1 s e l e c t o r I
0001720 0 o b j e c t ) \0 037 \0 \0 \0 005
0001740 g \0 \0 @ g \0 \0 A h 032 032 g \0 \0 B h
0001760 032 032 C h 032 032 032 032 032 D \n \0 \0 020 \0 (
0002000 3 4 Q E V A L . I N . T T Y .
0002020 P R O C E S S ) \r ( 1 5 Q Q U
0002040 O T E 6 Q U O T E 2 A p
0002060 p l y M e t h o d ) \r N I L \r D
0002100 o F r i n g e M e t h o d s D
0002120 1 \r ( I 0 o b j % s e l e
0002140 c t o r % . . a r g s ) \0 347
0002160 \v \0 003 001 021 0 002 @ 260 024 d 001 \t \0 \0 270
0002200 I 265 \a H h 032 Z 201 H & 271 002 003 265 355 J
0002220 022 021 A 004 H 001 Z H 002 001 Y J H 002 002 032
0002240 X J d 004 ` \0 \0 360 246 d 004 ` \0 \0 360 222
0002260 311 \0 202 \t \0 \0 [ d 021 ! \a K d 004 ` \0
0002300 \0 360 243 277 h 260 ! 006 \0 \0 311 022 _ 016 277 I
0002320 M 006 \0 \0 311 030 265 005 277 h 202 \n \0 \0 ^ 262
0002340 031 M N \n \0 \0 022 265 \n K 006 \0 \0 311 036 260
0002360 P H \n \0 \0 277 260 L O 016 001 O 016 002 _ 016
0002400 277 ] 264 344 260 313 d 001 \ 021 ! \n L d 004 `
0002420 \0 \0 360 243 277 h 260 % 006 \0 \0 311 022 _ 024 277
0002440 I O 020 006 \0 \0 311 030 265 005 277 h 202 \n \0 \0
0002460 _ 022 262 031 O 020 O 022 \n \0 \0 022 265 \b 002 003
0002500 265 306 h 020 H \n \0 \0 277 260 365 O 024 001 O 024
0002520 002 _ 024 277 _ 020 264 345 260 310 \0 ( 3 2 3 Q
0002540 A P P L Y 3 0 6 Q G e t N
0002560 t h M e t h o d 2 7 3 Q \ F
0002600 i n d E n t r y I n d e x 2 0
0002620 0 Q A P P L Y 1 6 1 Q G e
0002640 t N t h M e t h o d 1 5 1 Q
0002660 \ F i n d E n t r y I n d e x
0002700 1 0 1 Q G e t L i s p C l a s
0002720 s 1 2 Q E V A L ) \r ( 2 6 1
0002740 Q c l a s s 2 4 6 Q c l a
0002760 s s 2 3 5 Q 004 003 c l a s s T
0003000 Y P E # 1 7 0 Q c l a s s
0003020 1 3 7 Q c l a s s 1 2 5 Q
0003040 c l a s s 1 1 4 Q 004 003 c l a
0003060 s s T Y P E # 7 1 Q 004 003 c l
0003100 a s s T Y P E # 6 2 Q 004 003 i
0003120 n s t a n c e T Y P E # ) \r N I
0003140 L \r D o M e t h o d D 1 \r ( L
0003160 ( 0 o b j % s e l e c t o
0003200 r % c l a s s % . . a r g s
0003220 ) P 0 c l a s s F o r M e
0003240 t h o d ) \0 273 \b \0 003 001 021 P 004 021
0003260 0 \a @ 260 025 d 001 \t \0 \0 275 N 265 \b M h
0003300 032 _ 016 201 M & 276 002 003 265 354 O 016 022 Y d
0003320 001 I 002 271 Z I 002 001 265 032 d d 004 ` \0 \0
0003340 360 250 277 d 004 ` \0 \0 360 223 J 311 \0 203 J \t
0003360 \0 \0 I 001 274 [ 021 ! \a K d 004 ` \0 \0 360
0003400 243 277 h 260 ! 006 \0 \0 311 022 _ 016 277 L M 006
0003420 \0 \0 311 030 265 005 277 h 202 \n \0 \0 ^ 262 ) M
0003440 N \n \0 \0 022 265 8 I 001 o \0 \0 \0 I 002 001
0003460 265 ' J d 004 ` \0 \0 360 247 d 004 ` \0 \0 360
0003500 262 024 311 \0 260 023 O 016 001 O 016 002 _ 016 277 ]
0003520 264 324 260 273 \t \0 \0 \n \0 \0 \n \0 \0 J I 002
0003540 002 032 \n \0 \0 020 \0 ( 2 7 0 Q A P P
0003560 L Y 2 6 0 Q E R R O R 2 5
0003600 5 Q C O N C A T 2 5 2 Q G
0003620 e t L i s p C l a s s 1 6 7 Q
0003640 G e t N t h M e t h o d 1 5
0003660 7 Q \ F i n d E n t r y I n d
0003700 e x 1 0 5 Q G e t L i s p C
0003720 l a s s 1 5 Q E V A L ) \r (
0003740 2 2 2 Q 004 003 c l a s s T Y P E
0003760 # 2 1 3 Q 004 003 i n s t a n c
0004000 e T Y P E # 1 4 5 Q c l a s
0004020 s 1 3 3 Q c l a s s 1 2 2
0004040 Q 004 003 c l a s s T Y P E # 7
0004060 3 Q 004 003 c l a s s T Y P E #
0004100 6 3 Q 004 003 i n s t a n c e T Y
0004120 P E # ) \r ( 2 0 0 Q " n o t
0004140 a s e l e c t o r f o r "
0004160 ) \r _ S u p e r F r i n g e D
0004200 1 \r ( I 0 o b j % s e l e
0004220 c t o r % . . a r g s ) \0 212
0004240 \a \0 003 001 021 @ 003 @ 001 \t \0 \0 X @ 002 001
0004260 Y 021 0 006 @ 002 260 023 d 001 \t \0 \0 274 M 265
0004300 \a L h 032 ^ 201 L & 275 002 003 265 355 N 022 Z
0004320 H J 032 Z H I g \0 \0 \v \0 \0 d 006 \0 \0
0004340 311 036 260 5 d 001 [ 021 ! 006 K d 004 ` \0 \0
0004360 360 243 277 h 260 037 006 \0 \0 311 022 276 I L 006 \0
0004400 \0 311 030 265 005 277 h 202 \n \0 \0 ] 262 027 L M
0004420 \n \0 \0 022 265 \b 002 003 265 314 h 020 J \n \0 \0
0004440 277 260 365 N 001 N 002 276 \ 264 352 260 321 \0 ( 1
0004460 7 3 Q A P P L Y 1 5 6 Q G
0004500 e t N t h M e t h o d 1 4 6 Q
0004520 \ F i n d E n t r y I n d e x
0004540 6 7 Q G e t C a l l e r C l
0004560 a s s 3 0 Q E V A L 7 E
0004600 V A L ) \r ( 1 3 4 Q c l a s s
0004620 1 2 4 Q c l a s s 1 1 3 Q
0004640 004 003 c l a s s T Y P E # 7 3
0004660 Q c l a s s 6 4 Q _ S u p
0004700 e r F r i n g e ) \r N I L \r F i
0004720 n d L o c a l M e t h o d D 1
0004740 \r ( P 0 i n d e x I 1
0004760 s e l e c t o r I 0 c l a
0005000 s s ) \0 034 001 \0 \0 002 A @ 006 \0 \0 311
0005020 030 265 005 277 h 202 \n \0 \0 021 001 \0 H 264 \a @
0005040 H \n \0 \0 020 \0 ( 3 1 Q G e t N t
0005060 h M e t h o d 1 6 Q \ F i n
0005100 d E n t r y I n d e x ) \r ( 4
0005120 c l a s s ) \r N I L \r F i n d S
0005140 e l e c t o r I n d e x D 1 \r
0005160 ( I 1 s e l e c t o r I
0005200 0 c l a s s ) \0 017 \0 \0 \0 002 A
0005220 @ 006 \0 \0 311 030 d 240 020 \n \0 \0 020 \0 ( 1
0005240 4 Q \ F i n d E n t r y I n d
0005260 e x ) \r ( 4 c l a s s ) \r N I
0005300 L \r F i x @ $ D 1 \r ( P 2
0005320 A T O M P 1 F O R M P
0005340 0 F I R S T C H A R I 1
0005360 t a i l I 0 a t o m ) \0
0005400 M 003 \0 \0 002 @ k \n \0 \0 021 ! 002 H g \0
0005420 \0 360 246 H g \0 \0 360 262 " @ l 002 \n \0 \0
0005440 Z 235 H J h 032 032 271 A 003 236 A I 030 277 211
0005460 H g \0 \0 360 223 A 003 265 004 I 020 001 003 262 374
0005500 H A 001 032 271 A I 030 277 A d 002 002 031 277 260
0005520 353 \0 ( 3 2 Q S U B A T O M 4
0005540 N T H C H A R ) \r ( 5 6 Q @
0005560 2 1 Q @ 1 3 Q $ ) \r N I
0005600 L \r F e t c h M e t h o d D 1
0005620 \r ( P 2 s u p e r s P 1
0005640 i n d e x P 0 c l a s s
0005660 I 1 s e l e c t o r I
0005700 0 c l a s s R e c ) \0 6 003 \0
0005720 \0 002 @ 021 ! 002 @ d 004 ` \0 \0 360 241 h 020
0005740 006 \0 \0 311 022 272 A H 006 \0 \0 311 030 265 005 277
0005760 h 202 \n \0 \0 Y 225 H I \n \0 \0 020 J 001 J
0006000 002 272 X 264 371 260 341 \0 ( 5 1 Q G e t
0006020 N t h M e t h o d 4 2 Q \ F
0006040 i n d E n t r y I n d e x ) \r (
0006060 3 0 Q c l a s s 2 0 Q c l
0006100 a s s 1 1 Q 004 003 c l a s s T
0006120 Y P E # ) \r N I L \r F e t c h M
0006140 e t h o d O r H e l p D 1 \r (
0006160 P 1 0 Q o b j % P 7
0006200 s u p e r s P 6 i n d e x
0006220 P 5 c l a s s P 0 c
0006240 l a s s I 1 s e l e c t o
0006260 r I 0 s e l f ) 001 L \f \0
0006300 \0 002 021 P 004 @ d 004 ` \0 \0 360 246 d 004 `
0006320 \0 \0 360 222 311 \0 202 \t \0 \0 270 H 242 261 \0 301
0006340 H 021 ! \a M d 004 ` \0 \0 360 243 277 h 260 !
0006360 006 \0 \0 311 022 _ 016 277 A M 006 \0 \0 311 030 265
0006400 005 277 h 202 \n \0 \0 ^ 262 037 M N \n \0 \0 022
0006420 265 003 202 261 \0 352 H 021 ! \a M d 004 ` \0 \0
0006440 360 263 024 277 h 260 1 O 016 001 O 016 002 _ 016 277
0006460 ] 264 336 260 305 006 \0 \0 311 022 _ 016 277 g \0 \0
0006500 M 006 \0 \0 311 030 265 005 277 h 202 \n \0 \0 ^ 262
0006520 ! M N \n \0 \0 022 262 ' @ Z g \0 \0 \n \0
0006540 \0 271 J A l 002 I 017 016 b 002 262 023 261 377 n
0006560 O 016 001 O 016 002 _ 016 277 ] 264 334 260 301 g \0
0006600 \0 A g \0 \0 360 223 g \0 \0 200 @ A g \0 \0
0006620 h 032 032 032 032 o \0 \0 \0 \n \0 \0 265 a @ 021
0006640 001 \b ` \0 \0 265 006 O 020 311 \0 [ 021 ! \v K
0006660 d 004 ` \0 \0 360 243 277 h 260 ' 006 \0 \0 311 022
0006700 _ 026 277 g \0 \0 O 022 006 \0 \0 311 030 265 005 277
0006720 h 202 \n \0 \0 _ 024 262 ' O 022 O 024 \n \0 \0
0006740 022 265 \f g \0 \0 o \0 \0 \0 \n \0 \0 274 O 020
0006760 A l 002 L 017 016 022 027 \0 \0 g \0 \0 020 O 026
0007000 001 O 026 002 _ 026 277 _ 022 264 327 260 270 \0 ( 4
0007020 5 2 Q E R R O R 4 3 5 Q G
0007040 e t N t h M e t h o d 4 2 2 Q
0007060 \ F i n d E n t r y I n d e x
0007100 3 3 1 Q H E L P 2 3 6 Q
0007120 F e t c h M e t h o d O r H e l
0007140 p 2 2 3 Q G e t N t h M e t
0007160 h o d 2 1 3 Q \ F i n d E n
0007200 t r y I n d e x 1 1 4 Q G e
0007220 t N t h M e t h o d 1 0 4 Q
0007240 \ F i n d E n t r y I n d e x
0007260 2 7 Q G e t L i s p C l a s s
0007300 ) \r ( 4 7 2 Q G e t L a s t D
0007320 e f a u l t V a l u e 4 6 7 Q
0007340 L a s t D e f a u l t V a l u
0007360 e 4 4 3 Q N o O b j e c t F
0007400 o r M s g 4 1 0 Q c l a s s
0007420 4 0 3 Q N o O b j e c t F o
0007440 r M s g 3 7 3 Q c l a s s
0007460 3 6 2 Q 004 003 c l a s s T Y P E
0007500 # 3 4 2 Q D e f a u l t O b
0007520 j e c t 3 1 5 Q - - 3 0 7
0007540 Q * * * 3 0 2 Q P r i n t
0007560 O n 2 7 6 Q _ 2 3 3 Q M
0007600 e s s a g e N o t U n d e r s t
0007620 o o d 2 0 1 Q c l a s s 1
0007640 7 5 Q M e s s a g e N o t U n
0007660 d e r s t o o d 1 6 5 Q c l
0007700 a s s 1 3 5 Q 004 003 c l a s s
0007720 T Y P E # 7 2 Q c l a s s
0007740 6 0 Q c l a s s 4 7 Q 004 003
0007760 c l a s s T Y P E # 1 7 Q 004
0010000 003 c l a s s T Y P E # 1 0 Q
0010020 004 003 i n s t a n c e T Y P E # )
0010040 \r ( 4 4 7 Q " n o t f o u n
0010060 d f o r D o M e t h o d "
0010100 3 2 6 Q " n o t u n d e r s
0010120 t o o d " ) \r G e t C a l l e r
0010140 C l a s s D 1 \r ( P 5 s t
0010160 k P o s P 4 s u p e r s L
0010200 i s t P 3 i n d e x P
0010220 2 f n P 1 c l a s s P
0010240 0 c a l l e r N a m e I
0010260 2 f r o m C a l l e r I 1
0010300 s e l e c t o r I 0 o b
0010320 j e c t ) \0 q 006 \0 \0 003 B 021 Q 005
0010340 m 377 M 265 003 H h M \f \0 \0 ] 265 026 A o
0010360 \0 \0 \0 B 265 006 o \0 \0 \0 \n \0 \0 \n \0 \0
0010400 277 M \t \0 \0 270 @ d 004 ` \0 \0 360 246 d 004
0010420 ` \0 \0 360 222 311 \0 202 \t \0 \0 Y 006 \0 \0 311
0010440 022 274 A I 006 \0 \0 311 030 265 005 277 h 202 \n \0
0010460 \0 [ 236 H I K \n \0 \0 Z 360 225 M \t \0 \0
0010500 I 020 L 001 L 002 274 Y 262 230 260 330 \0 ( 1 4
0010520 3 Q R E L S T K 1 3 4 Q G
0010540 e t N t h M e t h o d 1 2 4 Q
0010560 \ F i n d E n t r y I n d e x
0010600 7 6 Q G e t L i s p C l a s
0010620 s 5 0 Q S T K N A M E 4 3
0010640 Q H E L P 4 0 Q C O N C A
0010660 T 1 6 Q R E A L S T K N T H
0010700 ) \r ( 1 1 2 Q c l a s s 1 0
0010720 2 Q c l a s s 6 6 Q 004 003 c
0010740 l a s s T Y P E # 5 7 Q 004 003
0010760 i n s t a n c e T Y P E # ) \r (
0011000 3 5 Q " _ S u p e r " 2 6 Q
0011020 " N o c a l l e r f o u n
0011040 d i n " ) \r G e t N t h M e
0011060 t h o d D 1 \r ( P 0 m e t
0011100 h s I 1 n I 0 c l a
0011120 s s ) \0 033 001 \0 \0 002 @ 006 \0 \0 311 032
0011140 021 001 \0 H d 003 227 A k 330 \n \0 \0 001 020 A
0011160 320 311 \0 020 \0 ( 2 2 Q F N T H ) \r
0011200 ( 3 c l a s s ) \r N I L \r G e
0011220 t S u p e r M e t h o d D 1 \r
0011240 ( P 5 s t k P o s P 4
0011260 c l a s s P 3 s u p e r s
0011300 L i s t P 2 f l g P 1
0011320 f n P 0 i n d e x I
0011340 2 c a l l e r N a m e I 1
0011360 s e l e c t o r I 0 o b
0011400 j e c t ) \0 206 006 \0 \0 003 021 ` 005 B
0011420 263 * g \0 \0 b 004 277 m 377 M 265 003 B h M
0011440 \f \0 \0 ] d 255 \t \0 \0 277 o \0 \0 \0 A \n
0011460 \0 \0 277 M \t \0 \0 b 004 277 @ d 004 ` \0 \0
0011500 360 246 d 004 ` \0 \0 360 222 311 \0 202 \t \0 \0 \
0011520 006 \0 \0 311 022 273 A L 006 \0 \0 311 030 265 005 277
0011540 h 202 \n \0 \0 X 232 B L H \n \0 \0 Y 360 232
0011560 i 272 K 001 K 002 273 \ 232 260 335 J 262 366 M \t
0011600 \0 \0 I 020 J 262 223 A o \0 \0 \0 \n \0 \0 h
0011620 020 \0 ( 2 0 2 Q H E L P 1 6 5
0011640 Q R E L S T K 1 4 0 Q G e
0011660 t N t h M e t h o d 1 3 0 Q
0011700 \ F i n d E n t r y I n d e x
0011720 1 0 2 Q G e t L i s p C l a s
0011740 s 5 2 Q S T K N A M E 4 5
0011760 Q H E L P 3 4 Q R E L S T
0012000 K 2 6 Q R E A L S T K N T H
0012020 ) \r ( 1 1 6 Q c l a s s 1 0
0012040 6 Q c l a s s 7 2 Q 004 003 c
0012060 l a s s T Y P E # 6 3 Q 004 003
0012100 i n s t a n c e T Y P E # 1 0
0012120 Q G e t S u p e r M e t h o d
0012140 ) \r ( 1 7 7 Q " n o t u n d
0012160 e r s t o o d i n _ S u p e
0012200 r " 4 1 Q " N o c a l l e
0012220 r f o u n d i n _ S u p e
0012240 r f o r : \r " ) \r P u t M e t
0012260 h o d N t h D 1 \r ( P 0 m
0012300 e t h s I 2 f n I 1
0012320 n I 0 c l a s s ) \0 * 001
0012340 \0 \0 003 @ 006 \0 \0 311 032 021 001 \0 H 265 \v @
0012360 o \0 \0 \0 \n \0 \0 020 003 231 H A k 330 \n \0
0012400 \0 B 030 020 H A 320 B 024 \0 B 020 \0 ( 3 5
0012420 Q F N T H 2 3 Q E R R O R
0012440 ) \r ( 3 c l a s s ) \r ( 2 0 Q
0012460 " n o m e t h o d s i n
0012500 c l a s s " ) \r _ D 1 \r ( I
0012520 0 o b j e c t % s e l e c t
0012540 o r % . . a r g s ) \0 i 005 \0
0012560 003 001 @ 001 021 021 001 H d 004 l 004 360 262 # d
0012600 - g \0 \0 360 262 033 277 H @ \n \0 \0 \t \0 \0
0012620 265 023 o \0 \0 \0 H \n \0 \0 277 H \t \0 \0 202
0012640 \t \0 \0 Y 265 \f H o \0 \0 \0 \n \0 \0 277 I
0012660 @ 002 001 \n \0 \0 I 021 0 004 @ 002 260 023 d 001
0012700 \t \0 \0 272 K 265 \a J h 032 \ 201 J & 273 002
0012720 003 265 355 L 022 032 \n \0 \0 020 \0 ( 1 4 6 Q
0012740 A P P L Y 1 2 0 Q E V A L
0012760 1 0 3 Q F e t c h M e t h o
0013000 d O r H e l p 7 3 Q E R R O
0013020 R 6 0 Q E V A L 5 4 Q G
0013040 e t O b j e c t R e c 4 7 Q
0013060 W R I T E 3 5 Q E V A L 3
0013100 2 Q F i x @ $ ) \r ( 2 1 Q N
0013120 O B I N D ) \r ( 7 0 Q " i s
0013140 N I L . " 4 3 Q " U s i n g
0013160 $ " ) \r _ ! D 1 \r ( P 2
0013200 c l a s s F o r M e t h o d P
0013220 1 o b j e c t ^ P 0 o
0013240 b j F o r m I 0 o b j e c
0013260 t % s e l e c t o r % . . a
0013300 r g s ) \0 e 006 \0 003 001 @ 001 021 021 001
0013320 H d 004 l 004 360 262 032 - Y d g \0 \0 360 262
0013340 025 277 o \0 \0 \0 H \n \0 \0 277 H \t \0 \0 202
0013360 \t \0 \0 Y 250 H o \0 \0 \0 \n \0 \0 277 021 020
0013400 002 I @ 002 001 \t \0 \0 \n \0 \0 I 021 0 005 @
0013420 002 260 023 d 001 \t \0 \0 273 L 265 \a K h 032 ]
0013440 201 K & 274 002 003 265 355 M 022 032 \n \0 \0 020 \0
0013460 ( 1 4 2 Q A P P L Y 1 1 4 Q
0013500 E V A L 7 7 Q F e t c h M
0013520 e t h o d O r H e l p 7 4 Q
0013540 E V A L 6 1 Q E R R O R 4
0013560 7 Q E V A L 4 3 Q G e t O
0013600 b j e c t R e c 3 6 Q W R I
0013620 T E ) \r ( 2 2 Q N O B I N D )
0013640 \r ( 5 6 Q " i s N I L . "
0013660 3 2 Q " U s i n g $ " ) \r _
0013700 S u p e r D 1 \r ( I 0 F O
0013720 R M @ ) \0 G 004 \0 003 001 m 377 g \0 \0
0013740 \n \0 \0 @ 001 \t \0 \0 @ 002 001 021 0 002 @ 002
0013760 260 023 d 001 \t \0 \0 270 I 265 \a H h 032 Z 201
0014000 H & 271 002 003 265 355 J 022 021 004 003 I J H \t
0014020 \0 \0 H \t \0 \0 277 \v \0 \0 I K 032 \n \0 \0
0014040 020 \0 ( 1 0 4 Q A P P L Y 7 6
0014060 Q G e t S u p e r M e t h o d
0014100 7 2 Q R E L S T K 6 6 Q
0014120 S T K N A M E 3 3 Q E V A L
0014140 1 4 Q E V A L 7 R E A L
0014160 S T K N T H ) \r ( 4 _ S u p e
0014200 r ) \r N I L \r _ _ D 1 \r ( P
0014220 2 o b j P 1 c l a s s F
0014240 o r M e t h o d P 0 o b j
0014260 F o r m I 0 S E N D % F
0014300 O R M ) \0 E 006 \0 003 001 @ 001 021 ! 002
0014320 H d 004 l 004 360 235 - Z d g \0 \0 360 231 277
0014340 H \t \0 \0 202 \t \0 \0 Z @ 002 001 \n \0 \0 J
0014360 021 0 005 @ 002 215 d 001 273 L 265 \a K h 032 ]
0014400 201 K & 274 002 003 265 360 M 022 032 \n \0 \0 020 \0
0014420 ( 1 0 2 Q A P P L Y 4 3 Q
0014440 F e t c h M e t h o d O r H e l
0014460 p 3 4 Q E V A L 3 0 Q G
0014500 e t O b j e c t R e c ) \r ( 2 1
0014520 Q N O B I N D ) \r N I L \r D C
0014540 M D 1 \r ( P 0 a r g L i s
0014560 t I 1 s e l e c t o r I
0014600 0 c l a s s N a m e ) \0 K
0014620 001 \0 \0 002 @ \t \0 \0 265 \n @ o \0 \0 \0 \n
0014640 \0 \0 A \n \0 \0 \t \0 \0 021 001 \0 @ A H d
0014660 002 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0014700 A h 032 032 032 032 032 g \0 \0 g \0 \0 A g \0
0014720 \0 032 032 032 h 032 032 \v \0 \0 \f \0 \0 020 \0 (
0014740 1 1 0 Q D M 1 0 5 Q S U B
0014760 S T 2 4 Q A R G L I S T 2
0015000 1 Q G e t M e t h o d 1 5 Q
0015020 E R R O R 3 G e t C l a s
0015040 s R e c ) \r ( 7 4 Q a r g L
0015060 7 0 Q s e l f 6 5 Q _ S u
0015100 p e r F r i n g e 5 3 Q f o
0015120 r 5 0 Q m e t h o d 4 5 Q
0015140 C o m b i n e d 4 2 Q *
0015160 3 7 Q a r g L ) \r ( 1 2 Q "
0015200 n o t a d e f i n e d c l
0015220 a s s " ) \r ( P R E T T Y C O M
0015240 P R I N T L O O P S M E T H O
0015260 D S C O M S ) \r ( R P A Q Q L
0015300 O O P S M E T H O D S C O M S
0015320 ( ( * C o p y r i g h t ( c
0015340 ) 1 9 8 3 b y X e r o x
0015360 C o r p o r a t i o n ) ( M A
0015400 C R O S * M E T H O D M A C
0015420 R O S ) ( M A C R O S * \r
0015440 O T H E R L O O P S M A C R O S
0015460 ) ( F N S * M E T H O D S
0015500 F N S ) ( P ( M O V D ( Q
0015520 U O T E _ ) ( Q U O T E S
0015540 E N D ) ) ) ( P ( A D D T O
0015560 V A R N L A M A _ _ _ S u
0015600 p e r \r _ ! _ _ S u p e r
0015620 F r i n g e D o M e t h o d
0015640 D o F r i n g e M e t h o d s )
0015660 ) ( D E C L A R E : D O N T
0015700 E V A L @ L O A D D O E V A L
0015720 @ C O M P I L E D O N T C O P
0015740 Y \r C O M P I L E R V A R S
0015760 ( A D D V A R S ( N L A M A
0016000 _ _ _ S u p e r _ ! _ _
0016020 S u p e r F r i n g e D o M e
0016040 t h o d D o F r i n g e M e t
0016060 h o d s ) ( N L A M L ) ( L
0016100 A M A ) ) ) ) ) \r ( R P A Q Q
0016120 M E T H O D M A C R O S ( A V
0016140 A p p l y * D O A P P L Y *
0016160 D o M e t h o d F e t c h M e
0016200 t h o d F i n d S e l e c t o
0016220 r I n d e x M a p S u p e r s
0016240 F o r m ? S E N D \r S E N D
0016260 S U P E R _ _ ! _ N e w
0016300 _ S u p e r _ T r y ) ) \r ( P
0016320 U T P R O P S A V A p p l y *
0016340 M A C R O ( ( F R S T .
0016360 R E S T ) ( C O N D ( ( L I
0016400 S T P F R S T ) ( E V A L
0016420 F R S T ) ) ( T ( D O A P P
0016440 L Y * F R S T . R E S T )
0016460 ) ) ) ) \r ( P U T P R O P S D
0016500 O A P P L Y * M A C R O ( a
0016520 r g ( C O N S ( Q U O T E
0016540 A P P L Y * ) a r g ) ) ) \r (
0016560 P U T P R O P S D o M e t h o
0016600 d M A C R O ( ( o b j a c
0016620 t i o n c l a s s . a r g
0016640 s ) ( P R O G ( ( o b j %
0016660 o b j ) ) ( R E T U R N (
0016700 D O A P P L Y * ( O R ( \r F
0016720 e t c h M e t h o d ( O R c
0016740 l a s s ( f e t c h C L A S
0016760 S o f o b j % ) ) a c t
0017000 i o n ) ( E R R O R a c t i
0017020 o n " n o t f o u n d f o
0017040 r D o M e t h o d " ) ) o b
0017060 j % \r . a r g s ) ) ) ) )
0017100 \r ( P U T P R O P S F e t c h
0017120 M e t h o d M A C R O ( O P
0017140 E N L A M B D A ( c l a s s R
0017160 e c s e l e c t o r ) ( *
0017200 d g b : " 9 - J U N - 8 3
0017220 2 2 : 2 7 " ) ( * R e t u r
0017240 n s t h e \r f u n c t i o n
0017260 f o r s e l e c t o r o r
0017300 N I L ) ( P R O G ( i n d
0017320 e x s u p e r s ( c l a s s
0017340 c l a s s R e c ) ) ( O R
0017360 ( t y p e ? c l a s s c l a
0017400 s s R e c ) ( R E T U R N \r )
0017420 ) ( S E T Q s u p e r s (
0017440 f e t c h s u p e r s o f
0017460 c l a s s R e c ) ) L P ( C
0017500 O N D ( ( S E T Q i n d e x
0017520 ( F i n d S e l e c t o r I n
0017540 d e x c l a s s s e l e c t
0017560 o r ) ) \r ( R E T U R N ( G
0017600 e t N t h M e t h o d c l a s
0017620 s i n d e x ) ) ) ( ( S E T
0017640 Q c l a s s ( p o p s u p
0017660 e r s ) ) ( G O L P ) ) (
0017700 T ( R E T U R N N I L ) ) )
0017720 ) ) ) \r ( P U T P R O P S F i
0017740 n d S e l e c t o r I n d e x
0017760 M A C R O ( O P E N L A M B D
0020000 A ( c l a s s s e l e c t o
0020020 r ) ( P R O G N I L ( *
0020040 P r o g i s o n l y s o
0020060 o n e c a n \r b o m b o u
0020100 t i n c a s e o f N I L
0020120 s e l e c t o r s o f c l
0020140 a s s ) ( R E T U R N ( \ F
0020160 i n d E n t r y I n d e x s e
0020200 l e c t o r ( O R ( f e t c
0020220 h s e l e c t o r s o f \r
0020240 c l a s s ) ( R E T U R N ) )
0020260 ) ) ) ) ) \r ( P U T P R O P S
0020300 M a p S u p e r s F o r m ? M
0020320 A C R O ( ( m a p p i n g F o
0020340 r m c l a s s R e c . p r
0020360 o g A r g s ) ( * d g b :
0020400 " 1 2 - J A N - 8 2 1 4 : 5 5
0020420 " ) ( * M a p s \r t h r o
0020440 u g h a c l a s s a n d
0020460 i t s s u p e r s i n o r
0020500 d e r . R e t u r n s i f
0020520 f o r m h a s r e t u r n
0020540 s t a t e m e n t , o r N I
0020560 L w h e n f i n i s h e d
0020600 % . \r f o r m c a n u s e
0020620 c l a s s a s f r e e v
0020640 a r i a b l e ) ( P R O G (
0020660 s u p e r s ( c l a s s c l
0020700 a s s R e c ) . p r o g A r
0020720 g s ) ( C O N D ( ( N U L L
0020740 c l a s s ) ( \r R E T U R N
0020760 N I L ) ) ) ( S E T Q s u
0021000 p e r s ( S u p e r s c l a
0021020 s s ) ) L P m a p p i n g F
0021040 o r m ( * t h i s i s w
0021060 h e r e t h e s u b s t i t
0021100 u t i o n g o e s ) O N (
0021120 \r C O N D ( ( S E T Q c l a
0021140 s s ( p o p s u p e r s ) )
0021160 ( * I f t h e r e i s
0021200 a S u p e r , i t e r a t e
0021220 a r o u n d t h e L o o p
0021240 ) ( G O L P ) ) ) ( * R
0021260 e t u r n s \r N o t S e t V a
0021300 l u e i f n o t f o u n d
0021320 ) ( R E T U R N N o t S e t
0021340 V a l u e ) ) ) ) \r ( P U T P R
0021360 O P S S E N D M A C R O (
0021400 ( o b j a c t i o n . a r
0021420 g s ) ( _ o b j a c t i o
0021440 n . a r g s ) ) ) \r ( P U T
0021460 P R O P S S E N D S U P E R
0021500 M A C R O ( ( o b j a c t i
0021520 o n . a r g s ) ( _ S u p
0021540 e r o b j a c t i o n .
0021560 a r g s ) ) ) \r ( P U T P R O P
0021600 S _ M A C R O ( ( o b j
0021620 a c t i o n . a r g s ) (
0021640 P R O G ( ( o B j o b j ) )
0021660 ( D E C L A R E ( L O C A L
0021700 V A R S o B j ) ) ( R E T U
0021720 R N ( D O A P P L Y * ( \r F
0021740 e t c h M e t h o d O r H e l p
0021760 o B j ( Q U O T E a c t i
0022000 o n ) ) o B j . a r g s )
0022020 ) ) ) ) \r ( P U T P R O P S _
0022040 ! M A C R O ( ( o b j a c
0022060 t i o n . a r g s ) ( P R
0022100 O G ( ( o B j o b j ) ) (
0022120 R E T U R N ( P R O G ( c l
0022140 a s s F o r M e t h o d ) ( R
0022160 E T U R N ( \r D O A P P L Y *
0022200 ( F e t c h M e t h o d O r H
0022220 e l p o B j a c t i o n )
0022240 o B j . a r g s ) ) ) ) ) )
0022260 ) \r ( P U T P R O P S _ N e w
0022300 M A C R O ( f o r m ( C O
0022320 N D ( ( N U L L ( C D R f
0022340 o r m ) ) ( L I S T ( Q U O
0022360 T E _ ) ( C A R f o r m )
0022400 ( Q U O T E N e w ) ) ) (
0022420 T ( \r S U B P A I R ( Q U O
0022440 T E ( o b j a c t i o n .
0022460 a r g s ) ) f o r m ( Q U
0022500 O T E ( P R O G ( c l a s s
0022520 F o r M e t h o d ( o b j %
0022540 ( _ o b j N e w ) ) ) (
0022560 D O A P P L Y * ( \r F e t c h
0022600 M e t h o d O r H e l p o b j
0022620 % ( Q U O T E a c t i o n
0022640 ) ) o b j % . a r g s )
0022660 ( R E T U R N o b j % ) )
0022700 ) ) ) ) ) ) \r ( P U T P R O P S
0022720 _ S u p e r M A C R O ( (
0022740 o b j a c t i o n . a r g
0022760 s ) ( P R O G ( ( o b j %
0023000 o b j ) ) ( D E C L A R E
0023020 ( L O C A L V A R S . T ) )
0023040 ( R E T U R N ( \r D O A P P
0023060 L Y * ( G e t S u p e r M e t
0023100 h o d o b j % ( Q U O T E
0023120 a c t i o n ) ) o b j %
0023140 . a r g s ) ) ) ) ) \r ( P U T
0023160 P R O P S _ T r y M A C R O
0023200 ( ( o b j a c t i o n .
0023220 a r g s ) ( P R O G ( ( o b
0023240 j % o b j ) ) ( R E T U R
0023260 N ( D O A P P L Y * ( O R
0023300 ( F e t c h M e t h o d o b j
0023320 % \r ( Q U O T E a c t i o
0023340 n ) ) ( R E T U R N ( Q U O
0023360 T E N o t S e n t ) ) ) o b
0023400 j % . a r g s ) ) ) ) ) \r
0023420 ( R P A Q Q O T H E R L O O P
0023440 S M A C R O S ( E x t r a c t
0023460 O b j M a p S u p e r s F o r
0023500 m M a p S u p e r s U n l e s
0023520 s B a d L i s t M e n u G e t
0023540 O r C r e a t e \r N e x t S u
0023560 p e r C l a s s ) ) \r ( P U T P
0023600 R O P S E x t r a c t O b j
0023620 M A C R O ( ( d a t u m ) (
0023640 O R ( C A R ( L I S T P d
0023660 a t u m ) ) d a t u m ) ) ) \r
0023700 ( P U T P R O P S M a p S u p
0023720 e r s F o r m M A C R O ( (
0023740 m a p p i n g F o r m c l a s
0023760 s R e c . p r o g A r g s )
0024000 ( * d g b : " 1 2 - J A N
0024020 - 8 2 1 4 : 5 5 " ) ( * M
0024040 a p s \r t h r o u g h a c
0024060 l a s s a n d i t s s u p
0024100 e r s i n o r d e r . R e
0024120 t u r n s i f f o r m h a
0024140 s r e t u r n s t a t e m e
0024160 n t , o r N I L w h e n
0024200 f i n i s h e d % . \r f o r
0024220 m c a n u s e c l a s s
0024240 a s f r e e v a r i a b l e
0024260 ) ( P R O G ( s u p e r s
0024300 ( c l a s s c l a s s R e c )
0024320 . p r o g A r g s ) ( C O
0024340 N D ( ( N U L L c l a s s )
0024360 ( \r R E T U R N N I L ) ) )
0024400 ( S E T Q s u p e r s ( S
0024420 u p e r s c l a s s ) ) L P
0024440 m a p p i n g F o r m ( *
0024460 t h i s i s w h e r e t h
0024500 e s u b s t i t u t i o n g
0024520 o e s ) O N ( \r C O N D (
0024540 ( S E T Q c l a s s ( p o p
0024560 s u p e r s ) ) ( * I f
0024600 t h e r e i s a S u p e r
0024620 , i t e r a t e a r o u n d
0024640 t h e L o o p ) ( G O L
0024660 P ) ) ) ( * R e t u r n s
0024700 \r N I L i f n o t f o u n
0024720 d ) ( R E T U R N N I L ) )
0024740 ) ) \r ( P U T P R O P S M a p
0024760 S u p e r s U n l e s s B a d L
0025000 i s t M A C R O ( ( b a d L
0025020 i s t m a p p i n g F o r m
0025040 c l a s s R e c . p r o g A
0025060 r g s ) ( * d g b : \r " 1
0025100 2 - J A N - 8 2 1 4 : 5 5 " )
0025120 ( * M a p s t h r o u g h
0025140 a c l a s s a n d i t s
0025160 s u p e r s i n o r d e r
0025200 . R e t u r n s i f f o r
0025220 m h a s r e t u r n \r s t
0025240 a t e m e n t , o r N I L
0025260 w h e n f i n i s h e d % .
0025300 f o r m c a n u s e c l
0025320 a s s a s f r e e v a r i
0025340 a b l e ) ( P R O G ( s u p
0025360 e r s ( c l a s s c l a s s
0025400 R e c ) \r . p r o g A r g s
0025420 ) ( C O N D ( ( N U L L c
0025440 l a s s ) ( R E T U R N N I
0025460 L ) ) ) ( S E T Q s u p e r
0025500 s ( S u p e r s c l a s s )
0025520 ) L P ( * S k i p i f
0025540 s u p e r i s o n \r b a d
0025560 L i s t . ) ( O R ( F M E M
0025600 B ( C l a s s N a m e c l a
0025620 s s ) b a d L i s t ) m a p
0025640 p i n g F o r m ) ( * t h i
0025660 s i s w h e r e t h e s
0025700 u b s t i t u t i o n g o e s
0025720 ) \r O N ( C O N D ( ( S E
0025740 T Q c l a s s ( p o p s u
0025760 p e r s ) ) ( G O L P ) ) )
0026000 ( * R e t u r n s N I L
0026020 i f n o t f o u n d ) ( R
0026040 E T U R N N I L ) ) ) ) \r ( P
0026060 U T P R O P S M e n u G e t O
0026100 r C r e a t e M A C R O ( (
0026120 n a m e i t e m s ) ( C O N
0026140 D ( ( t y p e ? M E N U (
0026160 G E T T O P V A L ( Q U O T E
0026200 n a m e ) ) ) n a m e ) (
0026220 T ( \r S E T T O P V A L ( Q
0026240 U O T E n a m e ) ( c r e a
0026260 t e M E N U C H A N G E O F
0026300 F S E T F L G _ T I T E M
0026320 S _ i t e m s ) ) ) ) ) ) \r
0026340 ( P U T P R O P S N e x t S u
0026360 p e r C l a s s M A C R O (
0026400 N I L ( C O N D ( ( S E T Q
0026420 c l a s s ( p o p s u p e
0026440 r s ) ) ( * * T h i s c
0026460 o d e a s s u m e s t h a t
0026500 L P i s \r a d e f i n e
0026520 d P R O G l a b e l a n d
0026540 s u p e r s a n d c l a s
0026560 s a r e b o u n d ) ( *
0026600 I f t h e r e i s a S u
0026620 p e r , i t e r a t e a r o
0026640 u n d t h e L o o p ) \r (
0026660 G O L P ) ) ) ) ) \r ( R P A Q
0026700 Q M E T H O D S F N S ( A p
0026720 p l y M e t h o d A p p l y M
0026740 e t h o d I n T t y P r o c e s
0026760 s D o F r i n g e M e t h o d
0027000 s D o M e t h o d _ S u p e
0027020 r F r i n g e \r F i n d L o c
0027040 a l M e t h o d F i n d S e l
0027060 e c t o r I n d e x F i x @ $
0027100 F e t c h M e t h o d F e t
0027120 c h M e t h o d O r H e l p G
0027140 e t C a l l e r C l a s s G e
0027160 t N t h M e t h o d \r G e t S
0027200 u p e r M e t h o d P u t M e
0027220 t h o d N t h _ _ ! _ S u
0027240 p e r _ _ D C M ) ) \r ( M O
0027260 V D ( Q U O T E _ ) ( Q U
0027300 O T E S E N D ) ) \r ( A D D T
0027320 O V A R N L A M A _ _ _ S
0027340 u p e r _ ! _ _ S u p e r
0027360 F r i n g e D o M e t h o d
0027400 D o F r i n g e M e t h o d s )
0027420 \r N I L \r
0027425