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