$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>READSYS!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 9 - M a r - 8
0000140 7 1 4 : 2 9 : 3 9 " 006 004 { E
0000160 R I S } < L I S P C O R E > L I
0000200 B R A R Y > R E A D S Y S . ; 3
0000220 2 006 001 1 9 9 9 4 \r \r
0000240 c h a n g e s t o % :
0000260 ( F N S V A T O M N U M B E
0000300 R R E A D S Y S ) \r \r
0000320 p r e v i o u s d a t e %
0000340 : " 6 - M a r - 8 7 1 7 :
0000360 1 0 : 2 6 " { E R I S } < L I
0000400 S P C O R E > L I B R A R Y > R
0000420 E A D S Y S . ; 3 1 ) \r \r \r ( *
0000440 " \r C o p y r i g h t ( c )
0000460 1 9 8 2 , 1 9 8 3 , 1 9 8
0000500 4 , 1 9 8 5 , 1 9 8 6 , 1
0000520 9 8 7 b y X e r o x C o r
0000540 p o r a t i o n . A l l r
0000560 i g h t s r e s e r v e d . \r
0000600 " ) \r \r ( P R E T T Y C O M P R
0000620 I N T R E A D S Y S C O M S )
0000640 \r \r ( R P A Q Q 006 002 R E A D S
0000660 Y S C O M S 006 001 \r
0000700 ( ( F N S R E A D S Y S T
0000720 E L E R A I D V L I S T G E T
0000740 V L O A D F N S V L O A D F
0000760 I L E P K G T Y P E C H A N G E
0001000 V L O A D F U N C T I O N S
0001020 V L O A D V A R \r
0001040 V L O A D V A R S
0001060 V R A I D V S A V E W O R K
0001100 S H O W R E M O T E S C R E E
0001120 N V G E T V A L V I N S P E
0001140 C T V U N S A V E D E F V C
0001160 A D R V P U T D E F N \r
0001200 V Y A N K
0001220 D E F ) \r [ I N
0001240 I T V A R S ( R D S Y S I N I
0001260 T ) \r
0001300 ( A T O M P A G E L S T N
0001320 I L ) \r
0001340 ( A T O M C A C H E N I
0001360 L ) \r
0001400 ( N E W A T O M A R R A Y
0001420 ( H A S H A R R A Y 3 0 ) ) \r
0001440 (
0001460 T E L E R A I D P R I N T L E V
0001500 E L ' ( 2 . 2 0 ] \r
0001520 ( F N S V A T O M
0001540 V A T O M N U M B E R ) \r
0001560 ( D E C L A R E % :
0001600 E V A L @ C O M P I L E D O N
0001620 T C O P Y ( P R O P ( D M A
0001640 C R O M A C R O ) \r
0001660
*
0001720 I E Q ) \r
0001740 D O
0001760 N T E V A L @ L O A D \r
0002000 ( F I L E
0002020 S ( L O A D C O M P ) \r
0002040
0002060 V M E M ) ) \r
0002100 ( F I L E S V M E M ) ) )
0002120 \r ( D E F I N E Q \r \r ( 006 004 R E
0002140 A D S Y S 006 001 \r [ L A M B D
0002160 A ( F I L E W R I T E A B L
0002200 E ) 006 006 006 001
0002220
0002240 006 006 ( * ;
0002260 " E d i t e d 6 - M a r - 8
0002300 7 1 7 : 0 9 b y r a f " )
0002320 006 001 \r ( C O N D \r
0002340 [ F I L E ( I N I T V
0002360 M E M F I L E W R I T E A B
0002400 L E ) \r \r
0002420 006 006 ( * ; ;
0002440 " c l e a r a t o m c a c
0002460 h e " ) 006 001 \r \r
0002500 ( f o r X i n A
0002520 T O M P A G E L S T d o ( f
0002540 o r I f r o m 0 t o 2
0002560 5 5 d o ( F A S T S E T A
0002600 ( C D R X ) \r
0002620
*
0002700 I 0
0002720 ) ) ) \r \r
0002740 006 006 ( * ; ;
0002760 " C a c h e t h e r e m o
0003000 t e p a c k a g e g l o b a
0003020 l s , a l s o u s e d b y
0003040 R E A D S Y S . H A S . P A C
0003060 K A G E S t o d e t e r m i
0003100 n e w h e t h e r p a c k g
0003120 e s a r e o n i n t h e
0003140 r e m o t e s y s o u t . "
0003160 ) 006 001 \r \r
0003200 ( S E T Q R E A D S Y S .
0003220 P A C K A G E . F R O M . N A M
0003240 E ( V S Y M B O L . V A L U E
0003260 ' * P A C K A G E - F R O M -
0003300 N A M E * ) ) \r
0003320 ( S E T Q R E A D S
0003340 Y S . P A C K A G E . F R O M .
0003360 I N D E X ( V S Y M B O L . V
0003400 A L U E ' * P A C K A G E - F
0003420 R O M - I N D E X * ) ) \r
0003440 \r
0003460 006 006 ( * ; ; " i n i t i
0003500 a l i z e t h o s e v a r i
0003520 a b l e s w h i c h a r e
0003540 r e n a m e d ' p o i n t e r
0003560 s ' , e . g . , t h e a
0003600 r r a y f r e e l i s t " )
0003620 006 001 \r \r
0003640 [ f o r X i n R D P T R
0003660 S d o ( S E T ( P A C K *
0003700 ' V ( S U B A T O M ( C A
0003720 R X ) \r
0003740
*
0004000 2 - 1
0004020 ) ) \r
0004040
0004060 ( V G E T T O
0004100 P V A L ( C A R X ] \r
0004120 \r
0004140 006 006 ( * ; ; \r 006 001
0004160 006 006 " I n i t i a l i z e t
0004200 h o s e v a r i a b l e s w
0004220 h i c h a r e r e n a m e d
0004240 ' v a l u e s ' , e . g .
0004260 , \ A t o m F r L s t = #
0004300 o f a l l o c a t e d a t
0004320 o m s " ) 006 001 \r \r
0004340 ( f o r X i n
0004360 R D V A L S d o ( S E T (
0004400 P A C K * ' V ( S U B A T O
0004420 M ( C A R X ) \r
0004440
*
0004520 2 - 1 ) ) \r
0004540
0004560 ( 006
0004600 002 V G E T V A L 006 001 ( C A R
0004620 X ] \r ( ( L I S T
0004640 P V M E M F I L E ) \r
0004660 ( C L O S E R E M O T E
0004700 V M E M F I L E ) ) \r
0004720 ( T ( C L O S E V M E M F
0004740 I L E ] ) \r \r ( 006 004 T E L E R A
0004760 I D 006 001 \r [ L A M B D A (
0005000 H O S T R A I D I X ) 006 006 006 001
0005020
*
0005060 006 006 ( * b v m % :
0005100 " 1 3 - J u l - 8 4 1 7 : 2
0005120 4 " ) 006 001 \r ( R E S E T
0005140 L S T [ C O N D \r
0005160 ( H O S T
0005200 ( R E S E T S A V E N I L
0005220 ' ( C L O S E V M E M F I L E )
0005240 ) \r
0005260 ( 006 002 R E A D
0005300 S Y S 006 001 ( L I S T H O S T
0005320 ] \r ( C O
0005340 N D \r
0005360 ( ( L I S T P V M E M F I L
0005400 E ) \r
0005420 ( 006 002 V R A I D 006 001 R A I
0005440 D I X ] ) \r \r ( 006 004 V L I S T G
0005460 E T 006 001 \r [ L A M B D A (
0005500 L S T T O K E N ) 006 006 006 001
0005520
*
0005560 006 006 ( * e d i t e
0005600 d % : " 1 1 - J u n - 8 5 0
0005620 4 : 2 4 " ) 006 001 \r ( A N
0005640 D L S T ( i f ( E Q T O
0005660 K E N ( V \ U N C O P Y ( V
0005700 \ C A R . U F N L S T ) ) ) \r
0005720
0005740 t h e n \r
0005760 ( V \ U N C O P Y
0006000 ( V \ C A R . U F N ( V \ C
0006020 D R . U F N L S T ) ) ) \r
0006040 e
0006060 l s e \r
0006100 ( 006 002 V L I S T G E T
0006120 006 001 ( V \ C D R . U F N ( V
0006140 \ C D R . U F N L S T ) ) \r
0006160
0006200 T O K E N ] ) \r \r
0006220 ( 006 004 V L O A D F N S 006 001 \r
0006240 [ L A M B D A ( F N S ) 006 006 006
0006260 001
0006300
0006320 006
0006340 006 ( * m p l " 8 - A u g -
0006360 8 5 2 3 : 0 5 " ) 006 001 \r
0006400 ( f o r F N i n s i d e
0006420 F N S d o ( P R I N T O U T
0006440 T " R e a d i n g f u n c
0006460 t i o n " F N ) \r
0006500 [ S A V E P U T F N
0006520 ' E X P R ( L E T [ ( D E F
0006540 N ( V \ U N C O P Y ( V G E
0006560 T D E F N F N ] \r
0006600
0006620 ( C O N D \r
0006640
*
0006700 [ ( N L I S T P D E F N
0006720 ) \r \r
0006740 006 006 ( * * H m
0006760 m , m u s t h a v e b e e
0007000 n a c o m p i l e d f u n
0007020 c t i o n . \r 006 001
0007040 006 006 L e t ' s t r y t
0007060 o g e t i t s p r o p l i
0007100 s t a n d s a v e t h e
0007120 d e f n f r o m t h e E X
0007140 P R p r o p ) 006 001 \r \r
0007160
*
0007220 ( L E T [ ( P L I S T ( V \
0007240 U N C O P Y ( V G E T P R O P
0007260 L I S T F N ] \r
0007300
*
0007340 ( C O N D \r
0007360
*
0007420 ( [ A N D ( L I S T P
0007440 P L I S T ) \r
0007460
*
0007520 ( L I S T P
0007540 ( L I S T G E T P L I S T
0007560 ' E X P R ] \r
0007600
*
0007640 ( L I S T G E T P L I
0007660 S T ' E X P R ] \r
0007700
0007720 ( T
0007740 D E F N ] \r (
0007760 T E R P R I T ] ) \r \r ( 006 004 V
0010000 L O A D F I L E P K G T Y P E C
0010020 H A N G E 006 001 \r [ L A M B D
0010040 A ( C H A N G E F I L E P K
0010060 G T Y P E ) 006 006 006 001
0010100
0010120 006 006 ( * g b
0010140 n " 1 9 - J u n - 8 6 0 0 :
0010160 4 6 " ) 006 001 \r ( P R I N
0010200 T O U T T " R e a d i n g "
0010220 % , F I L E P K G T Y P E
0010240 % , C H A N G E " . . . " )
0010260 \r [ L E T [ ( P L I S
0010300 T ( V \ U N C O P Y ( V G E
0010320 T P R O P L I S T C H A N G E
0010340 ] \r ( C O N D
0010360 \r ( [ A
0010400 N D ( L I T A T O M C H A N
0010420 G E ) \r
0010440 ( L I S T P P L I
0010460 S T ) \r
0010500 ( L I S T P ( L I
0010520 S T G E T P L I S T F I L E
0010540 P K G T Y P E ) ) \r
0010560 ( L I S
0010600 T P ( N L S E T Q ( P U T D
0010620 E F C H A N G E F I L E P K
0010640 G T Y P E ( L I S T G E T P
0010660 L I S T F I L E P K G T Y P E
0010700 ] \r (
0010720 P R I N T O U T T " d o n e
0010740 " ) ) \r
0010760 ( T ( P R I N T O U T T "
0011000 f a i l e d " ] \r ( P R
0011020 I N T O U T T T ] ) \r \r ( 006
0011040 004 V L O A D F U N C T I O N S 006
0011060 001 \r [ L A M B D A ( F U N
0011100 C T I O N S ) 006 006 006 001
0011120
*
0011160 006 006 ( * g b n " 1 8 -
0011200 J u n - 8 6 2 2 : 4 8 " ) 006 001
0011220 \r ( f o r F U N C T I
0011240 O N i n s i d e F U N C T I
0011260 O N S d o ( P R I N T O U T
0011300 T " R e a d i n g f u n c
0011320 t i o n " F U N C T I O N )
0011340 \r [ S A V E P
0011360 U T F U N C T I O N ' F U N
0011400 C T I O N S ( L E T [ ( P L
0011420 I S T ( V \ U N C O P Y ( V
0011440 G E T P R O P L I S T F U N C
0011460 T I O N ] \r
0011500
*
0011540 ( C O N D \r
0011560
*
0011620 ( [ A N D ( L I S T
0011640 P P L I S T ) \r
0011660
*
0011720 ( L I
0011740 S T P ( L I S T G E T P L I
0011760 S T ' F U N C T I O N S ] \r
0012000
*
0012040 ( L
0012060 I S T G E T P L I S T ' F U
0012100 N C T I O N S ] \r
0012120 ( T E R P R I T ] ) \r \r (
0012140 006 004 V L O A D V A R 006 001 \r [
0012160 L A M B D A ( V A R ) 006 006 006 001
0012200
*
0012240 006 006
0012260 ( * e d i t e d % : " 1 1 -
0012300 J u n - 8 5 0 3 : 0 9 " ) 006 001
0012320 \r ( S A V E S E T V A
0012340 R ( 006 002 V G E T V A L 006 001 V
0012360 A R ) \r T
0012400 ] ) \r \r ( 006 004 V L O A D V A R S
0012420 006 001 \r [ L A M B D A ( V A
0012440 R S ) 006 006 006 001
0012460
*
0012520 006 006 ( * l m m " 7
0012540 - A u g - 8 5 1 8 : 4 4 " ) 006
0012560 001 \r ( f o r V A R i
0012600 n s i d e V A R S d o ( P
0012620 R I N T O U T T " R e a d i
0012640 n g v a r i a b l e : " V
0012660 A R ) \r ( S A
0012700 V E P U T V A R ' V A L U E
0012720 ( 006 002 V G E T V A L 006 001 V A
0012740 R ) ) \r ( T E
0012760 R P R I T ] ) \r \r ( 006 004 V R A
0013000 I D 006 001 \r [ L A M B D A (
0013020 R A I D I X ) 006 006 006 001
0013040
*
0013100 006 006 ( * b v m % :
0013120 " 2 3 - J a n - 8 6 1 8 : 4
0013140 4 " ) 006 001 \r ( D E C L A
0013160 R E ( S P E C V A R S R A I
0013200 D I X R O O T F R A M E A L
0013220 I N K S ? F R A M E # R E M
0013240 O T E S C R E E N V P R I N T
0013260 L E V E L ) ) \r ( p r i
0013300 n t o u t T " v i r t u a l
0013320 R A I D " T ) \r ( O
0013340 R R A I D I X ( S E T Q R
0013360 A I D I X 8 ) ) \r ( P
0013400 R O G ( ( R O O T F R A M E )
0013420 \r ( A L I
0013440 N K S ? T ) \r
0013460 ( F R A M E # ) \r
0013500 ( R E M O T E S C
0013520 R E E N ) \r
0013540 ( V P R I N T L E V E L T E
0013560 L E R A I D P R I N T L E V E L
0013600 ) ) \r ( R E
0013620 S E T L S T ( R E S E T S A V
0013640 E ( O U T P U T T ) ) \r
0013660 (
0013700 R E S E T S A V E ( I N T C H
0013720 A R ( C H A R C O D E ^ G )
0013740 ) ) \r
0013760 ( S E T Q | . I 2 |
0014000 ( N U M F O R M A T C O D E (
0014020 L I S T ' F I X 2 R A I D
0014040 I X ) ) ) \r
0014060 ( S E T Q | . I
0014100 5 | ( N U M F O R M A T C O D
0014120 E ( L I S T ' F I X 5 R
0014140 A I D I X ) ) ) \r
0014160 ( S E T Q
0014200 | . I 6 | ( N U M F O R M A T
0014220 C O D E ( L I S T ' F I X
0014240 6 R A I D I X ) ) ) \r
0014260 ( S E
0014300 T Q | . I 7 | ( N U M F O R
0014320 M A T C O D E ( L I S T ' F
0014340 I X 7 R A I D I X ) ) ) \r
0014360
0014400 ( b i n d R E S U L T u n t
0014420 i l [ S E T Q R E S U L T
0014440 ( E R S E T Q ( w h e n ( S
0014460 E T Q $ $ V A L ( V R A I D
0014500 C O M M A N D ) ) \r
0014520
*
0014600 d o \r
0014620
*
0014700 ( R E T U
0014720 R N $ $ V A L ] \r
0014740
0014760 f i n a l l y \r
0015000
0015020 ( C O N D \r
0015040
0015060 ( ( A N D ( L I S T P V M E
0015100 M F I L E ) \r
0015120
0015140 ( E Q ( C A R
0015160 R E S U L T ) \r
0015200
0015220 ' R E T
0015240 U R N ) ) \r
0015260
0015300 ( C L E A R P A G E C A C H E
0015320 ) \r
0015340 ( R E
0015360 M O T E R E T U R N ] ) \r \r ( 006
0015400 004 V S A V E W O R K 006 001 \r [
0015420 L A M B D A N I L 006 006 006 001
0015440
*
0015500 006 006
0015520 ( * g b n " 1 9 - J u n - 8
0015540 6 0 0 : 4 6 " ) 006 001 \r
0015560 ( L E T \r ( F N S V
0015600 A R S F I L E S C H A N G E
0015620 S ( A L L C H A N G E S ( L
0015640 I S T N I L ) ) ) \r
0015660 ( P R I N T O U T T " F u n
0015700 c t i o n s o n C H A N G E
0015720 D F N S L S T : " ( S E T Q
0015740 F N S ( 006 002 V G E T V A L 006
0015760 001 ' C H A N G E D F N S L S T
0016000 ) ) \r T
0016020 ) \r ( P R I N T O U T
0016040 T " V a r i a b l e s o n
0016060 C H A N G E D V A R S L S T :
0016100 " ( S E T Q V A R S ( 006
0016120 002 V G E T V A L 006 001 ' C H A N
0016140 G E D V A R S L S T ) ) \r
0016160 T ) \r
0016200 ( P R I N T O U T T " F i
0016220 l e s o n F I L E L S T :
0016240 " ( S E T Q F I L E S ( 006
0016260 002 V G E T V A L 006 001 ' F I L E
0016300 L S T ) ) \r
0016320 T ) \r ( f o r F
0016340 I L E i n F I L E S d o
0016360 [ S E T Q C H A N G E S ( C
0016400 D R ( 006 002 V L I S T G E T 006 001
0016420 ( V G E T P R O P L I S T F
0016440 I L E ) \r
0016460
*
0016520 ' F I L E ]
0016540 \r ( i f C
0016560 H A N G E S t h e n ( P R I
0016600 N T O U T T F I L E " h
0016620 a s c h a n g e s " C H A
0016640 N G E S T ) \r
0016660 [ f o r T Y P E P
0016700 A I R i n C H A N G E S d
0016720 o ( L E T ( ( F I L E P K G
0016740 T Y P E ( C A R T Y P E P A
0016760 I R ) ) \r
0017000
*
0017040 ( F I L E P K G T Y P
0017060 E C H A N G E S ( C D R T Y
0017100 P E P A I R ) ) ) \r
0017120
*
0017160 ( S E L E C T
0017200 Q F I L E P K G T Y P E \r
0017220
*
0017300 ( F N S ( S E T Q F N S
0017320 ( U N I O N F N S F I L E P
0017340 K G T Y P E C H A N G E S ) ) )
0017360 \r
0017400
*
0017440 ( V A R S ( S E T Q
0017460 V A R S ( U N I O N V A R S
0017500 F I L E P K G T Y P E C H A N
0017520 G E S ) ) ) \r
0017540
*
0017600 ( P R O G N
0017620 006 006 ( * " t r y t o
0017640 g r a b r a n d o m f i l
0017660 e p k g t y p e s o f f t h
0017700 e p r o p l i s t . I t
0017720 ' s g e t s l o t s o f
0017740 c a s e s , s o i s b e t
0017760 t e r t h a n j u s t g i
0020000 v i n g u p . " ) 006 001 \r
0020020
*
0020100 ( P U T A S S O C
0020120 F I L E P K G T Y P E \r
0020140
*
0020220 ( U
0020240 N I O N ( C D R ( A S S O C
0020260 F I L E P K G T Y P E \r
0020300
*
0020420 A L L C H A N G E S ) ) \r
0020440
*
0020540 F I L E P K G T Y
0020560 P E C H A N G E S ) \r
0020600
*
0020660 A L L C
0020700 H A N G E S ] \r
0020720 e l s e \r
0020740 ( P R I N T O
0020760 U T T F I L E " h a s
0021000 n o c h a n g e s r e c o r
0021020 d e d . " T ) ) ) \r
0021040 ( f o r F N i n ( I N T E
0021060 R S E C T I O N F N S F N S
0021100 ) \r w h e n
0021120 \r ( E Q '
0021140 Y ( A S K U S E R D W I M W
0021160 A I T ' Y ( L I S T " s a
0021200 v e f u n c t i o n " F N )
0021220 \r
0021240 N I L T ) )
0021260 \r d o \r
0021300 ( 006 002 V L O A D
0021320 F N S 006 001 F N ) ) \r
0021340 ( f o r V A R i n ( I N T
0021360 E R S E C T I O N V A R S V
0021400 A R S ) \r w
0021420 h e n \r ( E
0021440 Q ' Y ( A S K U S E R D W
0021460 I M W A I T ' Y ( L I S T
0021500 " s a v e v a r i a b l e "
0021520 V A R ) \r
0021540 N I L
0021560 T ) ) \r d
0021600 o \r ( 006 002 V
0021620 L O A D V A R S 006 001 V A R ) )
0021640 \r ( f o r T Y P E P
0021660 A I R i n A L L C H A N G E
0021700 S d o \r (
0021720 L E T ( ( F I L E P K G T Y P
0021740 E ( C A R T Y P E P A I R )
0021760 ) ) \r
0022000 ( f o r F I L E P K G T Y
0022020 P E C H A N G E i n ( C D R
0022040 T Y P E P A I R ) \r
0022060 d
0022100 o \r
0022120 ( i f ( E Q ' Y
0022140 ( A S K U S E R D W I M W A
0022160 I T ' Y ( L I S T " s a v
0022200 e " F I L E P K G T Y P E F
0022220 I L E P K G T Y P E C H A N G E
0022240 ) \r
0022260
0022300 N I L T ) ) \r
0022320
0022340 t h e n \r
0022360
0022400 ( 006 002 V L O A D F I L
0022420 E P K G T Y P E C H A N G E 006 001
0022440 F I L E P K G T Y P E C H A N
0022460 G E F I L E P K G T Y P E ] )
0022500 \r \r ( 006 004 S H O W R E M O T E S
0022520 C R E E N 006 001 \r [ L A M B D
0022540 A N I L 006 006 006 001
0022560
*
0022620 006 006 ( * ; " E d
0022640 i t e d 2 3 - N o v - 8 6 1
0022660 1 : 5 8 b y M A S I N T E R
0022700 " ) 006 001 \r ( D E C L A R
0022720 E ( U S E D F R E E R E M O
0022740 T E S C R E E N ) ) \r (
0022760 R E S E T L S T ( P R O G (
0023000 ( W I N D O W ( A N D ( B O
0023020 U N D P ' R E M O T E S C R E
0023040 E N ) \r
0023060
0023100 R E M O T E S C R E
0023120 E N ) ) \r
0023140 H E I G H T
0023160 W I D T H B I T M A P B A S
0023200 E L A S T P A G E N W O R D
0023220 S P O S N E W P O S M I N
0023240 B O T T O M M I N L E F T D
0023260 E L T A X \r
0023300 D E L T
0023320 A Y R E G X Y ) \r
0023340
0023360 ( C O N D \r
0023400 ( ( N
0023420 O T W I N D O W ) \r
0023440
0023460 ( S E T Q W I N D O W
0023500 ( C R E A T E W [ C R E A T E
0023520 R E G I O N 0 0 ( S E T Q
0023540 W I D T H ( 006 002 V G E T V A
0023560 L 006 001 ' S C R E E N W I D T H
0023600 ) ) \r
0023620
*
0023660 ( S E T Q H E
0023700 I G H T ( 006 002 V G E T V A L 006
0023720 001 ' S C R E E N H E I G H T ]
0023740 \r
0023760
0024000 N I L
0024020 0 T ) ) 006 006
0024040 ( * ; \r 006 001
0024060
*
0024120 006 006 "
0024140 W I N D O W h a s t h e d
0024160 i m e n s i o n s o f t h e
0024200 r e m o t e s c r e e n " )
0024220 006 001 \r
0024240 [ S E T Q
0024260 B I T M A P B A S E ( f e t
0024300 c h B I T M A P B A S E o f
0024320 ( W I N D O W P R O P W I N
0024340 D O W ' I M A G E C O V E R E
0024360 D ] \r
0024400 ( S E T Q
0024420 N W O R D S ( T I M E S H
0024440 E I G H T ( Q U O T I E N T
0024460 W I D T H 1 6 ) ) ) \r \r 006 006 (
0024500 * ; ; ; " N o w f e t c h
0024520 r e m o t e d i s p l a y
0024540 t o l o c a l w i n d o w .
0024560 D i s p l a y m e m o r y
0024600 i s c o n t i g u o u s b
0024620 i t m a p , a n d i t s v
0024640 i r t u a l a d d r e s s i
0024660 s k n o w n c o n s t a n t
0024700 " ) 006 001 \r \r
0024720 [ C
0024740 O N D \r
0024760 [
0025000 ( L I S T P V M E M F I L E )
0025020
0025040 006 006 ( * ; \r 006 001
0025060 006 006 " R e m o t e m a c
0025100 h i n e . G e t i t a
0025120 p a g e a t a t i m e w
0025140 i t h R E M O T E P M A P t
0025160 h e n f i n i s h a n y l
0025200 e f t o v e r s p e c i a l l
0025220 y " ) 006 001 \r
0025240
0025260 ( f o r I f r o m \ V
0025300 P . D I S P L A Y t o [ S U
0025320 B 1 ( S E T Q L A S T P A G
0025340 E ( I P L U S \ V P . D I S
0025360 P L A Y \r
0025400
*
0025500 ( I Q U O T I E
0025520 N T N W O R D S \r
0025540
*
0025660 2 5 6 ] \r
0025700
0025720 d o \r
0025740
0025760 (
0026000 R E M O T E P M A P V M E M F
0026020 I L E I B I T M A P B A S E
0026040 ) \r
0026060
0026100 ( S E T Q B I T M A P B
0026120 A S E ( \ A D D B A S E B I
0026140 T M A P B A S E 2 5 6 ) ) ) \r
0026160
0026200 ( C O N
0026220 D \r
0026240
0026260 ( ( N E Q ( S E T Q N W O
0026300 R D S ( I M O D N W O R D S
0026320 2 5 6 ) ) \r
0026340
0026360 0 )
0026400
0026420 006 006 ( * ; \r 006 001
0026440 006 006 " S c r e e n
0026460 b i t m a p n o t a n i n
0026500 t e g r a l n u m b e r o f
0026520 p a g e s , s o h a v e
0026540 t o g e t t h e r e s t
0026560 o f i t m o r e c a r e f
0026600 u l l y " ) 006 001 \r
0026620
0026640 ( L E T [ (
0026660 B U F ( N C R E A T E ' V M
0026700 E M P A G E P ] \r
0026720
0026740 ( R
0026760 E M O T E P M A P V M E M F I
0027000 L E L A S T P A G E B U F )
0027020 \r
0027040
0027060 ( \ B L T B I T M
0027100 A P B A S E B U F N W O R D
0027120 S ] \r
0027140 ( T
0027160 ( S E T V M P T R ( C L : *
0027200 \ V P . D I S P L A Y 2 5 6
0027220 ) ) \r
0027240
0027260 ( \ B I N S ( G E T S T R E
0027300 A M V M E M F I L E ) \r
0027320
*
0027360 B I T M A P B A S E 0 (
0027400 C L : * \ N P . D I S P L A Y
0027420 5 1 2 ) \r
0027440
0027460 ( C L : *
0027500 N W O R D S 2 ] \r
0027520
0027540 ( S E T Q R E M O T E S
0027560 C R E E N W I N D O W ) ) \r
0027600
0027620 ( T ( S E T Q W
0027640 I D T H ( W I N D O W P R O P
0027660 W I N D O W ' W I D T H ) )
0027700 \r
0027720 ( S E T Q
0027740 H E I G H T ( W I N D O W P
0027760 R O P W I N D O W ' H E I G
0030000 H T ) ) \r
0030020 (
0030040 M O V E W W I N D O W 0 0
0030060 ) ) ) \r
0030100 ( R E S E T S A
0030120 V E N I L ( L I S T ' C L
0030140 O S E W W I N D O W ) ) \r
0030160
0030200 ( O P E N W W I N D O W )
0030220 \r
0030240 [ C O N D \r
0030260
0030300 ( ( O R ( G R E A T E R P
0030320 H E I G H T S C R E E N H E
0030340 I G H T ) \r
0030360
0030400 ( G R E A T E R P W I D T
0030420 H S C R E E N W I D T H ) )
0030440 006 006 ( * ; \r 006 001
0030460
0030500 006 006 " R e m o
0030520 t e s c r e e n i s b i g
0030540 g e r t h a n l o c a l ,
0030560 s o a l l o w u s e r t o
0030600 m o v e w i n d o w a r o
0030620 u n d " ) 006 001 \r
0030640
0030660 ( S E T Q M I N L E F T ( I
0030700 M I N 0 ( I D I F F E R E N
0030720 C E S C R E E N W I D T H W
0030740 I D T H ) ) ) \r
0030760
0031000 ( S E T Q M I N B O T T O M
0031020 ( I M I N 0 ( I D I F F E R
0031040 E N C E S C R E E N H E I G H
0031060 T H E I G H T ) ) ) \r
0031100
0031120 ( S E T Q P O S ( C
0031140 U R S O R P O S I T I O N ] \r
0031160
0031200 ( u n t i l ( O R ( R
0031220 E A D P T ) \r
0031240
0031260 ( N O T ( O P E
0031300 N W P W I N D O W ) ) ) \r
0031320
0031340 d o
0031360
0031400 006 006 ( *
0031420 ; \r 006 001
0031440 006 006 " K e
0031460 e p w i n d o w o n t o p
0031500 u n t i l u s e r t y p e
0031520 s s o m e t h i n g o r e
0031540 x p l i c i t l y c l o s e s
0031560 t h e w i n d o w " ) 006 001 \r
0031600
0031620 ( C O N D
0031640 \r
0031660 (
0031700 ( A N D P O S ( N O T ( E
0031720 Q U A L ( S E T Q N E W P O
0031740 S ( C U R S O R P O S I T I O
0031760 N N I L N I L N E W P O S
0032000 ) ) \r
0032020
*
0032060 P O S ) ) )
0032100 006 006 ( * ; " T r a c k m o
0032120 u s e w h i l e b u t t o n
0032140 d o w n " ) 006 001 \r
0032160
0032200 [ C O N D \r
0032220
*
0032260 ( ( L A S T M O U S E S T A T
0032300 E ( O R L E F T M I D D L
0032320 E ) ) \r
0032340
0032360 ( S E T Q R E G
0032400 ( W I N D O W P R O P W I N
0032420 D O W ' R E G I O N ) ) \r
0032440
*
0032500 ( S E T Q X ( f e t c h
0032520 ( R E G I O N L E F T ) \r
0032540
*
0032620 o f R E G ) ) \r
0032640
0032660 ( S E T
0032700 Q Y ( f e t c h ( R E G I
0032720 O N B O T T O M ) \r
0032740
*
0033000 o f
0033020 R E G ) ) \r
0033040
0033060 ( S E T Q D
0033100 E L T A X \r
0033120
0033140 ( I D I F F
0033160 E R E N C E [ I M A X M I N
0033200 L E F T \r
0033220
*
0033260 ( I M I
0033300 N 0 ( I P L U S X ( I D
0033320 I F F E R E N C E ( f e t c h
0033340 X C O O R D o f \r
0033360
*
0033500 N E W P O S ) \r
0033520
*
0033620 (
0033640 f e t c h X C O O R D o f
0033660 P O S ] \r
0033700
*
0033740 X ) ) \r
0033760
0034000 ( S E T Q D E L
0034020 T A Y \r
0034040
0034060 ( I D I F F E R
0034100 E N C E [ I M A X M I N B O
0034120 T T O M \r
0034140
*
0034200 ( I M I
0034220 N 0 ( I P L U S Y ( I D
0034240 I F F E R E N C E ( f e t c h
0034260 Y C O O R D o f \r
0034300
*
0034420 N E W P O S ) \r
0034440
*
0034540 (
0034560 f e t c h Y C O O R D o f
0034600 P O S ] \r
0034620
*
0034660 Y ) ) \r
0034700
0034720 ( C O N D \r
0034740
*
0035000 ( ( O R ( N E Q D E L
0035020 T A X 0 ) \r
0035040
*
0035100 ( N E Q D E L T A Y 0 )
0035120 ) \r \r
0035140 006 006 ( * ; ; "
0035160 B o u n d t h e m o v e m e
0035200 n t s o t h a t w i n d o
0035220 w a l w a y s c o v e r s
0035240 o u r s c r e e n . D o n
0035260 ' t c a l l M O V E W i f
0035300 n o a c t u a l m o v e m
0035320 e n t , s o a s t o a v
0035340 o i d e x c e s s f l a s h
0035360 i n g " ) 006 001 \r \r
0035400
*
0035440 ( R E L M O V E W W I N D O W
0035460 ( c r e a t e P O S I T I O
0035500 N X C O O R D _ D E L T A
0035520 X Y C O O R D _ \r
0035540
*
0035620 D E L T A
0035640 Y ] \r
0035660
0035700 ( s w a p P O S N E W P
0035720 O S ) ) ) \r
0035740
0035760 ( T O T O P W W I N D O W )
0036000 \r
0036020 ( B L O
0036040 C K ] ) \r \r ( 006 004 V G E T V A L
0036060 006 001 \r [ L A M B D A ( X )
0036100 006 006 006 001
0036120
*
0036160 006 006 ( * l m m " 2 0
0036200 - A U G - 8 1 1 2 : 5 1 " ) 006
0036220 001 \r ( V \ U N C O P Y
0036240 ( V G E T T O P V A L X ] ) \r
0036260 \r ( 006 004 V I N S P E C T 006 001 \r
0036300 [ L A M B D A ( H I L O
0036320 A S T Y P E ) 006 006 006 001
0036340
*
0036400 006 006 ( * k b r % : " 8 - A
0036420 u g - 8 5 1 9 : 0 5 " ) 006 001 \r
0036440
*
0036520 006 006 (
0036540 * V i r t u a l i n s p e c
0036560 t o r . \r 006 001
0036600
*
0036660 006 006 * ) 006 001 \r (
0036700 P R O G ( P T R O B J E C T
0036720 D F I E L D S P E C W I N
0036740 D O W )
0036760 006 006 ( * T B W
0037000 % : T h i s i s n o t c
0037020 o m p l e t e l y \r 006 001
0037040
*
0037120 006 006 g e n e
0037140 r a l i z e d . * ) 006 001 \r
0037160 ( S E T Q P T
0037200 R ( V V A G 2 H I L O ) )
0037220 \r ( S E T Q
0037240 O B J E C T ( N C R E A T E
0037260 A S T Y P E ) ) \r
0037300 [ F O R D E S C R I P
0037320 T O R I N ( G E T D E S C R
0037340 I P T O R S A S T Y P E ) \r
0037360 D O
0037400 \r
0037420 ( S E T Q D ( C A D R D E
0037440 S C R I P T O R ) ) \r
0037460 ( S E T Q
0037500 F I E L D S P E C ( C A D D R
0037520 D E S C R I P T O R ) ) \r
0037540 ( C O
0037560 N D \r
0037600 [ ( E Q F I E L D S
0037620 P E C ' P O I N T E R ) \r
0037640
0037660 ( \ P U T B A S E P T R O B
0037700 J E C T D ( V \ U N C O P Y
0037720 ( V G E T B A S E P T R P T
0037740 R D ] \r
0037760 ( ( E Q U A L F
0040000 I E L D S P E C ' ( B I T S
0040020 . 1 5 ) ) \r
0040040 ( \ P U T B
0040060 A S E O B J E C T D ( V G
0040100 E T B A S E P T R D ] \r
0040120 ( S E T Q W I
0040140 N D O W ( I N S P E C T O B
0040160 J E C T A S T Y P E ) ) \r
0040200 ( W I N D O W P
0040220 R O P W I N D O W ' T I T L
0040240 E ( C O N C A T ( V \ U N C
0040260 O P Y P T R ) \r
0040300
*
0040340 " I n s p e c t o r "
0040360 ) ) \r ( R E
0040400 T U R N W I N D O W ] ) \r \r (
0040420 006 004 V U N S A V E D E F 006 001 \r
0040440 [ L A M B D A ( S Y M B O L
0040460 ) 006 006 006 001
0040500
*
0040540 006 006 ( * g b n " 8 - A u g
0040560 - 8 5 1 5 : 3 7 " ) 006 001 \r
0040600 ( f o r ( X _ ( V G E
0040620 T P R O P L I S T S Y M B O L
0040640 ) ) \r b y \r
0040660 ( V \ C D R . U
0040700 F N ( V \ C D R . U F N X )
0040720 ) \r w h i l e
0040740 X d o ( S E L E C T Q (
0040760 V \ U N C O P Y ( V \ C A R .
0041000 U F N X ) ) \r
0041020
0041040 ( C O D E ( P R I N T O U T
0041060 T " F o u n d a C O D E
0041100 p r o p e r t y , d o i n g
0041120 U N S A V E D E F " T ) \r
0041140
0041160 ( 006 002 V
0041200 P U T D E F N 006 001 S Y M B O L
0041220 ( L O G O R ( V G E T B A S
0041240 E P T R 0 ( 006 002 V C A D R 006 001
0041260 X ) ) \r
0041300
*
0041340 ( L L S H
0041360 1 3 1 ) ) ) \r
0041400
0041420 ( R E T U R N ) )
0041440 \r
0041460 ( B R O K E N
0041500 ( P R I N T O U T T " F o
0041520 u n d a B R O K E N p r o
0041540 p e r t y , u n b r e a k i n
0041560 g " T ) \r
0041600
0041620 ( R E T U R N ( 006
0041640 002 V Y A N K D E F 006 001 S Y M B
0041660 O L ( 006 002 V C A D R 006 001 X )
0041700 ) ) ) \r
0041720 ( A D V
0041740 I S E D ( P R I N T O U T T
0041760 " F o u n d a A D V I S E
0042000 D p r o p e r t y , u n b r
0042020 e a k i n g " T ) \r
0042040
0042060 ( R E T
0042100 U R N ( 006 002 V Y A N K D E F 006
0042120 001 S Y M B O L ( 006 002 V C A D
0042140 R 006 001 X ) ) ) ) \r
0042160
0042200 N I L ) \r
0042220 f i n a l l y \r
0042240 ( P R I N T O U T T " N o
0042260 C O D E p r o p e r t y f
0042300 o u n d " T ] ) \r \r ( 006 004 V C
0042320 A D R 006 001 \r [ L A M B D A
0042340 ( X ) \r ( V \ C A R . U
0042360 F N ( V \ C D R . U F N X ]
0042400 ) \r \r ( 006 004 V P U T D E F N 006 001
0042420 \r [ L A M B D A ( S Y M B
0042440 O L V D E F C O D E P ) 006 006
0042460 006 001
0042500
0042520 006 006 ( * g b n " 8 - A
0042540 u g - 8 5 1 5 : 4 0 " ) 006 001 \r
0042560 ( L E T ( ( C E L L
0042600 ( V \ A T O M C E L L S Y M B
0042620 O L 1 0 ) ) ) \r
0042640 ( V P U T B A S E 0 C E L
0042660 L ( L R S H V D E F 1 6 )
0042700 ) \r ( V P U T
0042720 B A S E 0 ( A D D 1 C E L L
0042740 ) \r
0042760 ( L O G A N D V D E F 6
0043000 5 5 3 5 ] ) \r \r ( 006 004 V Y A N K
0043020 D E F 006 001 \r [ L A M B D A
0043040 ( N E W S Y M B O L O L D S Y
0043060 M B O L ) \r ( 006 002 V P U
0043100 T D E F N 006 001 N E W S Y M B O
0043120 L ( V G E T D E F N O L D S
0043140 Y M B O L ] ) \r ) \r \r ( R P A Q
0043160 ? 006 002 R D S Y S I N I T 006 001
0043200 ) \r \r ( R P A Q ? 006 002 A T O M
0043220 P A G E L S T 006 001 N I L ) \r \r
0043240 ( R P A Q ? 006 002 A T O M C A C
0043260 H E 006 001 N I L ) \r \r ( R P A Q
0043300 ? 006 002 N E W A T O M A R R A Y
0043320 006 001 ( H A S H A R R A Y 3 0
0043340 ) ) \r \r ( R P A Q ? 006 002 T E L
0043360 E R A I D P R I N T L E V E L 006
0043400 001 ' ( 2 . 2 0 ) ) \r ( D E
0043420 F I N E Q \r \r ( 006 004 V A T O M 006
0043440 001 \r [ L A M B D A ( N ) 006
0043460 006 006 001
0043500
*
0043540 006 006 ( * l m m " 6 -
0043560 A u g - 8 4 1 3 : 2 0 " ) 006 001
0043600 \r
0043620
*
0043660 006 006
0043700 ( * C o n v e r t s a V M
0043720 a t o m n u m b e r i n t
0043740 o a \r 006 001
0043760
*
0044040 006 006 L i s p a t o m .
0044060 ) 006 001 \r ( P R O G ( (
0044100 P A G E ( F A S S O C ( L R
0044120 S H N 8 ) \r
0044140
0044160 A T O M P A G E L S T ) ) \r
0044200 A T M F P T
0044220 R ) \r ( C O
0044240 N D \r
0044260 ( ( A N D P A G E ( N E Q
0044300 ( S E T Q A T M ( F A S T E
0044320 L T ( C D R P A G E ) \r
0044340
*
0044400 ( L O G
0044420 A N D N 2 5 5 ) ) ) \r
0044440
0044460 0 ) ) \r
0044500 ( R E T
0044520 U R N A T M ) ) ) \r
0044540 ( S E T Q A T M (
0044560 V U N C O P Y A T O M N ) ) \r
0044600 [ C O N D \r
0044620 ( ( N
0044640 U L L P A G E ) \r
0044660 ( S E T Q P A
0044700 G E ( C O N S ( L R S H N
0044720 8 ) \r
0044740
0044760 ( P O I N T E R A R R A Y
0045000 2 5 6 0 ) ) ) \r
0045020 ( C O N D \r
0045040 (
0045060 A T O M C A C H E ( A T T A C
0045100 H P A G E A T O M C A C H E
0045120 ) ) \r
0045140 ( T ( S E T Q A T O
0045160 M P A G E L S T ( N C O N C
0045200 A T O M P A G E L S T ( S E T
0045220 Q A T O M C A C H E ( L I S
0045240 T P A G E ] \r
0045260 ( F A S T S E T A ( C D R
0045300 P A G E ) \r
0045320 ( L O G A N D
0045340 N 2 5 5 ) \r
0045360 A T M ) \r
0045400 ( R E T U R N A
0045420 T M ] ) \r \r ( 006 004 V A T O M N U
0045440 M B E R 006 001 \r [ L A M B D A
0045460 ( A T O M N E W O K ) 006 006 006
0045500 001
0045520
0045540 006 006 ( * ; "
0045560 E d i t e d 9 - M a r - 8 7
0045600 1 4 : 1 8 b y r a f " ) 006
0045620 001 \r \r 006 006 ( * ; ; ; " S e e
0045640 t h e c o m m e n t o n
0045660 M A K E . L O C A L . A T O M
0045700 f o r a w a r n i n g a b
0045720 o u t s y m b o l s b e i n
0045740 g c r e a t e d w i t h t
0045760 h e w r o n g p a c k a g e
0046000 . " ) 006 001 \r \r ( i f (
0046020 R E A D S Y S . H A S . P A C K
0046040 A G E S ) \r t h
0046060 e n \r [ V F I N
0046100 D . S Y M B O L ( C L : S Y M
0046120 B O L - N A M E A T O M ) \r
0046140 ( V
0046160 F I N D . P A C K A G E ( C L
0046200 : P A C K A G E - N A M E ( C
0046220 L : S Y M B O L - P A C K A G E
0046240 A T O M ] \r e
0046260 l s e \r ( V O L
0046300 D . F I N D . S Y M B O L A T
0046320 O M 1 ( N C H A R S A T O
0046340 M ] ) \r ) \r ( D E C L A R E % :
0046360 E V A L @ C O M P I L E D O
0046400 N T C O P Y \r \r ( P U T P R O
0046420 P S 006 002 I E Q D M A C R O 006
0046440 001 ( = . E Q ) ) \r \r ( P U
0046460 T P R O P S 006 002 I E Q M A C
0046500 R O 006 001 ( ( X Y ) \r
0046520
0046540 ( I E Q P X Y ) ) ) \r D O
0046560 N T E V A L @ L O A D \r ( F I
0046600 L E S L O A D ( L O A D C O M
0046620 P ) \r V M E M ) \r
0046640 ) \r ( F I L E S L O A D V M E
0046660 M ) \r ( P U T P R O P S R E A
0046700 D S Y S C O P Y R I G H T (
0046720 " X e r o x C o r p o r a t i
0046740 o n " 1 9 8 2 1 9 8 3 1 9
0046760 8 4 1 9 8 5 1 9 8 6 1 9 8
0047000 7 ) ) \r ( D E C L A R E % : D
0047020 O N T C O P Y \r ( F I L E M
0047040 A P ( N I L ( 1 1 0 5 1 8
0047060 0 2 5 ( R E A D S Y S 1 1 1
0047100 5 . 2 5 3 3 ) ( T E L E R
0047120 A I D 2 5 3 5 . 2 8 5 3 )
0047140 ( V L I S T G E T 2 8 5 5
0047160 . 3 2 1 4 ) ( \r V L O A D F
0047200 N S 3 2 1 6 . 4 0 9 0 )
0047220 ( V L O A D F I L E P K G T Y P
0047240 E C H A N G E 4 0 9 2 . 4
0047260 6 3 6 ) ( V L O A D F U N C T
0047300 I O N S 4 6 3 8 . 5 2 1 3
0047320 ) ( V L O A D V A R 5 2 1 5
0047340 \r . 5 3 7 8 ) ( V L O A D
0047360 V A R S 5 3 8 0 . 5 6 2 4
0047400 ) ( V R A I D 5 6 2 6 .
0047420 6 9 0 8 ) ( V S A V E W O R K
0047440 6 9 1 0 . 9 5 3 6 ) ( S
0047460 H O W R E M O T E S C R E E N
0047500 9 5 3 8 . \r 1 5 3 9 6 ) (
0047520 V G E T V A L 1 5 3 9 8 .
0047540 1 5 5 3 5 ) ( V I N S P E C T
0047560 1 5 5 3 7 . 1 6 6 5 3 )
0047600 ( V U N S A V E D E F 1 6 6 5
0047620 5 . 1 7 6 0 9 ) ( V C A D
0047640 R 1 7 6 1 1 . \r 1 7 6 6 5
0047660 ) ( V P U T D E F N 1 7 6 6
0047700 7 . 1 7 9 2 6 ) ( V Y A N
0047720 K D E F 1 7 9 2 8 . 1 8 0
0047740 2 3 ) ) ( 1 8 1 8 9 1 9 6 8
0047760 5 ( V A T O M 1 8 1 9 9 .
0050000 1 9 2 2 0 ) ( \r V A T O M N
0050020 U M B E R 1 9 2 2 2 . 1 9
0050040 6 8 3 ) ) ) ) ) \r S T O P \r
0050056