$ od -c -N 50000 [phylum]<LISP>KOTO>Sources>COMMENT.DCOM!1 0000000 ( F I L E C R E A T E D " 6 0000020 - J a n - 8 5 1 4 : 4 6 : 4 8 0000040 " ( " c o m p i l e d o n 0000060 " { E R I S } < L I S P C O R 0000100 E > S O U R C E S > C O M M E N 0000120 T . ; 8 ) \r " 6 - J a n - 8 0000140 5 0 5 : 1 1 : 1 0 " b c o m 0000160 p l ' d i n " I N T E R L I 0000200 S P - D 6 - J a n - 8 5 . 0000220 . . " d a t e d " 6 - J a 0000240 n - 8 5 0 5 : 2 8 : 4 6 " ) \r 0000260 ( F I L E C R E A T E D " 2 0 0000300 - S e p - 8 4 1 1 : 2 4 : 5 1 0000320 " { E R I S } < L I S P C O R 0000340 E > S O U R C E S > C O M M E N 0000360 T . ; 8 1 9 3 7 7 c h a n g 0000400 e s t o : ( F N S \r F O N 0000420 T P R O F I L E ) p r e v i o 0000440 u s d a t e : " 1 4 - S e p 0000460 - 8 4 2 3 : 5 9 : 5 4 " { E 0000500 R I S } < L I S P C O R E > S O 0000520 U R C E S > C O M M E N T . ; 7 0000540 ) \r P R I N T F N D 1 \r ( L 0000560 ( 2 T O F I L E 1 F R O M 0000600 F I L E 0 F N ) ) \0 d 001 \0 0000620 \0 003 @ A \n \0 \0 021 001 \0 H d 003 262 031 027 0000640 \0 \0 001 B H 002 001 H 002 002 001 H 002 002 002 001 0000660 \r 005 \0 \0 @ 020 g \0 \0 360 262 027 o \0 \0 \0 0000700 B \n \0 \0 277 A B \n \0 \0 277 o \0 \0 \0 260 0000720 033 @ B \n \0 \0 277 o \0 \0 \0 B \n \0 \0 277 0000740 H B \n \0 \0 277 o \0 \0 \0 B \n \0 \0 277 B 0000760 \t \0 \0 h 020 \0 ( 1 4 0 Q T E R P 0001000 R I 1 3 3 Q P R I N 1 1 2 0001020 2 Q P R I N 1 1 1 4 Q P R 0001040 I N 1 1 0 3 Q P R I N 1 6 0001060 7 Q P R I N 1 6 1 Q P R I 0001100 N 1 4 1 Q P R I N T F N D E 0001120 F 4 F I N D F N D E F ) \r ( 0001140 4 6 Q F I L E . N O T . F O U 0001160 N D 1 7 Q L A S T F N D E F 0001200 ) \r ( 1 2 7 Q " . " 1 1 0 0001220 Q " n o t f o u n d o n 0001240 " 7 4 Q " n o t f o u 0001260 n d . " 5 5 Q " f i l e " 0001300 ) \r P F A 0 0 0 1 D 1 \r ( N A 0001320 M E E R R O R S E T L ( 0 0001340 N I L ) F 4 F N F 5 0001360 R E S E T V A R S L S T F 0001400 6 R E S E T Y ) \0 213 004 003 002 \0 0001420 021 @ 003 T \t \0 \0 c \b d 003 225 002 271 T 001 0001440 c \b 225 T 027 \0 \0 277 205 ` \0 \0 c \b 277 g 0001460 \0 \0 I 002 001 262 % I 002 001 g \0 \0 \n \0 \0 0001500 265 033 o \0 \0 \0 I 002 001 g \0 \0 \n \0 \0 X 0001520 h 032 032 U 032 c \n 277 H 200 i \t \0 \0 h 032 0001540 032 h 032 U 032 c \n 277 I 001 262 036 I 001 Z 277 0001560 J 265 004 260 ! 003 243 J 273 h 204 J 001 273 J 002 0001600 272 T K \n \0 \0 260 351 T g \0 \0 i g \0 \0 0001620 \f \0 \0 277 023 h c \f i 020 \0 ( 2 0 2 Q 0001640 W H E R E I S 1 6 5 Q P R 0001660 I N T F N 1 1 5 Q O U T P U 0001700 T 7 6 Q O P E N F I L E 5 0001720 7 Q O P E N P 6 N L A M B 0001740 D A . A R G S ) \r ( 1 7 7 Q P 0001760 R I N T F N 1 7 3 Q F N S 0002000 7 3 Q O U T P U T 5 4 Q O 0002020 U T P U T 4 1 Q O U T P U T 0002040 3 3 Q L A S T W O R D 2 6 0002060 Q L A S T W O R D ) \r ( 6 5 0002100 Q ( P R O G N ( C L O S E F 0002120 ? O L D V A L U E ) ) ) \r P F 0002140 D 1 \r ( P 1 R E S E T Y 0002160 P 0 L I S P X H I S T I 0002200 0 F N F 3 L I S P X H I 0002220 S T F 4 R E S E T V A R S 0002240 L S T ) \0 " 003 002 003 001 S 021 ! 002 T 0002260 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 0002300 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0 ( 3 5 0002320 Q E R R O R ! 3 0 Q R E S 0002340 E T R E S T O R E 1 6 Q P F 0002360 A 0 0 0 1 ) \r ( 2 4 Q E R R O 0002400 R 1 3 Q I N T E R N A L ) \r 0002420 ( 1 0 Q ( P F A 0 0 0 1 ) ) 0002440 \r P F * A 0 0 0 1 D 1 \r ( N A 0002460 M E E R R O R S E T F 0 0002500 F N ) \0 022 \0 001 002 \0 h 027 \0 \0 277 g 0002520 \0 \0 P \n \0 \0 277 h h 032 020 \0 ( 1 3 Q 0002540 A P P L Y ) \r ( 7 P F 3 0002560 * * C O M M E N T * * F L G ) \r 0002600 ( ) \r P F * D 1 \r ( I 0 F 0002620 N F 2 R E S E T V A R S L 0002640 S T ) \0 C 002 001 003 001 g \0 \0 ` \0 \0 0002660 032 R 032 c 004 021 021 001 R Y o \0 \0 \0 g \0 0002700 \0 \n \0 \0 H 001 002 027 \0 \0 277 I d R 360 225 0002720 277 H 002 c 004 215 R \n \0 \0 231 R k I \v \0 0002740 \0 H 002 031 277 265 005 \b \0 \0 001 020 \0 ( 7 7 0002760 Q E R R O R ! 6 6 Q N L E 0003000 F T 5 7 Q T A I L P 3 1 Q 0003020 P F * A 0 0 0 1 ) \r ( 3 7 Q 0003040 * * C O M M E N T * * F L G 2 0003060 6 Q I N T E R N A L 5 * * 0003100 C O M M E N T * * F L G 2 * 0003120 * C O M M E N T * * F L G ) \r ( 0003140 2 3 Q ( P F * A 0 0 0 1 ) ) 0003160 \r P M O R E D 1 \r N I L \0 032 0003200 \0 \0 \0 \0 ` \0 \0 001 i ` \0 \0 002 002 001 m 0003220 377 ` \0 \0 002 002 002 001 \r 005 \0 \0 020 \0 ( 2 0003240 7 Q P R I N T F N D E F ) \r ( 0003260 1 7 Q L A S T F N D E F 7 0003300 L A S T F N D E F 2 L A S T 0003320 F N D E F ) \r ( ) \r P R I N T F 0003340 N D E F A 0 0 0 1 D 1 \r ( N A 0003360 M E E R R O R S E T L ( 0 0003400 N I L ) F 1 D S T F I L 0003420 F 2 S R C F I L F 3 0003440 R E S E T V A R S L S T F 4 0003460 S T A R T F 5 E N D F 0003500 6 T Y P E F 7 R E S E 0003520 T Y ) \0 257 001 \a 002 \0 021 020 \0 Q 265 \n 0003540 \b \0 \0 c 002 277 260 034 \t \0 \0 265 < o \0 \0 0003560 \0 Q g \0 \0 \n \0 \0 c 002 h 032 032 S 032 c 0003600 006 277 R g \0 \0 \n \0 \0 X 262 " g \0 \0 H 0003620 d \t \0 \0 h 032 032 032 h h 032 032 S 032 c 006 0003640 277 H c 004 277 260 034 c 002 277 260 330 o \0 \0 \0 0003660 R g \0 \0 \n \0 \0 c 004 h 032 032 S 032 c 006 0003700 277 o \0 \0 \0 Q \n \0 \0 277 R Q i \v \0 \0 0003720 277 o \0 \0 \0 Q \n \0 \0 023 Q i 360 235 ` \0 0003740 \0 g \0 \0 360 245 V g \0 \0 360 227 R Q T U 0003760 \f \0 \0 212 R Q T U ` \0 \0 \r 005 \0 \0 277 0004000 Q \t \0 \0 c 016 i 020 \0 ( 2 5 1 Q T 0004020 E R P R I 2 4 4 Q P F C O P 0004040 Y B Y T E S 2 3 0 Q C O P Y 0004060 B Y T E S 1 7 6 Q P R I N 1 0004100 1 6 5 Q P R I N 2 1 5 6 Q 0004120 P R I N 1 1 3 4 Q O P E N 0004140 F I L E 7 1 Q G E T F I L E 0004160 P T R 5 6 Q O P E N P 3 5 0004200 Q O P E N F I L E 2 0 Q O 0004220 P E N P 1 0 Q O U T P U T ) 0004240 \r ( 2 4 0 Q P F D E F A U L T 0004260 2 1 7 Q M A C 2 1 1 Q C 0004300 O P Y B Y T E S 2 0 6 Q P F 0004320 D E F A U L T 1 3 1 Q I N P 0004340 U T 6 4 Q S E T F I L E P T 0004360 R 5 3 Q I N P U T 3 2 Q 0004400 O U T P U T ) \r ( 1 7 2 Q " 0004420 } \r " 1 5 2 Q " { f r o m 0004440 " 1 2 5 Q ( P R O G N ( C 0004460 L O S E F ? O L D V A L U E ) 0004500 ) 2 6 Q ( P R O G N ( C L 0004520 O S E F ? O L D V A L U E ) ) 0004540 ) \r P R I N T F N D E F D 1 \r 0004560 ( P 1 R E S E T Y P 0 0004600 L I S P X H I S T I 4 T Y 0004620 P E I 3 E N D I 2 S 0004640 T A R T I 1 D S T F I L 0004660 I 0 S R C F I L F 3 L 0004700 I S P X H I S T F 4 R E S 0004720 E T V A R S L S T ) \0 " 003 002 \0 0004740 005 S 021 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0 0004760 221 h 202 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 0005000 I 020 \0 ( 3 5 Q E R R O R ! 3 0005020 0 Q R E S E T R E S T O R E 0005040 1 6 Q P R I N T F N D E F A 0 0005060 0 0 1 ) \r ( 2 4 Q E R R O R 0005100 1 3 Q I N T E R N A L ) \r ( 0005120 1 0 Q ( P R I N T F N D E F A 0005140 0 0 0 1 ) ) \r F I N D F N D E F 0005160 A 0 0 0 1 A 0 0 0 2 D 1 \r ( N 0005200 A M E E R R O R S E T F 0 0005220 F U L L F 1 T E M ) \0 0005240 024 \0 002 002 \0 P ` \0 \0 \n \0 \0 277 P ` \0 0005260 \0 \n \0 \0 c 002 i 020 \0 ( 1 6 Q R A 0005300 T O M 6 R E A D C ) \r ( 1 3 0005320 Q F I L E R D T B L 3 F I 0005340 L E R D T B L ) \r ( ) \r F I N D 0005360 F N D E F A 0 0 0 1 D 1 \r ( N 0005400 A M E E R R O R S E T P 1 0005420 T E M P 0 E R R O R T Y 0005440 P E L S T F 2 F U L L F 0005460 3 S T F 4 R E S E T V 0005500 A R S L S T F 5 F N F 0005520 6 T E M F 7 M A P F 0005540 1 0 Q R E S E T Y ) \0 346 002 \a 0005560 002 \0 g \0 \0 R g \0 \0 g \0 \0 \v \0 \0 c 0005600 004 h 032 032 h h 032 032 T 032 c \b 277 g \0 \0 0005620 ` \0 \0 \t \0 \0 h 032 032 h 032 T 032 c \b 277 0005640 R \t \0 \0 c 006 264 003 202 261 \0 252 ` \0 \0 242 0005660 261 \0 214 o \0 \0 \0 021 021 001 R S \n \0 \0 277 0005700 o \0 \0 \0 \t \0 \0 277 I g \0 \0 360 022 262 n 0005720 o \0 \0 \0 U o \0 \0 \0 \v \0 \0 R S h d 0005740 d \b \0 \0 \r \a \0 \0 c 006 262 R R ` \0 \0 0005760 \n \0 \0 U 360 252 R ` \0 \0 \n \0 \0 U 360 262 0006000 = R ` \0 \0 \n \0 \0 c 006 d 005 001 241 005 002 0006020 262 , R ` \0 \0 \n \0 \0 g \0 \0 360 262 037 R 0006040 ` \0 \0 \n \0 \0 c \f d 005 001 241 005 002 234 R 0006060 S V g \0 \0 h 032 032 032 032 260 031 ` \0 \0 264 0006100 024 R \t \0 \0 c 016 264 \f U R W 016 h 032 032 0006120 \n \0 \0 c 020 i 020 \0 ( 3 4 0 Q S E 0006140 A R C H F I L E M A P 3 2 2 Q 0006160 L O A D F I L E M A P 2 6 3 0006200 Q R A T O M 2 4 6 Q R A T 0006220 O M 2 2 5 Q R A T O M 2 1 0006240 2 Q R A T O M 2 0 0 Q R A 0006260 T O M 1 6 5 Q F F I L E P O 0006300 S 1 6 1 Q S E P R C A S E 0006320 1 5 1 Q C O N C A T 1 2 4 Q 0006340 F I N D F N D E F A 0 0 0 1 A 0006360 0 0 0 2 1 1 4 Q S E T F I L 0006400 E P T R 6 1 Q L I S P S O U 0006420 R C E F I L E P 4 3 Q S E T 0006440 R E A D T A B L E 1 4 Q O P 0006460 E N F I L E ) \r ( 3 1 4 Q B U 0006500 I L D M A P F L G 3 0 2 Q S 0006520 C A N 2 6 0 Q F I L E R D T 0006540 B L 2 5 1 Q % . 2 4 3 Q 0006560 F I L E R D T B L 2 2 2 Q F 0006600 I L E R D T B L 2 0 7 Q F I 0006620 L E R D T B L 1 7 5 Q F I L 0006640 E R D T B L 1 3 1 Q F I L E 0006660 M A P 7 4 Q U S E M A P F L 0006700 G 4 0 Q F I L E R D T B L 0006720 3 5 Q S E T R E A D T A B L E 0006740 1 1 Q O L D 6 I N P U T 0006760 2 C L O S E F ? ) \r ( 1 4 0007000 6 Q " " 1 4 1 Q " ( " 0007020 1 2 1 Q ( F I N D F N D E F 0007040 A 0 0 0 1 A 0 0 0 2 ) 1 0 4 Q 0007060 ( ( 2 0 Q ( E R R O R ! ) ) 0007100 ) ) \r F I N D F N D E F D 1 \r 0007120 ( P 6 R E S E T Z P 5 0007140 R E S E T Y P 4 L I S P X 0007160 H I S T P 3 M A P P 2 0007200 T E M P 1 S T P 0 0007220 F U L L I 1 F R O M F I L 0007240 E I 0 F N F 7 L I S 0007260 P X H I S T F 1 0 Q R E S 0007300 E T V A R S L S T ) \0 R \a 002 \0 0007320 002 021 @ 003 A i \n \0 \0 X 243 g \0 \0 020 ` 0007340 \0 \0 262 030 H \t \0 \0 g \0 \0 033 [ 233 H K 0007360 001 360 226 @ K \n \0 \0 260 & W 016 021 ! 006 W 0007400 020 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 0007420 \0 ^ \n \0 \0 277 N 223 \b \0 \0 200 M 022 265 003 0007440 H 020 \0 ( 1 1 1 Q E R R O R ! 0007460 1 0 3 Q R E S E T R E S T O R 0007500 E 7 1 Q F I N D F N D E F A 0007520 0 0 0 1 4 6 Q S E A R C H F 0007540 I L E M A P 2 6 Q R O O T F 0007560 I L E N A M E 7 F I N D F I 0007600 L E ) \r ( 7 7 Q E R R O R 6 0007620 6 Q I N T E R N A L 3 1 Q 0007640 F I L E M A P 2 0 Q U S E M 0007660 A P F L G 1 4 Q F I L E . N 0007700 O T . F O U N D ) \r ( 6 3 Q 0007720 ( F I N D F N D E F A 0 0 0 1 ) 0007740 ) \r S E A R C H F I L E M A P 0007760 D 1 \r ( P 1 X P 0 V A 0010000 L U E I 1 M A P I 0 0010020 F N ) \0 * 002 \0 \0 002 021 001 A 002 001 0010040 211 d 001 271 @ I \n \0 \0 X 244 002 003 265 364 h 0010060 264 022 A 001 H 002 001 H 002 002 g \0 \0 h 032 032 0010100 032 032 020 \0 ( 1 6 Q F A S S O C ) 0010120 \r ( 4 2 Q M A P ) \r ( ) \r F O 0010140 N T S E T D 1 \r ( L ( 0 N 0010160 A M E ) F 1 F O N T N A M 0010200 E ) \0 . 001 001 \0 001 @ ` \0 \0 \n \0 \0 0010220 265 030 @ o \0 \0 \0 \n \0 \0 020 d 001 021 001 \0 0010240 H 001 H 002 \n \0 \0 023 002 003 265 361 ` \0 \0 \t 0010260 \0 \0 @ c 002 020 \0 ( 5 0 Q F O N T 0010300 P R O F I L E 3 5 Q / S E T 0010320 A T O M V A L 2 0 Q E R R O 0010340 R 6 F A S S O C ) \r ( 4 5 Q 0010360 F O N T P R O F I L E 3 F 0010400 O N T D E F S ) \r ( 1 5 Q " 0010420 n o t a d e f i n e d f o 0010440 n t c o n f i g u r a t i o n 0010460 " ) \r F O N T N A M E D 1 \r ( 0010500 L ( 0 N A M E ) ) \0 J 003 \0 0010520 \0 001 @ 021 0 002 ` \0 \0 260 026 d 001 d \t \0 0010540 \0 032 270 I 265 \a H h 032 Z 201 H & 271 002 003 0010560 265 353 J 022 032 021 001 \0 @ ` \0 \0 \n \0 \0 265 0010600 017 g \0 \0 H ` \0 \0 032 \n \0 \0 @ 020 H 002 0010620 \n \0 \0 @ g \0 \0 h 032 032 020 \0 ( 1 0 0 0010640 Q / R P L A C D 7 1 Q / S 0010660 E T A T O M V A L 5 4 Q F A 0010700 S S O C 1 6 Q G E T T O P V 0010720 A L ) \r ( 1 0 4 Q r e d e f i 0010740 n e d 6 5 Q F O N T D E F S 0010760 6 1 Q F O N T D E F S 5 1 0011000 Q F O N T D E F S 6 F O N 0011020 T D E F S V A R S ) \r ( ) \r F O 0011040 N T P R O F I L E D 1 \r ( L 0011060 ( 0 P R O F I L E ) F 5 0011100 G L O B A L V A R S ) \0 231 005 001 0011120 \0 001 021 001 @ 261 \0 202 d 001 Y 001 I 021 022 0011140 004 K d 001 L \n \0 \0 231 277 o \0 \0 \0 I \n 0011160 \0 \0 203 001 L 032 \ 277 K d 002 001 224 d 002 001 0011200 003 220 002 002 [ d 003 227 001 004 l 004 360 262 ) K 0011220 003 001 d 225 d g \0 \0 360 237 277 g \0 \0 L \n 0011240 \0 \0 h 360 264 \t g \0 \0 202 277 K 001 @ \n \0 0011260 \0 [ 262 034 260 255 J d 231 d U 034 245 U 032 c 0011300 \n 277 J K g \0 \0 \v \0 \0 [ H 032 270 J 225 0011320 J K \n \0 \0 277 023 002 003 265 003 202 261 377 } H 0011340 226 H g \0 \0 \n \0 \0 i 020 \0 ( 2 2 5 Q 0011360 F O N T M A P A R R A Y 2 0 0011400 2 Q / S E T A T O M V A L 1 0011420 6 7 Q F O N T C L A S S 1 3 0011440 6 Q A S S O C 1 1 7 Q M E 0011460 M B 3 7 Q E R R O R 2 5 Q 0011500 M E M B ) \r ( 2 2 2 Q D I S 0011520 P L A Y 1 6 4 Q D I S P L A 0011540 Y 1 2 6 Q D E F A U L T F O 0011560 N T 1 1 3 Q D E F A U L T F 0011600 O N T 1 0 5 Q D E F A U L T 0011620 F O N T ) \r ( 3 3 Q " C i r 0011640 c u l a r f o n t p r o f i 0011660 l e s p e c i f i c a t i o n 0011700 " ) \r F O N T P R O F I L E 1 0011720 D 1 \r ( L ( 1 F O N T L I S 0011740 T 0 N A M E ) ) \0 a \a \0 \0 0011760 002 A 001 d 005 001 241 005 002 264 \r ` \0 \0 A 001 0012000 \t \0 \0 \n \0 \0 ` \0 \0 i \n \0 \0 021 a 006 0012020 H 003 265 006 I 022 032 020 001 274 A L 001 \n \0 \0 0012040 001 ] 242 h 260 032 L 002 001 233 L 002 001 276 @ M 0012060 l 002 N 017 016 207 o \0 \0 \0 M \n \0 \0 273 J 0012100 265 \f K h 032 Z 271 H 002 X 260 307 K & 272 260 0012120 370 \0 ( 1 1 4 Q E R R O R 5 6 0012140 Q N T H 3 3 Q S O R T 2 0012160 4 Q P A C K * 2 1 Q C H A 0012200 R A C T E R ) \r ( 2 7 Q F O N 0012220 T S E T U P F N S 1 4 Q F O 0012240 N T E S C A P E C H A R ) \r ( 0012260 1 1 0 Q " i l l e g a l f o 0012300 n t s p e c i f i c a t i o n 0012320 " ) \r L O N G L A M B D A . P P 0012340 M A C R O D 1 \r ( P 0 P O 0012360 S I 0 F O R M F 1 F 0012400 N S L S T ) \0 X 001 001 \0 001 @ d 003 0012420 262 S d 002 003 262 N d 002 002 003 262 H 277 \b \0 0012440 \0 l 004 330 021 001 \0 o \0 \0 \0 \t \0 \0 @ 001 0012460 \t \0 \0 k \t \0 \0 @ 002 001 \b \0 \0 \n \0 \0 0012500 ` \0 \0 @ 002 002 b \0 001 001 360 245 H j \n \0 0012520 \0 277 @ H i d Q \r 005 \0 \0 o \0 \0 \0 \t 0012540 \0 \0 h 020 \0 ( 1 2 4 Q P R I N 1 0012560 1 1 5 Q P R I N T D E F 1 0012600 0 3 Q T A B 6 2 Q P R I N 0012620 T D E F 5 7 Q P O S I T I O 0012640 N 5 1 Q S P A C E S 4 5 Q 0012660 P R I N 2 4 0 Q P R I N 1 0012700 2 3 Q P O S I T I O N ) \r ( 0012720 6 5 Q C O M M E N T F L G ) \r 0012740 ( 1 2 1 Q " ) " 3 5 Q " 0012760 ( " ) \r L O N G P R O G N . P P 0013000 M A C R O D 1 \r ( P 0 P O 0013020 S I 0 F O R M F 1 F 0013040 N S L S T ) \0 D 001 001 \0 001 @ d 003 0013060 262 ? d 002 003 262 : 277 \b \0 \0 l 004 330 021 001 0013100 \0 o \0 \0 \0 \t \0 \0 @ 001 \t \0 \0 ` \0 \0 0013120 @ 002 b \0 001 001 360 245 H j \n \0 \0 277 @ H 0013140 i d Q \r 005 \0 \0 o \0 \0 \0 \t \0 \0 h 020 0013160 \0 ( 1 0 0 Q P R I N 1 7 1 Q 0013200 P R I N T D E F 5 7 Q T A 0013220 B 3 7 Q P R I N 2 3 2 Q 0013240 P R I N 1 1 5 Q P O S I T I 0013260 O N ) \r ( 4 2 Q C O M M E N T 0013300 F L G ) \r ( 7 5 Q " ) " 2 0013320 7 Q " ( " ) \r ( P R E T T Y C 0013340 O M P R I N T C O M M E N T C 0013360 O M S ) \r ( R P A Q Q C O M M 0013400 E N T C O M S ( ( V A R S L 0013420 C A S E L S T U C A S E L S T 0013440 A B B R E V L S T ) ( C O M 0013460 S ( * * P R I N T F N ) 0013500 ( F N S P F P F * P M O R 0013520 E P R I N T F N \r P R I N T 0013540 F N D E F F I N D F N D E F 0013560 S E A R C H F I L E M A P ) ( 0013600 E ( * c u r r e n t l y P 0013620 F D E F A U L T h a s 3 p 0013640 o s s i b l e s e t t i n g s 0013660 : C O P Y B Y T E S m e a n 0013700 s \r a l w a y s u s e C O 0013720 P Y B Y T E S t o p r i n t 0013740 t h e f u n c t i o n s . 0013760 - N I L m e a n s u s e 0014000 t h e P F C O P Y B Y T E S 0014020 f u n c t i o n , w h i c h 0014040 p r i n t s \r c o m m e n t s 0014060 a s * * C O M M E N T * * F 0014100 L G , a n d r e d u c e s 0014120 t h e s p a c i n g f r o m 0014140 t h e l e f t m a r g i n 0014160 b y 1 / 2 a n d g e t s 0014200 r i d o f t h e \r c h a 0014220 n g e c h a r i n d i c a t o 0014240 r s . - P F D E F A U L T = 0014260 T u s e s P F C O P Y B Y T 0014300 E S , b u t l e a v e s t 0014320 h e s p a c i n g a s - i s 0014340 ) ) ( I N I T V A R S \r P F 0014360 D E F A U L T ( L A S T F N D 0014400 E F ) ) ( P ( M O V D ? ( 0014420 Q U O T E C O P Y B Y T E S ) 0014440 ( Q U O T E P F C O P Y B Y 0014460 T E S ) ) ) ( U S E R M A C R 0014500 O S P F ) ( P R O P M A C 0014520 \r S U B R ) ( B L O C K S 0014540 ( N I L P R I N T F N P F 0014560 P F * P M O R E P R I N T F 0014600 N D E F ( L O C A L V A R S 0014620 . T ) ( G L O B A L V A R S 0014640 * * C O M M E N T * * F L G 0014660 \r L A S T F N D E F L A S T W 0014700 O R D P F D E F A U L T F I 0014720 L E R D T B L ) ) ( N I L F 0014740 I N D F N D E F F I N D S U B 0014760 R D E F F I N D B C P L D E F 0015000 S E A R C H F I L E M A P ( 0015020 \r G L O B A L V A R S F I L E 0015040 R D T B L B U I L D M A P F L 0015060 G U S E M A P F L G ) ( N O 0015100 L I N K F N S . T ) ) ) ) 0015120 ( C O M S ( * * F O N T ) 0015140 ( F N S F O N T S E T F O 0015160 N T N A M E \r F O N T P R O F 0015200 I L E F O N T P R O F I L E 1 0015220 ) ( I N I T V A R S ( F O N 0015240 T E S C A P E C H A R ( C H A 0015260 R A C T E R 6 ) ) ( F O N T 0015300 F N S ) ( F O N T W O R D S ) 0015320 ) ( V A R S \r F O N T D E F 0015340 S V A R S ) ( A D D V A R S 0015360 ( F O N T S E T U P F N S ) ( 0015400 F O N T D E F S ( S T A N D A 0015420 R D ( F O N T C H A N G E F L 0015440 G ) ( F I L E L I N E L E N G 0015460 T H . 7 2 ) ( \r C O M M E 0015500 N T L I N E L E N G T H . 7 0015520 2 ) ( L A M B D A F O N T L I 0015540 N E L E N G T H . 7 2 ) ( 0015560 F I R S T C O L . 4 8 ) ( 0015600 P R E T T Y L C O M . 1 4 ) 0015620 ( L I S T F I L E S T R . 0015640 \r " \r " ) ( F O N T P R O F I 0015660 L E ( D E F A U L T F O N T ) 0015700 ( U S E R F O N T ) ( C O M 0015720 M E N T F O N T ) ( L A M B D 0015740 A F O N T ) ( S Y S T E M F O 0015760 N T ) ( C L I S P F O N T ) 0016000 ( \r C H A N G E F O N T ) ( P 0016020 R E T T Y C O M F O N T ) ( B 0016040 I G F O N T ) ( L I T T L E F 0016060 O N T ) ( B O L D F O N T ) ) 0016100 ) ( S M A L L ( F O N T C H 0016120 A N G E F L G ) ( F I L E L I 0016140 N E L E N G T H \r . 9 6 ) 0016160 ( C O M M E N T L I N E L E N G 0016200 T H . 9 6 ) ( L A M B D A 0016220 F O N T L I N E L E N G T H . 0016240 9 6 ) ( F I R S T C O L . 0016260 6 0 ) ( P R E T T Y L C O M 0016300 . 1 4 ) ( \r L I S T F I L 0016320 E S T R . " \r " ) ( F O N 0016340 T P R O F I L E ( D E F A U L 0016360 T F O N T ) ( U S E R F O N T 0016400 ) ( C O M M E N T F O N T ) 0016420 ( L A M B D A F O N T ) ( S Y 0016440 S T E M F O N T ) ( C L I S P 0016460 F O N T ) ( \r C H A N G E F O 0016500 N T ) ( P R E T T Y C O M F O 0016520 N T ) ( B I G F O N T ) ( L 0016540 I T T L E F O N T ) ( B O L D 0016560 F O N T ) ) ) ) ) ( D E C L A 0016600 R E : D O N T E V A L @ L O A 0016620 D D O C O P Y ( P ( \r F O 0016640 N T S E T ( Q U O T E S T A 0016660 N D A R D ) ) ) ) ( B L O C K 0016700 S ( N I L F O N T S E T F 0016720 O N T N A M E F O N T P R O F 0016740 I L E F O N T P R O F I L E 1 0016760 ( L O C A L V A R S . T ) 0017000 ( \r G L O B A L V A R S F O 0017020 N T P R O F I L E F O N T C H 0017040 A N G E F L G F O N T E S C A 0017060 P E C H A R F O N T D E F S 0017100 F O N T D E F S V A R S ) ) ) ) 0017120 ( C O M S ( * S o m e \r 0017140 p r e t t y p r i n t m a c r 0017160 o s ) ( F N S L O N G L A M 0017200 B D A . P P M A C R O L O N G 0017220 P R O G N . P P M A C R O ) ) 0017240 ( D E C L A R E : D O N T E V 0017260 A L @ L O A D D O E V A L @ C 0017300 O M P I L E \r D O N T C O P Y 0017320 C O M P I L E R V A R S ( A 0017340 D D V A R S ( N L A M A P F 0017360 * P F ) ( N L A M L ) ( L 0017400 A M A ) ) ) ) ) \r ( R P A Q Q 0017420 L C A S E L S T ( A A D D 0017440 A N A N D A R R A Y A R R 0017460 A Y S A S A T O M A T O M 0017500 I C A T O M S A T T A C H 0017520 B E T W E E N B Y C A L L S 0017540 C H A R A C T E R \r C H A R 0017560 T C O L L E C T C O M M E N 0017600 T C O N T R O L C O P Y C 0017620 O U N T C R E A T E D E F I 0017640 N E D I F F E R E N C E D I 0017660 S P L A Y D I V I D E D O 0017700 E E D I T E I T H E R E L 0017720 S E \r E Q E Q U A L E Q U 0017740 A L S E R R O R E V E R Y 0017760 F I N A L L Y F I R S T F I 0020000 X F I X E D F L O A T I N G 0020020 F O R F R O M F U N C T I 0020040 O N G E T G O G R E A T E 0020060 R H E L P I F \r I N I N 0020100 P U T I N T E G E R I N T E 0020120 G E R S I S J O I N L A S 0020140 T L E N G T H L E S S L I 0020160 S T L I S T S L I T A T O M 0020200 L I T A T O M S L I T E R A 0020220 L M A R K M E M B \r M E M 0020240 B E R M E M B E R S M I N U 0020260 S M I X E D M O V E M O V 0020300 E S N E G A T I V E N O T 0020320 N T H N U L L N U M B E R 0020340 N U M B E R S O F O L D O 0020360 N O R O U T P U T P L U S 0020400 \r P O I N T P O S I T I O N 0020420 P R E T T Y P R I N T P U 0020440 S H P U T Q U I T R E A D 0020460 R E M O V E R E S E T R E 0020500 S T O R E R E S U L T S R E 0020520 T U R N R E V E R S E S A V 0020540 E D S E T \r S I D E S K I 0020560 P S M A L L S O M E S O R 0020600 T S T A R T S T R I N G S 0020620 T R I N G S T A I L T H A N 0020640 T H E T H E N T H R U T 0020660 I M E T I M E S T O U N L 0020700 E S S U N T I L U S E D \r 0020720 V A R I A B L E S W H E N W 0020740 H E R E W H I L E ) ) \r ( R P 0020760 A Q Q U C A S E L S T N I L 0021000 ) \r ( R P A Q Q A B B R E V L 0021020 S T ( E T C . I . E . E . 0021040 G . e t c . i . e . e . g 0021060 . ) ) \r ( R P A Q ? P F D E F 0021100 A U L T N I L ) \r ( R P A Q ? 0021120 L A S T F N D E F ) \r ( M O V 0021140 D ? ( Q U O T E C O P Y B Y 0021160 T E S ) ( Q U O T E P F C O 0021200 P Y B Y T E S ) ) \r ( A D D T O 0021220 V A R E D I T M A C R O S ( 0021240 P F N I L ( O R R ( ( E 0021260 ( A P P L Y * ( Q U O T E P 0021300 F ) ( F I R S T A T O M ( # 0021320 # ) ) ) ) ) ( ( E ( Q U O T 0021340 E P F ? ) ) ) ) ) ) \r ( A D D 0021360 T O V A R E D I T C O M S A 0021400 P F ) \r ( P U T P R O P S S U 0021420 B R M A C ( ( A T H A S H 0021440 L I S P G C S W A P B Y T 0021460 E ) ( N E W L I S P L I S P 0021500 N E T L I S P ) ( L I S P 0021520 " A T M < " " > , " 2 5 0 0021540 0 0 0 L I S P ) ) \r ) \r ( R P 0021560 A Q ? F O N T E S C A P E C H 0021600 A R ( C H A R A C T E R 6 ) 0021620 ) \r ( R P A Q ? F O N T F N S 0021640 ) \r ( R P A Q ? F O N T W O R 0021660 D S ) \r ( R P A Q Q F O N T D 0021700 E F S V A R S ( F O N T C H A 0021720 N G E F L G F I L E L I N E L 0021740 E N G T H C O M M E N T L I N 0021760 E L E N G T H F I R S T C O L 0022000 P R E T T Y L C O M L I S T 0022020 F I L E S T R \r F O N T P R O 0022040 F I L E F O N T E S C A P E C 0022060 H A R ) ) \r ( A D D T O V A R 0022100 F O N T S E T U P F N S ) \r ( A 0022120 D D T O V A R F O N T D E F S 0022140 ( S T A N D A R D ( F O N T 0022160 C H A N G E F L G ) ( F I L E 0022200 L I N E L E N G T H . 7 2 ) 0022220 ( C O M M E N T L I N E L E N 0022240 G T H . 7 2 ) ( \r L A M B 0022260 D A F O N T L I N E L E N G T H 0022300 . 7 2 ) ( F I R S T C O L 0022320 . 4 8 ) ( P R E T T Y L C 0022340 O M . 1 4 ) ( L I S T F I 0022360 L E S T R . " \r " ) ( F O 0022400 N T P R O F I L E ( D E F A U 0022420 L T F O N T ) ( U S E R F O N 0022440 T ) ( C O M M E N T F O N T ) 0022460 ( L A M B D A F O N T ) ( S 0022500 Y S T E M F O N T ) ( C L I S 0022520 P F O N T ) ( \r C H A N G E F 0022540 O N T ) ( P R E T T Y C O M F 0022560 O N T ) ( B I G F O N T ) ( 0022600 L I T T L E F O N T ) ( B O L 0022620 D F O N T ) ) ) ( S M A L L 0022640 ( F O N T C H A N G E F L G ) 0022660 ( F I L E L I N E L E N G T H \r 0022700 . 9 6 ) ( C O M M E N T L 0022720 I N E L E N G T H . 9 6 ) 0022740 ( L A M B D A F O N T L I N E L 0022760 E N G T H . 9 6 ) ( F I R 0023000 S T C O L . 6 0 ) ( P R E 0023020 T T Y L C O M . 1 4 ) ( \r 0023040 L I S T F I L E S T R . " \r 0023060 " ) ( F O N T P R O F I L E 0023100 ( D E F A U L T F O N T ) ( U 0023120 S E R F O N T ) ( C O M M E N 0023140 T F O N T ) ( L A M B D A F O 0023160 N T ) ( S Y S T E M F O N T ) 0023200 ( C L I S P F O N T ) ( \r C 0023220 H A N G E F O N T ) ( P R E T 0023240 T Y C O M F O N T ) ( B I G F 0023260 O N T ) ( L I T T L E F O N T 0023300 ) ( B O L D F O N T ) ) ) ) \r 0023320 ( F O N T S E T ( Q U O T E 0023340 S T A N D A R D ) ) \r ( P U T P 0023360 R O P S C O M M E N T C O P 0023400 Y R I G H T ( " X e r o x C 0023420 o r p o r a t i o n " T 1 9 0023440 8 3 1 9 8 4 ) ) \r N I L \r 0023456