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