$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>SCREENPAPER!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 3
0000120 0 - N o v - 8 6 1 2 : 4 6 : 1
0000140 1 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L I S P C O R E > S
0000200 C R E E N P A P E R . ; 1 006 001
0000220 1 0 4 9 3 \r \r c
0000240 h a n g e s t o % : ( V A
0000260 R S S C R E E N P E R I O D
0000300 S C R E E N R E P E A T S C R
0000320 E E N P A P E R C O M S S C R
0000340 E E N P A P E R S I Z E ) \r
0000360
0000400 ( F N S S C R E E N P A P
0000420 E R ) \r \r p r e v i
0000440 o u s d a t e % : " 1 - J
0000460 a n - 0 1 0 3 : 3 2 : 5 5 "
0000500 { E R I S } < M A S I N T E R >
0000520 S C R E E N P A P E R . ; 2 ) \r
0000540 \r \r ( * " \r C o p y r i g h t
0000560 ( c ) 1 9 0 1 , 1 9 8 6
0000600 b y X e r o x C o r p o r a
0000620 t i o n . A l l r i g h t
0000640 s r e s e r v e d . \r " ) \r \r
0000660 ( P R E T T Y C O M P R I N T
0000700 S C R E E N P A P E R C O M S )
0000720 \r \r ( R P A Q Q 006 002 S C R E E
0000740 N P A P E R C O M S 006 001 ( ( F
0000760 N S S C R E E N P A P E R K
0001000 A L S H O W D O P O I N T M
0001020 A P N ) \r
0001040 [ A D
0001060 D V A R S ( I D L E . F U N C
0001100 T I O N S ( " S c r e e n w
0001120 a l l p a p e r " ' S C R E E
0001140 N P A P E R ] \r
0001160
0001200 ( * * f a s t e r v e r s
0001220 i o n s o f e d i t b i t m
0001240 a p f u n c t i o n s ) \r
0001260
0001300 ( F N S I N V E R
0001320 T . B I T M A P . H O R I Z O N
0001340 T A L L Y I N V E R T . B I T
0001360 M A P . V E R T I C A L L Y R
0001400 O T A T E . B I T M A P ) \r
0001420
0001440 ( V A R S S C R E
0001460 E N P A P E R S I Z E S C R E
0001500 E N P E R I O D S C R E E N R
0001520 E P E A T ) ) ) \r ( D E F I N E
0001540 Q \r \r ( 006 004 S C R E E N P A P E
0001560 R 006 001 \r [ L A M B D A ( W
0001600 I N D O W S I Z E O P T I O
0001620 N ) 006 006 006 001
0001640
0001660 006 006 ( * ; " E d i
0001700 t e d 3 0 - N o v - 8 6 1 2
0001720 : 4 1 b y l m m " ) 006 001 \r
0001740 ( O R W I N D O W ( S
0001760 E T Q W I N D O W ( C R E A
0002000 T E W ) ) ) \r ( O R S
0002020 I Z E ( S E T Q S I Z E S
0002040 C R E E N P A P E R S I Z E ) )
0002060 \r ( L E T ( T R I A N
0002100 G L E S T R E A M B U F 1
0002120 2 S I Z E B I G B U F P B T
0002140 B U F 1 A B U F 2 B U F 3
0002160 B U F 4 C X C Y ( C N T
0002200 S C R E E N P E R I O D ) ) \r
0002220 ( S E T Q T
0002240 R I A N G L E ( B I T M A P C
0002260 R E A T E S I Z E S I Z E )
0002300 ) \r ( S E T Q
0002320 B U F 1 ( B I T M A P C R E
0002340 A T E S I Z E S I Z E ) ) \r
0002360 ( S E T Q S
0002400 T R E A M ( D S P C R E A T E
0002420 T R I A N G L E ) ) \r
0002440 ( F I L L P O L Y G O
0002460 N ( L I S T ' ( - 1 . -
0002500 1 ) ( C O N S S I Z E S I
0002520 Z E ) \r
0002540
0002560 ( C O N S - 1 S I Z E ) ) \r
0002600
0002620 B L A C K S H A D E S T R E A
0002640 M ) \r ( S E T
0002660 Q B U F 2 ( B I T M A P C R
0002700 E A T E S I Z E S I Z E ) )
0002720 \r ( S E T Q
0002740 B U F 3 ( B I T M A P C R E A
0002760 T E S I Z E S I Z E ) ) \r
0003000 ( S E T Q 2 S
0003020 I Z E ( P L U S S I Z E S
0003040 I Z E ) ) \r (
0003060 S E T Q B I G B U F ( B I T
0003100 M A P C R E A T E 2 S I Z E
0003120 2 S I Z E ) ) \r
0003140 ( S E T Q P B T ( 006 002 c r
0003160 e a t e 006 001 P I L O T B B T )
0003200 ) \r ( D S P D
0003220 E S T I N A T I O N B U F 1
0003240 S T R E A M ) \r
0003260 ( 006 002 i f 006 001 ( E Q O P T
0003300 I O N ' P I C K ) \r
0003320 006 002 t h e n 006 001
0003340 ( 006 002 w h i l e 006 001 T 006 002
0003360 b i n d 006 001 P O S 006 002 d o 006
0003400 001 ( S E T Q P O S ( G E T
0003420 B O X P O S I T I O N S I Z E
0003440 S I Z E ) ) \r
0003460
0003500 (
0003520 B I T B L T ( S C R E E N B I
0003540 T M A P ) \r
0003560
*
0003620 ( C A R P O S ) \r
0003640
*
0003700 ( C D R
0003720 P O S ) \r
0003740
*
0004000 B U F 1 0 0 S I Z
0004020 E S I Z E ) \r
0004040
0004060 (
0004100 006 002 K A L S H O W 006 001 B U F 1
0004120 W I N D O W S I Z E ) ) \r
0004140 006 002 e l s e
0004160 006 001 ( 006 002 M A P N 006 001 W I N
0004200 D O W ( F U N C T I O N ( L
0004220 A M B D A ( X Y ) \r
0004240
*
0004300 ( B I T B L T ( W I
0004320 N D O W P R O P W I N D O W
0004340 ' I M A G E C O V E R E D ) \r
0004360
*
0004420 X
0004440 Y B U F 1 0 0 S I Z E
0004460 S I Z E ) \r
0004500
*
0004540 ( D R A W L I N E ( S U B 1
0004560 S I Z E ) \r
0004600
*
0004640 0 \r
0004660
*
0004720 ( R A N D 0
0004740 ( S U B 1 S I Z E ) ) \r
0004760
*
0005020 ( R A
0005040 N D 0 ( S U B 1 S I Z E )
0005060 ) \r
0005100
*
0005140 1 \r
0005160
*
0005220 ' I N V E R T S T R E
0005240 A M ) \r
0005260
0005300 ( 006 002
0005320 K A L S H O W 006 001 B U F 1 W
0005340 I N D O W S I Z E ) \r
0005360
*
0005420 ( 006 002 i f 006 001 ( L E
0005440 Q ( 006 002 a d d 006 001 C N T -
0005460 1 ) \r
0005500
*
0005540 0 ) \r
0005560
*
0005620 006 002 t h e n 006 001 ( S
0005640 E T Q C N T S C R E E N P E
0005660 R I O D ) \r
0005700
*
0005740 ( 006 002 t o 006 001
0005760 S C R E E N R E P E A T \r
0006000
*
0006060 006 002 d o 006 001 ( B I T B L T
0006100 W I N D O W 0 0 B U F 1
0006120 ) \r
0006140
*
0006200 ( 006 002 K A L
0006220 S H O W 006 001 B U F 1 W I N D
0006240 O W S I Z E ] ) \r \r ( 006 004 K A
0006260 L S H O W 006 001 \r [ L A M B D
0006300 A ( B U F 1 W I N D O W S
0006320 I Z E ) 006 006 006 001
0006340
0006360 006 006 ( * e d
0006400 i t e d % : " 1 - J a n - 0
0006420 1 0 1 : 0 4 " ) 006 001 \r
0006440 ( B I T B L T T R I A N G L E
0006460 N I L N I L B U F 1 N I
0006500 L N I L N I L N I L N I
0006520 L ' E R A S E ) 006 006 ( * T H
0006540 A T E R A S E D A L L B U
0006560 T T H E T R I A N G L E ) 006
0006600 001 \r ( 006 002 R O T A T E .
0006620 B I T M A P 006 001 B U F 1 B U
0006640 F 2 P B T ) \r ( 006 002 I
0006660 N V E R T . B I T M A P . V E R
0006700 T I C A L L Y 006 001 B U F 2 B
0006720 U F 3 P B T ) \r ( B I
0006740 T B L T B U F 3 N I L N I
0006760 L B U F 1 N I L N I L N
0007000 I L N I L N I L ' P A I N
0007020 T ) \r ( L E T ( C X
0007040 C Y ) \r ( B I
0007060 T B L T B U F 1 N I L N I
0007100 L B I G B U F 0 S I Z E )
0007120 \r ( 006 002 I N V
0007140 E R T . B I T M A P . H O R I Z
0007160 O N T A L L Y 006 001 B U F 1 B
0007200 U F 2 P B T ) \r
0007220 ( B I T B L T B U F 2 N
0007240 I L N I L B I G B U F S I
0007260 Z E S I Z E ) \r
0007300 ( 006 002 I N V E R T . B I T M
0007320 A P . V E R T I C A L L Y 006 001
0007340 B U F 1 B U F 3 P B T ) \r
0007360 ( B I T B L T
0007400 B U F 3 N I L N I L B I G
0007420 B U F 0 0 ) \r
0007440 ( 006 002 I N V E R T . B I T M
0007460 A P . H O R I Z O N T A L L Y 006
0007500 001 B U F 3 B U F 2 P B T )
0007520 \r ( B I T B L
0007540 T B U F 2 N I L N I L B
0007560 I G B U F S I Z E 0 ) \r
0007600 ( S E T Q C X
0007620 ( Q U O T I E N T ( W I N D O
0007640 W P R O P W I N D O W ' W I
0007660 D T H ) \r
0007700 2 )
0007720 ) \r ( S E T Q
0007740 C Y ( Q U O T I E N T ( W
0007760 I N D O W P R O P W I N D O W
0010000 ' H E I G H T ) \r
0010020
0010040 2 ) ) \r
0010060 ( 006 002 f o r 006 001 I 006 002 f r o
0010100 m 006 001 0 006 002 w h i l e 006 001
0010120 ( L E S S P I ( Q U O T I E
0010140 N T ( P L U S 2 S I Z E (
0010160 M A X C X C Y ) ) \r
0010200
*
0010240 2 S I Z E ) )
0010260 \r 006 002 d
0010300 o 006 001 ( 006 002 f o r 006 001 J 006
0010320 002 f r o m 006 001 0 006 002 w h i l
0010340 e 006 001 ( L E Q J I ) 006 002
0010360 d o 006 001 ( 006 002 D O P O I N T 006
0010400 001 [ F U N C T I O N ( L A M
0010420 B D A ( X Y ) \r
0010440
*
0010520 (
0010540 B I T B L T B I G B U F N I
0010560 L N I L W I N D O W \r
0010600
*
0010700 ( P L U S C
0010720 X ( T I M E S X 2 S I Z E
0010740 ) ) \r
0010760
*
0011040 (
0011060 P L U S C Y ( T I M E S Y
0011100 2 S I Z E ] \r
0011120
*
0011160 J
0011200 I ) ) ) \r (
0011220 B L O C K ] ) \r \r ( 006 004 D O P O
0011240 I N T 006 001 \r [ L A M B D A
0011260 ( F N X Y ) 006 006 006 001
0011300
*
0011340 006 006 ( * e d i t
0011360 e d % : " 3 1 - D e c - 0 0
0011400 1 6 : 0 8 " ) 006 001 \r ( 006
0011420 002 i f 006 001 ( L E S S P X Y
0011440 ) \r 006 002 t h e n
0011460 006 001 ( 006 002 D O P O I N T 006 001
0011500 F N Y X ) ) \r ( A P
0011520 P L Y * F N X Y 1 ) \r
0011540 ( A P P L Y * F N ( D
0011560 I F F E R E N C E - 1 X ) \r
0011600 Y 1 ) \r
0011620 ( A P P L Y * F N X
0011640 ( D I F F E R E N C E - 1
0011660 Y ) \r 1 )
0011700 \r ( A P P L Y * F N
0011720 ( D I F F E R E N C E - 1 X
0011740 ) \r ( D I
0011760 F F E R E N C E - 1 Y ) \r
0012000 1 ] ) \r \r (
0012020 006 004 M A P N 006 001 \r [ L A M B
0012040 D A ( W I N D O W F N ) 006 006
0012060 006 001
0012100
0012120 006 006 ( * e
0012140 d i t e d % : " 1 - J a n -
0012160 0 1 0 0 : 0 9 " ) 006 001 \r
0012200 ( L E T ( ( M A X X ( D I
0012220 F F E R E N C E ( W I N D O W
0012240 P R O P W I N D O W ' W I D
0012260 T H ) \r
0012300 S I Z E )
0012320 ) \r ( M A X
0012340 Y ( D I F F E R E N C E ( W
0012360 I N D O W P R O P W I N D O W
0012400 ' H E I G H T ) \r
0012420
0012440 S I Z E ) ) \r
0012460 X Y N X N Y S T E P
0012500 S ) \r ( S E T
0012520 Q X ( R A N D 0 M A X X
0012540 ) ) \r ( S E T
0012560 Q Y ( R A N D 0 M A X Y
0012600 ) ) \r ( 006 002 w
0012620 h i l e 006 001 T 006 002 d o 006 001
0012640 ( S E T Q N X ( R A N D 0
0012660 M A X X ) ) \r
0012700 ( S E
0012720 T Q N Y ( R A N D 0 M A
0012740 X Y ) ) \r
0012760 ( S E T Q
0013000 S T E P S ( Q U O T I E N T
0013020 ( P L U S ( A B S ( D I F F
0013040 E R E N C E N X X ) ) \r
0013060
*
0013120 (
0013140 A B S ( D I F F E R E N C E
0013160 N Y Y ) ) ) \r
0013200
*
0013240 4 ) ) \r
0013260 ( 006 002 i f 006 001
0013300 ( N E Q S T E P S 0 ) \r
0013320
0013340 006 002 t h e n 006 001
0013360 [ 006 002 f o r 006 001 I 006 002 f r
0013400 o m 006 001 1 006 002 t o 006 001 S T
0013420 E P S \r
0013440
0013460 006 002 d o 006 001 ( A P P
0013500 L Y * F N ( P L U S X (
0013520 Q U O T I E N T ( T I M E S
0013540 ( D I F F E R E N C E N X X
0013560 ) \r
0013600
*
0013660 I ) \r
0013700
*
0013760 S T E P S
0014000 ) ) \r
0014020
0014040 ( P
0014060 L U S Y ( Q U O T I E N T
0014100 ( T I M E S ( D I F F E R E N
0014120 C E N Y Y ) \r
0014140
*
0014220 I ) \r
0014240
*
0014320 S T E P S ]
0014340 \r
0014360 (
0014400 S E T Q X N X ) \r
0014420
0014440 ( S E T Q Y
0014460 N Y ] ) \r ) \r \r ( A D D T O V
0014500 A R 006 002 I D L E . F U N C T I
0014520 O N S 006 001 ( " S c r e e n w
0014540 a l l p a p e r " ' S C R E E
0014560 N P A P E R ) ) \r \f 006 004 ( * *
0014600 f a s t e r v e r s i o n s
0014620 o f e d i t b i t m a p f
0014640 u n c t i o n s ) 006 001 \r \r ( D E
0014660 F I N E Q \r \r ( 006 004 I N V E R T
0014700 . B I T M A P . H O R I Z O N T
0014720 A L L Y 006 001 \r [ L A M B D A
0014740 ( B I T M A P B M 2 P B T
0014760 ) 006 006 006 001
0015000
0015020 006 006 ( * e d i
0015040 t e d % : " 3 1 - D e c - 0 0
0015060 1 7 : 1 5 " ) 006 001 \r (
0015100 O R B M 2 ( S E T Q B M 2
0015120 ( B I T M A P C O P Y B I T
0015140 M A P ) ) ) \r ( O R P
0015160 B T ( S E T Q P B T ( 006 002
0015200 c r e a t e 006 001 P I L O T B B
0015220 T ) ) ) \r ( 006 002 w i t h
0015240 006 001 P I L O T B B T P B T
0015260 ( S E T Q P B T D E S T L O
0015300 ( 006 002 f f e t c h 006 001 B i t M
0015320 a p L o L o c B M 2 ) ) \r
0015340 ( S E T Q P B
0015360 T D E S T H I ( 006 002 f f e t c
0015400 h 006 001 B i t M a p H i L o c
0015420 B M 2 ) ) \r
0015440 ( S E T Q P B T S O U R C E L
0015460 O ( 006 002 f f e t c h 006 001 B i
0015500 t M a p L o L o c B I T M A P
0015520 ) ) \r ( S E
0015540 T Q P B T S O U R C E H I (
0015560 006 002 f f e t c h 006 001 B i t M a
0015600 p H i L o c B I T M A P ) ) \r
0015620 ( S E T Q
0015640 P B T D E S T B P L ( T I M E
0015660 S 1 6 ( 006 002 f f e t c h 006 001
0015700 B I T M A P R A S T E R W I D
0015720 T H B M 2 ) ) ) \r
0015740 ( S E T Q P B T S O U
0015760 R C E B P L ( T I M E S 1 6
0016000 ( 006 002 f f e t c h 006 001 B I T
0016020 M A P R A S T E R W I D T H B
0016040 I T M A P ) ) ) \r
0016060 ( S E T Q P B T F L A G
0016100 S 1 6 3 8 4 )
0016120
0016140 006 006 ( * b y e x
0016160 p e r i m e n t , d i s j o i
0016200 n t r e p l a c e ) 006 001 \r
0016220 ( S E T Q P B
0016240 T H E I G H T ( 006 002 f f e t c
0016260 h 006 001 B I T M A P H E I G H T
0016300 B I T M A P ) ) \r
0016320 ( S E T Q P B T W I D
0016340 T H 1 ) \r
0016360 ( 006 002 f o r 006 001 I 006 002 f r o
0016400 m 006 001 0 006 002 w h i l e 006 001
0016420 ( L E S S P I ( 006 002 f f e t
0016440 c h 006 001 B I T M A P W I D T H
0016460 B I T M A P ) ) \r
0016500 006 002 d o 006 001 ( S
0016520 E T Q P B T S O U R C E B I T
0016540 I ) \r
0016560 ( S E T Q P B T D E S
0016600 T B I T ( D I F F E R E N C E
0016620 ( S U B 1 ( 006 002 f f e t c h
0016640 006 001 B I T M A P W I D T H B
0016660 I T M A P ) ) \r
0016700
*
0016740 I ) ) \r
0016760 ( \ P I L O T B I T B L
0017000 T P B T 0 ) ) ) \r B
0017020 M 2 ] ) \r \r ( 006 004 I N V E R T .
0017040 B I T M A P . V E R T I C A L L
0017060 Y 006 001 \r [ L A M B D A ( B
0017100 I T M A P B M 2 P B T ) 006 006
0017120 006 001
0017140
0017160 006 006 ( * e d i t e d
0017200 % : " 3 1 - D e c - 0 0 1 8
0017220 : 1 3 " ) 006 001 \r ( O R
0017240 B M 2 ( S E T Q B M 2 ( B
0017260 I T M A P C O P Y B I T M A P
0017300 ) ) ) \r ( O R P B T
0017320 ( S E T Q P B T ( 006 002 c r e
0017340 a t e 006 001 P I L O T B B T ) )
0017360 ) \r [ 006 002 w i t h 006 001
0017400 P I L O T B B T P B T
0017420
*
0017460 006 006 ( * ) 006 001 \r
0017500 ( S E T Q P B T D E
0017520 S T H I ( 006 002 f f e t c h 006 001
0017540 B i t M a p H i L o c B M 2
0017560 ) ) \r [ S E
0017600 T Q P B T D E S T L O ( P L
0017620 U S ( 006 002 f f e t c h 006 001 B
0017640 i t M a p L o L o c B M 2 ) \r
0017660
*
0017720 ( T I M E S ( S U B 1 ( 006 002
0017740 f f e t c h 006 001 B I T M A P H
0017760 E I G H T B I T M A P ) ) \r
0020000
*
0020040 ( 006 002 f f e t c h 006
0020060 001 B I T M A P R A S T E R W I
0020100 D T H B M 2 ] \r
0020120 ( S E T Q P B T S O U R
0020140 C E L O ( 006 002 f f e t c h 006 001
0020160 B i t M a p L o L o c B I T
0020200 M A P ) ) \r
0020220 ( S E T Q P B T S O U R C E H
0020240 I ( 006 002 f f e t c h 006 001 B i
0020260 t M a p H i L o c B I T M A P
0020300 ) ) \r ( S E
0020320 T Q P B T D E S T B P L ( T
0020340 I M E S 1 6 ( 006 002 f f e t c
0020360 h 006 001 B I T M A P R A S T E R
0020400 W I D T H B M 2 ) ) ) \r
0020420 ( S E T Q P B T
0020440 S O U R C E B P L ( T I M E S
0020460 1 6 ( 006 002 f f e t c h 006 001
0020500 B I T M A P R A S T E R W I D T
0020520 H B I T M A P ) ) ) \r
0020540 ( S E T Q P B T S
0020560 O U R C E B I T 0 ) \r
0020600 ( S E T Q P B T D
0020620 E S T B I T 0 ) \r
0020640 ( S E T Q P B T F L A
0020660 G S 1 6 3 8 4 )
0020700
0020720 006 006 ( * b y e
0020740 x p e r i m e n t , d i s j o
0020760 i n t r e p l a c e ) 006 001 \r
0021000 ( S E T Q P
0021020 B T H E I G H T 1 ) \r
0021040 ( S E T Q P B T W
0021060 I D T H ( 006 002 f f e t c h 006 001
0021100 B I T M A P W I D T H B I T
0021120 M A P ) ) \r
0021140 ( 006 002 f o r 006 001 I 006 002 f r o
0021160 m 006 001 0 006 002 w h i l e 006 001
0021200 ( L E S S P I ( 006 002 f f e t
0021220 c h 006 001 B I T M A P H E I G H
0021240 T B I T M A P ) ) \r
0021260 006 002 d o 006 001 (
0021300 \ P I L O T B I T B L T P B T
0021320 0 ) \r
0021340 ( 006 002 a d d 006 001 P B T
0021360 S O U R C E L O ( 006 002 f f e t
0021400 c h 006 001 B I T M A P R A S T E
0021420 R W I D T H B I T M A P ) ) \r
0021440
0021460 ( 006 002 a d d 006 001 P B T D E S T
0021500 L O ( M I N U S ( 006 002 f f e
0021520 t c h 006 001 B I T M A P R A S T
0021540 E R W I D T H B M 2 ] \r
0021560 B M 2 ] ) \r \r ( 006 004 R O T A T
0021600 E . B I T M A P 006 001 \r [ L A
0021620 M B D A ( B I T M A P B M 2
0021640 P B T ) 006 006 006 001
0021660
0021700 006 006 ( *
0021720 e d i t e d % : " 3 1 - D e
0021740 c - 0 0 1 6 : 2 4 " ) 006 001 \r
0021760 [ O R B M 2 ( S E T Q
0022000 B M 2 ( B I T M A P C R E A
0022020 T E ( 006 002 f f e t c h 006 001 B
0022040 I T M A P H E I G H T B I T M
0022060 A P ) \r
0022100
0022120 ( 006 002 f f e t c h 006 001 B I T
0022140 M A P W I D T H B I T M A P ]
0022160 \r ( O R P B T ( S E
0022200 T Q P B T ( 006 002 c r e a t e
0022220 006 001 P I L O T B B T ) ) ) \r
0022240 [ 006 002 w i t h 006 001 P I L
0022260 O T B B T P B T
0022300
*
0022340 006 006 ( * ) 006 001 \r
0022360 ( S E T Q P B T D E S T H
0022400 I ( 006 002 f f e t c h 006 001 B i
0022420 t M a p H i L o c B M 2 ) ) \r
0022440 ( S E T Q
0022460 P B T D E S T L O ( 006 002 f f e
0022500 t c h 006 001 B i t M a p L o L o
0022520 c B M 2 ) ) \r
0022540 ( S E T Q P B T S O U R C
0022560 E L O ( 006 002 f f e t c h 006 001
0022600 B i t M a p L o L o c B I T M
0022620 A P ) ) \r (
0022640 S E T Q P B T S O U R C E H I
0022660 ( 006 002 f f e t c h 006 001 B i t
0022700 M a p H i L o c B I T M A P )
0022720 ) \r ( S E T
0022740 Q P B T D E S T B P L ( T I
0022760 M E S 1 6 ( 006 002 f f e t c h
0023000 006 001 B I T M A P R A S T E R W
0023020 I D T H B M 2 ) ) ) \r
0023040 ( S E T Q P B T S
0023060 O U R C E B P L 1 ) \r
0023100 ( S E T Q P B T S
0023120 O U R C E B I T 0 ) \r
0023140 ( S E T Q P B T D
0023160 E S T B I T ( 006 002 f f e t c h
0023200 006 001 B I T M A P W I D T H B
0023220 M 2 ) ) \r (
0023240 S E T Q P B T F L A G S 0 )
0023260
*
0023320 006 006 ( * b y e x p e r i
0023340 m e n t , d i s j o i n t r
0023360 e p l a c e ) 006 001 \r
0023400 ( S E T Q P B T H E I
0023420 G H T ( 006 002 f f e t c h 006 001
0023440 B I T M A P H E I G H T B M 2
0023460 ) ) \r ( S E
0023500 T Q P B T W I D T H 1 ) \r
0023520 ( 006 002 f o r 006
0023540 001 I 006 002 f r o m 006 001 0 006
0023560 002 w h i l e 006 001 ( L E S S P
0023600 I ( 006 002 f f e t c h 006 001 B I
0023620 T M A P H E I G H T B I T M A
0023640 P ) ) \r
0023660 006 002 d o 006 001 ( 006 002 a d d 006 001
0023700 P B T D E S T B I T - 1 ) \r
0023720
0023740 ( \ P I L O T B I T B L T P B
0023760 T 0 ) \r
0024000 ( 006 002 a d d 006 001 P B
0024020 T S O U R C E L O ( 006 002 f f e
0024040 t c h 006 001 B I T M A P R A S T
0024060 E R W I D T H B I T M A P ] \r
0024100 B M 2 ] ) \r ) \r \r ( R P
0024120 A Q Q 006 002 S C R E E N P A P E
0024140 R S I Z E 006 001 6 4 ) \r \r ( R P
0024160 A Q Q 006 002 S C R E E N P E R I
0024200 O D 006 001 1 0 0 ) \r \r ( R P A Q
0024220 Q 006 002 S C R E E N R E P E A T
0024240 006 001 0 ) \r ( P U T P R O P S
0024260 S C R E E N P A P E R C O P Y
0024300 R I G H T ( " X e r o x C o
0024320 r p o r a t i o n " 1 9 0 1
0024340 1 9 8 6 ) ) \r ( D E C L A R E %
0024360 : D O N T C O P Y \r ( F I
0024400 L E M A P ( N I L ( 8 5 7
0024420 6 4 5 5 ( S C R E E N P A P E
0024440 R 8 6 7 . 3 2 4 1 ) ( K
0024460 A L S H O W 3 2 4 3 . 4 7
0024500 5 9 ) ( D O P O I N T 4 7 6
0024520 1 . 5 1 3 3 ) ( M A P N
0024540 \r 5 1 3 5 . 6 4 5 3 ) ) (
0024560 6 5 7 3 1 0 3 1 5 ( I N V E
0024600 R T . B I T M A P . H O R I Z O
0024620 N T A L L Y 6 5 8 3 . 7 7
0024640 0 0 ) ( I N V E R T . B I T M
0024660 A P . V E R T I C A L L Y 7 7
0024700 0 2 . \r 9 0 7 8 ) ( R O T
0024720 A T E . B I T M A P 9 0 8 0
0024740 . 1 0 3 1 3 ) ) ) ) ) \r S T O
0024760 P \r
0024762