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