$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>LIBRARY>READSYS.DCOM!1
0000000 ( F I L E C R E A T E D " 6
0000020 - J a n - 8 5 1 5 : 2 2 : 2 7
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 > L I B R A R Y > R E A D S Y
0000120 S . ; 1 0 ) \r " 6 - J a n -
0000140 8 5 0 5 : 1 1 : 1 0 " b c o
0000160 m p l ' d i n " I N T E R L
0000200 I S P - D 6 - J a n - 8 5
0000220 . . . " d a t e d " 6 - J
0000240 a n - 8 5 0 5 : 2 8 : 4 6 " )
0000260 \r ( F I L E C R E A T E D "
0000300 6 - A u g - 8 4 1 3 : 4 6 : 0
0000320 1 " { E R I S } < L I S P C O
0000340 R E > L I B R A R Y > R E A D S
0000360 Y S . ; 1 0 7 2 5 3 c h a n
0000400 g e s t o : ( F N S R E A
0000420 D S Y S \r V A T O M V A T O
0000440 M N U M B E R ) ( V A R S R
0000460 E A D S Y S C O M S ) p r e v
0000500 i o u s d a t e : " 3 0 - J
0000520 u l - 8 4 0 2 : 2 5 : 1 3 "
0000540 \r { E R I S } < L I S P C O R E
0000560 > L I B R A R Y > R E A D S Y S
0000600 . ; 9 ) \r P R I N T S Y S O U T
0000620 A 0 0 0 1 A 0 0 0 2 D 1 \r ( L
0000640 ( 1 Y 0 X ) ) \0 \n \0 \0
0000660 \0 002 @ 002 001 A 002 001 375 361 020 \0 N I L \r
0000700 N I L \r ( ) \r P R I N T S Y S O
0000720 U T A 0 0 0 1 D 1 \r ( N A M E
0000740 E R R O R S E T P 2 1 Q
0000760 X P 1 5 Q I P 1 3 Q
0001000 M X P 1 2 Q I L I S T P
0001020 1 1 Q F N P 1 0 Q D
0001040 P 7 C U R F N P 6 M A
0001060 P P 5 . I 6 P 4 I N
0001100 U M P 3 V D E F S P A C E
0001120 P 2 L I N E S P E R P A G
0001140 E P 1 P A G E C O U N T
0001160 P 0 L I N E C O U N T F
0001200 2 2 Q R E S E T V A R S L S T
0001220 F 2 3 Q R A D I X F 2
0001240 4 Q O U T F F 2 5 Q L I
0001260 N E S P E R P A G E F 2 6 Q
0001300 R E S E T Y F 2 7 Q S H
0001320 O R T F L G ) 001 271 022 006 002 \0 W &
0001340 244 l 020 c & 277 j d W * g \0 \0 \t \0 \0
0001360 j g \0 \0 l 006 W & h 032 032 032 021 f \v W
0001400 ( 265 027 g \0 \0 g \0 \0 g \0 \0 ` \0 \0 g
0001420 \0 \0 \n \0 \0 \f \0 \0 \t \0 \0 277 g \0 \0 \b
0001440 \0 \0 h 032 032 h h 032 032 W $ 032 c $ 277 g
0001460 \0 \0 n 003 350 \t \0 \0 h 032 032 h 032 W $ 032
0001500 c $ 277 g \0 \0 l \n \t \0 \0 h 032 032 h 032
0001520 W $ 032 c $ 277 g \0 \0 \t \0 \0 \t \0 \0 k
0001540 331 _ 026 j 021 2 020 O 032 O 030 363 263 8 K O
0001560 032 340 330 \t \0 \0 _ 020 262 034 O 032 \t \0 \0 O
0001600 020 h 032 032 _ 277 O 036 265 023 O h 032 _
0001620 036 _ 034 277 O 032 k 324 _ 032 260 317 O & _
0001640 036 277 260 362 O 034 022 _ 024 277 o \0 \0 \0 \t \0
0001660 \0 277 ` \0 \0 \t \0 \0 277 o \0 \0 \0 \t \0 \0
0001700 277 ` \0 \0 g \0 \0 \n \0 \0 \t \0 \0 277 h \t
0001720 \0 \0 277 O 024 g \0 \0 \n \0 \0 277 O 024 260 8
0001740 d 001 021 001 021 M O " 002 001 265 003 j 343 343 \n
0001760 \0 \0 277 k \t \0 \0 277 M O " 002 001 265 003 j
0002000 n 377 377 345 \n \0 \0 277 l \n \t \0 \0 277 O "
0002020 001 \t \0 \0 023 002 003 265 311 g \0 \0 \t \0 \0 277
0002040 h j \n \0 \0 277 O 024 g \0 \0 \n \0 \0 277 O
0002060 024 260 [ d 001 021 001 021 O " 001 \t \0 \0 277 o
0002100 \0 \0 \0 \t \0 \0 277 l 2 \t \0 \0 277 M O "
0002120 002 001 265 003 j 343 343 \n \0 \0 277 k \t \0 \0 277
0002140 M O " 002 001 265 003 j n 377 377 345 \n \0 \0 277
0002160 \b \0 \0 277 W . 263 024 O " 001 h W & \v \0
0002200 \0 277 \b \0 \0 277 \b \0 \0 277 023 002 003 265 246 W
0002220 ( 022 c , i 020 \0 ( 6 5 2 Q T E R
0002240 P R I 6 4 6 Q T E R P R I
0002260 6 4 2 Q V D P R I N T C O D E
0002300 6 2 4 Q T E R P R I 6 2 0
0002320 Q P R I N T N U M 6 0 0 Q
0002340 S P A C E S 5 7 3 Q P R I N
0002360 T N U M 5 5 5 Q T A B 5 4
0002400 7 Q P R I N 1 5 3 7 Q P R
0002420 I N 1 5 1 7 Q S O R T 5 0
0002440 6 Q P O S I T I O N 5 0 0 Q
0002460 P R I N 3 4 6 5 Q P R I N
0002500 T 4 5 6 Q S P A C E S 4 5
0002520 0 Q P R I N T N U M 4 3 0 Q
0002540 S P A C E S 4 2 3 Q P R I
0002560 N T N U M 3 7 4 Q S O R T
0002600 3 6 3 Q T E R P R I 3 5 6 Q
0002620 P R I N 1 3 5 3 Q G E T F
0002640 I L E I N F O 3 4 1 Q P R I
0002660 N 1 3 3 1 Q P R I N 1 3 2
0002700 2 Q P R I N 1 2 4 0 Q V \
0002720 U N C O P Y 2 2 7 Q V G E T
0002740 B A S E P T R 0 2 0 0 Q V \
0002760 U N C O P Y 1 7 5 Q V G E T
0003000 T O P V A L 1 5 4 Q R A D I
0003020 X 1 3 1 Q L I N E L E N G T
0003040 H 1 0 3 Q O U T P U T 7 4
0003060 Q O U T F I L E 7 1 Q P A
0003100 C K F I L E N A M E 6 6 Q F
0003120 I L E N A M E F I E L D 2 1 Q
0003140 V G E T T O P V A L ) \r ( 5 1
0003160 4 Q F I L E I N D E X A L P H
0003200 O R D E R 4 7 5 Q % \f 3 7
0003220 1 Q P R I N T S Y S O U T A 0
0003240 0 0 1 A 0 0 0 2 3 5 0 Q C R
0003260 E A T I O N D A T E 3 4 5 Q
0003300 V M E M F I L E 3 2 6 Q V M
0003320 E M F I L E 1 7 2 Q \ A t o
0003340 m F r L s t 1 4 7 Q R A D I
0003360 X 1 2 3 Q L I N E L E N G T
0003400 H 1 0 0 Q C L O S E F ? 6
0003420 3 Q N A M E 6 0 Q V M E M
0003440 F I L E 5 5 Q N A M E 5 2
0003460 Q L I S T I N G 4 7 Q E X
0003500 T E N S I O N 2 5 Q F I X
0003520 1 6 Q \ D E F S P A C E ) \r (
0003540 5 4 4 Q " : " 3 3 6 Q
0003560 " c r e a t e d " 3 1 7 Q
0003600 " c o d e l i s t i n g f
0003620 o r " ) \r P R I N T S Y S O U
0003640 T D 1 \r ( P 2 R E S E T Z
0003660 P 1 R E S E T Y P 0
0003700 L I S P X H I S T I 2 S H
0003720 O R T F L G I 1 R A D I X
0003740 I 0 O U T F F 3 L I
0003760 S P X H I S T F 4 R E S E
0004000 T V A R S L S T ) \0 " 003 002 \0 003
0004020 S 021 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221
0004040 h 202 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I
0004060 020 \0 ( 3 5 Q E R R O R ! 3 0
0004100 Q R E S E T R E S T O R E 1
0004120 6 Q P R I N T S Y S O U T A 0
0004140 0 0 1 ) \r ( 2 4 Q E R R O R
0004160 1 3 Q I N T E R N A L ) \r (
0004200 1 0 Q ( P R I N T S Y S O U T
0004220 A 0 0 0 1 ) ) \r R E A D S Y S
0004240 D 1 \r ( P 2 I P 0 X
0004260 I 1 W R I T E A B L E I
0004300 0 F I L E F 3 A T O M P
0004320 A G E L S T F 4 R D P T R
0004340 S F 5 R D V A L S ) \0 204
0004360 003 003 \0 002 @ 265 \f ` \0 \0 003 262 x \b \0 \0
0004400 020 A \n \0 \0 S 260 d 001 021 ! 002 l 377 j
0004420 272 271 J I 363 255 H 002 J j \v \0 \0 277 J k
0004440 324 Z 260 361 023 002 003 265 341 T 260 d 001 021 001
0004460 \0 g \0 \0 H 001 l 002 m 377 \v \0 \0 \n \0 \0
0004500 H 001 \t \0 \0 \n \0 \0 023 002 003 265 341 U 260
0004520 d 001 021 001 \0 g \0 \0 H 001 l 002 m 377 \v \0
0004540 \0 \n \0 \0 H 001 \t \0 \0 \n \0 \0 023 002 003 265
0004560 341 h 020 \b \0 \0 020 \0 ( 2 0 1 Q C L
0004600 O S E V M E M F I L E 1 6 7 Q
0004620 S E T 1 6 4 Q V G E T V A
0004640 L 1 5 7 Q P A C K * 1 5 4
0004660 Q S U B A T O M 1 2 3 Q S
0004700 E T 1 2 0 Q V G E T T O P V
0004720 A L 1 1 3 Q P A C K * 1 1
0004740 0 Q S U B A T O M 5 0 Q F
0004760 A S T S E T A 2 0 Q I N I T
0005000 V M E M 1 3 Q C L O S E R E
0005020 M O T E V M E M F I L E ) \r ( 1
0005040 4 3 Q V 7 7 Q V 5 V M
0005060 E M F I L E ) \r ( ) \r T E L E R
0005100 A I D A 0 0 0 1 D 1 \r ( N A M
0005120 E E R R O R S E T F 0 H
0005140 O S T F 1 R E S E T V A R
0005160 S L S T F 2 R A I D I X
0005200 F 3 R E S E T Y ) \0 & \0 004
0005220 002 \0 P 262 026 o \0 \0 \0 h h 032 032 Q 032 c
0005240 002 277 P h 032 \t \0 \0 277 ` \0 \0 003 264 006 R
0005260 \t \0 \0 c 006 i 020 \0 ( 4 0 Q V R A
0005300 I D 2 5 Q R E A D S Y S ) \r
0005320 ( 3 1 Q V M E M F I L E ) \r (
0005340 6 ( C L O S E V M E M F I L
0005360 E ) ) \r T E L E R A I D D 1 \r
0005400 ( P 2 R E S E T Z P 1
0005420 R E S E T Y P 0 L I S P X
0005440 H I S T I 1 R A I D I X
0005460 I 0 H O S T F 3 L I S
0005500 P X H I S T F 4 R E S E T
0005520 V A R S L S T ) \0 " 003 002 \0 002 S
0005540 021 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h
0005560 202 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020
0005600 \0 ( 3 5 Q E R R O R ! 3 0 Q
0005620 R E S E T R E S T O R E 1 6
0005640 Q T E L E R A I D A 0 0 0 1 )
0005660 \r ( 2 4 Q E R R O R 1 3 Q
0005700 I N T E R N A L ) \r ( 1 0 Q
0005720 ( T E L E R A I D A 0 0 0 1 ) )
0005740 \r V R A I D A 0 0 0 1 A 0 0 0 2
0005760 D 1 \r ( N A M E E R R O R S
0006000 E T ) \0 \v \0 \0 002 \0 \b \0 \0 265 004 260
0006020 373 h 032 020 \0 ( 2 V R A I D C O M
0006040 M A N D ) \r N I L \r ( ) \r V R A
0006060 I D A 0 0 0 1 D 1 \r ( N A M E
0006100 E R R O R S E T P 0 R E
0006120 S U L T F 1 R E S E T V A
0006140 R S L S T F 2 R A I D I X
0006160 F 3 . I 2 F 4 R E S
0006200 E T Y F 5 . I 5 F 6
0006220 . I 6 F 7 . I 7 ) \0 202 001
0006240 \a 002 \0 g \0 \0 i \t \0 \0 h 032 032 h 032 Q
0006260 032 c 002 277 g \0 \0 l \a \t \0 \0 h 032 032 h
0006300 032 Q 032 c 002 277 g \0 \0 l 002 R h 032 032 032
0006320 c 006 277 g \0 \0 l 005 R h 032 032 032 c \n 277
0006340 g \0 \0 l 006 R h 032 032 032 c \f 277 g \0 \0
0006360 l \a R h 032 032 032 c 016 277 021 020 \0 o \0 \0
0006400 \0 i \n \0 \0 X 262 367 ` \0 \0 003 264 023 H 001
0006420 g \0 \0 360 264 \v \b \0 \0 277 \b \0 \0 277 h 022
0006440 c \b i 020 \0 ( 1 7 1 Q R E M O T
0006460 E R E T U R N 1 6 5 Q C L E
0006500 A R P A G E C A C H E 1 4 1 Q
0006520 V R A I D A 0 0 0 1 A 0 0 0 2
0006540 3 0 Q I N T C H A R 6 O
0006560 U T P U T ) \r ( 1 5 7 Q R E T
0006600 U R N 1 4 7 Q V M E M F I L
0006620 E 1 1 4 Q F I X 7 7 Q F
0006640 I X 6 2 Q F I X 4 5 Q F
0006660 I X 2 3 Q I N T C H A R 2
0006700 O U T P U T ) \r ( 1 3 5 Q
0006720 ( V R A I D A 0 0 0 1 A 0 0 0 2
0006740 ) ) \r V R A I D D 1 \r ( P 6
0006760 R E S E T Z P 5 R E S E
0007000 T Y P 4 L I S P X H I S T
0007020 P 3 R E M O T E S C R E E
0007040 N P 2 F R A M E # P 1
0007060 R O O T F R A M E P 0 A
0007100 L I N K S ? I 0 R A I D I
0007120 X F 7 L I S P X H I S T
0007140 F 1 0 Q R E S E T V A R S L
0007160 S T ) \0 = \a 002 \0 001 o \0 \0 \0 i \n
0007200 \0 \0 277 i \t \0 \0 @ 244 l \b b \0 277 i 021
0007220 1 003 W 016 021 ! 006 W 020 o \0 \0 \0 g \0 \0
0007240 \n \0 \0 221 h 202 g \0 \0 ^ \n \0 \0 277 N 264
0007260 006 \b \0 \0 h 020 \0 ( 7 1 Q E R R O
0007300 R ! 6 2 Q R E S E T R E S T
0007320 O R E 5 0 Q V R A I D A 0 0
0007340 0 1 1 4 Q T E R P R I 7
0007360 P R I N 1 ) \r ( 5 6 Q E R R O
0007400 R 4 5 Q I N T E R N A L ) \r
0007420 ( 4 2 Q ( V R A I D A 0 0 0
0007440 1 ) 3 " v i r t u a l R A
0007460 I D " ) \r S H O W R E M O T E S
0007500 C R E E N D 1 \r ( P 5 I
0007520 P 1 B I T M A P B A S E P
0007540 0 W I N D O W F 6 R E
0007560 M O T E S C R E E N ) \0 244 006 001
0007600 \0 \0 V 021 1 003 H 265 z ` \0 \0 h j i \f
0007620 \0 \0 X 311 004 311 \0 271 o \0 \0 \0 ` \0 \0 l
0007640 \b 327 n 003 ( 326 331 j 360 247 o \0 \0 \0 \t \0
0007660 \0 277 ` \0 \0 003 262 ( n 022 311 n 022 \0 021 002
0007700 005 M L 363 263 027 ` \0 \0 M I \v \0 \0 277 I
0007720 n 001 \0 320 271 M k 324 ] 260 351 023 260 " o \0
0007740 \0 \0 \t \0 \0 277 ` \0 \0 \t \0 \0 [ 311 006 311
0007760 6 272 K I j o \0 \0 \0 l 004 J 016 277 H c
0010000 \f \t \0 \0 i \t \0 \0 257 H \t \0 \0 232 H \t
0010020 \0 \0 277 \b \0 \0 277 260 355 H \t \0 \0 264 \a H
0010040 \t \0 \0 h 020 \0 ( 2 4 0 Q C L O S
0010060 E W 2 3 2 Q O P E N W P 2
0010100 2 3 Q B L O C K 2 1 7 Q T
0010120 O T O P W 2 1 2 Q O P E N W
0010140 P 2 0 5 Q R E A D P 2 0 1
0010160 Q O P E N W 1 5 1 Q G E T
0010200 S T R E A M 1 4 2 Q S E T V
0010220 M P T R 1 1 3 Q R E M O T E
0010240 P M A P 5 6 Q E R R O R 1
0010260 7 Q C R E A T E W ) \r ( 1 4 6
0010300 Q V M E M F I L E 1 0 6 Q
0010320 V M E M F I L E 6 2 Q V M E
0010340 M F I L E 3 4 Q S C R E E N
0010360 W I D T H 1 1 Q W H O L E D
0010400 I S P L A Y ) \r ( 1 6 6 Q 3
0010420 1 2 0 0 0 Q 1 3 7 Q 4 4 0 0
0010440 0 0 0 Q 5 3 Q " C o n f u s
0010460 e d a b o u t s c r e e n
0010500 s i z e " 3 1 Q 3 1 2 0 0 0
0010520 Q ) \r V G E T V A L D 1 \r ( I
0010540 0 X ) \0 \t \0 \0 \0 001 @ \t \0 \0
0010560 \t \0 \0 020 \0 ( 6 V \ U N C O P Y
0010600 3 V G E T T O P V A L ) \r N
0010620 I L \r ( ) \r V A T O M D 1 \r (
0010640 P 2 F P T R P 1 A T M
0010660 P 0 P A G E I 0 N
0010700 F 3 A T O M P A G E L S T
0010720 F 4 A T O M C A C H E ) \0
0010740 Q 003 002 \0 001 @ 343 S \n \0 \0 021 ! 002 H 265
0010760 037 @ \t \0 \0 Y H 265 3 @ 343 n 001 \0 j \n
0011000 \0 \0 032 270 T 262 030 H T \n \0 \0 260 034 002 @
0011020 l 377 345 \n \0 \0 Y j 360 263 330 I 020 S H h
0011040 032 c \b \n \0 \0 c 006 277 H 002 @ l 377 345 I
0011060 \v \0 \0 I 020 \0 ( 1 1 5 Q F A S T
0011100 S E T A 1 0 0 Q \ N C O N C
0011120 2 6 0 Q F A S T E L T 4 6
0011140 Q A T T A C H 3 4 Q P O I
0011160 N T E R A R R A Y 1 7 Q V U
0011200 N C O P Y A T O M 5 F A S S
0011220 O C ) \r N I L \r ( ) \r V A T O M
0011240 N U M B E R D 1 \r ( I 1 N
0011260 E W O K I 0 A T ) \0 \v \0
0011300 \0 \0 002 @ k @ \t \0 \0 \v \0 \0 020 \0 ( 1
0011320 0 Q V \ M K A T O M 5 N C
0011340 H A R S ) \r N I L \r ( ) \r ( P R
0011360 E T T Y C O M P R I N T R E A
0011400 D S Y S C O M S ) \r ( R P A Q Q
0011420 R E A D S Y S C O M S ( ( F
0011440 N S P R I N T S Y S O U T R
0011460 E A D S Y S T E L E R A I D
0011500 V R A I D S H O W R E M O T E
0011520 S C R E E N V G E T V A L )
0011540 ( I N I T V A R S ( \r R D S Y
0011560 S I N I T ) ( A T O M P A G E
0011600 L S T N I L ) ( A T O M C A
0011620 C H E N I L ) ( N E W A T O
0011640 M A R R A Y ( H A S H A R R A
0011660 Y 3 0 ) ) ) ( F N S V A T
0011700 O M V A T O M N U M B E R )
0011720 ( \r D E C L A R E : E V A L @
0011740 C O M P I L E D O N T C O P Y
0011760 ( P R O P ( D M A C R O M
0012000 A C R O ) I E Q ) D O N T E
0012020 V A L @ L O A D ( F I L E S
0012040 ( L O A D C O M P ) V M E M )
0012060 ) ( F I L E S \r V M E M ) )
0012100 ) \r ( R P A Q ? R D S Y S I N
0012120 I T ) \r ( R P A Q ? A T O M P
0012140 A G E L S T N I L ) \r ( R P A
0012160 Q ? A T O M C A C H E N I L
0012200 ) \r ( R P A Q ? N E W A T O M
0012220 A R R A Y ( H A S H A R R A Y
0012240 3 0 ) ) \r ( F I L E S L O A D
0012260 V M E M ) \r ( P U T P R O P S
0012300 R E A D S Y S C O P Y R I G
0012320 H T ( " X e r o x C o r p o
0012340 r a t i o n " 1 9 8 2 1 9 8
0012360 3 1 9 8 4 ) ) \r N I L \r
0012375