$ od -c -N 50000 [eris]<Lisp>Carol>LIBRARY>SINGLEFILEINDEX.DCOM!1 0000000 ( F I L E C R E A T E D " 3 0000020 - J u n - 8 4 1 9 : 1 3 : 4 9 0000040 " ( " c o m p i l e d o n 0000060 " { P H Y L U M } < L I S P C 0000100 O R E > L I B R A R Y > S I N G 0000120 L E F I L E I N D E X . ; 2 5 ) 0000140 \r " 2 8 - M a y - 8 4 1 8 : 0000160 5 4 : 1 4 " r e c o m p i l e 0000200 d c h a n g e s : M E R G E 0000220 D F I L E I N D E X 1 T e s t 0000240 F o r V a r T e s t F o r M a 0000260 c r o T e s t F o r B i t m a 0000300 p \r T e s t F o r R e s o u r 0000320 c e T e s t F o r G e n e r i 0000340 c D e f i n i t i o n T e s t 0000360 F o r C o n s t a n t s T e s 0000400 t F o r I n s t a n c e T e s 0000420 t F o r M e t h o d T e s t F 0000440 o r T y p e i n \r W O R K 0000460 d a t e d " 3 1 - M a y - 8 4 0000500 2 2 : 3 1 : 1 6 " ) \r ( F I L 0000520 E C R E A T E D " 3 - J u n 0000540 - 8 4 1 9 : 1 3 : 0 2 " { P 0000560 H Y L U M } < L I S P C O R E > 0000600 L I B R A R Y > S I N G L E F I 0000620 L E I N D E X . ; 2 5 5 9 8 1 0000640 1 c h a n g e s t o : ( \r 0000660 V A R S S I N G L E F I L E I 0000700 N D E X C O M S T y p e F i n 0000720 d i n g F n s ) ( F N S T e 0000740 s t F o r R e s o u r c e T e 0000760 s t F o r G e n e r i c D e f i 0001000 n i t i o n \r T e s t F o r C 0001020 o n s t a n t s T e s t F o r 0001040 B i t m a p T e s t F o r I n 0001060 s t a n c e T e s t F o r V a 0001100 r T e s t F o r M a c r o T 0001120 e s t F o r M e t h o d M E R 0001140 G E D F I L E I N D E X 1 \r T 0001160 e s t F o r T y p e ) ( G L O 0001200 B A L R E S O U R C E S \ A & 0001220 P S T R ) ( R E C O R D S T 0001240 Y P E S L S T P A T T E R N ) 0001260 ( M A C R O S S F I M O N I T 0001300 O R S F I B L K S T R I N G . 0001320 I N P U T \r ) p r e v i o u s 0001340 d a t e : " 1 7 - M a y - 8 0001360 4 2 3 : 0 4 : 0 3 " { P H Y 0001400 L U M } < L I S P C O R E > L I 0001420 B R A R Y > S I N G L E F I L E 0001440 I N D E X . ; 2 3 ) \r \ S F I . 0001460 L I S P S O U R C E F I L E P A 0001500 0 0 0 1 A 0 0 0 2 D 1 \r ( N A 0001520 M E E R R O R S E T L ( 2 0001540 E R R O R S E T . W 1 E R 0001560 R O R S E T . V 0 E R R O R 0001600 S E T . U ) P 1 C F 2 0001620 F U L L F 3 F I L E R D 0001640 T B L F 4 M A P A D D R ) 0001660 \0 ^ 002 003 \0 003 R S \n \0 \0 g \0 \0 360 0001700 262 > o \0 \0 \0 021 021 001 H 003 265 5 h 022 263 0001720 / R \t \0 \0 277 R \t \0 \0 277 R S \n \0 \0 0001740 c \b d 005 001 241 005 002 265 006 o \0 \0 \0 R \t 0001760 \0 \0 265 006 o \0 \0 \0 375 361 242 h c \b i 020 0002000 001 Y R S \n \0 \0 360 245 I 265 304 i 260 301 H 0002020 002 X 260 270 \0 ( 1 1 7 Q R E A D C 0002040 7 2 Q G E T E O F P T R 5 0002060 0 Q R E A D 4 2 Q S K R E 0002100 A D 3 5 Q S K R E A D 4 0002120 S K I P S E P R S ) \r ( 7 % ( 0002140 ) \r ( 1 0 0 Q 1 7 7 7 7 7 7 0002160 7 7 7 7 Q 6 6 Q 1 7 7 7 7 7 0002200 7 7 7 7 7 Q 1 6 Q ( % ( F 0002220 I L E C R E A T 0002240 E D % ) ) \r \ S F I . L 0002260 I S P S O U R C E F I L E P A 0 0002300 0 0 1 D 1 \r ( N A M E E R R 0002320 O R S E T L ( 2 E R R O R 0002340 S E T . W 1 E R R O R S E T 0002360 . V 0 E R R O R S E T . U ) 0002400 P 0 E R R O R T Y P E L S 0002420 T F 1 F U L L F 2 R 0002440 E S E T V A R S L S T F 3 0002460 F I L E F 4 R E S E T Y ) 0002500 \0 I 001 004 \0 003 Q 262 036 g \0 \0 Q d \t 0002520 \0 \0 h 032 032 032 h h 032 032 R 032 c 004 277 Q 0002540 j \n \0 \0 260 026 o \0 \0 \0 S g \0 \0 \n \0 0002560 \0 c 002 h 032 032 R 032 c 004 277 o \0 \0 \0 021 0002600 001 \0 o \0 \0 \0 \t \0 \0 023 h c \b i 020 \0 0002620 ( 1 0 1 Q \ S F I . L I S P S 0002640 O U R C E F I L E P A 0 0 0 1 A 0002660 0 0 0 2 5 1 Q O P E N F I L 0002700 E 3 4 Q S E T F I L E P T R 0002720 1 2 Q G E T F I L E P T R ) 0002740 \r ( 4 6 Q I N P U T 5 S E 0002760 T F I L E P T R ) \r ( 7 6 Q 0003000 ( D U M M Y . F O R . E R R O R 0003020 S E T ) 6 7 Q ( ( 2 0 Q ( 0003040 E R R O R ! ) ) ) 4 2 Q ( P 0003060 R O G N ( C L O S E F ? O L 0003100 D V A L U E ) ) ) \r \ S F I . L 0003120 I S P S O U R C E F I L E P D 0003140 1 \r ( P 4 R E S E T Z P 0003160 3 R E S E T Y P 2 L I S 0003200 P X H I S T P 1 M A P A D 0003220 D R P 0 F U L L I 0 0003240 F I L E F 5 L I S P X H I 0003260 S T F 6 R E S E T V A R S 0003300 L S T ) \0 3 005 002 \0 001 @ \t \0 \0 021 0003320 021 001 H 265 024 U 021 ! 004 V o \0 \0 \0 g \0 0003340 \0 \n \0 \0 230 h 211 \t \0 \0 263 353 h 020 g \0 0003360 \0 \ \n \0 \0 277 L 222 \b \0 \0 I 020 \0 ( 5 0003400 7 Q E R R O R ! 5 1 Q R E 0003420 S E T R E S T O R E 3 6 Q R 0003440 A N D A C C E S S P 3 0 Q \ 0003460 S F I . L I S P S O U R C E F I 0003500 L E P A 0 0 0 1 3 O P E N P 0003520 ) \r ( 4 5 Q E R R O R 2 5 Q 0003540 I N T E R N A L ) \r ( 2 2 Q 0003560 ( D U M M Y . F O R . E R R O 0003600 R S E T ) ) \r \ S F I . G E T F 0003620 I L E M A P A 0 0 0 1 D 1 \r ( 0003640 N A M E E R R O R S E T L 0003660 ( 2 E R R O R S E T . W 1 0003700 E R R O R S E T . V 0 E R R 0003720 O R S E T . U ) P 1 C F 0003740 2 F I L E F 3 F I L E 0003760 R D T B L F 4 M A P A D D 0004000 R F 5 M A P ) \0 h 002 004 \0 0004020 003 R S \n \0 \0 g \0 \0 360 262 H o \0 \0 \0 0004040 021 021 001 H 003 265 ? h 022 263 9 R \t \0 \0 277 0004060 R \t \0 \0 277 R S \n \0 \0 c \b d 005 001 241 0004100 005 002 265 006 o \0 \0 \0 R \t \0 \0 265 006 o \0 0004120 \0 \0 375 361 234 R T \n \0 \0 277 R S \n \0 \0 0004140 c \n i 020 001 Y R S \n \0 \0 360 245 I 265 272 0004160 i 260 267 H 002 X 260 256 \0 ( 1 3 1 Q R 0004200 E A D C 1 1 6 Q R E A D 1 0004220 1 0 Q S E T F I L E P T R 7 0004240 2 Q G E T E O F P T R 5 0 Q 0004260 R E A D 4 2 Q S K R E A D 0004300 3 5 Q S K R E A D 4 S K 0004320 I P S E P R S ) \r ( 7 % ( ) \r 0004340 ( 1 0 0 Q 1 7 7 7 7 7 7 7 7 0004360 7 7 Q 6 6 Q 1 7 7 7 7 7 7 7 0004400 7 7 7 Q 1 6 Q ( % ( F I 0004420 L E C R E A T E 0004440 D % ) ) \r \ S F I . G E T 0004460 F I L E M A P D 1 \r ( P 3 0004500 E R R O R T Y P E L S T P 2 0004520 O P O S P 1 M A P A D D 0004540 R P 0 M A P I 1 F L 0004560 I 0 F I L E F 4 U S 0004600 E M A P F L G ) \0 ] 004 001 \0 002 T 0004620 264 Z 021 001 A 236 @ A g \0 \0 033 003 X 001 0004640 360 223 H 002 001 020 @ \t \0 \0 251 l \r @ h 032 0004660 032 \t \0 \0 020 @ \t \0 \0 241 h 020 @ \t \0 \0 0004700 021 001 002 h X @ j \n \0 \0 o \0 \0 \0 021 001 0004720 003 o \0 \0 \0 \t \0 \0 023 @ J \n \0 \0 H 003 0004740 001 g \0 \0 360 264 005 H 002 001 020 \0 ( 1 1 6 0004760 Q S E T F I L E P T R 1 1 0 0005000 Q \ S F I . G E T F I L E M A 0005020 P A 0 0 0 1 7 2 Q S E T F I 0005040 L E P T R 6 0 Q G E T F I L 0005060 E P T R 5 1 Q R A N D A C C 0005100 E S S P 4 4 Q E R R O R X 0005120 3 2 Q O P E N P ) \r ( 1 2 4 Q 0005140 F I L E M A P 1 4 Q F I L 0005160 E M A P ) \r ( 1 0 5 Q ( D U 0005200 M M Y . F O R . E R R O R S E T 0005220 ) 7 6 Q ( ( 2 0 Q ( E R R 0005240 O R ! ) ) ) ) \r I L E S S C A D 0005260 R D 1 \r ( L ( 1 J 0 I 0005300 ) ) \0 026 \0 \0 \0 002 @ 002 001 264 021 A 002 0005320 001 h 360 265 \n @ 002 001 A 002 001 375 361 020 \0 N 0005340 I L \r N I L \r ( ) \r U A L P H O 0005360 R D E R C A R D 1 \r ( I 1 0005400 B I 0 A ) \0 \t \0 \0 \0 002 @ 0005420 001 A 001 \n \0 \0 020 \0 ( 6 U A L P H 0005440 O R D E R ) \r N I L \r ( ) \r P U 0005460 T S A S S O C D 1 \r ( P 1 0005500 f o u n d F l g P 0 n e w 0005520 L i s t I 2 A L S T I 0005540 1 V A L I 0 K E Y ) \0 0005560 A 006 \0 \0 003 021 0 002 021 0 005 B 260 % d 001 0005600 272 I 257 J d 001 @ \n \0 \0 230 277 i 271 J 001 0005620 A 032 200 J 273 L 265 \a K h 032 ] 201 K & 274 0005640 002 003 265 334 M 022 X I 251 d @ A 032 h 032 \n 0005660 \0 \0 020 H 020 \0 ( 7 4 Q \ A P P E 0005700 N D 2 2 4 Q E Q U A L ) \r N 0005720 I L \r ( ) \r P R I N T D O T S 0005740 D 1 \r ( P 0 S T R M I 1 0005760 F I L E I 0 N ) \0 035 001 0006000 \0 \0 002 A g \0 \0 \n \0 \0 021 001 \0 @ d j 0006020 361 264 \r H l . \n \0 \0 277 k 331 260 362 020 \0 0006040 ( 2 5 Q B O U T 6 G E T S 0006060 T R E A M ) \r ( 3 O U T P U T 0006100 ) \r ( ) \r \ S F I . P L U R A L 0006120 I Z E D 1 \r ( P 2 S U F F 0006140 I X P 1 L E N P 0 L 0006160 I T P I 0 X ) \0 p 003 \0 \0 0006200 001 @ 004 l 004 360 021 ! 002 H 254 @ 005 \a 250 o 0006220 \0 \0 \0 @ \n \0 \0 277 @ d \t \0 \0 Y ) d 0006240 l X 360 244 d l S 360 226 277 o \0 \0 \0 260 1 0006260 d l H 360 262 023 277 @ I k 331 ) l S 360 262 0006300 034 o \0 \0 \0 260 032 l Y 360 237 @ k I k 331 0006320 \v \0 \0 b \0 277 o \0 \0 \0 203 o \0 \0 \0 Z 0006340 @ J \n \0 \0 b \0 H 224 d \t \0 \0 020 @ 020 0006360 \0 ( 1 5 3 Q M K A T O M 1 4 0006400 3 Q C O N C A T 1 2 1 Q S 0006420 U B S T R I N G 3 3 Q N C H 0006440 A R S 2 5 Q \ L I S P E R R 0006460 O R ) \r N I L \r ( 1 3 5 Q " 0006500 S " 1 3 0 Q " I E S " 1 0 0006520 3 Q " E S " 5 4 Q " E S " 0006540 2 1 Q " A R G N O T L I 0006560 T A T O M " ) \r N D I N F I L E 0006600 C O M S ? D 1 \r ( P 1 l i 0006620 s t I 5 i t e m s I 4 0006640 M A P I 3 C O M S I 0006660 2 F U L L I 1 T Y P E 0006700 I 0 N A M E ) \0 207 002 \0 \0 006 0006720 B \t \0 \0 251 l \r B h 032 032 \t \0 \0 277 D 0006740 262 V A g \0 \0 360 262 O @ d i 360 226 277 D 0006760 002 264 d i 020 263 D 260 030 d 001 002 214 d 001 0007000 d 001 E 034 244 001 E 032 b \n 277 002 003 265 361 002 0007020 003 265 351 E 020 D 021 021 001 H 003 265 \b h 022 264 0007040 6 i 020 001 271 @ I \n \0 \0 225 I 265 362 i 260 0007060 357 H 002 X 260 346 C 206 d 001 \t \0 \0 277 002 003 0007100 265 370 @ 262 320 E 241 h 020 @ i 360 246 @ E \n 0007120 \0 \0 264 003 i 020 \0 ( 2 0 1 Q M E M 0007140 B E R 1 5 4 Q \ N D I N F I 0007160 L E C O M S 1 1 3 1 Q A S S 0007200 O C 1 5 Q E R R O R X 3 0007220 O P E N P ) \r ( 2 5 Q F N S ) 0007240 \r ( ) \r \ N D I N F I L E C O M 0007260 S 1 D 1 \r ( P 3 f i l e V 0007300 a r P 2 l i s t P 1 0007320 i t e m P 0 l i s t I 0007340 0 C O M F 4 i t e m s 0007360 F 5 T Y P E F 6 F U L 0007400 L F 7 M A P F 1 0 Q 0007420 T E M F 1 1 Q C O M M E N 0007440 T F L G F 1 2 Q N A M E ) 0007460 001 032 004 \a \0 001 @ 003 h 360 265 003 202 261 001 0007500 021 @ 001 g \0 \0 360 262 < @ 021 001 \0 H 002 X 0007520 d 242 261 \0 375 d 001 003 263 $ 001 d g \0 \0 360 0007540 263 024 d g \0 \0 360 253 d g \0 \0 360 245 d g 0007560 \0 \0 360 224 277 H 002 260 327 277 260 323 001 \t \0 \0 0007600 277 260 314 U @ 001 360 263 024 U g \0 \0 360 262 } 0007620 @ d 002 001 g \0 \0 360 262 t 277 @ d 002 001 g 0007640 \0 \0 360 262 b 002 002 001 004 l 004 360 264 Z @ 002 0007660 002 001 d 223 d i 360 222 277 i 201 277 h 263 $ U 0007700 g \0 \0 360 237 @ d 002 002 001 T 034 250 002 002 001 0007720 T 032 c \b 277 @ 002 002 001 V W 016 \v \0 \0 260 0007740 ' h 260 $ d 001 021 001 001 W 022 I 003 001 360 263 0007760 025 I d 003 220 001 c 020 T \n \0 \0 246 W 020 T 0010000 032 c \b 277 023 002 003 265 335 h 020 @ 001 g \0 \0 0010020 360 264 > 021 003 @ d 002 001 g \0 \0 360 262 035 0010040 002 002 001 [ 004 l 004 360 264 024 K d 236 i 360 h 0010060 360 264 \v K V W 016 \v \0 \0 200 002 Z d 264 021 0010100 W 024 U V J W 016 T \r 006 \0 \0 c \b h 020 0010120 \0 ( 4 2 4 Q N D I N F I L E C 0010140 O M S ? 4 0 2 Q \ S F I . G 0010160 E T F I L V A R D E F 3 0 4 Q 0010200 M E M B E R 2 4 7 Q \ S F 0010220 I . G E T F I L V A R D E F 1 0010240 1 0 Q \ N D I N F I L E C O M 0010260 S 1 ) \r ( 3 4 5 Q * 3 3 0 Q 0010300 C O M S 2 1 3 Q V A R S 0010320 1 5 2 Q * 1 3 7 Q * 1 2 0010340 5 Q V A R S 7 2 Q C O M P 0010360 I L E R V A R S 6 4 Q E V A 0010400 L @ L O A D W H E N 5 6 Q E 0010420 V A L @ C O M P I L E W H E N 0010440 4 7 Q C O P Y W H E N 1 6 Q 0010460 D E C L A R E : ) \r ( ) \r \ S 0010500 F I . L O A D C O M S A 0 0 0 1 0010520 D 1 \r ( N A M E E R R O R S 0010540 E T L ( 2 E R R O R S E T 0010560 . W 1 E R R O R S E T . V 0010600 0 E R R O R S E T . U ) P 0010620 1 C F 2 F U L L F 3 0010640 F I L E R D T B L F 4 T 0010660 E M F 5 N E W C O M S F 0010700 6 C O M S N A M E ) \0 o 002 0010720 005 \0 003 R S \n \0 \0 g \0 \0 360 262 c o \0 0010740 \0 \0 021 021 001 H 003 265 / h 022 263 T R j \n 0010760 \0 \0 277 R \t \0 \0 277 R \t \0 \0 277 021 020 \0 0011000 k X l 005 361 263 : R S \n \0 \0 c \b 003 265 0011020 033 H k 330 260 355 001 Y R S \n \0 \0 360 245 I 0011040 265 312 i 260 307 H 002 X 260 276 001 g \0 \0 360 262 0011060 342 V T 002 003 001 360 262 332 T 002 002 001 c \n i 0011100 020 \0 ( 1 1 1 Q R E A D C 7 0 0011120 Q R E A D 5 0 Q S K R E A 0011140 D 4 3 Q S K R E A D 3 6 Q 0011160 S E T F I L E P T R 4 S K 0011200 I P S E P R S ) \r ( 1 3 2 Q R 0011220 P A Q Q 7 % ( ) \r ( 1 6 Q 0011240 ( % ( F I L E C R 0011260 E A T E D % ) ) \r 0011300 \ S F I . L O A D C O M S D 1 0011320 \r ( P 2 N E W C O M S P 0011340 1 E R R O R T Y P E L S T P 0011360 0 C O M S N A M E I 1 0011400 M A P I 0 F U L L F 3 0011420 F I L E ) \0 < 003 001 \0 002 @ g \0 0011440 \0 \n \0 \0 251 l \r @ h 032 032 \t \0 \0 277 A 0011460 255 @ \t \0 \0 250 S o \0 \0 \0 \n \0 \0 277 @ 0011500 j \n \0 \0 @ \t \0 \0 o \0 \0 \0 021 022 002 o 0011520 \0 \0 \0 \t \0 \0 J 020 \0 ( 7 0 Q \ S 0011540 F I . L O A D C O M S A 0 0 0 1 0011560 5 2 Q F I L E C O M S 4 6 0011600 Q S E T F I L E P T R 4 0 Q 0011620 E R R O R 2 7 Q L I S P S 0011640 O U R C E F I L E P 2 0 Q E 0011660 R R O R X 6 O P E N P ) \r ( 0011700 3 I N P U T ) \r ( 6 5 Q ( 0011720 D U M M Y . F O R . E R R O R S 0011740 E T ) 5 6 Q ( ( 2 0 Q ( E 0011760 R R O R ! ) ) ) 3 5 Q " N o 0012000 t a L i s p s o u r c e 0012020 f i l e . " ) \r \ S F I . G E T 0012040 F I L V A R D E F D 1 \r ( P 0012060 0 V A L I 2 M A P I 0012100 1 F U L L I 0 N A M E 0012120 F 1 \ S F I . G E T D E F . 0012140 H A S H ) \0 S 001 001 \0 003 @ d 262 " 0012160 004 l 004 360 264 034 021 020 \0 Q 003 263 Q g \0 0012200 \0 360 253 B 253 A \t \0 \0 246 g \0 \0 c 002 h 0012220 020 l 036 \t \0 \0 h 032 c 002 277 @ Q 035 X 265 0012240 031 @ g \0 \0 A g \0 \0 \f \0 \0 270 @ H 265 0012260 003 Q Q \v \0 \0 H 020 Q 360 262 374 h 020 \0 ( 0012300 1 1 1 Q P U T H A S H 7 7 Q 0012320 G E T D E F 5 1 Q H A R R 0012340 A Y 3 4 Q L I S P S O U R C 0012360 E F I L E P ) \r ( 7 4 Q N O E 0012400 R R O R 7 0 Q V A R S 4 0 0012420 Q E R R O R 2 4 Q E R R O 0012440 R ) \r ( ) \r \ S F I . C E N T E 0012460 R P R I N T D 1 \r ( I 2 D 0012500 o n t P r i n t P a g e N b r F 0012520 l g I 1 B O L D F L G I 0012540 0 S T R F 0 F I L E L 0012560 I N E L E N G T H ) \0 + \0 001 \0 0012600 003 P @ \t \0 \0 331 342 \t \0 \0 A 262 025 ` \0 0012620 \0 \t \0 \0 277 @ \t \0 \0 277 ` \0 \0 \t \0 \0 0012640 203 @ \t \0 \0 277 B \t \0 \0 020 \0 ( 5 0 Q 0012660 I N D E X N E W L I N E 4 3 0012700 Q P R I N 1 3 6 Q C H A N 0012720 G E F O N T 2 7 Q P R I N 1 0012740 2 2 Q C H A N G E F O N T 0012760 1 1 Q T A B 4 N C H A R S 0013000 ) \r ( 3 3 Q D E F A U L T F O 0013020 N T 1 7 Q B O L D F O N T ) 0013040 \r ( ) \r \ S F I . L I S T I N G 0013060 H E A D E R D 1 \r ( I 0 d 0013100 o n t P r i n t P a g e N u m b 0013120 e r F l g F 0 c u r r e n 0013140 t I t e m F 1 F N U M F 0013160 2 P A G E C O U N T F 3 0013200 F U L L F 4 R E L A T I 0013220 V E I N D E X F L G F 5 F 0013240 I L E L I N E L E N G T H ) \0 0013260 q \0 006 \0 001 S 265 + P 262 F Q 262 + T 262 0013300 ( o \0 \0 \0 \t \0 \0 277 P \t \0 \0 277 o \0 0013320 \0 \0 \t \0 \0 277 Q \t \0 \0 277 o \0 \0 \0 260 0013340 034 \t \0 \0 277 260 323 P 262 027 o \0 \0 \0 \t \0 0013360 \0 277 P \t \0 \0 277 o \0 \0 \0 \t \0 \0 277 U 0013400 l \t 331 i \n \0 \0 R 262 026 @ 263 023 o \0 \0 0013420 \0 \t \0 \0 277 o \0 \0 \0 R \n \0 \0 277 \b \0 0013440 \0 \b \0 \0 020 \0 ( 1 5 6 Q I N D E 0013460 X N E W L I N E 1 5 3 Q I N 0013500 D E X N E W L I N E 1 4 7 Q 0013520 P R I N T N U M 1 3 6 Q P R 0013540 I N 1 1 2 1 Q T A B 1 1 0 0013560 Q P R I N 1 1 0 0 Q P R I 0013600 N 2 7 3 Q P R I N 1 5 6 Q 0013620 P R I N 1 4 4 Q P R I N 1 0013640 3 7 Q P R I N 1 2 7 Q P 0013660 R I N 2 2 2 Q P R I N 1 ) \r 0013700 N I L \r ( 1 4 3 Q ( F I X 0013720 4 ) 1 3 3 Q " P a g e " 0013740 1 0 5 Q " c o n t . ) " 7 0013760 0 Q " ( " 5 1 Q " ] 0014000 c o n t . ) " 3 4 Q " [ " 0014020 1 7 Q " ( " ) \r \ S F I . 0014040 B r e a k L i n e D 1 \r ( P 0014060 0 S T R M F 1 F I L E L 0014100 I N E L E N G T H ) \0 ' 001 001 \0 0014120 \0 i \t \0 \0 \b \0 \0 g \0 \0 \n \0 \0 021 001 0014140 \0 Q d j 361 232 H l ~ \n \0 \0 277 k 331 260 0014160 363 023 i \t \0 \0 020 \0 ( 4 4 Q I N D 0014200 E X N E W L I N E 3 2 Q B O 0014220 U T 1 4 Q G E T S T R E A M 0014240 6 O U T P U T 3 I N D E 0014260 X N E W L I N E ) \r ( 1 1 Q O 0014300 U T P U T ) \r ( ) \r S I N G L E 0014320 F I L E I N D E X D 1 \r ( P 0014340 0 F U L L I 2 m e r g e 0014360 d I n d e x F l g I 1 O U 0014400 T F I 0 I N F ) \0 242 001 \0 0014420 \0 003 @ \t \0 \0 021 001 \0 H 263 035 @ ` \0 \0 0014440 \n \0 \0 277 o \0 \0 \0 ` \0 \0 \n \0 \0 277 ` 0014460 \0 \0 \t \0 \0 h 020 g \0 \0 H d 262 032 d i 0014500 360 263 025 d 005 001 245 d 005 002 241 005 003 265 \t g 0014520 \0 \0 H h 032 032 A d 262 032 d i 360 263 025 d 0014540 005 001 245 d 005 002 241 005 003 265 \t g \0 \0 A h 0014560 032 032 B d 262 032 d i 360 263 025 d 005 001 245 d 0014600 005 002 241 005 003 265 \t g \0 \0 B h 032 032 h 032 0014620 032 032 032 g \0 \0 m 376 \t \0 \0 g \0 \0 360 223 0014640 g \0 \0 202 g \0 \0 g \0 \0 g \0 \0 \r 005 \0 0014660 \0 H 020 \0 ( 2 3 6 Q A D D . P R 0014700 O C E S S 2 1 0 Q S T K N T 0014720 H N A M E 4 2 Q T E R P R I 0014740 3 3 Q P R I N 1 2 0 Q P 0014760 R I N 1 3 F I N D F I L E ) 0015000 \r ( 2 3 2 Q D O N ' T 2 2 7 0015020 Q B E F O R E E X I T 2 2 4 0015040 Q S I N G L E F I L E I N D E 0015060 X 2 2 0 Q L I S T F I L E S 0015100 2 1 3 Q L I S T F I L E S 0015120 2 0 3 Q N A M E 1 6 7 Q Q 0015140 U O T E 1 3 3 Q Q U O T E 0015160 7 7 Q Q U O T E 4 7 Q S I 0015200 N G L E F I L E I N D E X 2 3 0015220 7 Q P R O M P T W I N D O W 0015240 3 0 Q P R O M P T W I N D O W 0015260 1 5 Q P R O M P T W I N D O 0015300 W ) \r ( 2 5 Q " n o t f 0015320 o u n d . " ) \r S I N G L E F I 0015340 L E I N D E X 2 A 0 0 0 1 D 1 0015360 \r ( N A M E E R R O R S E T 0015400 L ( 2 E R R O R S E T . W 0015420 1 E R R O R S E T . V 0 E 0015440 R R O R S E T . U ) F 0 F 0015460 U L L F 1 O U T F F 2 0015500 m e r g e d I n d e x F l g 0015520 F 3 R E S E T Y ) \0 024 \0 004 0015540 \0 003 ` \0 \0 h i \v \0 \0 277 P Q R \v \0 0015560 \0 c 006 i 020 \0 ( 1 6 Q S I N G L 0015600 E F I L E I N D E X 1 7 O B 0015620 T A I N . M O N I T O R L O C K 0015640 ) \r ( 2 \ S I N G L E F I L E 0015660 I N D E X . L O C K ) \r ( ) \r S 0015700 I N G L E F I L E I N D E X 2 0015720 D 1 \r ( P 2 R E S E T Z P 0015740 1 R E S E T Y P 0 L I 0015760 S P X H I S T I 2 m e r g 0016000 e d I n d e x F l g I 1 O 0016020 U T F I 0 F U L L F 3 0016040 N O T L I S T E D F I L E S 0016060 F 4 L I S P X H I S T F 0016100 5 R E S E T V A R S L S T ) 0016120 \0 177 003 003 \0 003 ` \0 \0 004 ` \0 \0 360 252 o 0016140 \0 \0 \0 \t \0 \0 027 \0 \0 277 T 021 ! 002 U o 0016160 \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z 0016200 \n \0 \0 277 J 223 \b \0 \0 200 I 022 262 6 A 263 0016220 1 o \0 \0 \0 ` \0 \0 \n \0 \0 277 @ ` \0 \0 0016240 \n \0 \0 277 o \0 \0 \0 ` \0 \0 \n \0 \0 277 ` 0016260 \0 \0 ` \0 \0 \n \0 \0 277 ` \0 \0 \t \0 \0 277 0016300 i 203 @ \t \0 \0 264 \r @ \t \0 \0 S \n \0 \0 0016320 c 006 h 020 \0 ( 1 7 1 Q R E M O V 0016340 E 1 6 5 Q R O O T F I L E N 0016360 A M E 1 5 7 Q O L D L I S T 0016400 F I L E S 1 1 5 0 Q T E R P 0016420 R I 1 4 1 Q P R I N 1 1 2 0016440 7 Q P R I N 1 1 1 4 Q P R 0016460 I N 1 1 0 4 Q P R I N 1 6 0016500 2 Q E R R O R ! 5 4 Q R E 0016520 S E T R E S T O R E 4 2 Q S 0016540 I N G L E F I L E I N D E X 2 A 0016560 0 0 0 1 1 7 Q C R E A T E . 0016600 M O N I T O R L O C K ) \r ( 1 4 0016620 5 Q P R O M P T W I N D O W 0016640 1 3 6 Q P R O M P T W I N D O 0016660 W 1 3 3 Q P R I N T E R 1 0016700 2 4 Q P R O M P T W I N D O W 0016720 1 1 1 Q P R O M P T W I N D 0016740 O W 1 0 1 Q P R O M P T W I 0016760 N D O W 5 0 Q E R R O R 3 0017000 7 Q I N T E R N A L 2 2 Q 0017020 \ S I N G L E F I L E I N D E X 0017040 . L O C K 6 004 003 M O N I T O 0017060 R L O C K T Y P E # 2 \ S I 0017100 N G L E F I L E I N D E X . L O 0017120 C K ) \r ( 1 2 1 Q " = > 0017140 " 7 6 Q " i n d e x e d v 0017160 e r s i o n o f " 3 4 Q 0017200 ( D U M M Y . F O R . E R R O R 0017220 S E T ) 1 4 Q " S i n g l e 0017240 F i l e I n d e x L o c k " ) \r 0017260 S I N G L E F I L E I N D E X 1 0017300 A 0 0 0 1 D 1 \r ( N A M E E 0017320 R R O R S E T L ( 2 E R R 0017340 O R S E T . W 1 E R R O R S 0017360 E T . V 0 E R R O R S E T . 0017400 U ) P 3 3 Q f u n c t i o 0017420 n P 3 2 Q n e w P o s P 0017440 3 1 Q l i n e P o s P 3 0017460 0 Q c u r r e n t P o s P 0017500 2 7 Q i t e m s P 2 6 Q 0017520 t y p e P 2 1 Q T E M P 0017540 2 0 Q F N S M A P S L P 0017560 1 7 Q n e x t F n S t a r t 0017600 P 1 6 Q n e x t F n G r o u 0017620 p P 1 5 Q c u r r e n t I 0017640 t e m P 1 4 Q \ S F I . G 0017660 E T D E F . H A S H P 1 3 Q 0017700 l a s t P a g e P 1 2 Q 0017720 t y p e N a m e s P 1 1 Q 0017740 I t e m P a g e s P 1 0 Q 0017760 F U L L S P 7 F U L L E O 0020000 L C P 6 P A G E C O U N T 0020020 P 5 L I N E C O U N T P 0020040 4 M A P P 3 C O M S 0020060 P 2 F N U M P 1 t y p 0020100 e s L S T P 0 L I N E S P 0020120 E R P A G E F 3 4 Q F U L 0020140 L F 3 5 Q R E S E T V A R 0020160 S L S T F 3 6 Q O U T F 0020200 F 3 7 Q L I N E S P E R P A 0020220 G E F 4 0 Q I N D E X E D 0020240 T Y P E S L S T F 4 1 Q R 0020260 E S E T Y F 4 2 Q m e r g 0020300 e d I n d e x F l g ) 002 327 034 \a 0020320 \0 003 W > ` \0 \0 230 ` \0 \0 g \0 \0 360 264 0020340 004 W @ j 021 363 021 o \0 \0 \0 W 8 g \0 \0 0020360 g \0 \0 \v \0 \0 c 8 h 032 032 W : 032 c : 0020400 277 W 8 d \t \0 \0 g \0 \0 033 003 _ " 001 360 0020420 226 O " 002 001 274 260 032 ` \0 \0 263 025 o \0 \0 0020440 \0 h h 032 032 W : 032 c : 277 i 027 \0 \0 277 0020460 W 8 \t \0 \0 251 I 263 031 L 264 003 202 261 002 f 0020500 L 263 023 W 8 \t \0 \0 \ 251 W 8 \t \0 \0 243 0020520 h 261 002 R o \0 \0 \0 W < 265 005 ` \0 \0 g 0020540 \0 \0 g \0 \0 \v \0 \0 c < \t \0 \0 h 032 032 0020560 W : 032 c : 277 g \0 \0 l \n \t \0 \0 h 032 0020600 032 h 032 W : 032 c : 277 W 8 W < \n \0 \0 0020620 270 g \0 \0 n 003 350 W < \n \0 \0 h 032 032 h 0020640 032 W : 032 c : 277 ` \0 \0 235 W 8 \t \0 \0 0020660 277 W 8 L \n \0 \0 260 035 W 8 L \n \0 \0 [ 0020700 262 025 I 021 Q 027 O $ 003 265 G O & 022 271 O 0020720 024 001 _ 024 277 L 002 _ 277 W 8 _ 020 g \0 0020740 \0 \n \0 \0 _ 020 312 030 001 _ 016 277 k ] 276 O 0020760 001 002 002 _ 034 001 002 001 _ 036 277 j 021 ! 032 0021000 O 016 d j 360 242 261 \0 207 277 g \0 \0 261 \0 213 0021020 001 _ , 277 h O , 001 h i \v \0 \0 _ " 265 0021040 \b O , 001 \t \0 \0 W 8 K L O " 264 \t h 0021060 O " K \v \0 \0 \r 006 \0 \0 _ . 262 A O 024 0021100 O , 001 O . 032 \n \0 \0 _ 024 277 ` \0 \0 O 0021120 , 002 001 003 001 360 262 025 O , 001 O , 002 001 002 0021140 001 \t \0 \0 O , 002 002 032 032 201 O , _ * 277 0021160 O ( 265 023 O * h 032 _ ( _ & 277 O $ 002 0021200 _ $ 261 377 F O * & _ ( 277 260 362 k 360 223 0021220 g \0 \0 203 o \0 \0 \0 W 8 O 0 \v \0 \0 _ 0021240 4 262 z O 036 262 2 O 0 d O 036 331 j 360 262 0021260 * 277 O 034 215 d 001 021 001 033 O 6 \t \0 \0 _ 0021300 4 023 002 003 265 361 O 002 _ 001 002 002 _ 034 0021320 001 002 001 _ 036 260 ; O 0 _ 2 277 O 020 O 0 0021340 \n \0 \0 277 O 4 O 016 l 002 360 227 O 020 \t \0 0021360 \0 277 k 200 j 330 _ 4 277 I 225 O 020 \t \0 \0 0021400 277 O 020 W < O 0 O 4 \f \0 \0 277 \b \0 \0 0021420 277 O 4 k 330 _ 0 277 261 376 350 023 N _ 026 277 0021440 ` \0 \0 230 ` \0 \0 g \0 \0 360 262 v O 022 g 0021460 \0 \0 \n \0 \0 _ 022 277 i \t \0 \0 277 W 8 \t 0021500 \0 \0 277 g \0 \0 021 0 024 O 024 260 032 d 001 001 0021520 _ $ 277 O & 265 \t O $ h 032 _ ( 202 O $ 0021540 & _ & 277 002 003 265 347 O ( 022 032 _ " d \n 0021560 \0 \0 215 d 001 021 001 026 O , O 026 \n \0 \0 023 0021600 002 003 265 361 \b \0 \0 277 W D 262 027 i \t \0 \0 0021620 277 W 8 \t \0 \0 277 O 022 o \0 \0 \0 \n \0 \0 0021640 277 W 8 022 c B i 020 \0 ( 1 3 1 5 Q 0021660 P r i n t M e r g e d I n d e x 0021700 1 3 0 3 Q P r i n t F i l e 0021720 T i t l e 1 2 7 5 Q I N D E 0021740 X N E W P A G E 1 2 6 4 Q \ 0021760 S F I . B r e a k L i n e 1 2 0022000 5 4 Q P r i n t O n e T y p e 0022020 I n d e x 1 2 3 7 Q I N T E 0022040 R S E C T I O N 1 1 5 7 Q P 0022060 r i n t F i l e T i t l e 1 1 0022100 5 1 Q I N D E X N E W P A G E 0022120 1 1 4 2 Q S O R T 1 0 7 5 0022140 Q I N D E X N E W L I N E 1 0022160 0 7 1 Q I N D E X C O P Y B Y 0022200 T E S 1 0 5 5 Q \ S F I . A 0022220 n a l y z e L i n e 1 0 3 6 Q 0022240 R E A D C 1 0 2 0 Q S E T 0022260 F I L E P T R 7 5 4 Q P r i 0022300 n t F n D e f 7 1 4 Q F F I 0022320 L E P O S 6 2 1 Q E V A L 0022340 5 6 6 Q T C O N C 5 4 7 Q 0022360 N D I N F I L E C O M S ? 5 4 0022400 3 Q I N F I L E C O M S ? 5 0022420 2 4 Q \ S F I . P L U R A L I 0022440 Z E 5 1 2 Q G E T F I L E P 0022460 K G T Y P E 4 2 1 Q G E T S 0022500 T R E A M 3 5 4 Q \ S F I . 0022520 L O A D C O M S 3 4 4 Q P r 0022540 i n t R e l a t i v e F u n c t 0022560 i o n I n d e x 3 3 5 Q P r 0022600 i n t F i l e T i t l e 3 1 1 0022620 Q L I N E L E N G T H 2 7 5 0022640 Q D e t e r m i n e L i n e s 0022660 P e r P a g e 2 5 3 Q R A D 0022700 I X 2 3 2 Q O U T P U T 2 0022720 2 5 Q O P E N F I L E 1 7 4 0022740 Q L I S P S O U R C E F I L E 0022760 P 1 6 5 Q G E T F I L E M A 0023000 P 1 4 2 Q R A N D A C C E S 0023020 S P 6 4 Q R O O T F I L E N 0023040 A M E 4 3 Q O P E N F I L E 0023060 ) \r ( 1 1 6 3 Q F U N C T I O 0023100 N 1 1 3 7 Q U A L P H O R D 0023120 E R C A R 1 1 2 7 Q B O T H 0023140 1 1 2 4 Q R E L A T I V E I 0023160 N D E X F L G 1 1 2 0 Q R E 0023200 L A T I V E I N D E X F L G 7 0023220 0 0 Q % \n 5 7 4 Q \ S F I 0023240 . I N D I R E C T I O N 4 7 2 0023260 Q % \r 4 1 6 Q I N P U T 0023300 3 2 7 Q R E L A T I V E I N D 0023320 E X F L G 3 0 1 Q L I N E L 0023340 E N G T H 2 4 6 Q R A D I X 0023360 2 2 2 Q N E W 2 1 7 Q O 0023400 U T P U T 2 1 4 Q P R I N T 0023420 E R 1 3 4 Q U S E M A P F L 0023440 G 1 1 0 Q U S E M A P F L G 0023460 6 7 Q F I L E M A P 4 0 Q 0023500 O L D 3 5 Q I N P U T 1 0023520 3 Q B O T H 1 0 Q R E L A 0023540 T I V E I N D E X F L G 4 R 0023560 E L A T I V E I N D E X F L G ) 0023600 \r ( 1 3 1 2 Q " T A B L E 0023620 O F C O N T E N T S " 7 0 5 0023640 Q " \r % \n " 2 0 5 Q ( P R 0023660 O G N ( C L O S E F ? ( O U 0023700 T P U T O L D V A L U E ) ) ) 0023720 1 1 6 Q ( S E T T O P V A L 0023740 U S E M A P F L G ) 3 0 Q 0023760 ( P R O G N ( C L O S E F ? 0024000 O L D V A L U E ) ) ) \r S I N G 0024020 L E F I L E I N D E X 1 D 1 \r 0024040 ( P 2 R E S E T Z P 1 0024060 R E S E T Y P 0 L I S P X 0024100 H I S T I 2 m e r g e d I 0024120 n d e x F l g I 1 O U T F 0024140 I 0 F U L L F 3 L I 0024160 S P X H I S T F 4 R E S E 0024200 T V A R S L S T ) \0 " 003 002 \0 003 0024220 S 021 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221 0024240 h 202 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 0024260 020 \0 ( 3 5 Q E R R O R ! 3 0 0024300 Q R E S E T R E S T O R E 1 0024320 6 Q S I N G L E F I L E I N D 0024340 E X 1 A 0 0 0 1 ) \r ( 2 4 Q E 0024360 R R O R 1 3 Q I N T E R N A 0024400 L ) \r ( 1 0 Q ( D U M M Y . 0024420 F O R . E R R O R S E T ) ) \r \ 0024440 S F I . A n a l y z e L i n e A 0024460 0 0 0 1 D 1 \r ( N A M E E R 0024500 R O R S E T L ( 2 E R R O 0024520 R S E T . W 1 E R R O R S E 0024540 T . V 0 E R R O R S E T . U 0024560 ) F 1 E N T R Y F 2 0024600 \ A & P S T R ) \0 030 001 002 \0 003 Q 0024620 002 002 001 265 005 g \0 \0 021 001 \0 R Q l 002 H 0024640 017 016 022 h 032 020 \0 N I L \r ( 1 0 Q 0024660 T e s t F o r T y p e ) \r ( ) \r 0024700 \ S F I . A n a l y z e L i n e 0024720 D 1 \r ( P 7 a t o m G u e 0024740 s s P 5 p a t S t r P 0024760 4 c u r r e n t I t e m P 0025000 3 E N T R Y P 1 N b y t 0025020 e s P 0 \ A & P S T R I 0025040 0 F U L L S F 1 0 Q l 0025060 i n e P o s F 1 1 Q I t e 0025100 m P a g e s F 1 2 Q n e w 0025120 P o s F 1 3 Q t y p e s L 0025140 S T F 1 4 Q P A G E C O U 0025160 N T ) \0 356 \b 005 \0 001 @ \t \0 \0 g \0 0025200 \0 360 262 026 @ \t \0 \0 277 @ \t \0 \0 277 W 020 0025220 l 002 330 c 020 277 260 344 @ \t \0 \0 ` \0 \0 \n 0025240 \0 \0 d g \0 \0 360 246 d g \0 \0 360 264 U ` 0025260 \0 \0 265 Q l d \t \0 \0 021 021 001 W 024 W 020 0025300 331 271 H \t \0 \0 I l 003 330 375 361 227 I l 003 0025320 330 \t \0 \0 270 @ W 020 k 330 \n \0 \0 277 H k 0025340 I @ \f \0 \0 277 H I k 330 o \0 \0 \0 \v \0 0025360 \0 277 W 026 021 1 005 J 003 265 021 023 h H 027 \0 0025400 \0 277 020 h 027 \0 \0 277 260 261 001 [ 002 001 ] d 0025420 003 262 % 021 021 \a N 003 265 006 h 022 260 " 001 _ 0025440 016 H k h i \r 005 \0 \0 226 O 016 265 357 i 260 0025460 354 N 002 ^ 260 343 H k h i \r 005 \0 \0 262 $ 0025500 o \0 \0 \0 \t \0 \0 001 \ 265 004 260 027 K 001 W 0025520 030 h 032 032 032 W 022 032 c 022 277 K 002 002 002 001 0025540 262 233 J 002 Z 260 223 \0 ( 3 1 4 Q \ S 0025560 F I . A n a l y z e L i n e A 0 0025600 0 0 1 3 0 3 Q S T R P O S 0025620 2 5 6 Q S T R P O S 1 6 6 Q 0025640 R P L S T R I N G 1 5 2 Q 0025660 A I N 1 4 2 Q S E T F I L E 0025700 P T R 1 3 1 Q A L L O C S T 0025720 R I N G 1 1 3 Q N C H A R S 0025740 7 6 Q A L L O C S T R I N G 0025760 4 7 Q G E T S Y N T A X 4 0026000 1 Q P E E K C 2 2 Q R E A 0026020 D C 1 5 Q R E A D C 3 P 0026040 E E K C ) \r ( 2 1 4 Q \ \ A & 0026060 P S T R . G L O B A L R E S O U 0026100 R C E 2 0 6 Q \ \ A & P S T 0026120 R . G L O B A L R E S O U R C E 0026140 6 7 Q \ \ A & P S T R . G L 0026160 O B A L R E S O U R C E 6 1 Q 0026200 L E F T B R A C K E T 5 3 Q 0026220 L E F T P A R E N 4 4 Q F 0026240 I L E R D T B L 6 006 ) \r ( 0026260 3 1 1 Q ( D U M M Y . F O R . 0026300 E R R O R S E T ) 1 6 3 Q " 0026320 " ) \r P r i n t F n D e f 0026340 D 1 \r ( P 2 c u r r e n t I 0026360 t e m P 1 n e w P o s P 0026400 0 c u r r e n t P o s I 0026420 0 f u n c t i o n F 3 F 0026440 N U M F 4 I t e m P a g e 0026460 s F 5 F I L E L I N E L E 0026500 N G T H F 6 O U T F F 0026520 7 L I N E C O U N T F 1 0 0026540 Q L I N E S P E R P A G E F 0026560 1 1 Q P A G E C O U N T F 0026600 1 2 Q F U L L S ) \0 y 003 \b 0026620 \0 001 @ 002 001 @ 002 002 021 022 002 S k 330 c 006 0026640 @ 001 Z \b \0 \0 ` \0 \0 262 9 U S \t \0 \0 0026660 l 002 330 331 \t \0 \0 277 ` \0 \0 \t \0 \0 277 o 0026700 \0 \0 \0 \t \0 \0 277 S \t \0 \0 277 o \0 \0 \0 0026720 \t \0 \0 277 ` \0 \0 \t \0 \0 277 g \0 \0 \t \0 0026740 \0 277 \b \0 \0 W 016 l 003 330 W 020 361 223 \b \0 0026760 \0 277 J g \0 \0 W 022 h 032 032 032 T 032 c \b 0027000 W 024 V H I \f \0 \0 I 020 \0 ( 1 6 5 Q 0027020 I N D E X C O P Y B Y T E S 0027040 1 3 6 Q I N D E X N E W P A G 0027060 E 1 2 2 Q I N D E X N E W L 0027100 I N E 1 1 6 Q P R I N 1 1 0027120 0 7 Q C H A N G E F O N T 1 0027140 0 0 Q P R I N 1 7 0 Q P R 0027160 I N 1 6 3 Q P R I N 1 5 3 0027200 Q C H A N G E F O N T 4 4 Q 0027220 S P A C E S 3 5 Q N C H A 0027240 R S 2 3 Q I N D E X N E W L 0027260 I N E ) \r ( 1 4 3 Q F U N C T 0027300 I O N 1 1 3 Q % \r 1 0 4 Q 0027320 D E F A U L T F O N T 5 0 Q 0027340 B O L D F O N T 2 6 Q R E 0027360 L A T I V E I N D E X F L G ) \r 0027400 ( 7 5 Q " ] " 6 0 Q " [ 0027420 " ) \r P r i n t O n e T y p e I 0027440 n d e x D 1 \r ( P 4 I n d 0027460 e x e d L i s t I 1 L a s 0027500 t P a g e N o I 0 t y p e 0027520 F 5 C O M S F 6 I t 0027540 e m P a g e s F 7 M A P 0027560 F 1 0 Q F U L L ) \0 ~ 005 004 0027600 \0 002 021 @ 003 V 260 d 001 273 @ K 002 001 360 0027620 264 \v K 001 K 002 002 001 032 h 032 X 003 226 I 265 0027640 X H Z Y 277 002 003 265 341 J 022 021 001 004 L 265 0027660 6 @ g \0 \0 360 264 . U 264 + W 016 263 & h 0027700 g \0 \0 W 020 U h d g \0 \0 U \v \0 \0 \r 0027720 006 \0 \0 264 021 i \t \0 \0 277 o \0 \0 \0 h i 0027740 \v \0 \0 h 020 g \0 \0 \n \0 \0 A @ \v \0 \0 0027760 277 i \t \0 \0 260 356 \t \0 \0 Y H 031 260 247 \0 0030000 ( 1 6 7 Q L A S T 1 6 2 Q 0030020 I N D E X N E W L I N E 1 5 5 0030040 Q P r i n t I n d e x 1 5 0 0030060 Q S O R T 1 4 0 Q \ S F I 0030100 . C E N T E R P R I N T 1 2 6 0030120 Q I N D E X N E W L I N E 1 0030140 2 0 Q N D I N F I L E C O M S 0030160 ? 1 1 4 Q I N F I L E C O M 0030200 S ? ) \r ( 1 4 5 Q U A L P H O 0030220 R D E R C A R 1 1 0 Q F N S 0030240 1 0 0 Q F N S 6 2 Q F U 0030260 N C T I O N ) \r ( 1 3 3 Q " 0030300 N o F U N C T I O N i n d e 0030320 x i n g b e c a u s e F I L 0030340 E M A P n o t f o u n d " ) 0030360 \r P r i n t R e l a t i v e F u 0030400 n c t i o n I n d e x D 1 \r ( 0030420 P 2 I n d e x e d L i s t 0030440 P 1 c u r r e n t I t e m 0030460 P 0 M a x I n d e x N o I 0030500 1 M A P I 0 F U L L ) 0030520 \0 177 \n \0 \0 002 j 021 1 003 021 0 006 A 260 0030540 : d 001 273 021 0 \t K 002 260 036 d 001 001 H k 0030560 330 X 032 _ 016 277 O 020 265 \t O 016 h 032 _ 022 0030600 202 O 016 & _ 020 277 002 003 265 342 O 022 022 \ 003 0030620 226 M 265 0 L ^ ] 277 002 003 265 307 N 022 Z d 0030640 265 * i \t \0 \0 277 i \t \0 \0 277 ` \0 \0 \t 0030660 \0 \0 277 o \0 \0 \0 \t \0 \0 277 ` \0 \0 \t \0 0030700 \0 213 \t \0 \0 ] L 031 260 317 H \n \0 \0 277 i 0030720 \t \0 \0 A 020 \0 ( 1 7 3 Q I N D E 0030740 X N E W P A G E 1 6 6 Q P r 0030760 i n t I n d e x 1 5 5 Q L A 0031000 S T 1 5 1 Q C H A N G E F O 0031020 N T 1 4 2 Q P R I N 1 1 3 0031040 2 Q C H A N G E F O N T 1 2 0031060 3 Q I N D E X N E W L I N E 0031100 1 1 6 Q I N D E X N E W L I N 0031120 E ) \r ( 1 4 6 Q D E F A U L T 0031140 F O N T 1 2 7 Q B O L D F O 0031160 N T ) \r ( 1 3 7 Q " N o F 0031200 u n c t i o n s . " ) \r D e t e 0031220 r m i n e L i n e s P e r P a g 0031240 e D 1 \r ( P 0 L I N E S P 0031260 E R P A G E I 1 O U T F 0031300 I 0 F U L L F 1 L I N 0031320 E S P E R P A G E ) \0 020 001 001 \0 0031340 002 Q 021 001 \0 A g \0 \0 \n \0 \0 265 003 H 020 0031360 \0 ( 1 2 Q G E T F I L E I N F 0031400 O ) \r ( 7 P A G E H E I G H T 0031420 ) \r ( ) \r I N D E X C O P Y B Y 0031440 T E S D 1 \r ( P 5 C H P 0031460 4 L O O K F O R L F P 3 0031500 N L F L G P 2 E O L C 0031520 P 1 O U T S T R M P 0 0031540 I N S T R M I 3 E N D I 0031560 2 S T A R T I 1 O U T 0031600 I 0 I N F 6 L I N E 0031620 C O U N T F 7 L I N E S P 0031640 E R P A G E ) \0 312 006 002 \0 004 @ B 0031660 \n \0 \0 @ g \0 \0 \n \0 \0 A g \0 \0 \n \0 0031700 \0 021 B 005 H 312 030 001 272 C B 331 d j 361 242 0031720 261 \0 245 H ] d l \r 360 262 7 277 J d j 0031740 360 262 037 277 h 274 K 237 V W 016 l 005 331 361 227 0031760 \b \0 \0 277 h [ 260 z \b \0 \0 277 i [ 260 r 0032000 l 002 360 264 005 i 260 i 274 I l \r \n \0 \0 260 0032020 a l \n 360 262 J L 244 J k 360 262 030 K 236 V 0032040 W 016 l 005 331 361 226 \b \0 \0 277 h 260 . \b \0 0032060 \0 260 ' I l \n \n \0 \0 277 K 237 V d W 016 0032100 l 005 331 361 227 277 \b \0 \0 277 h 215 V k 330 c 0032120 \f W 016 361 223 \b \0 \0 277 i 273 h 260 023 M l 0032140 \f 360 223 \b \0 \0 204 I M \n \0 \0 277 h [ \ 0032160 277 k 261 377 Y i 020 \0 ( 2 7 5 Q \ B 0032200 O U T 2 6 7 Q I N D E X N E 0032220 W P A G E 2 5 1 Q I N D E X 0032240 N E W P A G E 2 3 2 Q I N D 0032260 E X N E W P A G E 2 1 2 Q \ 0032300 O U T C H A R 2 0 2 Q I N D 0032320 E X N E W L I N E 1 7 3 Q I 0032340 N D E X N E W P A G E 1 4 0 Q 0032360 \ O U T C H A R 1 1 4 Q I 0032400 N D E X N E W L I N E 1 0 4 Q 0032420 I N D E X N E W P A G E 2 2 0032440 Q G E T S T R E A M 1 3 Q 0032460 G E T S T R E A M 4 S E T F 0032500 I L E P T R ) \r ( 1 7 Q O U T 0032520 P U T 1 0 Q I N P U T ) \r ( 0032540 ) \r I N D E X N E W L I N E D 0032560 1 \r ( I 0 D o n t P r i n t 0032600 P a g e N b r F l g F 0 L 0032620 I N E C O U N T F 1 L I N 0032640 E S P E R P A G E ) \0 022 \0 002 \0 0032660 001 \b \0 \0 P k 330 c \0 Q 361 264 006 @ \t \0 0032700 \0 020 \0 ( 1 7 Q I N D E X N E W 0032720 P A G E 2 T E R P R I ) \r N 0032740 I L \r ( ) \r I N D E X N E W P A 0032760 G E D 1 \r ( I 0 D o n t P 0033000 r i n t P a g e N b r F l g F 0033020 0 P A G E C O U N T F 1 0033040 L I N E C O U N T ) \0 6 \0 002 0033060 \0 001 l \f l 9 361 225 ` \0 \0 l 002 215 l 0 0033100 l \f 361 242 m 334 205 ` \0 \0 l \f 320 \t \0 \0 0033120 h j \n \0 \0 j c 002 P 265 \a @ \t \0 \0 020 0033140 k 330 c \0 277 260 366 \0 ( 5 4 Q \ S F 0033160 I . L I S T I N G H E A D E R 0033200 4 2 Q P O S I T I O N 3 5 Q 0033220 P R I N 3 ) \r ( 2 7 Q \ O n 0033240 e C h a r A t o m B a s e 1 0 0033260 Q \ O n e C h a r A t o m B a 0033300 s e ) \r ( ) \r M E R G E D F I L 0033320 E I N D E X D 1 \r ( P 6 F 0033340 U L L N A M E S P 5 f i l 0033360 e 1 P 4 f i l e I 1 0033400 O U T F I 0 F I L E S ) 0033420 \0 214 \a \0 \0 002 @ d 003 243 d 221 h 032 021 a 0033440 006 H 003 265 P I 022 b \0 g \0 \0 @ d 262 032 0033460 d i 360 263 025 d 005 001 245 d 005 002 241 005 003 265 0033500 \t g \0 \0 @ h 032 032 A d 262 032 d i 360 263 0033520 025 d 005 001 245 d 005 002 241 005 003 265 \t g \0 \0 0033540 A h 032 032 h 032 032 032 g \0 \0 g \0 \0 \v \0 0033560 \0 @ 020 001 \ \t \0 \0 ] 265 025 o \0 \0 \0 L 0033600 o \0 \0 \0 \v \0 \0 \t \0 \0 277 M 231 M 273 J 0033620 265 \f K h 032 Z 271 H 002 X 260 210 K & 272 260 0033640 370 \0 ( 1 6 3 Q P R O M P T P R 0033660 I N T 1 6 0 Q C O N C A T 0033700 1 4 1 Q F I N D F I L E 1 3 0033720 2 Q A D D . P R O C E S S ) \r 0033740 ( 1 2 7 Q M E R G E D F I L E 0033760 I N D E X 1 2 4 Q N A M E 0034000 1 1 1 Q Q U O T E 5 5 Q Q 0034020 U O T E 2 5 Q M E R G E D F 0034040 I L E I N D E X 2 ) \r ( 1 5 5 0034060 Q " n o t f o u n d . " 0034100 1 5 0 Q " F i l e " ) \r M E 0034120 R G E D F I L E I N D E X 2 A 0 0034140 0 0 1 D 1 \r ( N A M E E R R 0034160 O R S E T L ( 2 E R R O R 0034200 S E T . W 1 E R R O R S E T 0034220 . V 0 E R R O R S E T . U ) 0034240 F 0 F I L E S F 1 R 0034260 E S E T Y ) \0 025 \0 002 \0 003 ` \0 \0 0034300 h i \v \0 \0 277 P ` \0 \0 \n \0 \0 c 002 i 0034320 020 \0 ( 1 7 Q M E R G E D F I L 0034340 E I N D E X 1 7 O B T A I N 0034360 . M O N I T O R L O C K ) \r ( 1 0034400 4 Q P R I N T E R 2 \ S I 0034420 N G L E F I L E I N D E X . L O 0034440 C K ) \r ( ) \r M E R G E D F I L 0034460 E I N D E X 2 D 1 \r ( P 2 0034500 R E S E T Z P 1 R E S E T 0034520 Y P 0 L I S P X H I S T 0034540 I 1 O U T F I 0 F I L 0034560 E S F 3 L I S P X H I S T 0034600 F 4 R E S E T V A R S L S 0034620 T ) \0 > 003 002 \0 002 A 225 @ A \n \0 \0 0034640 020 ` \0 \0 004 ` \0 \0 360 252 o \0 \0 \0 \t \0 0034660 \0 027 \0 \0 277 S 021 ! 002 T o \0 \0 \0 g \0 0034700 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0 J 223 0034720 \b \0 \0 020 I 020 \0 ( 7 1 Q E R R O 0034740 R ! 6 4 Q R E S E T R E S T 0034760 O R E 5 2 Q M E R G E D F I 0035000 L E I N D E X 2 A 0 0 0 1 2 7 0035020 Q C R E A T E . M O N I T O R 0035040 L O C K 6 M E R G E D F I L 0035060 E I N D E X 1 ) \r ( 6 0 Q E R 0035100 R O R 4 7 Q I N T E R N A L 0035120 3 2 Q \ S I N G L E F I L E 0035140 I N D E X . L O C K 1 6 Q 004 0035160 003 M O N I T O R L O C K T Y P E 0035200 # 1 2 Q \ S I N G L E F I L 0035220 E I N D E X . L O C K ) \r ( 4 0035240 4 Q ( D U M M Y . F O R . E R 0035260 R O R S E T ) 2 4 Q " S i n 0035300 g l e F i l e I n d e x L o c k 0035320 " ) \r M E R G E D F I L E I N D 0035340 E X 1 D 1 \r ( P 2 5 Q i t 0035360 e m P 2 3 Q i g n o r e a 0035400 b l e s P 2 2 Q f i l e p 0035420 k g t y p e P P 2 1 Q t y 0035440 p e P 2 0 Q t y p e P a i 0035460 r P 1 6 Q M A P P 1 5 0035500 Q C O M S P 1 4 Q R O O 0035520 T P 1 3 Q f i l e P 1 0035540 1 Q F N P 1 0 Q D A T E 0035560 P 7 I n d e x e d L i s t 0035600 P 6 \ S F I . G E T D E F 0035620 . H A S H P 5 F U L L P 0035640 4 c u r r e n t I t e m P 0035660 3 t y p e s P 2 P A G 0035700 E C O U N T P 1 L I N E C 0035720 O U N T P 0 L I N E S P E 0035740 R P A G E I 1 O U T F I 0035760 0 F I L E S F 2 6 Q R 0036000 E S E T V A R S L S T F 2 7 0036020 Q L I N E S P E R P A G E F 0036040 3 0 Q I N D E X E D T Y P E 0036060 S L S T F 3 1 Q F I L E L 0036100 I N E L E N G T H ) 001 250 026 004 \0 0036120 002 W . j d W 0 021 T \b o \0 \0 \0 A \t 0036140 \0 \0 h 032 032 W , 032 c , g \0 \0 n 003 350 0036160 \t \0 \0 h 032 032 h 032 W , 032 c , g \0 \0 0036200 l \n \t \0 \0 h 032 032 h 032 W , 032 c , ` 0036220 \0 \0 263 025 o \0 \0 \0 h h 032 032 W , 032 c 0036240 , 277 i 027 \0 \0 277 o \0 \0 \0 i d \v \0 \0 0036260 277 o \0 \0 \0 \b \0 \0 o \0 \0 \0 \v \0 \0 h 0036300 i \v \0 \0 277 i \t \0 \0 277 @ 260 9 d 001 021 0036320 001 \t O 022 g \0 \0 \n \0 \0 _ 020 277 i \t \0 0036340 \0 277 O 022 \t \0 \0 277 W 2 O 022 \t \0 \0 O 0036360 020 \t \0 \0 l 004 330 330 331 \t \0 \0 277 O 020 \t 0036400 \0 \0 023 002 003 265 310 i \t \0 \0 @ 021 A 016 O 0036420 024 003 265 020 023 O 016 g \0 \0 \n \0 \0 \t \0 \0 0036440 @ 020 001 _ 026 277 o \0 \0 \0 O 026 g \0 \0 g 0036460 \0 \0 \v \0 \0 ] h 032 032 W , 032 c , 277 M 0036500 d \t \0 \0 _ 030 \n \0 \0 _ 034 277 h 276 M O 0036520 034 \n \0 \0 _ 032 236 o \0 \0 \0 K 032 021 A 023 0036540 O 036 003 265 017 023 M \t \0 \0 277 O 024 002 _ 024 0036560 260 241 001 _ 001 h i \v \0 \0 _ $ 265 \b O 0036600 001 \t \0 \0 _ " g \0 \0 360 264 " h g \0 0036620 \0 M O 032 O 034 g \0 \0 h i \v \0 \0 264 \v 0036640 h g \0 \0 O 032 \v \0 \0 \r 006 \0 \0 _ & 277 0036660 h O " M O 032 O 034 O $ 264 \n h O " O 0036700 032 \v \0 \0 \r 006 \0 \0 021 021 025 O ( 003 265 \n 0036720 023 O 036 002 _ 036 260 214 001 _ * O & \n \0 \0 0036740 257 O * O " O 030 h 032 032 032 O 016 032 _ 016 0036760 277 O ( 002 _ ( 260 327 \0 ( 6 1 6 Q M 0037000 E M B E R 5 6 6 Q N D I N F 0037020 I L E C O M S ? 5 6 2 Q I N 0037040 F I L E C O M S ? 5 3 3 Q N 0037060 D I N F I L E C O M S ? 5 2 7 0037100 Q I N F I L E C O M S ? 5 1 0037120 4 Q G E T F I L E P K G T Y P 0037140 E 4 6 3 Q \ S F I . P L U R 0037160 A L I Z E 4 5 1 Q G E T F I 0037200 L E P K G T Y P E 4 3 0 Q C 0037220 L O S E F ? 4 0 2 Q \ S F I 0037240 . L O A D C O M S 3 6 7 Q G 0037260 E T F I L E M A P 3 6 2 Q R 0037300 O O T F I L E N A M E 3 4 3 Q 0037320 O P E N F I L E 3 1 6 Q P 0037340 r i n t M e r g e d I n d e x 0037360 3 1 3 Q S O R T 2 7 1 Q I 0037400 N D E X N E W P A G E 2 6 0 Q 0037420 P R I N 1 2 5 2 Q P R I N 0037440 T D O T S 2 4 2 Q N C H A R 0037460 S 2 3 5 Q N C H A R S 2 2 0037500 5 Q P R I N 1 2 1 7 Q I N 0037520 D E X N E W L I N E 2 1 0 Q 0037540 G E T F I L E I N F O 1 6 7 Q 0037560 I N D E X N E W L I N E 1 6 0037600 2 Q \ S F I . C E N T E R P R 0037620 I N T 1 5 5 Q C O N C A T 0037640 1 4 6 Q D A T E 1 3 6 Q \ 0037660 S F I . C E N T E R P R I N T 0037700 6 3 Q R A D I X 4 1 Q L I 0037720 N E L E N G T H 2 0 Q O U T 0037740 F I L E ) \r ( 5 2 2 Q M E T H 0037760 O D S 5 0 7 Q M E T H O D S 0040000 4 7 7 Q M E T H O D S 4 7 0040020 0 Q I N S T A N C E S 3 4 0 0040040 Q O L D 3 3 5 Q I N P U T 0040060 3 1 0 Q U A L P H O R D E R 0040100 C A R 2 0 5 Q W R I T E D A 0040120 T E 1 2 4 Q U S E M A P F L 0040140 G 1 0 0 Q U S E M A P F L G 0040160 5 6 Q R A D I X 3 3 Q L 0040200 I N E L E N G T H ) \r ( 4 1 1 0040220 Q ( F N S ) 3 3 0 Q ( P R 0040240 O G N ( C L O S E F ? O L D 0040260 V A L U E ) ) 1 5 2 Q " - 0040300 - " 1 4 3 Q " - - L i s t 0040320 e d o n " 1 3 1 Q " I n 0040340 d e x e d F i l e s " 1 0 6 0040360 Q ( S E T T O P V A L U S E 0040400 M A P F L G ) 1 4 Q ( P R O 0040420 G N ( C L O S E F ? ( O U T 0040440 P U T O L D V A L U E ) ) ) ) 0040460 \r P r i n t F i l e T i t l e 0040500 D 1 \r ( I 0 f i l e ) \0 ) 0040520 \0 \0 \0 001 @ o \0 \0 \0 @ g \0 \0 \n \0 \0 0040540 \v \0 \0 i \n \0 \0 o \0 \0 \0 \b \0 \0 o \0 0040560 \0 \0 \v \0 \0 \t \0 \0 \b \0 \0 020 \0 ( 4 6 0040600 Q I N D E X N E W L I N E 4 0040620 3 Q \ S F I . C E N T E R P R 0040640 I N T 4 0 Q C O N C A T 3 0040660 1 Q D A T E 2 2 Q \ S F I 0040700 . C E N T E R P R I N T 1 6 Q 0040720 C O N C A T 1 3 Q G E T F 0040740 I L E I N F O ) \r ( 1 0 Q W R 0040760 I T E D A T E ) \r ( 3 5 Q " 0041000 - - " 2 6 Q " - - L i s 0041020 t e d o n " 4 " \t \t " ) 0041040 \r P r i n t I n d e x D 1 \r ( 0041060 P 1 7 Q C O L U M N P 1 0041100 5 Q R O W P 1 3 Q t r i 0041120 p l e P 1 2 Q M A X F W I 0041140 D T H P 6 L a s t I t e m 0041160 P 5 N R O W S R E M A I N 0041200 I N G P 4 S P A C I N G 0041220 P 3 L E F T P 2 W I D 0041240 T H P 1 N R O W S P 0 0041260 N C O L U M N S I 2 t y 0041300 p e I 1 M a x I n d e x N 0041320 o I 0 I n d e x e d L i s 0041340 t F 2 0 Q L I N E S P E R 0041360 P A G E F 2 1 Q L I N E C 0041400 O U N T ) 001 4 020 002 \0 003 021 220 \b @ 0041420 j 021 022 \v O 022 003 265 017 O 024 022 l \n A 361 0041440 262 ' l 002 260 1 001 _ 026 277 O 024 O 026 001 \t 0041460 \0 \0 _ 016 277 d O 016 361 242 277 O 016 _ 024 277 0041500 O 022 002 _ 022 260 321 l d A 361 222 l 003 205 A 0041520 \t \0 \0 k 330 330 Z @ \t \0 \0 I ] B 223 \b 0041540 \0 \0 277 i \t \0 \0 B 262 4 I l 003 330 W 0041560 W " 331 361 262 025 W " W 342 361 233 i \t \0 0041600 \0 277 B 264 \a \b \0 \0 277 B o \0 \0 \0 \n \0 0041620 \0 i d \v \0 \0 277 i \t \0 \0 277 @ 264 003 202 0041640 261 \0 236 M W W " 331 _ 020 277 d O 020 361 0041660 222 277 O 020 Y k 021 002 \r O 032 O 030 361 263 h 0041700 H k 021 002 017 O 036 O 034 361 263 N @ O 032 I 0041720 O 036 k 331 332 330 \n \0 \0 ^ 262 6 ` \0 \0 \t 0041740 \0 \0 277 N 001 001 \t \0 \0 277 J N 001 001 \t \0 0041760 \0 331 N 001 002 \t \0 \0 331 \t \0 \0 277 N 001 002 0042000 \t \0 \0 277 O 036 d H 360 247 277 L \t \0 \0 277 0042020 O 036 k 330 _ 036 260 261 023 i \t \0 \0 277 O 032 0042040 k 330 _ 032 260 227 023 N 002 b \0 264 023 i \t \0 0042060 \0 277 @ \t \0 \0 H 333 k 330 ] 261 377 ` 020 \0 0042100 ( 4 5 1 Q L E N G T H 4 4 4 0042120 Q I N D E X N E W P A G E 4 0042140 2 0 Q I N D E X N E W L I N E 0042160 4 0 2 Q S P A C E S 3 6 6 0042200 Q P R I N 1 3 5 7 Q P R I 0042220 N T D O T S 3 5 3 Q N C H A 0042240 R S 3 4 4 Q N C H A R S 3 0042260 3 4 Q P R I N 1 3 2 5 Q C 0042300 H A N G E F O N T 3 1 4 Q F 0042320 N T H 2 1 6 Q I N D E X N E 0042340 W L I N E 2 1 1 Q \ S F I . 0042360 C E N T E R P R I N T 2 0 4 Q 0042400 C O N C A T 1 7 3 Q \ S F 0042420 I . B r e a k L i n e 1 6 4 Q 0042440 I N D E X N E W P A G E 1 3 0042460 2 Q I N D E X N E W L I N E 0042500 1 2 5 Q \ S F I . B r e a k L 0042520 i n e 1 1 6 Q \ S F I . P r 0042540 i n t I n d e x F a c t o r s 0042560 1 0 6 Q N C H A R S 4 5 Q 0042600 N C H A R S ) \r ( 3 2 2 Q D E 0042620 F A U L T F O N T ) \r ( 2 0 1 0042640 Q " I N D E X " ) \r P r i n 0042660 t M e r g e d I n d e x D 1 \r 0042700 ( P 2 4 Q C O L U M N P 0042720 2 2 Q R O W P 1 3 Q L a 0042740 s t I t e m P 1 2 Q S P A 0042760 C I N G P 1 1 Q L E F T 0043000 P 1 0 Q N R O W S P 7 0043020 N C O L U M N S P 6 i n d 0043040 e x P 5 f i l e P 4 0043060 t y p e P 3 i t e m P 0043100 2 M A X T W O F I E L D W I D 0043120 T H P 1 M A X F W I D T H 0043140 P 0 W I D T H I 1 t 0043160 i t l e I 0 I n d e x e d 0043200 L i s t F 2 5 Q L I N E S 0043220 P E R P A G E F 2 6 Q L I 0043240 N E C O U N T ) 001 K 025 002 \0 002 j 0043260 d d 021 343 020 A 265 006 o \0 \0 \0 i d \v \0 0043300 \0 i \t \0 \0 @ 265 e i \t \0 \0 277 ` \0 \0 0043320 \t \0 \0 277 o \0 \0 \0 \t \0 \0 277 ` \0 \0 \t 0043340 \0 \0 277 i \t \0 \0 h 020 001 273 I K 001 \t \0 0043360 \0 _ 030 277 d O 030 361 242 277 O 030 271 J I K 0043400 002 001 \t \0 \0 330 _ 032 277 d O 032 361 242 277 O 0043420 032 272 H J K 002 002 001 \t \0 \0 330 _ 034 277 d 0043440 O 034 361 242 277 O 034 270 O 036 002 _ 036 003 265 273 0043460 J l 002 330 Z H l 006 330 X @ \t \0 \0 O 020 0043500 W * W , 331 _ 277 d O 361 222 277 O 0043520 _ 020 @ 264 225 O 020 k 021 002 022 O $ O " 361 0043540 222 261 \0 204 O 016 k 021 002 024 O ( O & 361 263 0043560 g @ O $ O 020 O ( k 331 332 330 \n \0 \0 _ 0043600 026 265 \n O ( k 330 _ ( 260 343 001 001 273 O 026 0043620 001 002 001 274 O 026 001 002 002 001 275 K \t \0 \0 277 0043640 J K \t \0 \0 L \t \0 \0 330 331 \t \0 \0 277 L 0043660 \t \0 \0 277 H J M \t \0 \0 330 331 \t \0 \0 277 0043700 M \t \0 \0 277 O ( d O 016 360 263 272 277 O 024 0043720 \t \0 \0 277 260 257 023 i \t \0 \0 277 O $ k 330 0043740 _ $ 261 377 { 023 O 026 002 b \0 264 003 202 261 376 0043760 372 i \t \0 \0 277 261 377 \ \0 ( 5 0 5 Q 0044000 I N D E X N E W P A G E 4 5 3 0044020 Q I N D E X N E W L I N E 4 0044040 4 3 Q S P A C E S 4 2 4 Q 0044060 P R I N 1 4 1 7 Q P R I N T 0044100 D O T S 4 1 2 Q N C H A R S 0044120 4 0 3 Q P R I N 1 3 7 6 Q 0044140 P R I N T D O T S 3 7 1 Q 0044160 N C H A R S 3 6 5 Q N C H A 0044200 R S 3 5 7 Q P R I N 1 3 1 0044220 7 Q F N T H 2 1 6 Q \ S F 0044240 I . P r i n t I n d e x F a c t 0044260 o r s 1 5 3 Q N C H A R S 0044300 1 2 5 Q N C H A R S 1 0 1 Q 0044320 N C H A R S 6 7 Q I N D E 0044340 X N E W P A G E 6 2 Q C H A 0044360 N G E F O N T 5 3 Q P R I N 0044400 1 4 3 Q C H A N G E F O N T 0044420 3 4 Q I N D E X N E W L I N 0044440 E 2 5 Q I N D E X N E W L I 0044460 N E 2 1 Q \ S F I . C E N T 0044500 E R P R I N T ) \r ( 5 7 Q D E 0044520 F A U L T F O N T 4 0 Q B O 0044540 L D F O N T ) \r ( 5 0 Q " N 0044560 o p r i n t a b l e d e f i 0044600 n i t i o n s . " 1 4 Q " M 0044620 E R G E D I N D E X " ) \r \ S 0044640 F I . P r i n t I n d e x F a c 0044660 t o r s D 1 \r ( I 0 I n d 0044700 e x e d L i s t F 4 N C O 0044720 L U M N S F 5 W I D T H 0044740 F 6 F I L E L I N E L E N G 0044760 T H F 7 L E F T F 1 0 0045000 Q N R O W S F 1 1 Q S P 0045020 A C I N G ) \0 Z 004 006 \0 001 @ \t \0 0045040 \0 021 1 003 H V U l 002 330 333 271 d I 361 221 0045060 277 I 272 k J 361 241 J 200 k c \b V U l 002 0045100 330 T 332 331 c 016 U W 016 l 002 333 330 V T 333 0045120 l 002 331 273 d K 361 221 277 K c \n T k 360 221 0045140 j 210 V U T 332 331 T k 331 333 c 022 H T 333 0045160 k 330 c 020 h 020 \0 ( 3 L E N G T H 0045200 ) \r N I L \r ( ) \r T e s t F o r 0045220 V a r D 1 \r ( P 1 n e w V 0045240 a r N a m e P 0 s t r m 0045260 I 1 t y p e s L s t T r i p 0045300 l e I 0 l i n e F 2 0045320 t y p e N a m e s ) \0 b 002 001 \0 0045340 002 @ \t \0 \0 021 021 001 H ` \0 \0 \n \0 \0 Y 0045360 g \0 \0 360 263 # I g \0 \0 360 263 034 I g \0 0045400 \0 360 263 025 I g \0 \0 360 254 I g \0 \0 360 246 0045420 I d g \0 \0 360 221 h 020 A 001 R \n \0 \0 002 0045440 034 235 I g \0 \0 R \n \0 \0 002 034 263 353 I 020 0045460 I 004 l 004 360 226 I 224 I i 360 264 335 \b \0 \0 0045500 260 327 \0 ( 1 3 6 Q S H O U L D N 0045520 T 1 1 0 Q F A S S O C 7 5 0045540 Q F A S S O C 1 5 Q R E A 0045560 D 3 P o s i t i o n F o r T 0045600 e s t ) \r ( 1 0 4 Q C O N S T 0045620 A N T S 6 3 Q L A M A 5 4 0045640 Q N L A M L 4 6 Q N L A M 0045660 A 3 7 Q L O C A L V A R S 0045700 3 0 Q S P E C V A R S 2 1 Q 0045720 G L O B A L V A R S 1 2 Q 0045740 F I L E R D T B L ) \r ( ) \r T e 0045760 s t F o r M a c r o D 1 \r ( P 0046000 2 p r o p N a m e P 1 0046020 n e w M a c r o N a m e P 0 0046040 s t r m I 1 t y p e s L 0046060 s t T r i p l e I 0 l i n 0046100 e F 3 M A C R O P R O P S 0046120 F 4 t y p e N a m e s ) 0046140 \0 + 003 002 \0 002 @ \t \0 \0 021 ! 002 H ` \0 0046160 \0 \n \0 \0 Y H ` \0 \0 \n \0 \0 Z d S 034 0046200 264 017 I g \0 \0 T \n \0 \0 002 034 264 003 I 020 0046220 \0 ( 4 3 Q F A S S O C 2 5 Q 0046240 R E A D 1 5 Q R E A D 3 0046260 P o s i t i o n F o r T e s t 0046300 ) \r ( 3 7 Q M A C R O 2 2 Q 0046320 F I L E R D T B L 1 2 Q F 0046340 I L E R D T B L ) \r ( ) \r T e s 0046360 t F o r B i t m a p D 1 \r ( P 0046400 2 c h a r P 1 n e w V 0046420 a r N a m e P 0 s t r m 0046440 I 1 t y p e s L s t T r i p 0046460 l e I 0 l i n e ) \0 X 003 0046500 \0 \0 002 @ \t \0 \0 021 ! 002 H ` \0 \0 \n \0 0046520 \0 Y 004 l 004 360 264 C I 264 @ H ` \0 \0 \n 0046540 \0 \0 Z 004 l 004 360 264 2 J \t \0 \0 k 360 264 0046560 * J ` \0 \0 \n \0 \0 d g \0 \0 360 245 d g 0046600 \0 \0 360 222 277 i 201 277 h 264 020 H ` \0 \0 \n 0046620 \0 \0 g \0 \0 360 264 003 I 020 \0 ( 1 1 6 Q 0046640 R A T O M 6 4 Q G E T S Y 0046660 N T A X 5 1 Q N C H A R S 0046700 3 6 Q R A T O M 1 5 Q R E 0046720 A D 3 P o s i t i o n F o r 0046740 T e s t ) \r ( 1 2 1 Q R E A D 0046760 B I T M A P 1 1 3 Q F I L E 0047000 R D T B L 7 6 Q L E F T B R 0047020 A C K E T 7 0 Q L E F T P A 0047040 R E N 6 1 Q F I L E R D T B 0047060 L 3 3 Q F I L E R D T B L 0047100 1 2 Q F I L E R D T B L ) \r ( 0047120 ) \r T e s t F o r R e s o u r c 0047140 e D 1 \r ( I 1 t y p e s L 0047160 s t T r i p l e I 0 l i n 0047200 e ) \0 034 \0 \0 \0 002 A g \0 \0 360 243 \b 0047220 \0 \0 277 @ g \0 \0 \n \0 \0 265 \t @ g \0 \0 0047240 \n \0 \0 020 \0 ( 3 1 Q T e s t F o 0047260 r G e n e r i c D e f i n i t i 0047300 o n 2 0 Q T e s t F o r G e 0047320 n e r i c D e f i n i t i o n 0047340 1 0 Q S H O U L D N T ) \r ( 2 0047360 6 Q G L O B A L R E S O U R C 0047400 E 1 5 Q R E S O U R C E 3 0047420 R E S O U R C E ) \r ( ) \r T e 0047440 s t F o r G e n e r i c D e f i 0047460 n i t i o n D 1 \r ( P 4 O 0047500 N F I L E T Y P E P 3 F O 0047520 R M P 2 D e f N a m e P 0047540 1 E N T R Y T Y P E P 0 0047560 s t r m I 1 t y p e s L 0047600 s t T r i p l e I 0 l i n 0047620 e F 5 F U L L S ) \0 Q 005 0047640 001 \0 002 @ \t \0 \0 A 001 021 2 004 H ` \0 \0 0047660 \n \0 \0 Z 003 001 g \0 \0 360 241 h 020 U d \t 0047700 \0 \0 U ` \0 \0 \n \0 \0 273 \n \0 \0 K d 003 0047720 001 g \0 \0 360 264 347 002 003 001 \ d I 360 257 d 0047740 I h i \v \0 \0 265 006 I \t \0 \0 360 264 005 J 0047760 002 001 020 \0 ( 1 1 0 Q \ S F I . P 0050000 L U R A L I Z E 1 0 2 Q G E 0050020 T F I L E P K G T Y P E 5 1 Q 0050040 S E T F I L E P T R 4 5 Q 0050060 R E A D 3 6 Q G E T F I L E 0050100 P T R 1 7 Q R E A D 3 P 0050120 o s i t i o n F o r T e s t ) \r 0050140 ( 6 0 Q Q U O T E 4 2 Q F 0050160 I L E R D T B L 2 5 Q Q U O 0050200 T E 1 4 Q F I L E R D T B L 0050220 ) \r ( ) \r T e s t F o r C o n s 0050240 t a n t s D 1 \r ( P 0 F O 0050260 R M I 1 t y p e s L s t T 0050300 r i p l e I 0 l i n e F 0050320 2 F U L L S F 3 I t e 0050340 m P a g e s F 4 l i n e P 0050360 o s F 5 P A G E C O U N T 0050400 ) \0 J 002 004 \0 002 021 001 R d \t \0 \0 0050420 R T \n \0 \0 277 R ` \0 \0 \n \0 \0 270 \n \0 0050440 \0 H 003 001 g \0 \0 360 264 ( H 260 d 001 Y 0050460 d 003 221 001 Y 262 026 I 004 l 004 360 235 I g \0 0050500 \0 U h 032 032 032 S 032 c 006 277 002 003 265 340 h 0050520 020 \0 ( 3 0 Q S E T F I L E P T 0050540 R 2 4 Q R E A D 1 4 Q S 0050560 E T F I L E P T R 7 G E T F 0050600 I L E P T R ) \r ( 7 0 Q C O N 0050620 S T A N T S 3 6 Q C O N S T 0050640 A N T S 2 1 Q F I L E R D T 0050660 B L ) \r ( ) \r T e s t F o r I n 0050700 s t a n c e D 1 \r ( P 3 c 0050720 l a s s N a m e P 2 n e w 0050740 I n s t a n c e N a m e P 1 0050760 s t r m P 0 i n s t a n 0051000 c e N a m e s I 1 t y p e 0051020 s L s t T r i p l e I 0 l 0051040 i n e F 4 t y p e N a m e 0051060 s ) \0 H 004 001 \0 002 A 001 T \n \0 \0 002 0051100 @ \t \0 \0 021 " 003 I ` \0 \0 \n \0 \0 [ I 0051120 ` \0 \0 \n \0 \0 ` \0 \0 \n \0 \0 d g \0 \0 0051140 360 245 d g \0 \0 360 222 277 i 201 277 h 241 h 020 0051160 I ` \0 \0 \n \0 \0 Z H \n \0 \0 264 003 J 020 0051200 \0 ( 1 0 2 Q M E M B E R 7 5 0051220 Q R E A D 4 2 Q G E T S Y 0051240 N T A X 3 4 Q R A T O M 2 0051260 4 Q R E A D 1 2 Q P o s i 0051300 t i o n F o r T e s t 5 F A 0051320 S S O C ) \r ( 7 2 Q F I L E R 0051340 D T B L 5 4 Q L E F T B R A 0051360 C K E T 4 6 Q L E F T P A R 0051400 E N 3 7 Q F I L E R D T B L 0051420 3 1 Q F I L E R D T B L 2 0051440 1 Q F I L E R D T B L ) \r ( ) 0051460 \r T e s t F o r M e t h o d D 0051500 1 \r ( P 1 n e w M e t h o d 0051520 N a m e P 0 s t r m I 0051540 1 t y p e s L s t T r i p l e 0051560 I 0 l i n e F 2 t y 0051600 p e N a m e s ) \0 * 002 001 \0 002 @ 0051620 \t \0 \0 021 021 001 H ` \0 \0 \n \0 \0 o \0 \0 0051640 \0 H ` \0 \0 \n \0 \0 \v \0 \0 Y g \0 \0 R 0051660 \n \0 \0 034 264 003 I 020 \0 ( 4 3 Q F A 0051700 S S O C 3 3 Q P A C K * 3 0051720 0 Q R A T O M 1 5 Q R A T 0051740 O M 3 P o s i t i o n F o r 0051760 T e s t ) \r ( 3 7 Q M E T H O 0052000 D 2 5 Q F I L E R D T B L 0052020 1 2 Q F I L E R D T B L ) \r ( 0052040 2 1 Q " . " ) \r T e s t F o 0052060 r T y p e D 1 \r ( P 2 n e 0052100 w I t e m N a m e P 1 i t 0052120 e m N a m e s P 0 s t r m 0052140 I 1 t y p e s L s t T r i 0052160 p l e I 0 l i n e F 3 0052200 t y p e N a m e s ) \0 037 003 001 0052220 \0 002 @ \t \0 \0 A 001 S \n \0 \0 002 021 022 002 0052240 H ` \0 \0 \n \0 \0 Z d I \n \0 \0 264 002 020 0052260 \0 ( 3 2 Q M E M B E R 2 4 Q 0052300 R E A D 1 1 Q F A S S O C 0052320 3 P o s i t i o n F o r T e 0052340 s t ) \r ( 2 1 Q F I L E R D T 0052360 B L ) \r ( ) \r P o s i t i o n F 0052400 o r T e s t D 1 \r ( P 0 s 0052420 t r m I 0 l i n e ) \0 F 0052440 001 \0 \0 001 @ \t \0 \0 021 001 \0 H \t \0 \0 ` 0052460 \0 \0 \n \0 \0 d g \0 \0 360 263 " d g \0 \0 0052500 360 263 033 d g \0 \0 360 263 024 d g \0 \0 360 253 0052520 d g \0 \0 360 245 d g \0 \0 360 222 277 i 201 277 0052540 h 263 312 H \t \0 \0 H 020 \0 ( 1 0 2 Q 0052560 S K R E A D 2 0 Q G E T S Y 0052600 N T A X 1 2 Q R E A D C 3 0052620 O P E N S T R I N G S T R E A 0052640 M ) \r ( 6 5 Q B R E A K C H A 0052660 R 5 7 Q R I G H T B R A C K 0052700 E T 5 1 Q L E F T B R A C K 0052720 E T 4 2 Q R I G H T P A R E 0052740 N 3 3 Q L E F T P A R E N 0052760 2 4 Q S E P R C H A R 1 5 Q 0053000 F I L E R D T B L ) \r ( ) \r \ 0053020 S F I . U A L P H O R D E R D 0053040 1 \r ( I 1 Y I 0 X ) 0053060 \0 \r \0 \0 \0 002 @ \t \0 \0 A \t \0 \0 \n \0 0053100 \0 020 \0 ( 1 2 Q A L P H O R D E 0053120 R 7 U - C A S E 3 U - C 0053140 A S E ) \r N I L \r ( ) \r ( P R E 0053160 T T Y C O M P R I N T S I N G 0053200 L E F I L E I N D E X C O M S ) 0053220 \r ( R P A Q Q S I N G L E F I 0053240 L E I N D E X C O M S ( ( * 0053260 * " C r e a t e d b y C h 0053300 r i s t o p h e r T o n g a 0053320 n d J o n L W h i t e , F 0053340 e b r u a r y 1 9 8 4 . " ) 0053360 ( C O M S ( \r * " T e m p o 0053400 r a r y k l u d g e p a t c 0053420 h " ) ( P ( A N D ( B O U 0053440 N D P ( Q U O T E I N D E X 0053460 E D T Y P E S L S T ) ) ( N U 0053500 L L I N D E X E D T Y P E S L 0053520 S T ) ( S E T Q \r I N D E X 0053540 E D T Y P E S L S T ( Q U O T 0053560 E N O B I N D ) ) ) ) ) ( V 0053600 A R S ( \ S F I . I N D I R E 0053620 C T I O N " I n d i r e c t i 0053640 o n M a r k e r " ) ( \r D E 0053660 F A U L T I N D E X E D T Y P E 0053700 S L S T ( S U B S T \ S F I 0053720 . I N D I R E C T I O N ( Q U 0053740 O T E \ S F I . I N D I R E C 0053760 T I O N ) ( Q U O T E ( ( V 0054000 A R ( R P A Q A D D T O V A 0054020 R ) \r T e s t F o r V a r ) 0054040 ( M A C R O P U T P R O P S 0054060 T e s t F o r M a c r o ) ( C 0054100 O N S T A N T S C O N S T A N 0054120 T S T e s t F o r C o n s t a 0054140 n t s ) ( R E C O R D ( \r \ 0054160 S F I . I N D I R E C T I O N 0054200 C L I S P R E C O R D T Y P E S 0054220 ) ) ( R E S O U R C E P U T 0054240 D E F T e s t F o r R e s o u 0054260 r c e ) ( B I T M A P " R P 0054300 A Q " T e s t F o r B i t m 0054320 a p ) ( \r C L A S S " D E F 0054340 C L A S S " ) ( I N S T A N 0054360 C E D E F I N S T T e s t F 0054400 o r I n s t a n c e ) ( M E T 0054420 H O D M E T H T e s t F o r 0054440 M e t h o d ) ( G L O B A L R 0054460 E S O U R C E \r P U T D E F 0054500 T e s t F o r G e n e r i c D e 0054520 f i n i t i o n ) ) ) ) ) ( P 0054540 R I N T E R ( S E L E C T Q 0054560 ( S Y S T E M T Y P E ) ( D 0054600 ( Q U O T E { L P T } ) ) ( 0054620 Q U O T E L P T : ) ) ) ) \r 0054640 ( I N I T V A R S ( I N D E X 0054660 E D T Y P E S L S T D E F A U 0054700 L T I N D E X E D T Y P E S L S 0054720 T ) ( R E L A T I V E I N D E 0054740 X F L G ) ( \ S I N G L E F I 0054760 L E I N D E X . L O C K N I L 0055000 ) ) ( \r G L O B A L V A R S 0055020 \ S F I . I N D I R E C T I O N 0055040 \ S I N G L E F I L E I N D E 0055060 X . L O C K D E F A U L T I N 0055100 D E X E D T Y P E S L S T P R 0055120 I N T E R ) ( C O M S ( * 0055140 * \r " A f t e r C A R O L , 0055160 t h e s e w i l l b e i 0055200 n M A C H I N E I N D E P E N 0055220 D E N T . " ) ( F N S \ S F 0055240 I . L I S P S O U R C E F I L E 0055260 P \ S F I . G E T F I L E M A 0055300 P ) ( P ( \r C O N D ( ( M 0055320 O V D ? ( Q U O T E \ S F I 0055340 . L I S P S O U R C E F I L E P 0055360 ) ( Q U O T E L I S P S O U 0055400 R C E F I L E P ) ) ( M O V D 0055420 ? ( Q U O T E \ S F I . G E 0055440 T F I L E M A P ) ( \r Q U O T 0055460 E G E T F I L E M A P ) ) ) 0055500 ( T ( P U T D ( Q U O T E 0055520 \ S F I . L I S P S O U R C E F 0055540 I L E P ) ) ( P U T D ( Q U 0055560 O T E \ S F I . G E T F I L E 0055600 M A P ) ) ) ) ) ) ( C O M S 0055620 ( * \r * " R a n d o m f u 0055640 n c t i o n s t h a t o u g 0055660 h t t o g o i n t o t h 0055700 e s y s t e m . " ) ( F N S 0055720 I L E S S C A D R U A L P H 0055740 O R D E R C A R P U T S A S S 0055760 O C \r P R I N T D O T S \ S 0056000 F I . P L U R A L I Z E ) ( * 0056020 * " F N S w h i c h w a 0056040 n t t o g o i n t o t h 0056060 e s y s t e m i n e i t h 0056100 e r F I L E P K G o r L O 0056120 A D F N S . " ) ( \r F N S N 0056140 D I N F I L E C O M S ? \ N D 0056160 I N F I L E C O M S 1 \ S F I 0056200 . L O A D C O M S \ S F I . G 0056220 E T F I L V A R D E F ) ( I N 0056240 I T V A R S ( \ S F I . G E T 0056260 D E F . H A S H N I L ) ) ) 0056300 ( \r C O M S ( * I n d e x 0056320 p r i n t o u t f u n c t i o 0056340 n s ) ( F N S \ S F I . C E 0056360 N T E R P R I N T \ S F I . L 0056400 I S T I N G H E A D E R \ S F 0056420 I . B r e a k L i n e ) ) ( F 0056440 N S * \r F i l e I n d e x i 0056460 n g F n s ) ( F N S * T y 0056500 p e F i n d i n g F n s ) ( G 0056520 L O B A L R E S O U R C E S \ 0056540 A & P S T R ) ( D E C L A R E 0056560 : D O N T C O P Y ( D E C L 0056600 A R E : \r E V A L @ C O M P I 0056620 L E ( M A C R O S S F I M O 0056640 N I T O R S F I B L K S T R I 0056660 N G . I N P U T ) ( R E C O R 0056700 D S T Y P E S L S T P A T T E 0056720 R N ) ( C O N S T A N T S ( 0056740 C R . E O L C 0 ) ( \r L F . 0056760 E O L C 1 ) ( C R L F . E O 0057000 L C 2 ) ) ) ( D E C L A R E 0057020 : E V A L @ C O M P I L E W H 0057040 E N ( E Q C O M P I L E M O 0057060 D E ( Q U O T E D ) ) E V 0057100 A L @ L O A D W H E N ( E Q 0057120 ( \r S Y S T E M T Y P E ) ( Q 0057140 U O T E D ) ) ( F I L E S 0057160 ( L O A D C O M P F R O M ( 0057200 { P H Y L U M } < L I S P C O R 0057220 E > S O U R C E S > { P H Y L 0057240 U M } < L I S P > S O U R C E S 0057260 > ) ) \r F I L E I O ) ( F I 0057300 L E S ( L O A D C O M P F R 0057320 O M ( { P H Y L U M } < L I S 0057340 P C O R E > S O U R C E S > { 0057360 P H Y L U M } < L I S P > S O U 0057400 R C E S > ) ) F I L E I O ) ) 0057420 ( D E C L A R E : \r E V A L 0057440 @ C O M P I L E W H E N ( E Q 0057460 C O M P I L E M O D E ( Q U 0057500 O T E P D P - 1 0 ) ) E V A 0057520 L @ L O A D W H E N ( E Q C 0057540 O M P I L E M O D E ( Q U O T 0057560 E P D P - 1 0 ) ) ( P ( \r 0057600 F I L E S L O A D ( S Y S L O 0057620 A D F R O M L I S P U S E R 0057640 S ) C J S Y S ) ) ) ) ( D E 0057660 C L A R E : C O P Y W H E N 0057700 ( N E Q C O M P I L E M O D E 0057720 ( Q U O T E D ) ) ( F N S 0057740 \r \ S F I . U A L P H O R D E 0057760 R ) ) ( D E C L A R E : D O 0060000 C O P Y D O N T E V A L @ L O 0060020 A D ( P ( M O V D ? ( Q U 0060040 O T E L I S T F I L E S 1 ) 0060060 ( Q U O T E O L D L I S T F I 0060100 L E S 1 ) ) ( \r / M O V D ( 0060120 Q U O T E S I N G L E F I L E 0060140 I N D E X ) ( Q U O T E L I 0060160 S T F I L E S 1 ) ) ( S E L E 0060200 C T Q ( S Y S T E M T Y P E ) 0060220 ( D ( P U T D ( Q U O T E 0060240 \r \ S F I . U A L P H O R D E 0060260 R ) ) ) ( M O V D ? ( Q U O 0060300 T E \ S F I . U A L P H O R D 0060320 E R ) ( Q U O T E U A L P H 0060340 O R D E R ) ) ) ( O R ( F I 0060360 X P ( G E T T O P V A L ( Q 0060400 U O T E \r L I N E S P E R P A 0060420 G E ) ) ) ( S A V E S E T Q 0060440 L I N E S P E R P A G E ( S E 0060460 L E C T Q ( S Y S T E M T Y P 0060500 E ) ( D 6 5 ) 5 8 ) ) ) ) 0060520 ) ( G L O B A L V A R S F O 0060540 N T C H A N G E F L G \r D E F 0060560 A U L T F O N T P R E T T Y C 0060600 O M F O N T ) ) ) \r ( A N D ( 0060620 B O U N D P ( Q U O T E I N 0060640 D E X E D T Y P E S L S T ) ) 0060660 ( N U L L I N D E X E D T Y P 0060700 E S L S T ) ( S E T Q I N D 0060720 E X E D T Y P E S L S T ( Q U 0060740 O T E N O B I N D ) ) ) \r ( R 0060760 P A Q \ S F I . I N D I R E C 0061000 T I O N " I n d i r e c t i o 0061020 n M a r k e r " ) \r ( R P A Q 0061040 D E F A U L T I N D E X E D T 0061060 Y P E S L S T ( S U B S T \ 0061100 S F I . I N D I R E C T I O N 0061120 ( Q U O T E \ S F I . I N D I 0061140 R E C T I O N ) ( Q U O T E 0061160 ( ( V A R ( R P A Q \r A D D 0061200 T O V A R ) T e s t F o r V a 0061220 r ) ( M A C R O P U T P R O 0061240 P S T e s t F o r M a c r o ) 0061260 ( C O N S T A N T S C O N S 0061300 T A N T S T e s t F o r C o n 0061320 s t a n t s ) ( R E C O R D 0061340 ( \r \ S F I . I N D I R E C T I 0061360 O N C L I S P R E C O R D T Y 0061400 P E S ) ) ( R E S O U R C E 0061420 P U T D E F T e s t F o r R e 0061440 s o u r c e ) ( B I T M A P 0061460 " R P A Q " T e s t F o r B 0061500 i t m a p ) ( \r C L A S S " 0061520 D E F C L A S S " ) ( I N S 0061540 T A N C E D E F I N S T T e 0061560 s t F o r I n s t a n c e ) ( 0061600 M E T H O D M E T H T e s t 0061620 F o r M e t h o d ) ( G L O B 0061640 A L R E S O U R C E \r P U T D 0061660 E F T e s t F o r G e n e r i 0061700 c D e f i n i t i o n ) ) ) ) ) 0061720 \r ( R P A Q P R I N T E R ( 0061740 S E L E C T Q ( S Y S T E M T 0061760 Y P E ) ( D ( Q U O T E { 0062000 L P T } ) ) ( Q U O T E L P 0062020 T : ) ) ) \r ( R P A Q ? I N D 0062040 E X E D T Y P E S L S T D E F 0062060 A U L T I N D E X E D T Y P E S 0062100 L S T ) \r ( R P A Q ? R E L A 0062120 T I V E I N D E X F L G ) \r ( R 0062140 P A Q ? \ S I N G L E F I L E 0062160 I N D E X . L O C K N I L ) \r 0062200 ( C O N D ( ( M O V D ? ( Q 0062220 U O T E \ S F I . L I S P S O 0062240 U R C E F I L E P ) ( Q U O T 0062260 E L I S P S O U R C E F I L E 0062300 P ) ) ( M O V D ? ( Q U O T 0062320 E \ S F I . G E T F I L E M A 0062340 P ) ( \r Q U O T E G E T F I 0062360 L E M A P ) ) ) ( T ( P U T 0062400 D ( Q U O T E \ S F I . L I 0062420 S P S O U R C E F I L E P ) ) 0062440 ( P U T D ( Q U O T E \ S F 0062460 I . G E T F I L E M A P ) ) ) ) 0062500 \r ( R P A Q ? \ S F I . G E T 0062520 D E F . H A S H N I L ) \r ( R 0062540 P A Q Q F i l e I n d e x i n 0062560 g F n s ( S I N G L E F I L E 0062600 I N D E X S I N G L E F I L E 0062620 I N D E X 2 S I N G L E F I L 0062640 E I N D E X 1 \ S F I . A n a 0062660 l y z e L i n e P r i n t F n 0062700 D e f \r P r i n t O n e T y p 0062720 e I n d e x P r i n t R e l a 0062740 t i v e F u n c t i o n I n d e 0062760 x D e t e r m i n e L i n e s 0063000 P e r P a g e I N D E X C O P 0063020 Y B Y T E S I N D E X N E W L 0063040 I N E \r I N D E X N E W P A G 0063060 E M E R G E D F I L E I N D E 0063100 X M E R G E D F I L E I N D E 0063120 X 2 M E R G E D F I L E I N D 0063140 E X 1 P r i n t F i l e T i t 0063160 l e P r i n t I n d e x \r P 0063200 r i n t M e r g e d I n d e x 0063220 \ S F I . P r i n t I n d e x F 0063240 a c t o r s ) ) \r ( R P A Q Q 0063260 T y p e F i n d i n g F n s ( 0063300 T e s t F o r V a r T e s t F 0063320 o r M a c r o T e s t F o r B 0063340 i t m a p T e s t F o r R e s 0063360 o u r c e T e s t F o r G e n 0063400 e r i c D e f i n i t i o n \r 0063420 T e s t F o r C o n s t a n t s 0063440 T e s t F o r I n s t a n c e 0063460 T e s t F o r M e t h o d T 0063500 e s t F o r T y p e P o s i t 0063520 i o n F o r T e s t ) ) \r ( R P 0063540 A Q Q \ \ A & P S T R . G L O 0063560 B A L R E S O U R C E N I L ) 0063600 \r ( M O V D ? ( Q U O T E L 0063620 I S T F I L E S 1 ) ( Q U O T 0063640 E O L D L I S T F I L E S 1 ) 0063660 ) \r ( / M O V D ( Q U O T E 0063700 S I N G L E F I L E I N D E X ) 0063720 ( Q U O T E L I S T F I L E 0063740 S 1 ) ) \r ( S E L E C T Q ( S 0063760 Y S T E M T Y P E ) ( D ( P 0064000 U T D ( Q U O T E \ S F I . 0064020 U A L P H O R D E R ) ) ) ( M 0064040 O V D ? ( Q U O T E \ S F I 0064060 . U A L P H O R D E R ) ( Q U 0064100 O T E \r U A L P H O R D E R ) 0064120 ) ) \r ( O R ( F I X P ( G E 0064140 T T O P V A L ( Q U O T E L 0064160 I N E S P E R P A G E ) ) ) ( 0064200 S A V E S E T Q L I N E S P E 0064220 R P A G E ( S E L E C T Q ( 0064240 S Y S T E M T Y P E ) ( D 6 0064260 5 ) 5 8 ) ) ) \r ( P U T P R O 0064300 P S S I N G L E F I L E I N D 0064320 E X C O P Y R I G H T ( " X 0064340 e r o x C o r p o r a t i o n 0064360 " 1 9 8 4 ) ) \r N I L \r 0064375