$ od -c -N 50000 [eris]<Lisp>JCAI>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