$ od -c -N 50000 [Indigo]<Loops>RELEASE>4-JUL-84>LOOPSPRINT.DCOM!1
0000000 ( F I L E C R E A T E D " 2 6
0000020 - J u n - 8 4 1 4 : 0 2 : 1 6
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 P R
0000120 I N T . ; 1 3 ) \r " 8 - J u
0000140 n - 8 4 1 1 : 1 7 : 2 0 " r
0000160 e c o m p i l e d e x p r s :
0000200 P r t t y I n s t a n c e s
0000220 i n W O R K d a t e d " 2
0000240 2 - J u n - 8 4 1 4 : 0 8 : 4
0000260 0 " ) \r ( F I L E C R E A T E D
0000300 " 2 6 - J u n - 8 4 1 4 : 0
0000320 1 : 3 5 " { I N D I G O } < L
0000340 O O P S > S O U R C E S > L O O
0000360 P S P R I N T . ; 1 3 3 4 8 3
0000400 6 c h a n g e s t o : ( F
0000420 N S \r P r t t y I n s t a n c
0000440 e s ) p r e v i o u s d a t
0000460 e : " 1 9 - J u n - 8 4 1 5
0000500 : 3 3 : 1 3 " { I N D I G O }
0000520 < L O O P S > S O U R C E S > L
0000540 O O P S P R I N T . ; 1 2 ) \r P
0000560 P O b j D 1 \r ( I 0 i n s
0000600 t a n c e F 2 O b j e c t
0000620 A l w a y s P P F l a g F 3
0000640 O b j e c t D o n t P P F l a
0000660 g ) \0 - 002 002 \0 001 R 263 030 S 254 \b \0
0000700 \0 i 360 255 \b \0 \0 \t \0 \0 246 @ \t \0 \0 277
0000720 260 023 @ 021 021 001 H g \0 \0 \n \0 \0 271 H k
0000740 I 017 016 h 020 \0 ( 4 3 Q F e t c h
0000760 M e t h o d O r H e l p 2 5 Q
0001000 P R I N 2 2 0 Q D I S P L
0001020 A Y S T R E A M P 1 5 Q O U
0001040 T P U T 7 O U T P U T ) \r (
0001060 4 0 Q P P ) \r ( ) \r A t M a c
0001100 r o D 1 \r ( P 6 t e m p
0001120 P 5 n e w V a l u e F o r m
0001140 P 4 s t o r e F l g P
0001160 3 p r o p N a m e P 2 v
0001200 a r N a m e P 1 c l a s s
0001220 V a r F l g P 0 o b j N a
0001240 m e I 1 r e a d T a b l e
0001260 I 0 f i l e H a n d l e
0001300 F 7 R E S E T V A R S L S T
0001320 ) \0 257 \a 001 \0 002 g \0 \0 021 a 006 @ \t
0001340 \0 \0 g \0 \0 360 226 i 271 @ \t \0 \0 277 @ A
0001360 \n \0 \0 g \0 \0 360 262 025 @ A \n \0 \0 ^ 001
0001400 270 N 002 001 272 N 002 002 001 [ 260 F @ \t \0 \0
0001420 A \n \0 \0 g \0 \0 360 251 I 223 g \0 \0 020 g
0001440 \0 \0 020 g \0 \0 A \t \0 \0 h 032 032 g \0 \0
0001460 g \0 \0 A \v \0 \0 h 032 032 W 016 032 c 016 277
0001500 @ A \n \0 \0 272 g \0 \0 g \0 \0 A \v \0 \0
0001520 277 @ A \n \0 \0 g \0 \0 360 262 ! @ A \n \0
0001540 \0 277 @ A \n \0 \0 g \0 \0 360 226 @ \t \0 \0
0001560 277 k 200 i 274 @ A \n \0 \0 275 H J K M I
0001600 L \r 006 \0 \0 020 \0 ( 2 5 4 Q A t M
0001620 a c r o C o n s t r u c t 2 4
0001640 1 Q R E A D 2 2 7 Q R E A
0001660 D C 2 1 6 Q P E E K C 2 1
0001700 0 Q R E A D C 1 7 5 Q P E
0001720 E K C 1 6 7 Q S E T S Y N T
0001740 A X 1 5 4 Q R A T O M 1 3
0001760 6 Q S E T S Y N T A X 1 2 1
0002000 Q G E T B R K 7 3 Q G E T
0002020 S Y N T A X 6 7 Q P E E K C
0002040 4 5 Q R E A D 3 2 Q P E
0002060 E K C 2 4 Q R E A D C 1 1
0002100 Q P E E K C ) \r ( 2 2 1 Q +
0002120 2 0 0 Q _ 1 6 3 Q O T H
0002140 E R 1 6 0 Q _ 1 3 2 Q B
0002160 R E A K C H A R 1 2 7 Q _
0002200 1 1 5 Q S E T B R K 1 1 1 Q
0002220 @ 1 0 5 Q @ @ 7 6 Q O
0002240 T H E R 3 5 Q % ( 1 4 Q
0002260 @ 2 s e l f ) \r ( ) \r A t M
0002300 a c r o C o n s t r u c t D 1
0002320 \r ( I 5 s t o r e F l g I
0002340 4 c l a s s V a r F l g I
0002360 3 n e w V a l u e I 2
0002400 p r o p N a m e I 1 v a r
0002420 N a m e I 0 o b j N a m e
0002440 ) \0 267 \0 \0 \0 006 E 265 , D 223 g \0 \0
0002460 202 g \0 \0 h 032 B 245 @ g \0 \0 360 243 @ h
0002500 032 200 h A h 032 B d 221 h 032 \n \0 \0 \n \0
0002520 \0 \n \0 \0 020 k 360 262 W D 223 g \0 \0 202 g
0002540 \0 \0 @ A d 262 032 d i 360 263 025 d 005 001 245
0002560 d 005 002 241 005 003 265 \t g \0 \0 A h 032 032 h
0002600 032 032 032 C h 032 B d 262 037 d 262 032 d i 360
0002620 263 025 d 005 001 245 d 005 002 241 005 003 265 \t g \0
0002640 \0 B h 032 032 h 032 \n \0 \0 \n \0 \0 020 D 223
0002660 g \0 \0 202 g \0 \0 h 032 B 245 @ g \0 \0 360
0002700 243 @ h 032 200 h A h 032 B d 221 h 032 C h
0002720 032 \n \0 \0 \n \0 \0 \n \0 \0 \n \0 \0 020 \0 (
0002740 2 6 4 Q \ N C O N C 2 2 6 1
0002760 Q \ N C O N C 2 2 5 6 Q \
0003000 N C O N C 2 2 5 3 Q \ N C O
0003020 N C 2 2 0 4 Q \ N C O N C 2
0003040 2 0 1 Q \ N C O N C 2 5 3
0003060 Q \ N C O N C 2 5 0 Q \ N
0003100 C O N C 2 4 5 Q \ N C O N C
0003120 2 ) \r ( 2 2 6 Q s e l f 2 1
0003140 6 Q _ @ 2 1 2 Q _ @ @ 1
0003160 7 0 Q Q U O T E 1 2 2 Q Q
0003200 U O T E 7 1 Q P u s h V a l
0003220 u e 6 5 Q P u s h C l a s s
0003240 V a l u e 2 3 Q s e l f 1
0003260 3 Q @ 7 @ @ ) \r ( ) \r D a
0003300 t a T y p e D 1 \r ( L ( 5
0003320 t y p e 4 a c t i v e V a l
0003340 3 p r o p N a m e 2 l o
0003360 c a l S t 1 v a r N a m e
0003400 0 s e l f ) ) \0 003 \0 \0 \0 006 B
0003420 020 \0 N I L \r N I L \r ( ) \r D o l
0003440 l a r M a c r o D 1 \r ( I 1
0003460 r e a d T a b l e I 0 f
0003500 i l e H a n d l e ) \0 ! \0 \0 \0
0003520 002 @ A \n \0 \0 \t \0 \0 g \0 \0 360 236 g \0
0003540 \0 @ A \n \0 \0 \t \0 \0 h 032 032 020 g \0 \0
0003560 020 \0 ( 2 7 Q M K A T O M 2 4
0003600 Q R E A D 7 G E T S Y N T
0003620 A X 4 P E E K C ) \r ( 3 6 Q
0003640 $ 1 7 Q $ 1 2 Q O T H
0003660 E R ) \r ( ) \r G e t L i s p C l
0003700 a s s D 1 \r ( I 0 o b j )
0003720 \0 027 \0 \0 \0 001 @ d 003 231 d 001 004 ` \0
0003740 \0 360 221 001 020 \t \0 \0 ` \0 \0 035 020 \0 ( 2
0003760 0 Q T Y P E N A M E ) \r ( 2 3
0004000 Q L i s p C l a s s T a b l e
0004020 1 1 Q 004 003 c l a s s T Y P E
0004040 # ) \r ( ) \r H P R I N T C L A S
0004060 S D 1 \r ( I 1 F I L E I
0004100 0 E X P R ) \0 021 \0 \0 \0 002 o
0004120 \0 \0 \0 A \n \0 \0 @ \t \0 \0 \t \0 \0 020 \0
0004140 ( 1 6 Q P R I N 2 1 3 Q C
0004160 l a s s N a m e 7 P R I N 1
0004200 ) \r N I L \r ( 3 ( H R E A D
0004220 C L A S S ) ) \r H P R I N T I N
0004240 S T A N C E D 1 \r ( I 1 F
0004260 I L E I 0 E X P R ) \0 021
0004300 \0 \0 \0 002 o \0 \0 \0 A \n \0 \0 @ \t \0 \0
0004320 \t \0 \0 020 \0 ( 1 6 Q P R I N 2
0004340 1 3 Q U I D 7 P R I N 1 )
0004360 \r N I L \r ( 3 ( H R E A D I
0004400 N S T A N C E ) ) \r H R E A D C
0004420 L A S S D 1 \r ( I 0 F I L
0004440 E ) \0 \t \0 \0 \0 001 @ \t \0 \0 \t \0 \0
0004460 020 \0 ( 6 G e t O b j e c t R e
0004500 c 3 H R E A D ) \r N I L \r (
0004520 ) \r H R E A D I N S T A N C E
0004540 D 1 \r ( I 0 F I L E ) \0 \f
0004560 \0 \0 \0 001 @ \t \0 \0 \t \0 \0 \t \0 \0 020 \0
0004600 ( 1 1 Q G e t O b j e c t R e
0004620 c 6 M K A T O M 3 H R E
0004640 A D ) \r N I L \r ( ) \r H a s h M
0004660 a c r o D 1 \r ( P 2 f i l
0004700 e P o s i t i o n P 1 n a
0004720 m e P 0 v a l I 1 r
0004740 e a d T a b l e I 0 f i l
0004760 e H a n d l e ) \0 376 \a \0 \0 002 021
0005000 p 006 @ \t \0 \0 X d g \0 \0 360 262 : 277 @
0005020 \t \0 \0 @ A \n \0 \0 Y @ i 360 244 @ \t \0
0005040 \0 272 I \t \0 \0 \t \0 \0 X d 256 I 005 \a 232
0005060 ` \0 \0 I \t \0 \0 \n \0 \0 270 @ i 360 244 @
0005100 J \n \0 \0 H 020 g \0 \0 360 262 % @ \t \0 \0
0005120 @ A \n \0 \0 X d d 002 001 003 002 d 005 001 241
0005140 005 002 227 277 d 002 001 \t \0 \0 020 \t \0 \0 020 H
0005160 d g \0 \0 360 262 035 277 @ \t \0 \0 ` \0 \0 037
0005200 d g \0 \0 024 002 277 @ \t \0 \0 273 d K 024 \0
0005220 277 020 A \n \0 \0 d g \0 \0 360 262 ) 277 @ A
0005240 \n \0 \0 X ` \0 \0 037 H 001 274 d L 024 \0 277
0005260 H 002 001 275 d M 024 002 277 H 002 002 001 276 d N
0005300 024 004 277 020 d g \0 \0 360 263 " d g \0 \0 360
0005320 263 033 d g \0 \0 360 263 024 d g \0 \0 360 253 d
0005340 g \0 \0 360 245 d g \0 \0 360 223 g \0 \0 020 277
0005360 g \0 \0 @ A \n \0 \0 \n \0 \0 020 \0 ( 3 7
0005400 3 Q P A C K * 3 7 0 Q R A
0005420 T O M 2 4 3 Q R E A D 2 2
0005440 6 Q G E T S Y N T A X 2 1 3
0005460 Q H R E A D 1 7 4 Q R E A
0005500 D C 1 5 6 Q M o d i f y I n
0005520 s t a n c e 1 5 2 Q V A G
0005540 1 2 5 Q R E A D 1 2 0 Q R
0005560 E A D C 1 0 4 Q S E T F I L
0005600 E P T R 7 2 Q N e w O b j e
0005620 c t 6 7 Q M K A T O M 5 1
0005640 Q G e t O b j e c t R e c 4
0005660 6 Q M K A T O M 4 1 Q G E
0005700 T F I L E P T R 3 0 Q R E A
0005720 D 2 3 Q R E A D C 6 P E
0005740 E K C ) \r ( 3 6 3 Q # 3 5 6
0005760 Q # 3 5 1 Q S E P R C H A
0006000 R 3 4 3 Q B R E A K C H A R
0006020 3 3 5 Q S T R I N G D E L I
0006040 M 3 2 6 Q R I G H T B R A C
0006060 K E T 3 1 7 Q R I G H T P A
0006100 R E N 3 1 0 Q L E F T B R A
0006120 C K E T 2 4 7 Q 004 003 a c t i
0006140 v e V a l u e T Y P E # 2 3 2
0006160 Q L E F T P A R E N 2 0 4 Q
0006200 D a t a T y p e 1 7 7 Q 004
0006220 003 a c t i v e V a l u e T Y P E
0006240 # 1 6 4 Q - 1 1 1 Q &
0006260 6 3 Q O B J E C T 1 3 Q $
0006300 ) \r ( ) \r I n i t i a l i z e L
0006320 O O P S D 1 \r N I L \0 ( \0 \0
0006340 \0 \0 i \t \0 \0 g \0 \0 \t \0 \0 003 252 l 020
0006360 \t \0 \0 h 032 027 \0 \0 277 h 027 \0 \0 d 027 \0
0006400 \0 d 027 \0 \0 \b \0 \0 020 \0 ( 4 5 Q D
0006420 B - I n i t U I 2 0 Q H A R
0006440 R A Y 1 1 Q G E T T O P V A
0006460 L 3 L o o p s S y n t a x )
0006500 \r ( 4 2 Q A l l O b j e c t N
0006520 a m e s 3 6 Q C u r r e n t
0006540 N a m e T a b l e 3 2 Q D e
0006560 f a u l t K B N a m e 2 5 Q
0006600 L i s p C l a s s T a b l e 6
0006620 L i s p C l a s s T a b l e )
0006640 \r ( ) \r L o o p s S y n t a x
0006660 D 1 \r ( I 0 o f f F l g )
0006700 \0 , \0 \0 \0 001 @ 262 025 g \0 \0 g \0 \0 \n
0006720 \0 \0 g \0 \0 g \0 \0 \n \0 \0 020 g \0 \0 o
0006740 \0 \0 \0 \n \0 \0 g \0 \0 o \0 \0 \0 \n \0 \0
0006760 020 \0 ( 5 1 Q S E T A L L S Y N
0007000 T A X 3 7 Q S E T A L L S Y
0007020 N T A X 2 4 Q S E T A L L S
0007040 Y N T A X 1 3 Q S E T A L L
0007060 S Y N T A X ) \r ( 4 2 Q $ 3
0007100 0 Q @ 2 1 Q O T H E R 1
0007120 6 Q $ 1 0 Q O T H E R 5
0007140 @ ) \r ( 4 6 Q ( M A C R O
0007160 F I R S T D o l l a r M a c
0007200 r o ) 3 4 Q ( M A C R O F
0007220 I R S T A t M a c r o ) ) \r P
0007240 r e t t y P r i n t I n s t a n
0007260 c e D 1 \r ( I 1 f i l e
0007300 I 0 s e l f ) \0 031 002 \0 \0 002
0007320 @ d 262 025 021 021 001 H g \0 \0 \n \0 \0 271 H
0007340 A l 002 I 017 016 @ 020 \0 ( 1 5 Q F e
0007360 t c h M e t h o d O r H e l p )
0007400 \r ( 1 2 Q F i l e O u t ) \r (
0007420 ) \r S E T A L L S Y N T A X D
0007440 1 \r ( I 1 F O R M I 0
0007460 C H A R F 0 F I L E R D T
0007500 B L F 1 E D I T R D T B L
0007520 F 2 D E D I T R D T B L )
0007540 \0 037 \0 003 001 002 @ A \n \0 \0 @ A i \v
0007560 \0 \0 @ A P \v \0 \0 @ A Q \v \0 \0 @ A
0007600 R \v \0 \0 020 \0 ( 3 4 Q S E T S Y
0007620 N T A X 2 6 Q S E T S Y N T
0007640 A X 2 0 Q S E T S Y N T A X
0007660 1 2 Q S E T S Y N T A X 4
0007700 S E T S Y N T A X ) \r N I L \r
0007720 ( ) \r T R A N S @ $ D 1 \r ( F
0007740 0 F A U L T X F 1 T A
0007760 I L ) \0 016 \0 002 \0 \0 P 004 l 004 360 264
0010000 \a P Q \n \0 \0 020 \0 ( 1 3 Q F i x
0010020 @ $ ) \r N I L \r ( ) \r D E F C L
0010040 A S S D 1 \r ( P 1 s o u r
0010060 c e P 0 c l a s s N a m e
0010100 I 0 F O R M ) \0 ^ 002 \0 003
0010120 001 @ 001 @ 002 021 002 001 I 264 005 H d 240 020 004
0010140 l 004 360 251 H o \0 \0 \0 \n \0 \0 h 020 H \t
0010160 \0 \0 263 024 o \0 \0 \0 H o \0 \0 \0 \v \0 \0
0010200 277 H \t \0 \0 277 I H \n \0 \0 262 034 g \0 \0
0010220 \t \0 \0 231 H o \0 \0 \0 i \v \0 \0 215 H o
0010240 \0 \0 \0 \n \0 \0 204 H I \n \0 \0 h 020 \0 (
0010260 1 3 2 Q I n s t a l l C l a s
0010300 s S o u r c e 1 2 4 Q W R I
0010320 T E 1 1 3 Q E R R O R 1 0
0010340 1 Q S T K P O S 7 1 Q C h
0010360 e c k C l a s s S o u r c e 6
0010400 3 Q N e w C l a s s 5 6 Q
0010420 H E L P C H E C K 4 0 Q G e
0010440 t C l a s s R e c 3 2 Q H E
0010460 L P C H E C K ) \r ( 7 6 Q E d
0010500 i t C l a s s S o u r c e ) \r (
0010520 1 2 1 Q " n o t i n s t a
0010540 l l e d b e c a u s e o f
0010560 e r r o r i n s o u r c e "
0010600 1 0 7 Q " n o t d e f i
0010620 n e d - - b a d f o r m
0010640 " 5 3 Q " \r T y p e O K
0010660 t o d e f i n e o n e a
0010700 n d g o o n " 4 6 Q " N
0010720 o e x i s i t i n g c l a s
0010740 s o f w i t h n a m e :
0010760 " 2 7 Q " c a n n o t b
0011000 e a c l a s s n a m e . \r
0011020 T y p e O K t o i g n o r
0011040 e . " ) \r D E F C L A S S E S
0011060 D 1 \r ( P 0 c l a s s N a m
0011100 e I 0 C L A S S E S ) \0
0011120 ) 001 \0 003 001 @ 260 " d 001 021 001 \0 H \t \0
0011140 \0 263 025 ` \0 \0 037 d H 024 020 277 d i 024 002
0011160 277 H \n \0 \0 277 023 002 003 265 337 h 020 \0 ( 3
0011200 7 Q N e w E n t i t y 1 3 Q
0011220 G e t C l a s s R e c ) \r ( 2
0011240 0 Q 004 003 c l a s s T Y P E # )
0011260 \r ( ) \r D E F I N S T D 1 \r (
0011300 I 0 D E F I N S T % F O R
0011320 M ) \0 Y 002 \0 003 001 @ 001 \t \0 \0 265 ?
0011340 @ 001 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277
0011360 i \t \0 \0 277 o \0 \0 \0 i \n \0 \0 277 i \t
0011400 \0 \0 277 g \0 \0 \t \0 \0 021 021 001 H g \0 \0
0011420 \n \0 \0 271 H @ 001 l 002 I 017 016 022 021 021 001
0011440 H g \0 \0 \n \0 \0 271 H @ 002 l 002 I 017 016
0011460 020 \0 ( 1 1 5 Q F e t c h M e t
0011500 h o d O r H e l p 7 1 Q F e
0011520 t c h M e t h o d O r H e l p
0011540 5 7 Q G e t O b j e c t R e c
0011560 5 0 Q T E R P R I 4 3 Q
0011600 P R I N 1 3 2 Q T E R P R I
0011620 2 5 Q P R I N 1 1 4 Q P
0011640 R I N 1 4 G e t C l a s s R
0011660 e c ) \r ( 1 1 2 Q F i l e I n
0011700 6 6 Q N e w 5 4 Q C l a
0011720 s s ) \r ( 3 7 Q " D e f i n
0011740 i n g o n e n o w : " 2 1
0011760 Q " h a s n o c l a s s
0012000 d e f i n e d f o r i t "
0012020 ) \r D E F I N S T A N C E S D
0012040 1 \r ( P 4 o b j P 3 U
0012060 I D P 2 c l a s s N a m e
0012100 P 1 i n s t N a m e s P
0012120 0 c l a s s N a m e I n s t
0012140 N a m e s I 0 I n s t a n
0012160 c e s ) \0 A 005 \0 003 001 @ 260 : d 001
0012200 021 001 \0 021 @ 004 H 002 Z 003 246 H 001 h 032 271
0012220 260 023 H 001 272 H 002 \t \0 \0 Y 001 I 002 271 \t
0012240 \0 \0 273 J 265 003 213 \t \0 \0 K \n \0 \0 I \n
0012260 \0 \0 277 023 023 002 003 265 307 h 020 \0 ( 6 6 Q
0012300 N a m e O b j e c t 6 2 Q
0012320 N e w O b j e c t 5 6 Q G e
0012340 t O b j e c t R e c 4 6 Q M
0012360 K A T O M 3 6 Q R E V E R S
0012400 E ) \r N I L \r ( ) \r D o l l a r
0012420 P r i n t O u t D 1 \r ( I 0
0012440 X ) \0 033 \0 \0 \0 001 @ d 002 003 262 025
0012460 d 002 002 256 277 o \0 \0 \0 \t \0 \0 @ 002 001 \t
0012500 \0 \0 h 020 \0 ( 2 7 Q P R I N 1
0012520 2 1 Q P R I N 1 ) \r N I L \r (
0012540 1 6 Q " $ " ) \r E n t i t y
0012560 A d d r e s s D 1 \r ( I 0
0012600 E ) \0 006 \0 \0 \0 001 @ \t \0 \0 020 \0 (
0012620 3 L O C ) \r N I L \r ( ) \r G e
0012640 t C l a s s V a l u e P r i n t
0012660 O u t D 1 \r ( P 2 p r o p
0012700 P 1 v a r P 0 o b j
0012720 I 0 X ) \0 4 003 \0 \0 001 @ 002
0012740 001 @ 002 002 001 @ 002 002 002 001 021 003 002 I 001 g
0012760 \0 \0 360 262 034 J 265 022 o \0 \0 \0 H I 002 001
0013000 J 002 001 \f \0 \0 h 020 001 g \0 \0 360 263 353 @
0013020 020 \0 ( 4 7 Q V a r P r i n t O
0013040 u t ) \r ( 5 5 Q Q U O T E 2
0013060 3 Q Q U O T E ) \r ( 3 5 Q
0013100 " @ @ " ) \r G e t V a l u e P r
0013120 i n t O u t D 1 \r ( P 2 p
0013140 r o p P 1 v a r P 0
0013160 o b j I 0 X ) \0 4 003 \0 \0
0013200 001 @ 002 001 @ 002 002 001 @ 002 002 002 001 021 003 002
0013220 I 001 g \0 \0 360 262 034 J 265 022 o \0 \0 \0 H
0013240 I 002 001 J 002 001 \f \0 \0 h 020 001 g \0 \0 360
0013260 263 353 @ 020 \0 ( 4 7 Q V a r P r i
0013300 n t O u t ) \r ( 5 5 Q Q U O T
0013320 E 2 3 Q Q U O T E ) \r ( 3
0013340 5 Q " @ " ) \r L o o p s P P M
0013360 a c r o s D 1 \r ( P 0 x
0013400 I 0 o n F l g F 1 P R
0013420 E T T Y P R I N T M A C R O S )
0013440 \0 # 001 001 \0 001 @ 227 o \0 \0 \0 \t \0 \0
0013460 020 o \0 \0 \0 215 d 001 021 001 \0 H Q \n \0 \0
0013500 c 002 023 002 003 265 361 h 020 \0 ( 3 0 Q D
0013520 E L A S S O C 1 0 Q A D D T
0013540 O V A R ) \r N I L \r ( 1 5 Q
0013560 ( P u s h V a l u e P u s h C
0013600 l a s s V a l u e @ @ @ _
0013620 @ _ @ @ $ ) 5 ( P R E T
0013640 T Y P R I N T M A C R O S ( P
0013660 u s h V a l u e . P u s h V
0013700 a l u e P r i n t O u t ) ( P
0013720 u s h C l a s s V a l u e .
0013740 P u s h C l a s s V a l u e P r
0013760 i n t O u t ) ( @ . P r i
0014000 n t O u t @ ) ( @ @ . P r
0014020 i n t O u t @ @ ) ( _ @ .
0014040 P r i n t O u t _ @ ) ( _ @ @
0014060 . P r i n t O u t _ @ @ )
0014100 ( $ . D o l l a r P r i n t
0014120 O u t ) ) ) \r P C V P r i n t O
0014140 u t D 1 \r ( P 3 p r o p
0014160 P 2 n e w V P 1 v a r
0014200 P 0 o b j I 1 i n f
0014220 i x I 0 X ) \0 B 004 \0 \0 002
0014240 @ 002 001 @ 002 002 001 @ 002 002 002 001 @ 002 002 002
0014260 002 001 021 004 003 I 001 g \0 \0 360 262 $ K 265 032
0014300 o \0 \0 \0 H I 002 001 K 002 001 \f \0 \0 A \t
0014320 \0 \0 J \t \0 \0 h 020 001 g \0 \0 360 263 343 @
0014340 020 \0 ( 6 5 Q P R I N T D E F
0014360 6 1 Q P R I N 1 5 5 Q V a
0014400 r P r i n t O u t ) \r ( 7 3 Q
0014420 Q U O T E 3 1 Q Q U O T E )
0014440 \r ( 4 3 Q " @ @ " ) \r P I n
0014460 s t a n c e D 1 \r ( P 2 s
0014500 o u r c e P 1 u i d P
0014520 0 n a m e I 1 f i l e
0014540 I 0 i n s t F 3 U n n
0014560 a m e d I n s t a n c e s ) \0
0014600 Z 003 001 \0 002 @ \t \0 \0 @ d 004 ` \0 \0 360
0014620 224 i \n \0 \0 206 o \0 \0 \0 \n \0 \0 @ \t \0
0014640 \0 002 021 003 002 H 245 I S 034 241 A 251 o \0 \0
0014660 \0 I \t \0 \0 032 020 I S 032 c 006 o \0 \0 \0
0014700 A \n \0 \0 277 J A \t \0 \0 h d d A \r 006
0014720 \0 \0 277 A \t \0 \0 277 A \t \0 \0 i 020 \0 (
0014740 1 2 6 Q T E R P R I 1 2 1 Q
0014760 T E R P R I 1 1 4 Q P R I
0015000 N T D E F 1 0 4 Q P O S I T
0015020 I O N 7 6 Q P R I N 1 5 7
0015040 Q M K S T R I N G 3 3 Q G
0015060 e t I n s t a n c e S o u r c e
0015100 2 7 Q E R R O R 1 7 Q U
0015120 I D 3 G e t O b j e c t N a
0015140 m e ) \r ( 1 1 Q 004 003 i n s t a
0015160 n c e T Y P E # ) \r ( 7 2 Q
0015200 " # & " 5 3 Q " # $ " 2 4
0015220 Q " d o e s n o t h a v e
0015240 a u i d " ) \r P V P r i n t
0015260 O u t D 1 \r ( P 3 p r o p
0015300 P 2 n e w V P 1 v a
0015320 r P 0 o b j I 1 i n
0015340 f i x I 0 X ) \0 B 004 \0 \0
0015360 002 @ 002 001 @ 002 002 001 @ 002 002 002 001 @ 002 002
0015400 002 002 001 021 004 003 I 001 g \0 \0 360 262 $ K 265
0015420 032 o \0 \0 \0 H I 002 001 K 002 001 \f \0 \0 A
0015440 \t \0 \0 J \t \0 \0 h 020 001 g \0 \0 360 263 343
0015460 @ 020 \0 ( 6 5 Q P R I N T D E F
0015500 6 1 Q P R I N 1 5 5 Q V
0015520 a r P r i n t O u t ) \r ( 7 3 Q
0015540 Q U O T E 3 1 Q Q U O T E
0015560 ) \r ( 4 3 Q " @ " ) \r P r e
0015600 t t y P r i n t C l a s s D 1
0015620 \r ( P 0 c l a s s I 1
0015640 f i l e I 0 c l a s s N a
0015660 m e ) \0 % 003 \0 \0 002 021 0 002 @ \t \0
0015700 \0 X 265 \v @ o \0 \0 \0 \n \0 \0 020 Z g \0
0015720 \0 \n \0 \0 271 J A l 002 I 017 016 @ 020 \0 (
0015740 3 1 Q F e t c h M e t h o d O
0015760 r H e l p 2 1 Q H E L P C H
0016000 E C K 6 G e t C l a s s R e
0016020 c ) \r ( 2 6 Q F i l e O u t )
0016040 \r ( 1 6 Q " i s n o t
0016060 d e f i n e d a s a c l a
0016100 s s . \r T y p e O K t o i
0016120 g n o r e t h i s c l a s s
0016140 a n d g o o n . " ) \r P r
0016160 i n t A c t i v e V a l u e D
0016200 1 \r ( P 2 p f P 1 g f
0016220 P 0 l s I 1 f i l e
0016240 I 0 s e l f ) \0 206 003 \0 \0
0016260 002 @ 006 \0 \0 311 \0 @ 006 \0 \0 311 002 @ 006 \0
0016300 \0 311 004 021 003 002 J g \0 \0 360 245 J g \0 \0
0016320 360 234 \b \0 \0 i 360 246 A \t \0 \0 241 h 270 A
0016340 253 o \0 \0 \0 o \0 \0 \0 h 032 032 020 I g \0
0016360 \0 360 262 \b \0 \0 i 360 263 031 A \t \0 \0 263
0016400 023 o \0 \0 \0 A \n \0 \0 H A i d \f \0 \0
0016420 i 020 o \0 \0 \0 A \n \0 \0 H I J h 032 032
0016440 032 A \t \0 \0 h i h A \r 006 \0 \0 o \0 \0
0016460 \0 A \n \0 \0 020 \0 ( 2 0 3 Q P R I
0016500 N 1 1 7 3 Q P R I N T D E F
0016520 1 6 3 Q P O S I T I O N 1
0016540 5 0 Q P R I N 1 1 3 6 Q H
0016560 P R I N T 1 2 7 Q P R I N 1
0016600 1 1 5 Q D I S P L A Y S T R
0016620 E A M P 1 0 5 Q O U T P U T
0016640 5 2 Q D I S P L A Y S T R E
0016660 A M P 4 3 Q O U T P U T ) \r
0016700 ( 7 7 Q D a t a T y p e 3 6
0016720 Q T e m p o r a r y 3 0 Q
0016740 S t o r e U n m a r k e d 1 7
0016760 Q a c t i v e V a l u e 1 1
0017000 Q a c t i v e V a l u e 3
0017020 a c t i v e V a l u e ) \r ( 1
0017040 7 7 Q " ) " 1 4 4 Q " # (
0017060 " 1 2 3 Q " # - " 6 7 Q
0017100 " ) " 6 3 Q " # ( " ) \r P r
0017120 i n t C l a s s D 1 \r ( L (
0017140 1 f i l e 0 c l a s s R e
0017160 c ) ) \0 \r \0 \0 \0 002 o \0 \0 \0 @ 006
0017200 \0 \0 311 020 032 020 \0 N I L \r ( 7 c l
0017220 a s s ) \r ( 3 " # $ " ) \r P
0017240 r i n t D e f I n s t a n c e s
0017260 D 1 \r ( P 2 i n s t R e c
0017300 P 1 i n s t I 1 f i
0017320 l e I 0 i n s t a n c e s
0017340 ) \0 F 003 \0 \0 002 A \t \0 \0 o \0 \0 \0
0017360 A \n \0 \0 @ 021 ! 002 H 003 265 025 023 o \0 \0
0017400 \0 A \n \0 \0 A \t \0 \0 A \t \0 \0 @ 020 001
0017420 Y \t \0 \0 Z \t \0 \0 J \t \0 \0 032 A \n \0
0017440 \0 277 k A \n \0 \0 277 H 002 X 260 316 \0 ( 7
0017460 6 Q S P A C E S 7 0 Q P R
0017500 I N 2 6 3 Q G e t O b j e c
0017520 t N a m e s 5 7 Q C l a s s
0017540 N a m e 5 3 Q G e t O b j e
0017560 c t R e c 4 4 Q T E R P R I
0017600 4 0 Q T E R P R I 3 4 Q
0017620 P R I N 1 1 3 Q P R I N 1
0017640 3 T E R P R I ) \r N I L \r (
0017660 3 0 Q " ] " 7 " [ D E F I
0017700 N S T A N C E S " ) \r P r i n
0017720 t I n s t a n c e D 1 \r ( P
0017740 2 u i d S t r i n g P 1
0017760 u i d P 0 e n t i t y I
0020000 1 f i l e I 0 i n s t
0020020 a n c e R e c F 5 O u t I
0020040 n s t a n c e s F 6 W r i
0020060 t i n g S u m m a r y F l g F
0020100 7 F i l e E n t i t i e s )
0020120 \0 203 005 003 \0 002 021 P 004 A i 360 245 A \t
0020140 \0 \0 262 024 @ \ g \0 \0 \n \0 \0 273 L A l
0020160 002 K 017 016 @ 020 A 247 U 245 V 243 ` \0 \0 224
0020200 @ \t \0 \0 271 U 262 035 I U 001 \n \0 \0 245 U
0020220 I \n \0 \0 277 o \0 \0 \0 @ \t \0 \0 I h 032
0020240 032 032 020 V 262 034 I \t \0 \0 X W 016 001 \n \0
0020260 \0 246 W 016 H \n \0 \0 277 o \0 \0 \0 I 032 020
0020300 ` \0 \0 226 o \0 \0 \0 I 032 020 o \0 \0 \0 @
0020320 \t \0 \0 I h 032 032 032 020 \0 ( 1 7 3 Q
0020340 C l a s s N a m e 1 4 0 Q T
0020360 C O N C 1 3 1 Q M E M B E R
0020400 1 2 2 Q G e t E n t i t y F
0020420 r o m U I D 1 0 5 Q C l a s
0020440 s N a m e 7 4 Q T C O N C
0020460 6 6 Q M E M B E R 5 4 Q U
0020500 I D 2 4 Q F e t c h M e t h
0020520 o d O r H e l p 1 2 Q D I S
0020540 P L A Y S T R E A M P ) \r ( 1 5
0020560 3 Q W r i t i n g L a y e r F
0020600 l g 4 7 Q W r i t i n g L a
0020620 y e r F l g 2 1 Q P r i n t
0020640 O n ) \r ( 1 6 7 Q " # & "
0020660 1 6 0 Q " # $ " 1 4 5 Q "
0020700 # $ " 1 0 1 Q " # & " ) \r P
0020720 r i n t O u t @ D 1 \r ( I 0
0020740 X ) \0 . \0 \0 \0 001 @ d 002 003 240 020
0020760 002 002 256 o \0 \0 \0 g \0 \0 @ 002 001 \v \0 \0
0021000 260 025 o \0 \0 \0 @ 002 001 @ 002 002 001 @ 002 002
0021020 002 001 \f \0 \0 h 020 \0 ( 5 2 Q V a r
0021040 P r i n t O u t 2 5 Q V a r
0021060 P r i n t O u t ) \r ( 1 7 Q s
0021100 e l f ) \r ( 3 3 Q " @ " 1
0021120 4 Q " @ " ) \r P r i n t O u t
0021140 @ @ D 1 \r ( I 0 X ) \0 .
0021160 \0 \0 \0 001 @ d 002 003 240 020 002 002 256 o \0 \0
0021200 \0 g \0 \0 @ 002 001 \v \0 \0 260 025 o \0 \0 \0
0021220 @ 002 001 @ 002 002 001 @ 002 002 002 001 \f \0 \0 h
0021240 020 \0 ( 5 2 Q V a r P r i n t O
0021260 u t 2 5 Q V a r P r i n t O
0021300 u t ) \r ( 1 7 Q s e l f ) \r (
0021320 3 3 Q " @ @ " 1 4 Q " @
0021340 @ " ) \r P r i n t O u t _ @ D
0021360 1 \r ( P 0 n e w V I 0
0021400 X ) \0 X 001 \0 \0 001 @ d 002 003 240 020 \t
0021420 \0 \0 001 021 001 \0 @ 002 b \0 \t \0 \0 d l 002
0021440 360 236 277 o \0 \0 \0 g \0 \0 @ 001 \v \0 \0 260
0021460 # l 003 360 234 o \0 \0 \0 @ 001 @ 002 001 \v \0
0021500 \0 217 o \0 \0 \0 @ 001 @ 002 001 @ 002 002 001 \f
0021520 \0 \0 277 o \0 \0 \0 \t \0 \0 H \t \0 \0 h 020
0021540 \0 ( 1 2 4 Q P R I N T D E F
0021560 1 2 0 Q P R I N 1 1 1 0 Q
0021600 V a r P r i n t O u t 6 7 Q
0021620 V a r P r i n t O u t 4 5 Q
0021640 V a r P r i n t O u t 2 3 Q
0021660 L E N G T H 1 0 Q L A S T )
0021700 \r ( 4 0 Q s e l f ) \r ( 1 1
0021720 5 Q " _ " 7 4 Q " @ " 5
0021740 7 Q " @ " 3 5 Q " @ " ) \r
0021760 P r i n t O u t _ @ @ D 1 \r (
0022000 P 0 n e w V I 0 X )
0022020 \0 X 001 \0 \0 001 @ d 002 003 240 020 \t \0 \0 001
0022040 021 001 \0 @ 002 b \0 \t \0 \0 d l 002 360 236 277
0022060 o \0 \0 \0 g \0 \0 @ 001 \v \0 \0 260 # l 003
0022100 360 234 o \0 \0 \0 @ 001 @ 002 001 \v \0 \0 217 o
0022120 \0 \0 \0 @ 001 @ 002 001 @ 002 002 001 \f \0 \0 277
0022140 o \0 \0 \0 \t \0 \0 H \t \0 \0 h 020 \0 ( 1
0022160 2 4 Q P R I N T D E F 1 2 0
0022200 Q P R I N 1 1 1 0 Q V a r
0022220 P r i n t O u t 6 7 Q V a r
0022240 P r i n t O u t 4 5 Q V a r
0022260 P r i n t O u t 2 3 Q L E N
0022300 G T H 1 0 Q L A S T ) \r ( 4
0022320 0 Q s e l f ) \r ( 1 1 5 Q
0022340 " _ " 7 4 Q " @ @ " 5 7 Q
0022360 " @ @ " 3 5 Q " @ @ " ) \r
0022400 P r t t y C l a s s e s D 1 \r
0022420 ( P 0 c l a s s N a m e I
0022440 0 c l a s s e s F 1 P
0022460 R T T Y F I L E ) \0 ! 001 001 \0 001
0022500 g \0 \0 @ 032 Q \n \0 \0 Q \t \0 \0 @ 213 d
0022520 001 021 001 \0 H Q \n \0 \0 023 002 003 265 363 h 020
0022540 \0 ( 3 0 Q P r e t t y P r i n
0022560 t C l a s s 1 4 Q T E R P R
0022600 I 1 0 Q P R I N T ) \r ( 2
0022620 D E F C L A S S E S ) \r ( ) \r P
0022640 r t t y I n s t a n c e s D 1
0022660 \r ( P 1 1 Q o b j P 1 0
0022700 Q n m P 6 O u t I n s t
0022720 a n c e s P 5 o b j P
0022740 4 n a m e I 0 i n s t a
0022760 n c e s F 1 2 Q P R T T Y
0023000 F I L E ) \0 h \n 001 \0 001 h @ 021 Q
0023020 005 H 003 265 026 I 022 \n \0 \0 021 001 006 N 001 021
0023040 ! \t O 016 003 265 / h 020 001 \ \t \0 \0 265 \f
0023060 L o \0 \0 \0 \n \0 \0 h 360 ] 265 003 213 \t \0
0023100 \0 273 J 265 \f K h 032 Z 271 H 002 X 260 305 K
0023120 & 272 260 370 001 _ 020 \t \0 \0 W 024 \n \0 \0 277
0023140 W 024 \t \0 \0 277 W 024 \t \0 \0 277 O 016 002 _
0023160 016 260 263 \0 ( 1 3 6 Q T E R P R I
0023200 1 3 0 Q T E R P R I 1 2 2
0023220 Q P r e t t y P r i n t I n s
0023240 t a n c e 1 1 5 Q G e t O b
0023260 j e c t R e c 6 4 Q U I D
0023300 5 3 Q H E L P C H E C K 4 1
0023320 Q G e t O b j e c t R e c 1
0023340 5 Q L C O N C ) \r N I L \r (
0023360 5 0 Q " n o t d e f i n e
0023400 d a s a n i n s t a n c e
0023420 . \r T y p e O K t o i g n
0023440 o r e a n d g o o n . " )
0023460 \r P u s h C l a s s V a l u e P
0023500 r i n t O u t D 1 \r ( I 0
0023520 X ) \0 \n \0 \0 \0 001 @ o \0 \0 \0 \n \0
0023540 \0 020 \0 ( 7 P C V P r i n t O u
0023560 t ) \r N I L \r ( 4 " _ + " )
0023600 \r P u s h V a l u e P r i n t O
0023620 u t D 1 \r ( I 0 X ) \0 \n
0023640 \0 \0 \0 001 @ o \0 \0 \0 \n \0 \0 020 \0 ( 7
0023660 P V P r i n t O u t ) \r N I L
0023700 \r ( 4 " _ + " ) \r P u t C l
0023720 a s s V a l u e P r i n t O u t
0023740 D 1 \r ( I 0 X ) \0 \n \0 \0
0023760 \0 001 @ o \0 \0 \0 \n \0 \0 020 \0 ( 7 P
0024000 C V P r i n t O u t ) \r N I L \r
0024020 ( 4 " _ " ) \r P u t V a l u
0024040 e P r i n t O u t D 1 \r ( I
0024060 0 X ) \0 \n \0 \0 \0 001 @ o \0 \0 \0
0024100 \n \0 \0 020 \0 ( 7 P V P r i n t O
0024120 u t ) \r N I L \r ( 4 " _ " )
0024140 \r S p l i t A t o m D 1 \r ( P
0024160 0 p o s I 1 s p l i t
0024200 C h a r I 0 a t o m ) \0
0024220 036 001 \0 \0 002 A @ \n \0 \0 021 001 \0 H 241 h
0024240 020 @ k H k 331 \v \0 \0 @ H k 330 \n \0 \0
0024260 032 020 \0 ( 3 2 Q S U B A T O M
0024300 2 3 Q S U B A T O M 4 S T
0024320 R P O S ) \r N I L \r ( ) \r V a r
0024340 P r i n t O u t D 1 \r ( I 3
0024360 p r o p I 2 v a r I
0024400 1 o b j I 0 p r e f i x
0024420 ) \0 A \0 \0 \0 004 k \t \0 \0 C 256 A g
0024440 \0 \0 360 230 @ B \n \0 \0 \t \0 \0 020 @ o \0
0024460 \0 \0 \n \0 \0 \t \0 \0 A \t \0 \0 k \t \0 \0
0024500 B \t \0 \0 C 231 k \t \0 \0 277 C \t \0 \0 277
0024520 o \0 \0 \0 \t \0 \0 020 \0 ( 7 6 Q P R
0024540 I N 1 6 6 Q P R I N 1 6 1
0024560 Q S P A C E S 5 3 Q P R I
0024600 N 1 4 7 Q S P A C E S 4 3
0024620 Q P R I N T D E F 3 7 Q P
0024640 R I N 1 3 4 Q C O N C A T
0024660 2 3 Q P R I N 1 2 0 Q C O
0024700 N C A T 3 S P A C E S ) \r (
0024720 1 1 Q s e l f ) \r ( 7 3 Q
0024740 " ) " 3 1 Q " ( " ) \r ( P R
0024760 E T T Y C O M P R I N T L O O
0025000 P S P R I N T C O M S ) \r ( R P
0025020 A Q Q L O O P S P R I N T C O
0025040 M S ( ( * C o p y r i g h t
0025060 ( c ) 1 9 8 3 b y X e r
0025100 o x C o r p o r a t i o n )
0025120 ( * S e t u p P r i n t i
0025140 n g o f c l a s s e s a n
0025160 d \r i n s t a n c e s ) ( P
0025200 ( D E F P R I N T ' a c t i
0025220 v e V a l u e ' P r i n t A c
0025240 t i v e V a l u e ) ( D E F P
0025260 R I N T ' c l a s s ' P r i
0025300 n t C l a s s ) ( D E F P R I
0025320 N T \r ' i n s t a n c e ' P
0025340 r i n t I n s t a n c e ) ) (
0025360 A L I S T S ( P R E T T Y P R
0025400 I N T Y P E M A C R O S i n s
0025420 t a n c e ) ) ( * P P O b j
0025440 i s C a l l e d b y t h
0025460 e \r P r e e t y P r i n t e r
0025500 o n i n s t a n c e s O b
0025520 j e c t A l w a y s P P F l a g
0025540 a n d O b j e c t D o n t P
0025560 P F l a g a r e u s e d t
0025600 o d e t e r m i n e i f t
0025620 h e \r P r e t t y P r i n t
0025640 m a c r o s h o u l d b e
0025660 a p p l i e d r e c u r s i v
0025700 e l y w i t h i n t h e s
0025720 c o p e o f a p r e t t y
0025740 p r i n t i n g o p e r a t
0025760 i o n . \r O b j e c t D o n t
0026000 P P F l a g i s b o u n d
0026020 t o N I L i n O b j e c t
0026040 . P P a n d a r o u n d M
0026060 A K E F I L E t o s u p r e
0026100 s s r e c u r s i v e p r e
0026120 t t y p r i n t i n g \r o n
0026140 f i l e s a n d i f o b j
0026160 e c t s d o n ' t h a v e
0026200 s p e c i a l P P M e t h o
0026220 d s o f t h e r e o w n .
0026240 O b j e c t A l w a y s P P
0026260 F l a g i s b o u n d t o
0026300 \r N I L i n t h e a d v
0026320 i c e t o M A K E F I L E
0026340 s o t h a t r e c u r s i o
0026360 n w o n ' t t a k e p l a
0026400 c e t h e r e u n l e s s
0026420 t h e u s e r e x p l i c i
0026440 t l y s e t s \r t h e v a
0026460 l u e ) ( F N S P P O b j )
0026500 ( V A R S ( O b j e c t A l
0026520 w a y s P P F l a g ) ( O b j
0026540 e c t D o n t P P F l a g ) )
0026560 ( A D V I C E M A K E F I L E
0026600 ) ( * * \r F u n c t i o n
0026620 s f o r h a n d l i n g R
0026640 E A D m a c r o s ) ( F N S
0026660 * I N F N S ) ( * * P
0026700 r e t t y p r i n t i n g f u
0026720 n c t i o n s ) ( F N S *
0026740 P P F N S ) ( * T h i s \r
0026760 d e f i n e s w h a t i s
0027000 t o h a p p e n w h e n t
0027020 h e c o m m a n d ( C L A S
0027040 S E S * C L A S S N A M E S
0027060 ) a p p e a r s i n a c
0027100 o m s l i s t . ) ( \r F I L
0027120 E P K G C O M S I N S T A N C
0027140 E S M E T H O D S C L A S S
0027160 E S ) ( * T h e f o l l o
0027200 w i n g d e f i n e s c l a
0027220 s s , c l a s s e s , a n d
0027240 C L A S S a s s y n o n y
0027260 m s \r f o r C L A S S E S
0027300 w i t h r e s p e c t t o
0027320 t h e f i l e p a c k a g e
0027340 t y p e . S e t u p m a
0027360 c r o s s o t h a t r e f
0027400 e r e n c e s t o c l a s s
0027420 e s a n d \r i n s t a n c e
0027440 s s e e n b y H P R I N T
0027460 d o n ' t r e c u r i n t
0027500 o t h e i r s t r u c t u r
0027520 e . ) ( A D D V A R S ( F I
0027540 L E P K G T Y P E S ( c l a s
0027560 s . C L A S S E S ) ( \r c
0027600 l a s s e s . C L A S S E S
0027620 ) ( C L A S S . C L A S S
0027640 E S ) ( I N S T A N C E I N
0027660 S T A N C E S ) ( i n s t a n
0027700 c e I N S T A N C E S ) ) (
0027720 H P R I N T M A C R O S ( c l
0027740 a s s \r . H P R I N T C L A
0027760 S S ) ( i n s t a n c e .
0030000 H P R I N T I N S T A N C E ) )
0030020 ) ( * S e t U p L o o p
0030040 s R e a d M a c r o s f o
0030060 r , @ , a n d $ ) ( P
0030100 ( \r S E T A L L S Y N T A X %
0030120 # ( M A C R O F I R S T H
0030140 a s h M a c r o ) ) ) ( A D V
0030160 I C E * L O O P S P R I N T
0030200 A D V I C E ) ( A D D V A R S
0030220 ( D W I M U S E R F O R M S
0030240 ( T R A N S @ $ \r ) ) ) ( D E
0030260 C L A R E : D O N T E V A L @
0030300 L O A D D O E V A L @ C O M P
0030320 I L E D O N T C O P Y C O M
0030340 P I L E R V A R S ( A D D V A
0030360 R S ( N L A M A D E F I N S
0030400 T A N C E S D E F I N S T \r
0030420 D E F C L A S S E S D E F C L
0030440 A S S ) ( N L A M L S E T A
0030460 L L S Y N T A X ) ( L A M A )
0030500 ) ) ) ) \r ( D E F P R I N T '
0030520 a c t i v e V a l u e ' P r i
0030540 n t A c t i v e V a l u e ) \r (
0030560 D E F P R I N T ' c l a s s
0030600 ' P r i n t C l a s s ) \r ( D E
0030620 F P R I N T ' i n s t a n c e
0030640 ' P r i n t I n s t a n c e )
0030660 \r ( A D D T O V A R P R E T T
0030700 Y P R I N T Y P E M A C R O S
0030720 ( i n s t a n c e . P P O b
0030740 j ) ) \r ( R P A Q Q O b j e c
0030760 t A l w a y s P P F l a g N I
0031000 L ) \r ( R P A Q Q O b j e c t
0031020 D o n t P P F l a g N I L ) \r
0031040 ( P U T P R O P S M A K E F I
0031060 L E R E A D V I C E ( N I L
0031100 ( A R O U N D N I L ( P R
0031120 O G ( ( O b j e c t A l w a y
0031140 s P P F l a g ) ) * ) ) ) ) \r
0031160 ( R P A Q Q I N F N S ( A t
0031200 M a c r o A t M a c r o C o n
0031220 s t r u c t D a t a T y p e
0031240 D o l l a r M a c r o G e t L
0031260 i s p C l a s s H P R I N T C
0031300 L A S S H P R I N T I N S T A
0031320 N C E \r H R E A D C L A S S
0031340 H R E A D I N S T A N C E H a
0031360 s h M a c r o I n i t i a l i
0031400 z e L O O P S L o o p s S y n
0031420 t a x P r e t t y P r i n t I
0031440 n s t a n c e S E T A L L S Y
0031460 N T A X \r T R A N S @ $ ) ) \r
0031500 ( R P A Q Q P P F N S ( D E
0031520 F C L A S S D E F C L A S S E
0031540 S D E F I N S T D E F I N S
0031560 T A N C E S D o l l a r P r i
0031600 n t O u t E n t i t y A d d r
0031620 e s s \r G e t C l a s s V a l
0031640 u e P r i n t O u t G e t V a
0031660 l u e P r i n t O u t L o o p
0031700 s P P M a c r o s P C V P r i
0031720 n t O u t P I n s t a n c e
0031740 P V P r i n t O u t P r e t t
0031760 y P r i n t C l a s s \r P r i
0032000 n t A c t i v e V a l u e P r
0032020 i n t C l a s s P r i n t D e
0032040 f I n s t a n c e s P r i n t
0032060 I n s t a n c e P r i n t O u
0032100 t @ P r i n t O u t @ @ P r
0032120 i n t O u t _ @ \r P r i n t O
0032140 u t _ @ @ P r t t y C l a s s
0032160 e s P r t t y I n s t a n c e
0032200 s P u s h C l a s s V a l u e
0032220 P r i n t O u t P u s h V a l
0032240 u e P r i n t O u t P u t C l
0032260 a s s V a l u e P r i n t O u t
0032300 \r P u t V a l u e P r i n t O
0032320 u t S p l i t A t o m V a r
0032340 P r i n t O u t ) ) \r ( P U T D
0032360 E F ( Q U O T E I N S T A N
0032400 C E S ) ( Q U O T E F I L E
0032420 P K G C O M S ) ( Q U O T E
0032440 ( ( C O M M A C R O ( I N S
0032460 T A N C E S ( E ( P r t t y
0032500 I n s t a n c e s ( Q U O T E
0032520 \r I N S T A N C E S ) ) ) ) )
0032540 ( T Y P E D E S C R I P T I
0032560 O N " i n s t a n c e s " G
0032600 E T D E F G e t I n s t a n c
0032620 e S o u r c e ) ) ) ) \r ( P U T
0032640 D E F ( Q U O T E M E T H O
0032660 D S ) ( Q U O T E F I L E P
0032700 K G C O M S ) ( Q U O T E (
0032720 ( C O M M A C R O ( X ( C
0032740 O M S * ( M E T H C O M .
0032760 X ) ) ) C O N T E N T S \r
0033000 T y p e I n M e t h o d s ) (
0033020 T Y P E D E S C R I P T I O N
0033040 " m e t h o d s " G E T D E
0033060 F G e t I n s t a n c e S o u
0033100 r c e ) ) ) ) \r ( P U T D E F
0033120 ( Q U O T E C L A S S E S )
0033140 ( Q U O T E F I L E P K G C O
0033160 M S ) ( Q U O T E ( ( C O M
0033200 M A C R O ( C L A S S L I S
0033220 T ( P ( D E F C L A S S E S
0033240 . C L A S S L I S T ) ) \r
0033260 ( E ( M A P C ( Q U O T E
0033300 C L A S S L I S T ) ( F U N C
0033320 T I O N P r e t t y P r i n t
0033340 C l a s s ) ) ) ) ) ( T Y P E
0033360 D E S C R I P T I O N " c l
0033400 a s s d e f i n i t i o n s "
0033420 \r G E T D E F G e t C l a s
0033440 s S o u r c e D E L D E F R
0033460 e m o v e C l a s s D e f ) ) )
0033500 ) \r ( A D D T O V A R F I L E
0033520 P K G T Y P E S ( c l a s s
0033540 . C L A S S E S ) ( c l a s
0033560 s e s . C L A S S E S ) (
0033600 C L A S S . C L A S S E S )
0033620 ( I N S T A N C E I N S T A
0033640 N C E S ) ( \r i n s t a n c e
0033660 I N S T A N C E S ) ) \r ( A D
0033700 D T O V A R H P R I N T M A C
0033720 R O S ( c l a s s . H P R
0033740 I N T C L A S S ) ( i n s t a
0033760 n c e . H P R I N T I N S T
0034000 A N C E ) ) \r ( S E T A L L S Y
0034020 N T A X % # ( M A C R O F
0034040 I R S T H a s h M a c r o ) )
0034060 \r ( R P A Q Q L O O P S P R I
0034100 N T A D V I C E ( H P I N I T
0034120 R D T B L ) ) \r ( P U T P R O P
0034140 S H P I N I T R D T B L R E
0034160 A D V I C E ( N I L ( A F T
0034200 E R N I L ( S E T S Y N T A
0034220 X 3 5 ' ( M A C R O F I
0034240 R S T H a s h M a c r o ) H
0034260 P R I N T R D T B L ) ) ) ) \r (
0034300 A D D T O V A R D W I M U S E
0034320 R F O R M S ( T R A N S @ $ )
0034340 ) \r ( P U T P R O P S L O O P
0034360 S P R I N T C O P Y R I G H T
0034400 ( " X e r o x C o r p o r a
0034420 t i o n " 1 9 8 3 1 9 8 4 )
0034440 ) \r N I L \r
0034446