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