$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>commwindow!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 " 2 - A p r - 8
0000140 7 1 7 : 0 6 : 0 5 " 006 004 { E
0000160 R I S } < L I S P U S E R S > L
0000200 Y R I C > C O M M W I N D O W .
0000220 ; 3 006 001 4 9 7 8 6 \r \r
0000240 c h a n g e s t o % :
0000260 ( V A R S R E M O T E - C
0000300 U R S O R C O M M W I N D O W
0000320 C O M S ) \r
0000340 ( C O U R I
0000360 E R P R O G R A M S C O M M W
0000400 I N D O W ) \r
0000420 ( F N S
0000440 C L O S E - F R A M E S T A R
0000460 T - G E T - B I T S S E N D -
0000500 B I T S F R A M E - E V E N T
0000520 M A K E - F R A M E ) \r
0000540
0000560 ( F U N C T I O N S \ P I L
0000600 O T B I T B L T ) \r \r
0000620 p r e v i o u s d a t e % :
0000640 " 2 - A p r - 8 7 1 6 : 5
0000660 4 : 2 4 " { E R I S } < L I S
0000700 P U S E R S > L Y R I C > C O M
0000720 M W I N D O W . ; 2 ) \r \r \r ( *
0000740 " \r C o p y r i g h t ( c )
0000760 1 9 8 6 , 1 9 0 0 , 1 9 8
0001000 7 b y X e r o x C o r p o
0001020 r a t i o n . A l l r i g
0001040 h t s r e s e r v e d . \r " )
0001060 \r \r ( P R E T T Y C O M P R I N
0001100 T C O M M W I N D O W C O M S
0001120 ) \r \r ( R P A Q Q 006 002 C O M M
0001140 W I N D O W C O M S 006 001 ( \r \r
0001160 006 006 ( * ; ; ; " V i e w e r
0001200 e n d " ) 006 001 \r \r
0001220
0001240 ( F N S C L O S E - F R A M
0001260 E G E T - B I T S S T A R T
0001300 - G E T - B I T S ) \r
0001320
0001340 ( F I L E S C O U R I E R
0001360 S E R V E ) \r
0001400 \r \r
0001420 006 006 ( * ; ; ; " S e n d e r
0001440 e n d " ) 006 001 \r \r
0001460
0001500 ( F N S S E N D - B I T S
0001520 S E N D - T I L E L I S T E N
0001540 - T O - V I E W E R M A P T I
0001560 L E S S H U T - D O W N - V I
0001600 E W E R \r
0001620
0001640 C H A N G E - S E N D E R -
0001660 U P D A T E - M O D E ) \r
0001700
0001720 ( F U N C T I O N S I
0001740 N C R \ P I L O T B I T B L T
0001760 ) \r
0002000 \r
0002020 \r 006
0002040 006 ( * ; ; " C o n t r o l i
0002060 n g u p d a t e s c h e m e
0002100 s " ) 006 001 \r \r
0002120 ( I
0002140 N I T V A R S ( C O M M . D E
0002160 F A U L T . T R A N S M I T . T
0002200 Y P E ' S Q U A R E ) \r
0002220
0002240 ( C O M M
0002260 . S E N D . U N C H A N G E D .
0002300 T I L E S T ) \r
0002320
0002340 ( C O M M . U P D
0002360 A T E . M O U S E . P O S I T I
0002400 O N ' S e n d e r ) ) \r
0002420
0002440 ( G L O B A L V A R S
0002460 C O M M . D E F A U L T . T R A
0002500 N S M I T . T Y P E C O M M .
0002520 U P D A T E . M O U S E . P O S
0002540 I T I O N \r
0002560
0002600 C O M M . S E N D . U
0002620 N C H A N G E D . T I L E S ) \r
0002640
0002660 \r \r 006 006 ( * ; ;
0002700 ; " P r u n i n g o u t u
0002720 n c h a n g e d s c r e e n
0002740 t i l e s " ) 006 001 \r \r
0002760
0003000 ( F N S P A C K E T - E Q
0003020 U A L G E T - C A C H E D - P
0003040 A C K E T P U T - C A C H E D
0003060 - P A C K E T ) \r
0003100
0003120 \r \r 006 006 ( * ; ; ; " L o w
0003140 l e v e l p a c k e t e x c
0003160 h a n g e c o d e " ) 006 001 \r \r
0003200
0003220 ( C O N S T A N T
0003240 S C O M M . B A N D . P A C K
0003260 E T . T Y P E C O M M . C U R
0003300 S O R . P A C K E T . T Y P E
0003320 \r
0003340 C
0003360 O M M . C U R S O R . C L O S E
0003400 . P A C K E T . T Y P E C O M
0003420 M . S H U T . D O W N . P A C K
0003440 E T . T Y P E ) \r
0003460
0003500 ( V A R I A B L E S M A X - P
0003520 A C K E T - B I T S ) \r
0003540
0003560 ( R E C O R D S C O M M
0003600 . X F E R . P A C K E T ) \r
0003620
0003640 \r \r 006 006 ( * ; ; ;
0003660 " P a c k i n g a n d u n p
0003700 a c k i n g b i t m a p s i
0003720 n t o e t h e r p a c k e t s
0003740 " ) 006 001 \r \r
0003760 ( F N
0004000 S B M T O P A C K E T P A C
0004020 K E T T O B M ) \r
0004040
0004060 \r \r 006 006 ( * ; ; ; " D i s p
0004100 l a y i n g t h e v i e w i
0004120 n g m a c h i n e ' s c u r
0004140 s o r " ) 006 001 \r \r
0004160
0004200 ( V A R S R E M O T E - C U R
0004220 S O R ) \r
0004240 ( I N I
0004260 T V A R S ( C U R S O R I C O
0004300 N N I L ) ) \r
0004320 \r
0004340 \r 006 006 ( * ; ; ; " M a n i p
0004360 u l a t i n g t h e f r a m
0004400 e t h a t o u t l i n e s
0004420 t h e r e g i o n b e i n g
0004440 v i e w e d " ) 006 001 \r \r
0004460
0004500 ( I N I T V A R S ( *
0004520 F R A M E - S H A D E * G R A
0004540 Y S H A D E ) ) \r
0004560
0004600 ( F N S F R A M E - E V E N T
0004620 M A K E - F R A M E M O V E
0004640 - F R A M E S H A P E - F R A
0004660 M E S E T - F R A M E - T I T
0004700 L E ) \r
0004720 \r \r 006 006 (
0004740 * ; ; ; " C h a n g i n g
0004760 t h e s y s t e m p a r a m
0005000 e t e r s " ) 006 001 \r \r
0005020
0005040 ( F N S M A K E - M E N U
0005060 S - W I N D O W M O D E - M E
0005100 N U ) \r
0005120 ( V A R S
0005140 C O M M - M O D E S ) \r
0005160
0005200 \r \r 006 006 ( * ; ; ; "
0005220 I n i t i a l i z a t i o n " )
0005240 006 001 \r \r
0005260 ( P ( C
0005300 O U R I E R . S T A R T . S E R
0005320 V E R ) ) \r
0005340 \r \r 006
0005360 006 ( * ; ; ; " U n u s e d
0005400 s t u f f , a s f a r a s
0005420 I c a n t e l l " ) 006 001 \r
0005440 \r
0005460 ( F N S F A S
0005500 T B I T B L T ) \r
0005520
0005540 \r \r 006 006 ( * ; ; ; " S y s t
0005560 e m f i l e d e p e n d e n
0005600 c i e s " ) 006 001 \r \r
0005620
0005640 ( D E C L A R E % : D O N T
0005660 C O P Y D O E V A L @ C O M P
0005700 I L E ( F I L E S ( L O A D
0005720 C O M P ) \r
0005740
*
0006020 L L D I S P L A Y
0006040 L L E T H E R L L N S ) ) \r
0006060
0006100 ( C O U R I E R P
0006120 R O G R A M S C O M M W I N D
0006140 O W ) ) ) \r \r \r \r 006 004 ( * ; ;
0006160 ; " V i e w e r e n d " ) 006
0006200 001 \r \r ( D E F I N E Q \r \r ( 006 004
0006220 C L O S E - F R A M E 006 001 \r
0006240 [ L A M B D A ( F R A M E ) 006
0006260 006 006 001
0006300
0006320 006 006 ( *
0006340 ; " E d i t e d 2 - A p
0006360 r - 8 7 1 6 : 5 0 b y M a
0006400 s i n t e r " ) 006 001 \r (
0006420 M A P C F R A M E ' C L O S
0006440 E W ] ) \r \r ( 006 004 G E T - B I T
0006460 S 006 001 \r ( L A M B D A ( R
0006500 E C E I V E - S O C K E T W I
0006520 N D O W ) 006 003 006 001
0006540
0006560 006 003 ( * ; " E d i
0006600 t e d 2 4 - N o v - 8 6 1 3
0006620 : 1 6 b y s m L " ) 006 001 \r
0006640 ( R E S E T L S T ( R E
0006660 S E T S A V E N I L ( L I S
0006700 T ' C L O S E N S O C K E T
0006720 R E C E I V E - S O C K E T ) )
0006740 \r ( L E T
0006760 ( ( B B T ( 006 002 c r e a t e
0007000 006 001 P I L O T B B T ) ) \r
0007020 (
0007040 S T R E A M ( G E T S T R E A
0007060 M W I N D O W ' O U T P U T
0007100 ) ) \r
0007120 ( S C R A T C H X 0 )
0007140 \r
0007160 ( S C R A T C H Y 0 ) \r
0007200
0007220 S P R E A D S C R A T C H S
0007240 E E N X S E E N Y C U R S O
0007260 R U P C U R L F T C U R B T
0007300 M C U R X C U R Y X Y
0007320 D A T A W O R D L E F T \r
0007340
0007360 W I N D O W B O T T O M L I N E
0007400 ( C U R S O R C O V E R E D I
0007420 M A G E ( B I T M A P C R E A
0007440 T E 1 6 1 6 ) ) \r
0007460 ( T R A
0007500 C K I N G - C U R S O R ? N I
0007520 L ) )
0007540 006 003 ( * ; \r
0007560 006 001 006 003 " C U R L F T a
0007600 n d C U R B T M a r e t h
0007620 e l e f t a n d b o t t o
0007640 m o f t h e c u r s o r
0007660 b i t m a p p o s i t i o n s
0007700 , a d j u s t e d f o r h
0007720 o t s p o t . " ) 006 001 \r
0007740 ( 006 002
0007760 b i n d 006 001 C P P A C K E T
0010000 T H I S W I D T H T H I S H
0010020 E I G H T 006 002 w h i l e 006 001
0010040 T \r
0010060 006 002 d o 006 001 ( C O N
0010100 D \r
0010120 ( ( S E T
0010140 Q P A C K E T ( G E T X I P
0010160 R E C E I V E - S O C K E T
0010200 3 0 0 0 ) ) \r
0010220
0010240 ( S E L E C T C ( 006 002 f e t
0010260 c h 006 001 ( C O M M . X F E R .
0010300 P A C K E T P A C K E T - T Y
0010320 P E ) 006 002 o f 006 001 P A C K E
0010340 T ) \r
0010360
0010400 ( C O M M . C U R S O R . P A
0010420 C K E T . T Y P E
0010440 006 003 ( * ; " i g n o r e d
0010460 a t a , j u s t m o v e c
0010500 u r s o r " ) 006 001 \r
0010520
0010540 ) \r
0010560
0010600 ( C
0010620 O M M . B A N D . P A C K E T .
0010640 T Y P E \r
0010660
0010700 ( S E T Q S
0010720 P R E A D ( 006 002 f e t c h 006 001
0010740 ( C O M M . X F E R . P A C K
0010760 E T S P R E A D ) 006 002 o f 006
0011000 001 P A C K E T ) ) \r
0011020
0011040 ( S
0011060 E T Q X ( 006 002 f e t c h 006 001
0011100 ( C O M M . X F E R . P A C K
0011120 E T D A T A X ) 006 002 o f 006 001
0011140 P A C K E T ) ) \r
0011160
0011200 ( S E
0011220 T Q Y ( 006 002 f e t c h 006 001
0011240 ( C O M M . X F E R . P A C K E
0011260 T D A T A Y ) 006 002 o f 006 001
0011300 P A C K E T ) ) \r
0011320
0011340 ( S E T
0011360 Q T H I S W I D T H ( 006 002 f
0011400 e t c h 006 001 ( C O M M . X F E
0011420 R . P A C K E T T H I S W I D
0011440 T H ) 006 002 o f 006 001 P A C K E
0011460 T ) ) \r
0011500
0011520 ( S E T Q T H I
0011540 S H E I G H T ( 006 002 f e t c h
0011560 006 001 ( C O M M . X F E R . P A
0011600 C K E T T H I S H E I G H T )
0011620 006 002 o f 006 001 P A C K E T ) )
0011640 \r
0011660
0011700 ( C O N D \r
0011720
*
0011760 ( ( A N D C U R S O R U P (
0012000 < = ( - X 1 6 ) \r
0012020
*
0012100 C U R L F T \r
0012120
*
0012160 (
0012200 + X T H I S W I D T H 1 6
0012220 ) ) \r
0012240
0012260 (
0012300 < = ( - Y 1 6 ) \r
0012320
*
0012360 C U R B T M \r
0012400
*
0012440 ( +
0012460 Y T H I S H E I G H T 1 6 )
0012500 ) ) \r
0012520
0012540 ( B I T B L
0012560 T C U R S O R C O V E R E D I
0012600 M A G E 0 0 S T R E A M
0012620 C U R L F T C U R B T M ) \r
0012640
*
0012700 ( S E T Q C U R S
0012720 O R U P N I L ) ) ) \r
0012740
0012760 (
0013000 C O N D \r
0013020
0013040 ( ( O R
0013060 ( > T H I S W I D T H S C R
0013100 A T C H X ) \r
0013120
*
0013160 ( > T H I S H E I G H T
0013200 S C R A T C H Y ) ) \r
0013220
*
0013300 006 003 ( * ; ;
0013320 \r 006 001
0013340
*
0013420 006 003 " m a k e s u r e s c r
0013440 a t c h b i t m a p i s b
0013460 i g e n o u g h " ) 006 001 \r
0013500
*
0013540 ( S E T Q S C R A T
0013560 C H ( B I T M A P C R E A T E
0013600 ( S E T Q S C R A T C H X
0013620 ( M A X S C R A T C H X \r
0013640
*
0013760 T H I S W I D T H )
0014000 ) \r
0014020
*
0014060 ( S
0014100 E T Q S C R A T C H Y ( M A
0014120 X S C R A T C H Y T H I S H
0014140 E I G H T ) ) \r
0014160
*
0014240 ) ) ) ) \r
0014260
0014300 ( 006 002 P
0014320 A C K E T T O B M 006 001 B B T
0014340 ( 006 002 f e t c h 006 001 ( C O M M
0014360 . X F E R . P A C K E T B I T
0014400 S ) 006 002 o f 006 001 P A C K E T
0014420 ) \r
0014440
0014460 T H I S
0014500 W I D T H T H I S H E I G H T
0014520 S C R A T C H 0 0 S P R
0014540 E A D ) \r
0014560
0014600 ( B I T B L T
0014620 S C R A T C H 0 0 W I N D
0014640 O W X Y T H I S W I D T H
0014660 T H I S H E I G H T ) ) \r
0014700
0014720 ( C O M
0014740 M . S H U T . D O W N . P A C K
0014760 E T . T Y P E 006 003 ( *
0015000 ; ; " S h u t d o w n t h
0015020 e l i s t e n e r " ) 006 001 \r
0015040
*
0015100 ( C L O S E W W I N D O W
0015120 ) \r
0015140
0015160 ( R E T U R N ) ) \r
0015200
0015220 ( P R
0015240 I N T O U T P R O M P T W I N
0015260 D O W " O d d p a c k e t "
0015300 ( 006 002 f e t c h 006 001 ( C O M
0015320 M . X F E R . P A C K E T \r
0015340
*
0015440 P
0015460 A C K E T - T Y P E ) \r
0015500
*
0015600 006 002 o f 006 001 P A C K E T ) )
0015620 ) \r
0015640 ( S E T
0015660 Q S E E N X ( 006 002 f e t c h
0015700 006 001 ( C O M M . X F E R . P A
0015720 C K E T C U R S O R X ) 006 002
0015740 o f 006 001 P A C K E T ) ) \r
0015760
0016000 ( S E T Q S E
0016020 E N Y ( 006 002 f e t c h 006 001 (
0016040 C O M M . X F E R . P A C K E T
0016060 C U R S O R Y ) 006 002 o f 006 001
0016100 P A C K E T ) ) \r
0016120
0016140 ( R E L E A S E . X I P
0016160 P A C K E T ) \r
0016200
0016220 ( C O N D \r
0016240
0016260 ( ( A N D ( K E Y
0016300 D O W N P ' L S H I F T ) \r
0016320
*
0016360 ( < = 0 ( S E T Q X
0016400 ( L A S T M O U S E X W I N D
0016420 O W ) ) \r
0016440
0016460 ( W I N D O W
0016500 P R O P W I N D O W ' W I D
0016520 T H ) ) \r
0016540
0016560 ( < = 0 ( S
0016600 E T Q Y ( L A S T M O U S E
0016620 Y W I N D O W ) ) \r
0016640
0016660 (
0016700 W I N D O W P R O P W I N D O
0016720 W ' H E I G H T ) ) ) \r
0016740
*
0017020 006 003 ( * ;
0017040 ; \r 006 001
0017060
*
0017140 006 003 " T e l l t h e s e
0017160 n d e r t o t r a c k o u
0017200 r c u r s o r . " ) 006 001 \r
0017220
0017240 ( S E T
0017260 Q C P ( \ F I L L I N X I P
0017300 \ X I P T . E X C H A N G E
0017320 R E C E I V E - S O C K E T \r
0017340
*
0017400 ( 006 002
0017420 f e t c h 006 001 X I P S O U R C
0017440 E H O S T 006 002 o f 006 001 P A C
0017460 K E T ) \r
0017500
*
0017540 ( 006 002 f e t c h 006 001 X I
0017560 P S O U R C E S O C K E T 006 002
0017600 o f 006 001 P A C K E T ) \r
0017620
*
0017660 ( 006 002 f e
0017700 t c h 006 001 X I P S O U R C E N
0017720 E T 006 002 o f 006 001 P A C K E T
0017740 ) \r
0017760
*
0020020 N I L ) ) 006
0020040 003 ( * ; \r 006 001
0020060
*
0020120 006 003 " s e n d m o r e t
0020140 h a n w e n e e d j u s t
0020160 t o s e e i f i t f i
0020200 x e s t h e p r o b l e m "
0020220 ) 006 001 \r
0020240
0020260 ( X I P A P P E N D . W O R
0020300 D C P 0 ) \r
0020320
0020340 ( X I P A P P E N D
0020360 . W O R D C P C O M M . C U
0020400 R S O R . P A C K E T . T Y P E
0020420 ) \r
0020440
*
0020500 006
0020520 003 ( * ; " t u r n i n t o
0020540 a c u r s o r a c k " ) 006
0020560 001 \r
0020600
0020620 ( X I P A P P E N D . W O R D
0020640 C P X ) \r
0020660
0020700 ( X I P A P P E N D . W
0020720 O R D C P Y ) \r
0020740
0020760 ( C L : A S S E
0021000 R T ( A N D ( = ( 006 002 f e
0021020 t c h 006 001 ( C O M M . X F E R
0021040 . P A C K E T P A C K E T - T
0021060 Y P E ) 006 002 o f 006 001 C P ) \r
0021100
*
0021160 C O M M . C U R S O R . P A C
0021200 K E T . T Y P E ) \r
0021220
*
0021260 ( = ( 006 002 f e
0021300 t c h 006 001 ( C O M M . X F E R
0021320 . P A C K E T C U R S O R X )
0021340 \r
0021360
*
0021420 C P ) \r
0021440
*
0021500 X )
0021520 \r
0021540
0021560 (
0021600 = ( 006 002 f e t c h 006 001 ( C O
0021620 M M . X F E R . P A C K E T C
0021640 U R S O R Y ) \r
0021660
*
0021740 C P ) \r
0021760
*
0022020 Y ) ) ) \r
0022040
0022060 ( 006 002 r e p l a
0022100 c e 006 001 ( E T H E R P A C K E
0022120 T E P R E Q U E U E ) 006 002 o
0022140 f 006 001 C P 006 002 w i t h 006 001
0022160 ' F R E E ) \r
0022200
0022220 ( S E N D X I P R E
0022240 C E I V E - S O C K E T C P )
0022260 \r
0022300 (
0022320 S E T Q T R A C K I N G - C U
0022340 R S O R ? T ) \r
0022360
0022400 ( B L O C K ) ) \r
0022420
0022440 ( T R
0022460 A C K I N G - C U R S O R ?
0022500 006 003 (
0022520 * ; ; \r 006 001
0022540 006 003 " L a s t
0022560 p a s s w e w e r e t r a
0022600 c k i n g t h e c u r s o r
0022620 , b u t w e a r e n ' t
0022640 n o w . T e l l t h e s
0022660 e n d e r t o s t o p . " )
0022700 006 001 \r
0022720
0022740 ( S E T Q C P
0022760 ( \ F I L L I N X I P \ X I P
0023000 T . E X C H A N G E R E C E I
0023020 V E - S O C K E T \r
0023040
*
0023100 ( 006
0023120 002 f e t c h 006 001 X I P S O U R
0023140 C E H O S T 006 002 o f 006 001 P A
0023160 C K E T ) \r
0023200
*
0023240 ( 006 002 f e t
0023260 c h 006 001 X I P S O U R C E S O
0023300 C K E T 006 002 o f 006 001 P A C K
0023320 E T ) \r
0023340
*
0023400 ( 006 002 f e t c h
0023420 006 001 X I P S O U R C E N E T
0023440 006 002 o f 006 001 P A C K E T ) \r
0023460
*
0023540 N I L ) ) \r
0023560
0023600 ( X I
0023620 P A P P E N D . W O R D C P
0023640 0 ) \r
0023660
0023700 ( X I P A P P E N
0023720 D . W O R D C P C O M M . C
0023740 U R S O R . C L O S E . P A C K
0023760 E T . T Y P E ) \r
0024000
0024020 ( 006 002
0024040 r e p l a c e 006 001 ( E T H E R
0024060 P A C K E T E P R E Q U E U E
0024100 ) 006 002 o f 006 001 C P 006 002 w i
0024120 t h 006 001 ' F R E E ) \r
0024140
*
0024200 ( S E N D X I P R E C E I V E
0024220 - S O C K E T C P ) \r
0024240
*
0024300 ( S E T Q T R A C K I N G - C
0024320 U R S O R ? N I L ) ) ) \r
0024340
0024360 ( S E T Q X
0024400 ( D I F F E R E N C E S E E N
0024420 X ( 006 002 f e t c h 006 001 C U H
0024440 O T S P O T X D E F A U L T C
0024460 U R S O R ) ) ) \r
0024500
0024520 ( S E T Q Y ( D I F F
0024540 E R E N C E S E E N Y ( 006 002
0024560 f e t c h 006 001 C U H O T S P O
0024600 T Y D E F A U L T C U R S O R
0024620 ) ) ) \r
0024640 ( C
0024660 O N D \r
0024700
0024720 ( ( A N D C U R S O R U P
0024740 ( O R ( N E Q X C U R L F
0024760 T ) \r
0025000
*
0025040 ( N E Q Y C U R B T M
0025060 ) ) ) \r
0025100
0025120 ( B I T B L T C U R S O R
0025140 C O V E R E D I M A G E 0 0
0025160 S T R E A M C U R L F T C
0025200 U R B T M ) \r
0025220
0025240 ( S E T Q C U R S O
0025260 R U P N I L ) ) ) \r
0025300
0025320 ( C O N D \r
0025340
0025360 ( ( A N D ( N
0025400 U L L C U R S O R U P ) \r
0025420
*
0025460 ( < = 0 S E E N X ( W I
0025500 N D O W P R O P W I N D O W
0025520 ' W I D T H ) ) \r
0025540
0025560 ( < =
0025600 0 S E E N Y ( W I N D O W P
0025620 R O P W I N D O W ' H E I G
0025640 H T ) ) ) \r
0025660
*
0025740 006 003 ( * ; " p u t c
0025760 u r s o r u p " ) 006 001 \r
0026000
0026020 ( S E T Q
0026040 C U R L F T X ) \r
0026060
0026100 ( S E T Q C
0026120 U R B T M Y ) \r
0026140
0026160 ( B I T B L T S
0026200 T R E A M C U R L F T C U R
0026220 B T M C U R S O R C O V E R E
0026240 D I M A G E 0 0 1 6 1 6
0026260 ) \r
0026300
0026320 ( B I T B L T ( 006 002 f e t c h
0026340 006 001 C U I M A G E D E F A U
0026360 L T C U R S O R ) \r
0026400
0026420 0
0026440 0 S T R E A M C U R L F T
0026460 C U R B T M N I L N I L
0026500 ' I N P U T ' P A I N T ) \r
0026520
0026540 ( S E
0026560 T Q C U R S O R U P T ) ) )
0026600 ) ) ) ) ) ) ) \r \r ( 006 004 S T A R
0026620 T - G E T - B I T S 006 001 \r [
0026640 L A M B D A ( D U M M Y - S T
0026660 R E A M D U M M Y - P R O G R
0026700 A M D U M M Y - P R O G R A M
0026720 R E G I O N R E M O T E - U
0026740 S E R ) 006 006 006 001 \r
0026760
*
0027040 006 006 ( * ; " E d i t e
0027060 d 2 - A p r - 8 7 1 6 : 3
0027100 2 b y M a s i n t e r " ) 006
0027120 001 \r ( L E T ( ( N S
0027140 ( O P E N N S O C K E T ) ) \r
0027160 ( B O R D E R
0027200 S I Z E 8 ) ) \r
0027220 [ A D D . P R O C E S S (
0027240 L I S T ' G E T - B I T S N
0027260 S ( L I S T ' Q U O T E (
0027300 C R E A T E W ( 006 002 w i t h 006
0027320 001 R E G I O N R E G I O N \r
0027340
*
0027440 ( C R E A T E R E G I
0027460 O N ( D I F F E R E N C E L
0027500 E F T \r
0027520
*
0027620 B
0027640 O R D E R S I Z E ) \r
0027660
*
0027760 ( D I F F E R E N
0030000 C E B O T T O M \r
0030020
*
0030120 B O
0030140 R D E R S I Z E ) \r
0030160
*
0030260 ( W I D T H I F W I
0030300 N D O W W I D T H \r
0030320
*
0030420 B
0030440 O R D E R S I Z E ) \r
0030460
*
0030560 ( H E I G H T I F
0030600 W I N D O W H E I G H T T
0030620 \r
0030640
*
0030740 B O R D E R S I Z E ) )
0030760 ) \r
0031000
*
0031040 (
0031060 C O N C A T " V i e w i n g
0031100 r e g i o n o f " R E M O
0031120 T E - U S E R \r
0031140
*
0031220 " ' s
0031240 d i s p l a y " ) \r
0031260
*
0031340 B O R D E R S I
0031360 Z E ] \r ( L I
0031400 S T ' R E T U R N ( L I S T
0031420 ( N S O C K E T N U M B E R
0031440 N S ) \r
0031460
0031500 ( U S E R N A M E ] ) \r ) \r (
0031520 F I L E S L O A D C O U R I E
0031540 R S E R V E ) \r \r \r \r 006 004 ( *
0031560 ; ; ; " S e n d e r e n d "
0031600 ) 006 001 \r \r ( D E F I N E Q \r \r (
0031620 006 004 S E N D - B I T S 006 001 \r
0031640 [ L A M B D A ( P A R T N E R
0031660 F R A M E ) 006 006 006 001
0031700
0031720 006 006 ( *
0031740 ; " E d i t e d 2 - A p
0031760 r - 8 7 1 6 : 5 1 b y M a
0032000 s i n t e r " ) 006 001 \r
0032020
*
0032100 006 006 ( * ; \r
0032120 006 001
0032140 006 006 " p r o c e s s t h a t
0032160 m o n i t o r s t h e b i t
0032200 s t h a t a r e i n t h
0032220 e F R A M E r e g i o n a
0032240 n d s e n d t h e m t o
0032260 R E C A D D R . " ) 006 001 \r
0032300 ( O R C U R S O R I C O N
0032320 ( S E T Q C U R S O R I C O N
0032340 ( I C O N W R E M O T E - C
0032360 U R S O R R E M O T E - C U R
0032400 S O R ' ( 0 . 0 ) T ) )
0032420 ) \r ( R E S E T L S T
0032440 [ C L : U N L E S S F R A M E
0032460 ( S E T Q F R A M E ( 006 002
0032500 M A K E - F R A M E 006 001 ( G E
0032520 T R E G I O N ) ) ) \r
0032540
0032560 ( R E S E T S A V E N I L `
0032600 ( C L O S E - F R A M E , F R
0032620 A M E ] \r
0032640 ( L E T * ( ( S E N D S O C K
0032660 E T ( O P E N N S O C K E T )
0032700 ) \r
0032720 [ P A R T N E R A D D R
0032740 E S S ( C O N D \r
0032760
0033000 (
0033020 ( T Y P E N A M E P P A R T N
0033040 E R ' N S A D D R E S S ) \r
0033060
*
0033120 P A R T N E R ) \r
0033140
*
0033200 ( T ( L O O K U P . N S
0033220 . S E R V E R P A R T N E R ]
0033240 \r
0033260 ( P A R T N E R H O S T
0033300 ( 006 002 f e t c h 006 001 N S H O S
0033320 T N U M B E R P A R T N E R A
0033340 D D R E S S ) ) \r
0033360 ( P A R T
0033400 N E R N E T ( 006 002 f e t c h 006
0033420 001 N S N E T P A R T N E R A
0033440 D D R E S S ) ) \r
0033460 ( P A R T
0033500 N E R C A L L ( C O U R I E R
0033520 . O P E N P A R T N E R A D D
0033540 R E S S ) ) \r
0033560 ( P A C K E T
0033600 N I L ) \r
0033620 ( V I E W E R -
0033640 R E T U R N E D - V A L U E (
0033660 C O U R I E R . C A L L P A R
0033700 T N E R C A L L ' C O M M W I
0033720 N D O W ' S T A R T - G E T -
0033740 B I T S \r
0033760
*
0034020 ( W I N D O W P R O P
0034040 ( C A R F R A M E ) \r
0034060
*
0034140 ' F R A M E - R E G I O
0034160 N ) \r
0034200
*
0034240 ( U S E R N A M E ) ) ) \r
0034260
0034300 ( P A R T N E R S O C K E T
0034320 ( C A R V I E W E R - R E T
0034340 U R N E D - V A L U E ) ) \r
0034360
0034400 ( P A R T N E R U S E R N A M E
0034420 ( C A D R V I E W E R - R E
0034440 T U R N E D - V A L U E ) ) \r
0034460
0034500 ( B B T ( 006 002 c r e a t e 006
0034520 001 P I L O T B B T ) ) ) \r
0034540 (
0034560 R E S E T S A V E N I L ( L
0034600 I S T ' C L O S E N S O C K E
0034620 T S E N D S O C K E T ) ) \r
0034640
0034660 ( C L O S E F P A R T N E R C
0034700 A L L )
0034720 006 006 ( *
0034740 ; \r 006 001
0034760
*
0035040 006 006 " c l o s e S P P c
0035060 o n n e c t i o n , n e e d s
0035100 n o m o r e R P C " ) 006 001
0035120 \r
0035140 ( D I S C A R D X I P S S
0035160 E N D S O C K E T ) \r
0035200 ( R E S
0035220 E T S A V E N I L ( L I S T
0035240 ' S H U T - D O W N - V I E W
0035260 E R S E N D S O C K E T P A
0035300 R T N E R H O S T P A R T N E
0035320 R N E T \r
0035340
0035360 P A R T
0035400 N E R S O C K E T ) ) \r
0035420 ( 006 002
0035440 S E T - F R A M E - T I T L E 006
0035460 001 F R A M E ( C O N C A T
0035500 " D i s p l a y i n g r e g i
0035520 o n o n " P A R T N E R U
0035540 S E R N A M E " ' s d i s p
0035560 l a y " ) \r
0035600 ) \r
0035620
0035640 ( 006 002 w h i l e 006 001 T \r
0035660
0035700 006 002 d o 006 001 ( D E S T R U
0035720 C T U R I N G - B I N D ( L
0035740 B W H ) \r
0035760
0036000 ( W I N D O W P R O P
0036020 ( C A R F R A M E ) \r
0036040
*
0036100 ' F R A M E - R E G I O N )
0036120 \r
0036140 (
0036160 M A P C F R A M E ( F U N C
0036200 T I O N T O T O P W ) ) \r
0036220
0036240 ( 006 002 M
0036260 A P T I L E S 006 001 M A X - P A
0036300 C K E T - B I T S W H L
0036320 B \r
0036340
0036360 ( F U N C T I O N
0036400 ( L A M B D A ( X Y T H
0036420 I S - W I D T H T H I S - H E
0036440 I G H T S P R E A D ) \r
0036460
*
0036520 ( 006
0036540 002 L I S T E N - T O - V I E W E
0036560 R 006 001 S E N D S O C K E T L
0036600 B ) \r
0036620
*
0036660 ( 006 002 S E N D - T I L
0036700 E 006 001 X Y L B T H I S
0036720 - W I D T H T H I S - H E I G
0036740 H T S P R E A D \r
0036760
*
0037040 S E N D S O C K E T P A
0037060 R T N E R H O S T P A R T N E
0037100 R N E T \r
0037120
*
0037160 P A
0037200 R T N E R S O C K E T P A C K
0037220 E T ] ) \r \r ( 006 004 S E N D - T I
0037240 L E 006 001 \r ( L A M B D A (
0037260 X Y F R A M E - L E F T F
0037300 R A M E - B O T T O M T H I S
0037320 - W I D T H T H I S - H E I G
0037340 H T S P R E A D S E N D S O
0037360 C K E T P A R T N E R H O S T
0037400 \r P
0037420 A R T N E R N E T P A R T N E
0037440 R S O C K E T P A C K E T ) 006
0037460 003 006 001
0037500 006 003 ( * ; " E d i t e
0037520 d 2 4 - N o v - 8 6 1 4 : 4
0037540 5 b y s m L " ) 006 001 \r
0037560
*
0037640 006 003 ( * ;
0037660 ; ; " S e n d a t i l e
0037700 t o t h e r e c e i v e r "
0037720 ) 006 001 \r ( S E T Q P A
0037740 C K E T ( \ F I L L I N X I P
0037760 \ X I P T . E X C H A N G E
0040000 S E N D S O C K E T P A R T N
0040020 E R H O S T P A R T N E R S O
0040040 C K E T P A R T N E R N E T )
0040060 ) \r ( 006 002 r e p l a c e
0040100 006 001 E P R E Q U E U E 006 002 o
0040120 f 006 001 P A C K E T 006 002 w i t
0040140 h 006 001 ' F R E E ) \r (
0040160 X I P A P P E N D . W O R D P
0040200 A C K E T ( O R S P R E A D
0040220 ( S E T Q S P R E A D 0 )
0040240 ) ) \r ( X I P A P P E N
0040260 D . W O R D P A C K E T C O
0040300 M M . B A N D . P A C K E T . T
0040320 Y P E )
0040340 006 003 ( * ; ; \r 006 001
0040360
*
0040420 006 003 " R e s e r v e s
0040440 p a c e f o r t h e c u r
0040460 s o r p o s , t o b e f
0040500 i l l e d i n l a t e r o
0040520 n " ) 006 001 \r ( X I P A P
0040540 P E N D . W O R D P A C K E T
0040560 0 ) \r ( X I P A P P E
0040600 N D . W O R D P A C K E T 0
0040620 ) \r ( X I P A P P E N D
0040640 . W O R D P A C K E T X ) \r
0040660 ( X I P A P P E N D . W
0040700 O R D P A C K E T Y ) \r
0040720 ( X I P A P P E N D . W O R
0040740 D P A C K E T T H I S - W I
0040760 D T H ) \r ( X I P A P P
0041000 E N D . W O R D P A C K E T
0041020 T H I S - H E I G H T ) \r
0041040 ( 006 002 B M T O P A C K E T 006 001
0041060 N I L ( S C R E E N B I T M
0041100 A P ) \r (
0041120 + F R A M E - L E F T X ) \r
0041140 ( + F R
0041160 A M E - B O T T O M Y ) \r
0041200 T H I S - W I
0041220 D T H T H I S - H E I G H T
0041240 ( 006 002 f e t c h 006 001 ( C O M M
0041260 . X F E R . P A C K E T B I T
0041300 S ) 006 002 o f 006 001 P A C K E T
0041320 ) \r S P R
0041340 E A D ) \r ( 006 002 a d d 006
0041360 001 ( 006 002 f e t c h 006 001 X I P
0041400 L E N G T H P A C K E T ) \r
0041420 ( I Q U O T I E
0041440 N T ( + 7 ( T I M E S T
0041460 H I S - W I D T H T H I S - H
0041500 E I G H T ) ) \r
0041520 8 ) ) \r
0041540 ( C L : A S S E R T ( 006 002 w i
0041560 t h 006 001 C O M M . X F E R . P
0041600 A C K E T P A C K E T ( A N
0041620 D ( E Q D A T A X X ) \r
0041640
*
0041720 ( E Q D A T A Y Y ) \r
0041740
*
0042020 ( E Q T H I S W I D T H T H
0042040 I S - W I D T H ) \r
0042060
*
0042120 ( E Q
0042140 T H I S H E I G H T T H I S -
0042160 H E I G H T ) ) ) ) \r (
0042200 006 002 i f 006 001 ( O R C O M M .
0042220 S E N D . U N C H A N G E D . T
0042240 I L E S ( N O T ( 006 002 P A C
0042260 K E T - E Q U A L 006 001 P A C K
0042300 E T ( 006 002 G E T - C A C H E D
0042320 - P A C K E T 006 001 X Y P A
0042340 R T N E R H O S T \r
0042360
*
0042460 P A R T N E R N E T P A R
0042500 T N E R S O C K E T ) ) ) ) \r
0042520 006 002 t h e n 006 001
0042540 ( 006 002 P U T - C A C H E D - P A
0042560 C K E T 006 001 P A C K E T X
0042600 Y P A R T N E R H O S T P A
0042620 R T N E R N E T P A R T N E R
0042640 S O C K E T ) \r 006 002
0042660 e l s e 006 001
0042700
*
0042740 006 003 ( * ; ;
0042760 \r 006 001
0043000
0043020 006 003 " T h e r e h a
0043040 s b e e n n o c h a n g e
0043060 i n t h e b i t s , s o
0043100 d o n ' t b o t h e r t o
0043120 s e n d t h e m " ) 006 001 \r
0043140 ( 006 002 r e p
0043160 l a c e 006 001 ( X I P X I P L
0043200 E N G T H ) 006 002 o f 006 001 P A
0043220 C K E T 006 002 w i t h 006 001 ( C
0043240 O N S T A N T ( P L U S \ X
0043260 I P O V L E N \r
0043300
*
0043360 ( T I M E
0043400 S 2 \r
0043420
*
0043500 ( I
0043520 N D E X F ( 006 002 F E T C H 006 001
0043540 ( \r
0043560
*
0043660 C O M M . X F E
0043700 R . P A C K E T \r
0043720
*
0044040 D A T A L O C ) \r
0044060
*
0044200 006 002 O F 006 001 T ) ) ) ) ) ) )
0044220 \r
0044240
*
0044300 006 003
0044320 ( * ; ; \r 006 001
0044340
*
0044420 006 003 " S e t i n t h e
0044440 c u r s o r p o s a n d
0044460 s e n d t h e p a c k e t "
0044500 ) 006 001 \r ( 006 002 r e p l a
0044520 c e 006 001 ( C O M M . X F E R .
0044540 P A C K E T C U R S O R X )
0044560 006 002 o f 006 001 P A C K E T 006 002
0044600 w i t h 006 001 ( L O G A N D (
0044620 - L A S T M O U S E X F R A
0044640 M E - L E F T ) \r
0044660
*
0044740 6 5 5 3 5 ) ) \r
0044760 ( 006 002 r e p l a c e 006 001
0045000 ( C O M M . X F E R . P A C K E
0045020 T C U R S O R Y ) 006 002 o f 006
0045040 001 P A C K E T 006 002 w i t h 006
0045060 001 ( L O G A N D ( - L A S
0045100 T M O U S E Y F R A M E - B O
0045120 T T O M ) \r
0045140
*
0045220 6 5 5 3 5 ) ) \r
0045240 ( S E N D X I P S E N D S O C
0045260 K E T P A C K E T ) \r
0045300 ( B L O C K ) ) ) \r \r ( 006 004 L I
0045320 S T E N - T O - V I E W E R 006 001
0045340 \r ( L A M B D A ( S E N D
0045360 S O C K E T F R A M E - L E F
0045400 T F R A M E - B O T T O M ) 006
0045420 003 006 001
0045440 006 003 ( * ; " E d i t e d
0045460 2 4 - N o v - 8 6 1 3 : 1 3
0045500 b y s m L " ) 006 001 \r
0045520
*
0045600 006 003 ( * ; ;
0045620 \r 006 001
0045640
*
0045700 006
0045720 003 " U p d a t e t h e d i s
0045740 p l a y o f t h e v i e w
0045760 e r s c u r s o r " ) 006 001 \r
0046000 ( 006 002 b i n d 006 001 C U R
0046020 S O R P A C K E T 006 002 w h i l
0046040 e 006 001 ( S E T Q C U R S O R
0046060 P A C K E T ( G E T X I P S
0046100 E N D S O C K E T 0 ) ) \r
0046120 006 002 d o 006 001
0046140
*
0046200 006
0046220 003 ( * ; " g o t a n a c
0046240 k " ) 006 001 \r
0046260 ( S E L E C T C ( 006 002 f e t c
0046300 h 006 001 ( C O M M . X F E R . P
0046320 A C K E T P A C K E T - T Y P
0046340 E ) \r
0046360 C U R
0046400 S O R P A C K E T ) \r
0046420 ( C O M M . C
0046440 U R S O R . P A C K E T . T Y P
0046460 E \r
0046500 ( M O V E W C U R
0046520 S O R I C O N ( + ( 006 002 f e
0046540 t c h 006 001 ( C O M M . X F E R
0046560 . P A C K E T C U R S O R X )
0046600 \r
0046620
*
0046660 C U R S O R P A C K E T ) \r
0046700
*
0046740 F R A M E - L E F T
0046760 ) \r
0047000 ( + (
0047020 006 002 f e t c h 006 001 ( C O M M .
0047040 X F E R . P A C K E T C U R S
0047060 O R Y ) \r
0047100
0047120 C U R S O R P
0047140 A C K E T ) \r
0047160
0047200 F R A M E - B O T T O M
0047220 ) ) \r
0047240 ( O P E N W C U R
0047260 S O R I C O N ) ) \r
0047300 ( C O M M . C U
0047320 R S O R . C L O S E . P A C K E
0047340 T . T Y P E
0047360 006 003 ( * ; ; \r
0047400 006 001
0047420
*
0047460 006
0047500 003 " S t o p s h a d o w i n g
0047520 t h e v i e w e r s c u r
0047540 s o r " ) 006 001 \r
0047560 ( 006 002 i f
0047600 006 001 ( O P E N W P C U R S O
0047620 R I C O N ) \r
0047640 006 002
0047660 t h e n 006 001 ( C L O S E W C
0047700 U R S O R I C O N ) ) ) \r
0047720 N I L ) )
0047740 ) ) \r \r ( 006 004 M A P T I L E S 006
0047760 001 \r ( L A M B D A ( M A X
0050000 B I T S W H L B F N )
0050020 006 003 006 001
0050040
0050060 006 003 ( * ; " E d i t e
0050100 d 2 4 - N o v - 8 6 1 7 : 4
0050120 2 b y s m L " ) 006 001 \r
0050140 ( L E T * ( ( S Q R T - B I
0050160 T S ( C L : I S Q R T M A X
0050200 B I T S ) ) \r
0050220 ( P A C K E T H E I G H T
0050240 N I L ) \r
0050260 ( P A C K E T W I D T H N I L
0050300 ) \r ( X M
0050320 A R G I N ( I Q U O T I E N T
0050340 S Q R T - B I T S 2 ) ) \r
0050360 ( Y M A R G
0050400 I N ( I Q U O T I E N T S Q
0050420 R T - B I T S 2 ) ) \r
0050440 ( X D 1 ) \r
0050460 ( Y D 1 ) \r
0050500 ( S P R E
0050520 A D N I L ) \r
0050540 ( M X L A S T M O U S E
0050560 X ) \r ( M
0050600 Y L A S T M O U S E Y ) \r
0050620 ( V I E W E R
0050640 - X - 1 0 0 ) \r
0050660 ( V I E W E R - Y - 1
0050700 0 0 ) ) \r (
0050720 C L : E C A S E C O M M . D E
0050740 F A U L T . T R A N S M I T . T
0050760 Y P E ( S Q U A R E ( S E T
0051000 Q P A C K E T H E I G H T S
0051020 Q R T - B I T S ) ) \r
0051040 ( R E C
0051060 T A N G L E ( S E T Q P A C
0051100 K E T W I D T H ( C L : * 2
0051120 S Q R T - B I T S ) ) ) \r
0051140 (
0051160 H O R I Z O N T A L ( S E T Q
0051200 P A C K E T W I D T H ( M I
0051220 N W M A X B I T S ) ) ) \r
0051240
0051260 ( V E R T I C A L ( S E T Q
0051300 P A C K E T H E I G H T ( M I
0051320 N H M A X B I T S ) ) ) \r
0051340
0051360 ( H 3 ( S E T Q P A C K E T
0051400 W I D T H ( M I N W M A X
0051420 B I T S ) ) \r
0051440 ( S E T
0051460 Q Y D 8 ) ) ) \r
0051500 ( O R P A C K E T W I
0051520 D T H ( S E T Q P A C K E T
0051540 W I D T H ( I Q U O T I E N T
0051560 M A X B I T S P A C K E T H
0051600 E I G H T ) ) ) \r
0051620 ( O R P A C K E T H E I
0051640 G H T ( S E T Q P A C K E T
0051660 H E I G H T ( I Q U O T I E N
0051700 T M A X B I T S P A C K E T
0051720 W I D T H ) ) ) \r
0051740 ( I N C R Y ( - H
0051760 P A C K E T H E I G H T ) \r
0052000 ( -
0052020 P A C K E T H E I G H T ) \r
0052040 Y
0052060 D \r
0052100 ( < Y ( - P A C K E T
0052120 H E I G H T ) ) \r
0052140 ( I N C R X
0052160 0 P A C K E T W I D T H X
0052200 D ( > = X W ) \r
0052220
0052240 ( S E L E C T Q C O M M . U
0052260 P D A T E . M O U S E . P O S I
0052300 T I O N \r
0052320 (
0052340 N I L
0052360
0052400 006 003 ( * ; ; " D o n ' t
0052420 d o a n y t h i n g s p e
0052440 c i a l " ) 006 001 \r
0052460
0052500 N I L ) \r
0052520
0052540 ( S e n d e r
0052560
0052600 006 003 ( * ;
0052620 ; \r 006 001
0052640 006 003 " U p d a t e a r o
0052660 u n d t h e s e n d e r ' s
0052700 c u r s o r ( t h i s m a
0052720 c h i n e i s t h e s e n
0052740 d e r ) i f t h e m o u s
0052760 e h a s m o v e d " ) 006 001 \r
0053000
*
0053040 ( 006 002 i f 006 001 ( O R ( N
0053060 E Q L A S T M O U S E X M X
0053100 ) \r
0053120
0053140 ( N E Q
0053160 L A S T M O U S E Y M Y ) )
0053200 \r
0053220
0053240 006 002 t h e n 006 001
0053260 ( S E T Q M X L A S T M O U
0053300 S E X ) \r
0053320
*
0053360 ( S E T Q M Y L A S T M O U
0053400 S E Y ) \r
0053420
*
0053460 ( L E T ( ( X ( - M X X
0053500 M A R G I N L ) ) \r
0053520
*
0053560 ( Y (
0053600 - M Y Y M A R G I N B ) )
0053620 ) \r
0053640
*
0053700 006
0053720 003 ( * ; ; \r 006 001
0053740
*
0054020 006 003 " X a n d
0054040 Y a r e n o w i n b l o
0054060 c k c o o r d i n a t e s "
0054100 ) 006 001 \r
0054120
*
0054160 ( C L : I F ( A N D
0054200 ( < = 0 X ( - W 1 ) )
0054220 \r
0054240
*
0054300 ( < =
0054320 0 Y ( - H 1 ) ) ) \r
0054340
*
0054420 ( C L : F U N C A L
0054440 L F N X Y ( M I N ( +
0054460 X M A R G I N X M A R G I N
0054500 ) \r
0054520
*
0054620 ( - W X ) ) \r
0054640
*
0054720 ( M I N ( +
0054740 Y M A R G I N Y M A R G I N )
0054760 \r
0055000
*
0055060 ( - H Y ) ) ) ) ) )
0055100 ) \r
0055120 ( V i e
0055140 w e r
0055160 006
0055200 003 ( * ; ; " U p d a t e a
0055220 r o u n d t h e v i e w e r
0055240 ' s c u r s o r ( t h e o
0055260 t h e r m a c h i n e i s
0055300 t h e v i e w e r ) i f t
0055320 h e c u r s o r i s i n
0055340 t h e f r a m e ( a n d h
0055360 e n c e o p e n f r a m e )
0055400 " ) 006 001 \r
0055420
0055440 ( L E T ( ( V I
0055460 E W E R S - R E G I O N ( W I
0055500 N D O W P R O P C U R S O R I
0055520 C O N ' R E G I O N ) ) ) \r
0055540
*
0055600 ( 006 002 i f 006 001 ( A
0055620 N D ( O P E N W P C U R S O
0055640 R I C O N ) \r
0055660
*
0055720 ( O R ( N E Q
0055740 ( 006 002 f e t c h 006 001 L E F T
0055760 006 002 o f 006 001 V I E W E R S - R
0056000 E G I O N ) \r
0056020
*
0056100 V I E W E R - X ) \r
0056120
*
0056160 ( N
0056200 E Q ( 006 002 f e t c h 006 001 B O
0056220 T T O M 006 002 o f 006 001 V I E W
0056240 E R S - R E G I O N ) \r
0056260
*
0056340 V I E W E R - Y ) ) )
0056360 \r
0056400
0056420 006 002 t h
0056440 e n 006 001 ( S E T Q V I E W E
0056460 R - X ( 006 002 f e t c h 006 001 L
0056500 E F T 006 002 o f 006 001 V I E W E
0056520 R S - R E G I O N ) ) \r
0056540
*
0056600 ( S E T
0056620 Q V I E W E R - Y ( 006 002 f e
0056640 t c h 006 001 B O T T O M 006 002 o
0056660 f 006 001 V I E W E R S - R E G I
0056700 O N ) ) \r
0056720
*
0056760 ( L E T ( ( X ( -
0057000 V I E W E R - X X M A R G I
0057020 N L ) ) \r
0057040
*
0057100 ( Y (
0057120 - V I E W E R - Y Y M A R G
0057140 I N B ) ) ) \r
0057160
*
0057240 006 003 ( * ; ; \r 006 001
0057260
*
0057340 006 003 "
0057360 X a n d Y a r e n o w
0057400 i n b l o c k c o o r d i n
0057420 a t e s " ) 006 001 \r
0057440
*
0057500 (
0057520 C L : I F ( A N D ( < = 0
0057540 X ( - W 1 ) ) \r
0057560
*
0057640 ( < =
0057660 0 Y ( - H 1 ) ) ) \r
0057700
*
0057760 ( C L : F
0060000 U N C A L L F N X Y \r
0060020
*
0060120 ( M I N ( + X M A R G I N
0060140 X M A R G I N ) \r
0060160
*
0060260 ( - W X ) ) \r
0060300
*
0060360 ( M
0060400 I N ( + Y M A R G I N Y M
0060420 A R G I N ) \r
0060440
*
0060520 (
0060540 - H Y ) ) ) ) ) ) ) ) \r
0060560
0060600 N I L ) \r
0060620
0060640 ( C L : F U N C A L L F
0060660 N ( M A X X 0 ) \r
0060700
0060720 ( M A X Y
0060740 0 ) \r
0060760
0061000 ( M I N P A C K E T W I D T H
0061020 ( - W X ) ) \r
0061040
0061060 ( M I N P A C K
0061100 E T H E I G H T ( - H Y )
0061120 ) ) ) ) ) ) ) \r \r ( 006 004 S H U T
0061140 - D O W N - V I E W E R 006 001 \r
0061160 ( L A M B D A ( S E N D S O
0061200 C K E T P A R T N E R H O S T
0061220 P A R T N E R N E T P A R T
0061240 N E R S O C K E T ) 006 003 006 001
0061260 006 003 ( * ; " E d i t e d 2
0061300 4 - N o v - 8 6 1 1 : 4 0 b
0061320 y s m L " ) 006 001 \r
0061340
*
0061420 006 003 ( * ; ; ;
0061440 \r 006 001
0061460
*
0061520 006
0061540 003 " S e n d a s h u t - d o
0061560 w n p a c k e t t o t h e
0061600 r e c e i v e r " ) 006 001 \r
0061620
*
0061700 006 003 ( *
0061720 ; ; \r 006 001
0061740 006 003 "
0061760 B e w a r e , t h i s m a y
0062000 f a i l o n a n o i s e
0062020 y l i n e , s o w e d o
0062040 i t t w i c e , j u s t
0062060 t o b e s a f e r . " ) 006 001
0062100 \r ( 006 002 t o 006 001 2 006
0062120 002 d o 006 001 ( L E T ( ( P A C
0062140 K E T ( \ F I L L I N X I P
0062160 \ X I P T . E X C H A N G E S
0062200 E N D S O C K E T P A R T N E
0062220 R H O S T P A R T N E R S O C
0062240 K E T P A R T N E R N E T \r
0062260
*
0062320 ) ) ) \r
0062340 ( 006 002 r e p l a c
0062360 e 006 001 E P R E Q U E U E 006 002
0062400 o f 006 001 P A C K E T 006 002 w i
0062420 t h 006 001 ' F R E E ) \r
0062440 ( X
0062460 I P A P P E N D . W O R D P A
0062500 C K E T 0 ) \r
0062520 ( X I P A P
0062540 P E N D . W O R D P A C K E T
0062560 C O M M . S H U T . D O W N .
0062600 P A C K E T . T Y P E ) \r
0062620 (
0062640 S E N D X I P S E N D S O C K
0062660 E T P A C K E T ) ) ) ) ) \r \r
0062700 ( 006 004 C H A N G E - S E N D E R
0062720 - U P D A T E - M O D E 006 001 \r
0062740 ( L A M B D A ( N E W - M O
0062760 D E ) 006 003 006 001
0063000
*
0063040 006 003 ( * ; " E d i t e d 2
0063060 4 - N o v - 8 6 1 2 : 4 9 b
0063100 y s m L " ) 006 001 \r ( S
0063120 E T Q C O M M . D E F A U L T
0063140 . T R A N S M I T . T Y P E N
0063160 E W - M O D E ) ) ) \r ) \r \r ( D
0063200 E F M A C R O 006 002 I N C R 006 001
0063220 ( V A R S T A R T H E I G
0063240 H T R E P E A T S U N T I L
0063260 & R E S T F O R M S ) \r
0063300 ` ( C L : D O ( ( R E P E A
0063320 T - C O U N T 0 ( + R E P
0063340 E A T - C O U N T 1 ) ) ) \r
0063360 ( ( > = R
0063400 E P E A T - C O U N T , R E P
0063420 E A T S ) ) \r
0063440 ( C L : D O [ ( , V A R
0063460 ( + , S T A R T ( C L : *
0063500 R E P E A T - C O U N T , H E
0063520 I G H T ) ) \r
0063540
0063560 ( + , V A R ( C L : * , R
0063600 E P E A T S , H E I G H T ] \r
0063620
0063640 ( , U N T I L ) \r
0063660 , @ F
0063700 O R M S ) ) ) \r \r \r ( D E F M A
0063720 C R O 006 002 \ P I L O T B I T B
0063740 L T 006 001 ( X C L - U S E R : :
0063760 T A B L E & O P T I O N A L
0064000 ( X C L - U S E R : : N 0 ) )
0064020 ( C L : A S S E R T ( E Q L
0064040 X C L - U S E R : : N 0 ) )
0064060 \r
0064100
*
0064160 ` ( ( O P C O D E S P
0064200 I L O T B I T B L T ) \r
0064220
*
0064320 , X C L - U S E R : : T A B L
0064340 E 0 ) ) \r \r \r \r \r 006 004 ( * ;
0064360 ; " C o n t r o l i n g u p
0064400 d a t e s c h e m e s " ) 006 001
0064420 \r \r \r ( R P A Q ? 006 002 C O M M
0064440 . D E F A U L T . T R A N S M I
0064460 T . T Y P E 006 001 ' S Q U A R E
0064500 ) \r \r ( R P A Q ? 006 002 C O M M
0064520 . S E N D . U N C H A N G E D .
0064540 T I L E S 006 001 T ) \r \r ( R P A
0064560 Q ? 006 002 C O M M . U P D A T E
0064600 . M O U S E . P O S I T I O N 006
0064620 001 ' S e n d e r ) \r ( D E C L
0064640 A R E % : D O E V A L @ C O M
0064660 P I L E D O N T C O P Y \r \r (
0064700 G L O B A L V A R S C O M M .
0064720 D E F A U L T . T R A N S M I T
0064740 . T Y P E C O M M . U P D A T
0064760 E . M O U S E . P O S I T I O N
0065000 C O M M . S E N D . U N C H A
0065020 N G E D . T I L E S ) \r ) \r \r \r
0065040 \r 006 004 ( * ; ; ; " P r u n i
0065060 n g o u t u n c h a n g e d
0065100 s c r e e n t i l e s " ) 006
0065120 001 \r \r ( D E F I N E Q \r \r ( 006 004
0065140 P A C K E T - E Q U A L 006 001 \r
0065160 ( L A M B D A ( P A C K E T
0065200 1 P A C K E T 2 ) 006 003 006 001
0065220
*
0065260 006 003 ( * ; " E d i t e d 2
0065300 4 - N o v - 8 6 1 4 : 3 6 b
0065320 y s m L " ) 006 001 \r
0065340
*
0065420 006 003 ( * ; ; \r
0065440 006 001
0065460
*
0065520 006 003 "
0065540 A r e t h e d a t a p a r
0065560 t s o f t w o p a c k e t
0065600 s e q u a l ? " ) 006 001 \r
0065620 ( A N D ( 006 002 t y p e ? 006 001
0065640 E T H E R P A C K E T P A C
0065660 K E T 1 ) \r (
0065700 006 002 t y p e ? 006 001 E T H E R P
0065720 A C K E T P A C K E T 2 ) \r
0065740 ( E Q ( 006 002 f
0065760 e t c h 006 001 ( X I P X I P L
0066000 E N G T H ) 006 002 o f 006 001 P A
0066020 C K E T 1 ) \r
0066040 ( 006 002 f e t c h 006 001 (
0066060 X I P X I P L E N G T H ) 006
0066100 002 o f 006 001 P A C K E T 2 ) ) \r
0066120 ( L E T ( (
0066140 D A T A - B Y T E S ( D I F F
0066160 E R E N C E ( 006 002 f e t c h 006
0066200 001 ( X I P X I P L E N G T H
0066220 ) 006 002 o f 006 001 P A C K E T 1
0066240 ) \r
0066260
0066300 \ X I P O V L E N ) ) )
0066320 \r (
0066340 A N D ( 006 002 f o r 006 001 I 006
0066360 002 f r o m 006 001 0 006 002 t o 006 001
0066400 ( L R S H D A T A - B Y T E
0066420 S 1 ) 006 002 b i n d 006 001 ( D
0066440 A T A 1 _ ( 006 002 f e t c h 006
0066460 001 ( C O M M . X F E R . P A C
0066500 K E T B I T S ) \r
0066520
*
0066620 006 002 o f 006 001 P A C K E T
0066640 1 ) ) \r
0066660
*
0066740 ( D A T A 2 _ ( 006 002 f e t
0066760 c h 006 001 ( C O M M . X F E R .
0067000 P A C K E T B I T S ) \r
0067020
*
0067120 006 002 o f 006 001 P A C
0067140 K E T 2 ) ) \r
0067160 006 002 a
0067200 l w a y s 006 001 ( E Q ( \ G E
0067220 T B A S E D A T A 1 I ) \r
0067240
*
0067300 ( \ G E T B A S E D A T A 2
0067320 I ) ) ) \r
0067340 ( O R ( Z E R
0067360 O P ( L O G A N D 1 D A T
0067400 A - B Y T E S ) ) \r
0067420
0067440 ( E Q ( \ G E T B A S E B Y
0067460 T E P A C K E T 1 ( S U B 1
0067500 ( 006 002 f e t c h 006 001 ( X I P
0067520 X I P L E N G T H ) 006 002 o f
0067540 006 001 P A C K E T 1 ) ) ) \r
0067560
0067600 ( \ G E T B A
0067620 S E B Y T E P A C K E T 2 (
0067640 S U B 1 ( 006 002 f e t c h 006 001
0067660 ( X I P X I P L E N G T H )
0067700 006 002 o f 006 001 P A C K E T 1 ) )
0067720 ) ) ) ) ) ) ) ) \r \r ( 006 004 G E T
0067740 - C A C H E D - P A C K E T 006 001
0067760 \r ( L A M B D A ( X Y
0070000 P A R T N E R H O S T P A R T
0070020 N E R N E T P A R T N E R S O
0070040 C K E T ) 006 003 006 001
0070060 006 003 ( * ; " E d i t e d
0070100 2 4 - N o v - 8 6 1 4 : 4 1
0070120 b y s m L " ) 006 001 \r
0070140
*
0070220 006 003 ( * ; ;
0070240 " M a k e s u r e t h e
0070260 c u r s o r p o s i n t h
0070300 e p a c k e t i s s m a s
0070320 h e d t o z e r o , a n d
0070340 t h a t t h e p a c k e t
0070360 h a s a c t u a l l y b e
0070400 e n s e n t " ) 006 001 \r
0070420 N I L ) ) \r \r ( 006 004 P U T - C A
0070440 C H E D - P A C K E T 006 001 \r
0070460 ( L A M B D A ( P A C K E T
0070500 X Y P A R T N E R H O S T
0070520 P A R T N E R N E T P A R T N
0070540 E R S O C K E T ) 006 003 006 001 006
0070560 003 ( * ; " E d i t e d 2 4
0070600 - N o v - 8 6 1 3 : 2 8 b y
0070620 s m L " ) 006 001 \r T ) )
0070640 \r ) \r \r \r \r 006 004 ( * ; ; ; "
0070660 L o w l e v e l p a c k e t
0070700 e x c h a n g e c o d e " )
0070720 006 001 \r \r ( D E C L A R E % : E
0070740 V A L @ C O M P I L E \r \r ( R
0070760 P A Q Q 006 002 C O M M . B A N D
0071000 . P A C K E T . T Y P E 006 001 1
0071020 3 2 1 ) \r \r ( R P A Q Q 006 002 C
0071040 O M M . C U R S O R . P A C K E
0071060 T . T Y P E 006 001 2 9 2 5 ) \r \r
0071100 ( R P A Q Q 006 002 C O M M . C U
0071120 R S O R . C L O S E . P A C K E
0071140 T . T Y P E 006 001 2 9 2 6 ) \r \r
0071160 ( R P A Q Q 006 002 C O M M . S H
0071200 U T . D O W N . P A C K E T . T
0071220 Y P E 006 001 4 2 4 6 ) \r \r ( C O
0071240 N S T A N T S C O M M . B A N
0071260 D . P A C K E T . T Y P E C O
0071300 M M . C U R S O R . P A C K E T
0071320 . T Y P E C O M M . C U R S O
0071340 R . C L O S E . P A C K E T . T
0071360 Y P E \r C O M M
0071400 . S H U T . D O W N . P A C K E
0071420 T . T Y P E ) \r ) \r \r ( C L : D
0071440 E F C O N S T A N T 006 002 M A X
0071460 - P A C K E T - B I T S 006 001 (
0071500 C L : * 4 0 0 8 ) ) \r \r (
0071520 D E C L A R E % : E V A L @ C
0071540 O M P I L E \r \r ( A C C E S S F
0071560 N S 006 002 C O M M . X F E R . P
0071600 A C K E T 006 001 ( ( C O M M P A
0071620 C K E T ( 006 002 f e t c h 006 001
0071640 ( X I P X I P C O N T E N T S
0071660 ) 006 002 o f 006 001 D A T U M ) )
0071700 ) \r
0071720 ( B
0071740 L O C K R E C O R D C O M M P
0071760 A C K E T ( ( S P R E A D W
0072000 O R D ) \r
0072020
*
0072060 ( P A C K E
0072100 T - T Y P E W O R D ) \r
0072120
*
0072200 ( C U R S O R X W O R D )
0072220 \r
0072240
*
0072300 ( C U R S O R Y W
0072320 O R D ) \r
0072340
*
0072400 ( D A T A X
0072420 W O R D ) \r
0072440
*
0072500 ( D A T
0072520 A Y W O R D ) \r
0072540
*
0072600 ( T
0072620 H I S W I D T H W O R D ) \r
0072640
*
0072720 ( T H I S H E I G H T
0072740 W O R D ) \r
0072760
*
0073020 ( D A T A
0073040 L O C 6 4 W O R D ) ) ) \r
0073060
0073100 [ A C C E
0073120 S S F N S C O M M . X F E R .
0073140 P A C K E T ( ( B I T S ( L
0073160 O C F ( 006 002 F E T C H 006 001 (
0073200 C O M M . X F E R . P A C K E T
0073220 D A T A L O C \r
0073240
*
0073340 ) 006 002
0073360 O F 006 001 D A T U M ] ) \r ) \r \r
0073400 \r \r 006 004 ( * ; ; ; " P a c k
0073420 i n g a n d u n p a c k i n
0073440 g b i t m a p s i n t o e
0073460 t h e r p a c k e t s " ) 006 001 \r
0073500 \r ( D E F I N E Q \r \r ( 006 004 B M
0073520 T O P A C K E T 006 001 \r ( L A
0073540 M B D A ( B B T S O U R C E
0073560 B I T M A P S O U R C E L E F
0073600 T S O U R C E B O T T O M W
0073620 I D T H H E I G H T P A C K
0073640 E T L O C S P R E A D ) 006 003 006
0073660 001 \r
0073700
*
0073740 006
0073760 003 ( * ; " E d i t e d 2 4
0074000 - N o v - 8 6 1 0 : 4 8 b y
0074020 s m L " ) 006 001 \r
0074040
*
0074120 006 003 ( * ; ; " c
0074140 o p y b i t m a p t o p a
0074160 c k e t " ) 006 001 \r ( C L
0074200 : A S S E R T ( A N D ( B I
0074220 T M A P P S O U R C E B I T M
0074240 A P ) \r
0074260 ( < = 0 S O
0074300 U R C E L E F T ( - ( B I T
0074320 M A P W I D T H S O U R C E B
0074340 I T M A P ) \r
0074360
0074400 W
0074420 I D T H 1 ) ) \r
0074440 ( < =
0074460 0 S O U R C E B O T T O M
0074500 ( - ( B I T M A P H E I G H T
0074520 S O U R C E B I T M A P ) \r
0074540
*
0074600 H E I G H T
0074620 1 ) ) \r
0074640 ( < 0 W I D
0074660 T H ) \r
0074700 ( < 0 H E I
0074720 G H T ) ) ) \r ( \ P I L
0074740 O T B I T B L T ( 006 002 c r e a
0074760 t e 006 001 P I L O T B B T \r
0075000
0075020 006 002 s m a s h i n g 006 001
0075040 ( O R B B T ( 006 002 c r e a t
0075060 e 006 001 P I L O T B B T ) ) \r
0075100
0075120 P B T W I D
0075140 T H _ W I D T H P B T H E
0075160 I G H T _ H E I G H T P B
0075200 T F L A G S _ 0 P B T D E
0075220 S T B P L _ W I D T H \r
0075240
0075260 P B T D E S
0075300 T B I T _ 0 P B T U S E G
0075320 R A Y _ N I L P B T S O U
0075340 R C E B P L _ ( C L : * (
0075360 006 002 f e t c h 006 001 ( B I T M A
0075400 P \r
0075420
*
0075520 B I T M A P R A S
0075540 T E R W I D T H \r
0075560
*
0075700 ) \r
0075720
*
0076020 006 002 o f
0076040 006 001 S O U R C E B I T M A P )
0076060 \r
0076100
*
0076200 1 6 \r
0076220
*
0076320 ( + S P R E A D 1 )
0076340 ) \r
0076360 P B T
0076400 S O U R C E B I T _ S O U R
0076420 C E L E F T P B T D I S J O I
0076440 N T _ T P B T S O U R C E
0076460 _ \r
0076500 ( \
0076520 A D D B A S E ( 006 002 f e t c h
0076540 006 001 ( B I T M A P B I T M A
0076560 P B A S E ) 006 002 o f 006 001 S O
0076600 U R C E B I T M A P ) \r
0076620
0076640 ( C
0076660 L : * ( 006 002 f e t c h 006 001 (
0076700 B I T M A P B I T M A P R A S
0076720 T E R W I D T H ) 006 002 o f 006 001
0076740 S O U R C E B I T M A P ) \r
0076760
*
0077020 ( - ( 006 002 f e t
0077040 c h 006 001 ( B I T M A P B I T
0077060 M A P H E I G H T ) 006 002 o f 006
0077100 001 S O U R C E B I T M A P ) \r
0077120
*
0077160 H E I G H
0077200 T S O U R C E B O T T O M ) )
0077220 ) \r
0077240 P B T
0077260 D E S T _ P A C K E T L O C
0077300 P B T O P E R A T I O N _
0077320 0 P B T S O U R C E T Y P E
0077340 _ 0 ) \r
0077360 0 ) ) ) \r \r ( 006 004 P A C K E T T
0077400 O B M 006 001 \r ( L A M B D A
0077420 ( B B T P A C K E T L O C W
0077440 I D T H H E I G H T D E S T
0077460 B I T M A P D E S T L E F T
0077500 D E S T B O T T O M S P R E A
0077520 D ) 006 003 006 001 \r
0077540
*
0077620 006 003 ( * ; " E d i t
0077640 e d 2 4 - N o v - 8 6 1 0 :
0077660 4 8 b y s m L " ) 006 001 \r
0077700
*
0077760 006 003 ( *
0100000 ; ; \r 006 001
0100020
0100040 006 003 " D
0100060 o a b i t b l t f r o m
0100100 a p a c k e t i n t o a
0100120 b i t m a p . I n v e r t s
0100140 B M T O P A C K E T . " ) 006 001
0100160 \r ( C L : A S S E R T
0100200 ( A N D ( B I T M A P P D E
0100220 S T B I T M A P ) \r
0100240 ( <
0100260 = 0 D E S T L E F T ( -
0100300 ( B I T M A P W I D T H D E S
0100320 T B I T M A P ) \r
0100340
0100360 W
0100400 I D T H - 1 ) ) \r
0100420 ( <
0100440 = 0 D E S T B O T T O M (
0100460 - ( B I T M A P H E I G H T
0100500 D E S T B I T M A P ) \r
0100520
*
0100560 ( C L : * H E I G H T
0100600 ( C L : 1 + S P R E A D ) )
0100620 \r
0100640
0100660 - 1 ) ) \r
0100700
0100720 ( < 0 W I D T H ) \r
0100740
0100760 ( < 0 H E I G H T ) ) )
0101000 \r ( \ P I L O T B I T B
0101020 L T ( 006 002 c r e a t e 006 001 P
0101040 I L O T B B T \r
0101060 006 002 s
0101100 m a s h i n g 006 001 ( O R B B
0101120 T ( 006 002 c r e a t e 006 001 P I
0101140 L O T B B T ) ) \r
0101160
0101200 P B T W I D T H _ W
0101220 I D T H P B T H E I G H T _
0101240 H E I G H T P B T F L A G S
0101260 _ 0 P B T D E S T B P L
0101300 _ \r
0101320 ( C L
0101340 : * ( 006 002 f e t c h 006 001 ( B
0101360 I T M A P B I T M A P R A S T
0101400 E R W I D T H ) 006 002 o f 006 001
0101420 D E S T B I T M A P ) \r
0101440
0101460 1 6 \r
0101500
*
0101540 ( C L : 1 + S P R E A D ) )
0101560 \r
0101600 P B T D
0101620 E S T B I T _ D E S T L E F
0101640 T P B T U S E G R A Y _ N
0101660 I L P B T S O U R C E B P L
0101700 _ W I D T H P B T S O U R C
0101720 E B I T _ \r
0101740
0101760 0 P B T D I S J O I N T
0102000 _ T P B T S O U R C E _
0102020 P A C K E T L O C P B T D E
0102040 S T _ \r
0102060
0102100 ( \ A D D B A S E ( 006 002 f e t
0102120 c h 006 001 ( B I T M A P B I T
0102140 M A P B A S E ) 006 002 o f 006 001
0102160 D E S T B I T M A P ) \r
0102200
0102220 ( C
0102240 L : * ( 006 002 f e t c h 006 001 (
0102260 B I T M A P B I T M A P R A S
0102300 T E R W I D T H ) 006 002 o f 006 001
0102320 D E S T B I T M A P ) \r
0102340
*
0102400 ( - ( 006 002 f e t c h
0102420 006 001 ( B I T M A P B I T M A
0102440 P H E I G H T ) 006 002 o f 006 001
0102460 D E S T B I T M A P ) \r
0102500
*
0102540 H E I G H T D E
0102560 S T B O T T O M ) ) ) \r
0102600
0102620 P B T O P E R A T
0102640 I O N _ 0 P B T S O U R C
0102660 E T Y P E _ 0 ) \r
0102700 0 ) ) ) \r ) \r \r \r \r
0102720 006 004 ( * ; ; ; " D i s p l a
0102740 y i n g t h e v i e w i n g
0102760 m a c h i n e ' s c u r s o
0103000 r " ) 006 001 \r \r \r ( R P A Q Q 006
0103020 002 R E M O T E - C U R S O R 006 001
0103040 # * ( 1 6 1 6 ) @ C @ @ @ C
0103060 @ @ @ F @ @ @ F @ @ @ L G N @ L
0103100 D A I H D A M H D A O @ D A O N
0103120 G N O L D D O H D D O @ D B N @
0103140 D B L @ D A H @ D A ) \r \r ( R P
0103160 A Q ? 006 002 C U R S O R I C O N
0103200 006 001 N I L ) \r \r \r \r 006 004 ( *
0103220 ; ; ; " M a n i p u l a t i n
0103240 g t h e f r a m e t h a t
0103260 o u t l i n e s t h e r e
0103300 g i o n b e i n g v i e w e
0103320 d " ) 006 001 \r \r \r ( R P A Q ? 006
0103340 002 * F R A M E - S H A D E * 006 001
0103360 G R A Y S H A D E ) \r ( D E F
0103400 I N E Q \r \r ( 006 004 F R A M E - E
0103420 V E N T 006 001 \r [ L A M B D A
0103440 ( W I N D O W ) 006 006 006 001
0103460
*
0103520 006 006 ( * ; " E d i
0103540 t e d 2 - A p r - 8 7 1 6
0103560 : 5 3 b y M a s i n t e r "
0103600 ) 006 001 \r ( 006 002 i f 006 001
0103620 ( K E Y D O W N P ' R I G H T
0103640 ) \r 006 002 t h e n
0103660 006 001 ( C L O S E - F R A M E
0103700 ( W I N D O W P R O P W I N D
0103720 O W ' F R A M E ) ) \r
0103740 006 002 e l s e 006 001 ( L E T
0103760 [ ( F R A M E ( W I N D O W P
0104000 R O P W I N D O W ' F R A M
0104020 E ] \r
0104040 ( 006 002 i f 006 001 ( S H I F
0104060 T D O W N P ' S H I F T ) \r
0104100
0104120 006 002 t h e n 006 001 [ 006 002 S
0104140 H A P E - F R A M E 006 001 F R A
0104160 M E ( L E T [ ( R E G I O N
0104200 ( W I N D O W P R O P W I N
0104220 D O W ' F R A M E - R E G I O
0104240 N ] \r
0104260
*
0104320 ( 006 002 w i t h 006 001 R E
0104340 G I O N R E G I O N ( \ S E
0104360 T C U R S O R P O S I T I O N
0104400 L E F T B O T T O M ) \r
0104420
*
0104500 ( G E T R E G I O N 3
0104520 2 3 2 R E G I O N N I L
0104540 N I L ] \r
0104560 006 002 e l s e 006 001
0104600 ( 006 002 M O V E - F R A M E 006 001
0104620 W I N D O W ] ) \r \r ( 006 004 M A K
0104640 E - F R A M E 006 001 \r [ L A M
0104660 B D A ( R E G I O N V I E W
0104700 E R - N A M E ) 006 006 006 001
0104720
0104740 006 006 ( * ; "
0104760 E d i t e d 2 - A p r - 8 7
0105000 1 6 : 4 6 b y M a s i n t
0105020 e r " ) 006 001 \r ( L E T
0105040 ( F R A M E ) \r
0105060 [ 006 002 w i t h 006 001 R E G I O
0105100 N R E G I O N ( S E T Q F
0105120 R A M E ( L I S T ( C R E A
0105140 T E W ( L I S T ( - L E F
0105160 T 8 ) \r
0105200
*
0105260 ( - B O T T O M 8 ) \r
0105300
*
0105360 8 \r
0105400
*
0105460 ( +
0105500 H E I G H T 8 8 ) ) \r
0105520
*
0105600 N I L 0 ) \r
0105620
*
0105660 ( C R E A T
0105700 E W ( L I S T L E F T ( -
0105720 B O T T O M 8 ) \r
0105740
*
0106020 ( + W I D T
0106040 H 8 ) \r
0106060
*
0106140 8 ) \r
0106160
*
0106220 N I L
0106240 0 ) \r
0106260
*
0106320 ( C R E A T E W ( L I S T
0106340 ( + L E F T W I D T H ) \r
0106360
*
0106440 B O
0106460 T T O M 8 ( + H E I G H T
0106500 8 ) ) \r
0106520
*
0106560 N I L 0
0106600 ) \r
0106620
*
0106660 ( C R E A T E W ( L I S T
0106700 L E F T ( + B O T T O M H
0106720 E I G H T ) \r
0106740
*
0107020 W I D T H \r
0107040
*
0107120 ( H E I G H T
0107140 I F W I N D O W 8 T 0 ) )
0107160 \r
0107200
*
0107240 " V i e w e d r
0107260 e g i o n " 0 ] \r
0107300 ( 006 002 f o r 006 001 X 006 002
0107320 i n 006 001 F R A M E 006 002 d o 006
0107340 001 ( D S P T E X T U R E * F
0107360 R A M E - S H A D E * X ) \r
0107400
0107420 ( D S P R
0107440 E S E T X ) \r
0107460
0107500 ( W I N D O W P R O P
0107520 X ' F R A M E - R E G I O N
0107540 R E G I O N ) \r
0107560
0107600 ( W I N D O W P R O P
0107620 X ' M I N S I Z E ' ( 8 .
0107640 8 ) ) \r
0107660
0107700 ( W I N D O W P R O P X '
0107720 F R A M E F R A M E ) \r
0107740
0107760 ( W I N D O W
0110000 P R O P X ' R I G H T B U T
0110020 T O N F N ( F U N C T I O N
0110040 F R A M E - E V E N T ) ) \r
0110060
0110100 ( W I N D O
0110120 W P R O P X ' B U T T O N E
0110140 V E N T F N ( F U N C T I O N
0110160 F R A M E - E V E N T ) ) ) \r
0110200 F R A M E ] )
0110220 \r \r ( 006 004 M O V E - F R A M E 006
0110240 001 \r ( L A M B D A ( W ) 006
0110260 003 006 001
0110300
*
0110340 006 003 ( * l m m " 1 7 -
0110360 N o v - 8 6 0 2 : 1 1 " ) 006 001
0110400 \r ( 006 002 w i t h 006 001 R
0110420 E G I O N ( W I N D O W P R O
0110440 P W ' F R A M E - R E G I O
0110460 N ) \r ( 006 002
0110500 S H A P E - F R A M E 006 001 ( W
0110520 I N D O W P R O P W ' F R A
0110540 M E ) \r
0110560 ( G E T B O X R E G I
0110600 O N W I D T H H E I G H T
0110620 L E F T B O T T O M ) ) ) ) )
0110640 \r \r ( 006 004 S H A P E - F R A M E
0110660 006 001 \r ( L A M B D A ( F R
0110700 A M E R E G I O N ) 006 003 006 001
0110720
*
0110760 006 003 ( * ; " E d i t
0111000 e d 2 4 - N o v - 8 6 1 3 :
0111020 2 3 b y s m L " ) 006 001 \r
0111040 ( 006 002 w i t h 006 001 R E G I
0111060 O N R E G I O N ( P R O G N
0111100 ( S H A P E W ( C A R F R
0111120 A M E ) \r
0111140
0111160 ( L I S T
0111200 ( - L E F T 8 ) \r
0111220
*
0111260 ( - B O T T O
0111300 M 8 ) \r
0111320
*
0111360 8 \r
0111400
0111420 (
0111440 + H E I G H T 8 8 ) ) ) \r
0111460
0111500 (
0111520 S H A P E W ( C A D R F R A
0111540 M E ) \r
0111560
0111600 ( L I S T
0111620 L E F T ( - B O T T O M 8
0111640 ) \r
0111660
0111700 ( +
0111720 W I D T H 8 ) \r
0111740
*
0112000 8 ) ) \r
0112020
0112040 ( S H A P E W
0112060 ( C A D D R F R A M E ) \r
0112100
*
0112140 ( L I S T ( + L E
0112160 F T W I D T H ) \r
0112200
*
0112240 B O T T O M 8 (
0112260 + H E I G H T 8 ) ) ) \r
0112300
0112320 ( S H
0112340 A P E W ( C A D D D R F R A
0112360 M E ) \r
0112400
0112420 ( L I S T
0112440 L E F T ( + B O T T O M H
0112460 E I G H T ) \r
0112500
*
0112540 W I D T H \r
0112560
*
0112620 ( H E I G H T I F W I
0112640 N D O W 8 ( W I N D O W P R
0112660 O P ( C A D D D R F R A M E
0112700 ) \r
0112720
*
0113000 ' T I T L E ) \r
0113020
*
0113100 ( W I N D O W P R O P ( C
0113120 A D D D R F R A M E ) \r
0113140
*
0113220 ' B O R D E R ) )
0113240 ) ) ) ) \r ( 006 002 f o r 006
0113260 001 X 006 002 i n 006 001 F R A M E
0113300 006 002 d o 006 001 ( C L E A R W
0113320 X ) \r
0113340 ( W I N D O
0113360 W P R O P X ' F R A M E - R
0113400 E G I O N R E G I O N ) ) ) )
0113420 \r \r ( 006 004 S E T - F R A M E - T
0113440 I T L E 006 001 \r ( L A M B D A
0113460 ( F R A M E T I T L E ) 006 003
0113500 006 001
0113520
0113540 006 003 ( * ; "
0113560 E d i t e d 2 4 - N o v - 8 6
0113600 1 3 : 0 7 b y s m L " ) 006
0113620 001 \r ( W I N D O W P R O
0113640 P ( C A R ( L A S T F R A
0113660 M E ) ) \r
0113700 ' T I T L E T I T L E ) ) ) \r
0113720 ) \r \r \r \r 006 004 ( * ; ; ; " C
0113740 h a n g i n g t h e s y s t
0113760 e m p a r a m e t e r s " ) 006
0114000 001 \r \r ( D E F I N E Q \r \r ( 006 004
0114020 M A K E - M E N U S - W I N D O
0114040 W 006 001 \r ( L A M B D A ( M
0114060 E N U S T I T L E P O S I T
0114100 I O N ) 006 003 006 001
0114120
0114140 006 003 ( * ; " E d i
0114160 t e d 2 4 - N o v - 8 6 1 0
0114200 : 4 0 b y s m L " ) 006 001 \r
0114220
*
0114300 006 003 ( *
0114320 ; ; \r 006 001
0114340
*
0114400 006 003 " M a k e s u r e a l l
0114420 t h e m e n u f i e l d s
0114440 a r e f i l l e d i n a
0114460 n d u p t o d a t e " ) 006
0114500 001 \r ( 006 002 f o r 006 001 M
0114520 E N U 006 002 i n 006 001 M E N U S
0114540 006 002 d o 006 001 ( U P D A T E /
0114560 M E N U / I M A G E M E N U )
0114600 ) 006 003 ( *
0114620 ; ; \r 006 001
0114640
0114660 006 003 " C r e a t e a w i n d
0114700 o w b i g e n o u g h t o
0114720 h o l d a l l t h e m e
0114740 n u s , a n d p u t t h e
0114760 m e n u s i n i t " ) 006 001
0115000 \r ( L E T * ( ( M E N
0115020 U - G A P 5 ) \r
0115040 ( I N S I D E - W I N D
0115060 O W - W I D T H ( P L U S M
0115100 E N U - G A P ( 006 002 f o r 006 001
0115120 M E N U 006 002 i n 006 001 M E N
0115140 U S \r
0115160
*
0115220 006 002 s u m 006 001 ( P L
0115240 U S M E N U - G A P ( 006 002 f
0115260 e t c h 006 001 ( M E N U I M A
0115300 G E W I D T H ) \r
0115320
*
0115420 006 002 o f 006 001 M E N U ) ) ) )
0115440 ) \r ( I N
0115460 S I D E - W I N D O W - H E I G
0115500 H T ( P L U S M E N U - G A
0115520 P M E N U - G A P ( 006 002 f o
0115540 r 006 001 M E N U 006 002 i n 006 001
0115560 M E N U S \r
0115600
*
0115660 006 002 l a r g e s t 006 001 ( 006
0115700 002 f e t c h 006 001 ( M E N U I
0115720 M A G E H E I G H T ) \r
0115740
*
0116040 006 002 o f 006 001 M E N U ) \r
0116060
*
0116140 006 002 f i
0116160 n a l l y 006 001 ( R E T U R N
0116200 $ $ E X T R E M E ) ) ) ) \r
0116220 ( C O N T R O
0116240 L - W I N D O W ( C R E A T E
0116260 W ( 006 002 i f 006 001 P O S I T I
0116300 O N \r
0116320
0116340 006 002 t h e
0116360 n 006 001 ( C R E A T E P O S I T
0116400 I O N ( 006 002 f e t c h 006 001 X
0116420 C O O R D 006 002 o f 006 001 P O S
0116440 I T I O N ) \r
0116460
*
0116520 ( 006 002 f e
0116540 t c h 006 001 Y C O O R D 006 002 o
0116560 f 006 001 P O S I T I O N ) ) \r
0116600
*
0116640 006 002 e l s e 006 001 ( G
0116660 E T B O X R E G I O N ( W I D
0116700 T H I F W I N D O W I N S I D
0116720 E - W I N D O W - W I D T H ) \r
0116740
*
0117020 ( H E I G H T I F W I N D O
0117040 W I N S I D E - W I N D O W -
0117060 H E I G H T T I T L E ) \r
0117100
*
0117160 N I L N I L N I L " P o s
0117200 i t i o n t h e M o d e M
0117220 e n u " ) ) \r
0117240
0117260 T I T L E ) )
0117300 ) \r ( 006 002 f
0117320 o r 006 001 M E N U 006 002 i n 006 001
0117340 M E N U S 006 002 b i n d 006 001
0117360 ( L E F T _ M E N U - G A P
0117400 ) \r 006
0117420 002 d o 006 001 ( A D D M E N U M
0117440 E N U C O N T R O L - W I N D
0117460 O W ( C R E A T E P O S I T I
0117500 O N L E F T ( Q U O T I E N
0117520 T \r
0117540
*
0117620 ( D I F F E R E N C E
0117640 I N S I D E - W I N D O W - H
0117660 E I G H T \r
0117700
*
0120000 ( 006 002 f e t c h 006 001 ( M E N U
0120020 I M A G E H E I G H T ) \r
0120040
*
0120140 006 002 o f 006
0120160 001 M E N U ) ) \r
0120200
*
0120260 2 ) ) )
0120300 \r
0120320 ( 006 002 a d d 006 001 L E F T (
0120340 006 002 f e t c h 006 001 ( M E N U
0120360 I M A G E W I D T H ) 006 002 o f
0120400 006 001 M E N U ) \r
0120420 M E
0120440 N U - G A P ) ) \r
0120460 C O N T R O L - W I N D O
0120500 W ) ) ) \r \r ( 006 004 M O D E - M E
0120520 N U 006 001 \r ( L A M B D A N
0120540 I L 006 003 006 001
0120560
*
0120620 006 003 ( * ; " E d
0120640 i t e d 2 4 - N o v - 8 6 1
0120660 6 : 5 2 b y s m L " ) 006 001 \r
0120700 ( L E T ( ( U P D A T
0120720 E - M E N U ( 006 002 c r e a t e
0120740 006 001 M E N U \r
0120760
0121000 C E N T E R F L G
0121020 _ T \r
0121040
0121060 M E N U T I T L E F O N T
0121100 _ B O L D F O N T \r
0121120
0121140 W H E N S E L
0121160 E C T E D F N _ ( F U N C T
0121200 I O N ( L A M B D A ( I T E
0121220 M M E N U B U T T O N ) \r
0121240
*
0121320 ( M E N U D
0121340 E S E L E C T C O M M . D E F
0121360 A U L T . T R A N S M I T . T Y
0121400 P E \r
0121420
*
0121500 M E N U ) \r
0121520
*
0121600 ( M E N U S E L E
0121620 C T I T E M M E N U ) \r
0121640
*
0121720 ( 006 002 C H A N
0121740 G E - S E N D E R - U P D A T E
0121760 - M O D E 006 001 I T E M ) ) ) \r
0122000
0122020 T I
0122040 T L E _ " U p d a t e m e
0122060 t h o d " \r
0122100
0122120 I T E M S _ C O M M
0122140 - M O D E S ) ) \r
0122160 ( M O U S E - P O S - U P
0122200 D A T E - M E N U ( 006 002 c r e
0122220 a t e 006 001 M E N U \r
0122240
*
0122300 C E N T E R F L G _ T
0122320 \r
0122340
0122360 M E N U T I T
0122400 L E F O N T _ B O L D F O N
0122420 T \r
0122440
0122460 W H E N S E
0122500 L E C T E D F N _ ( F U N C
0122520 T I O N ( L A M B D A ( I T
0122540 E M M E N U B U T T O N ) \r
0122560
*
0122660 ( M E N U D E S E L E
0122700 C T \r
0122720
*
0123000 C
0123020 O M M . U P D A T E . M O U S E
0123040 . P O S I T I O N \r
0123060
*
0123160 M E N U ) \r
0123200
*
0123300 ( M E N U S E L E C T I T
0123320 E M M E N U ) \r
0123340
*
0123420 ( S
0123440 E T Q C O M M . U P D A T E .
0123460 M O U S E . P O S I T I O N \r
0123500
*
0123600 I T E M ) ) ) \r
0123620
*
0123660 T I T L E _ " U
0123700 p d a t e n e a r c u r s o
0123720 r ? " \r
0123740
0123760 I T E M
0124000 S _ ' ( S e n d e r V i e
0124020 w e r N I L ) ) ) \r
0124040 ( S E N D - U N C H A
0124060 N G E D - T I L E S - M E N U
0124100 ( 006 002 c r e a t e 006 001 M E N U
0124120 \r
0124140
0124160 C E N
0124200 T E R F L G _ T \r
0124220
*
0124260 M E N U T I T L E
0124300 F O N T _ B O L D F O N T \r
0124320
*
0124360 W H E N
0124400 S E L E C T E D F N _ ( F U
0124420 N C T I O N ( L A M B D A (
0124440 I T E M M E N U B U T T O N
0124460 ) \r
0124500
*
0124560 ( M E N U
0124600 D E S E L E C T \r
0124620
*
0124720 C O M M . S E N D .
0124740 U N C H A N G E D . T I L E S
0124760 \r
0125000
*
0125100 M E N U ) \r
0125120
*
0125220 ( M E N U S E L E C T I T E M
0125240 M E N U ) \r
0125260
*
0125360 ( S E T Q \r
0125400
*
0125500 C O M M . S E N D . U N C H A
0125520 N G E D . T I L E S \r
0125540
*
0125640 I T E M ) ) ) \r
0125660
*
0125720 T I T L E
0125740 _ " S e n d u n c h a n g e
0125760 d t i l e s ? " \r
0126000
*
0126040 I T E M S _ ' (
0126060 T N I L ) ) ) \r
0126100 ( L I G H T N I N G - M E
0126120 N U ( 006 002 c r e a t e 006 001 M
0126140 E N U \r
0126160
0126200 C E N T E R F L G _
0126220 T \r
0126240
0126260 M E N U T I T L E F O N
0126300 T _ B O L D F O N T \r
0126320
0126340 W H
0126360 E N S E L E C T E D F N _ (
0126400 F U N C T I O N ( L A M B D A
0126420 ( I T E M M E N U B U T T
0126440 O N ) \r
0126460
*
0126540 ( M E N U D E S E L E C T
0126560 \ E T H E R L I G H T N I N G
0126600 M E N U ) \r
0126620
*
0126700 ( M E N U S E L E C T
0126720 I T E M M E N U ) \r
0126740
*
0127020 ( S E T Q \
0127040 E T H E R L I G H T N I N G I
0127060 T E M ) ) ) \r
0127100
0127120 T I T L E _
0127140 " E t h e r L i g h t n i n g
0127160 " \r
0127200
0127220 I T E M S _ ' ( N I L
0127240 3 6 1 4 7 2 5 8
0127260 ) \r
0127300
0127320 M E N U R O W S _ 3 )
0127340 ) ) 006
0127360 003 ( * ; ; " " ) 006 001 \r
0127400
*
0127460 006 003 ( * ;
0127500 ; \r 006 001
0127520
0127540 006 003 " B r i n g u p a
0127560 w i n d o w w i t h a l l
0127600 t h e m e n u s , a t a
0127620 l o c a t i o n t h e u s e
0127640 r s p e c i f i e s " ) 006 001 \r
0127660
*
0127740 006 003 (
0127760 * ; ; " " ) 006 001 \r
0130000 ( 006 002 M A K E - M E N U
0130020 S - W I N D O W 006 001 ( L I S T
0130040 U P D A T E - M E N U M O U
0130060 S E - P O S - U P D A T E - M E
0130100 N U S E N D - U N C H A N G E
0130120 D - T I L E S - M E N U \r
0130140
*
0130200 L I G H T N I N G - M E N U ) \r
0130220
0130240 " S e n d - B i t s m o d e
0130260 m e n u " )
0130300 006 003 (
0130320 * ; ; " " ) 006 001 \r
0130340
*
0130420 006 003 ( * ; ;
0130440 \r 006 001
0130460 006 003 " H i g h l
0130500 i g h t t h e c u r r e n t
0130520 v a l u e s , s o t h e
0130540 u s e r c a n s e e w h a
0130560 t t h e c u r r e n t v a
0130600 l u e s a r e . " ) 006 001 \r
0130620
*
0130700 006 003 ( *
0130720 ; ; " " ) 006 001 \r
0130740 ( M E N U S E L E C T C O
0130760 M M . D E F A U L T . T R A N S
0131000 M I T . T Y P E U P D A T E -
0131020 M E N U ) \r (
0131040 M E N U S E L E C T C O M M .
0131060 U P D A T E . M O U S E . P O S
0131100 I T I O N M O U S E - P O S -
0131120 U P D A T E - M E N U ) \r
0131140 ( M E N U S E L E C
0131160 T C O M M . S E N D . U N C H
0131200 A N G E D . T I L E S S E N D
0131220 - U N C H A N G E D - T I L E S
0131240 - M E N U ) \r
0131260 ( M E N U S E L E C T \ E T H
0131300 E R L I G H T N I N G L I G H
0131320 T N I N G - M E N U ) ) ) ) \r )
0131340 \r \r ( R P A Q Q 006 002 C O M M -
0131360 M O D E S 006 001 ( S Q U A R E
0131400 R E C T A N G L E H O R I Z O
0131420 N T A L V E R T I C A L H 3
0131440 ) ) \r \r \r \r 006 004 ( * ; ; ; "
0131460 I n i t i a l i z a t i o n " )
0131500 006 001 \r \r ( C O U R I E R . S T A
0131520 R T . S E R V E R ) \r \r \r \r 006 004
0131540 ( * ; ; ; " U n u s e d s
0131560 t u f f , a s f a r a s
0131600 I c a n t e l l " ) 006 001 \r \r
0131620 ( D E F I N E Q \r \r ( 006 004 F A S
0131640 T B I T B L T 006 001 \r ( L A M
0131660 B D A ( B B T S O U R C E B
0131700 I T M A P S O U R C E L E F T
0131720 S O U R C E B O T T O M W I
0131740 D T H H E I G H T D E S T B
0131760 I T M A P D E S T L E F T D
0132000 E S T B O T T O M ) 006 003 006 001 \r
0132020
*
0132100 006 003 ( *
0132120 l m m " 1 7 - N o v - 8 6
0132140 0 3 : 5 5 " ) 006 001 \r
0132160
*
0132240 006 003 ( * ; ; "
0132260 c o p y b i t m a p t o b
0132300 i t m a p " ) 006 001 \r ( C
0132320 L : A S S E R T ( A N D ( B
0132340 I T M A P P S O U R C E B I T
0132360 M A P ) \r
0132400 ( B I T M A P
0132420 P D E S T B I T M A P ) \r
0132440
0132460 ( < = 0 S O U R C E L E
0132500 F T ( - ( B I T M A P W I D
0132520 T H S O U R C E B I T M A P )
0132540 \r
0132560
0132600 W I D T H 1
0132620 ) ) \r
0132640 ( < = 0 S O U
0132660 R C E B O T T O M ( - ( B I
0132700 T M A P H E I G H T S O U R C
0132720 E B I T M A P ) \r
0132740
*
0133000 H E I G H T 1 ) ) \r
0133020
0133040 ( < = 0 D E S T L E F T
0133060 ( - ( B I T M A P W I D T H
0133100 D E S T B I T M A P ) \r
0133120
*
0133160 W I D T H 1 ) ) \r
0133200
0133220 ( < = 0 D E S T B O T T O
0133240 M ( - ( B I T M A P H E I G
0133260 H T D E S T B I T M A P ) \r
0133300
*
0133340 H E I G H T 1 )
0133360 ) \r
0133400 ( < 0 W I D T H
0133420 ) \r
0133440 ( < 0 H E I G H
0133460 T ) ) ) \r ( \ P I L O T
0133500 B I T B L T ( 006 002 c r e a t e
0133520 006 001 P I L O T B B T 006 002 s m
0133540 a s h i n g 006 001 ( O R B B T
0133560 ( 006 002 c r e a t e 006 001 P I L
0133600 O T B B T ) ) \r
0133620
*
0133660 P B T W I D T H _ W I D T
0133700 H P B T H E I G H T _ H E
0133720 I G H T P B T F L A G S _
0133740 0 P B T D E S T B P L \r
0133760
*
0134020 _ ( C L : * (
0134040 006 002 f e t c h 006 001 ( B I T M A
0134060 P B I T M A P R A S T E R W I
0134100 D T H ) 006 002 o f 006 001 D E S T
0134120 B I T M A P ) \r
0134140
*
0134200 1 6 ) \r
0134220
*
0134260 P B T D E S T B I T
0134300 _ D E S T L E F T P B T U
0134320 S E G R A Y _ N I L P B T
0134340 S O U R C E B P L _ \r
0134360
*
0134420 ( C L : * ( 006 002 f e
0134440 t c h 006 001 ( B I T M A P B I
0134460 T M A P R A S T E R W I D T H )
0134500 006 002 o f 006 001 S O U R C E B I
0134520 T M A P ) \r
0134540
*
0134600 1 6 ) \r
0134620
*
0134660 P B T S O U R C E B I T _
0134700 S O U R C E L E F T P B T D
0134720 I S J O I N T _ T P B T S
0134740 O U R C E _ \r
0134760
*
0135020 ( \ A D D B A S E ( 006 002 f e
0135040 t c h 006 001 ( B I T M A P B I
0135060 T M A P B A S E ) 006 002 o f 006 001
0135100 S O U R C E B I T M A P ) \r
0135120
*
0135160 (
0135200 C L : * ( 006 002 f e t c h 006 001
0135220 ( B I T M A P B I T M A P R A
0135240 S T E R W I D T H ) 006 002 o f 006
0135260 001 \r
0135300
*
0135400 S O U R
0135420 C E B I T M A P \r
0135440
*
0135520 ) \r
0135540
*
0135600 ( -
0135620 ( 006 002 f e t c h 006 001 ( B I T
0135640 M A P B I T M A P H E I G H T
0135660 ) 006 002 o f 006 001 S O U R C E B
0135700 I T M A P \r
0135720
*
0136000 ) \r
0136020
*
0136100 H E I G H T S O U R C E B O
0136120 T T O M ) ) ) \r
0136140
*
0136200 P B T D E S T _ ( \ A D D
0136220 B A S E ( 006 002 f e t c h 006 001
0136240 ( B I T M A P B I T M A P B A
0136260 S E ) 006 002 o f 006 001 D E S T B
0136300 I T M A P \r
0136320
*
0136400 ) \r
0136420
*
0136500 ( C L : * ( 006 002 f
0136520 e t c h 006 001 ( B I T M A P B
0136540 I T M A P R A S T E R W I D T H
0136560 ) \r
0136600
*
0136660 006 002 o f 006 001 D E S T
0136700 B I T M A P ) \r
0136720
*
0137000 ( - ( 006 002 f e
0137020 t c h 006 001 ( B I T M A P B I
0137040 T M A P H E I G H T ) \r
0137060
*
0137160 006 002 o f 006 001 D E S T B I T
0137200 M A P ) \r
0137220
*
0137300 H E I G H T D
0137320 E S T B O T T O M ) ) ) \r
0137340
*
0137400 P B T O P E R A T I
0137420 O N _ 0 P B T S O U R C E
0137440 T Y P E _ 0 ) \r
0137460 0 ) ) ) \r ) \r \r \r \r 006
0137500 004 ( * ; ; ; " S y s t e m
0137520 f i l e d e p e n d e n c i e
0137540 s " ) 006 001 \r \r ( D E C L A R E %
0137560 : D O N T C O P Y D O E V A
0137600 L @ C O M P I L E \r ( F I L E
0137620 S L O A D ( L O A D C O M P )
0137640 \r L L D I S P L A
0137660 Y L L E T H E R L L N S ) \r
0137700 ) \r \r ( C O U R I E R P R O G R
0137720 A M 006 002 C O M M W I N D O W 006
0137740 001 ( 1 3 3 7 1 ) \r 006
0137760 002 T Y P E S 006 001 \r [
0140000 ( R E G I O N ( R E C O R D
0140020 ( L E F T I N T E G E R ) \r
0140040
0140060 ( B O T T O M I N T
0140100 E G E R ) \r
0140120 ( W I D
0140140 T H I N T E G E R ) \r
0140160
0140200 ( H E I G H T I N T E G E
0140220 R ) ) ) \r ( U S E
0140240 R N A M E S T R I N G ) \r
0140260 ( R E S P O N S E (
0140300 R E C O R D ( S O C K E T L
0140320 O N G I N T E G E R ) \r
0140340
0140360 ( C O R R E S P O N D E
0140400 N T U S E R N A M E ] \r
0140420 006 002 P R O C E D U R E S 006 001 \r
0140440 ( ( S T A R T - G E
0140460 T - B I T S 1 ( R E G I O N
0140500 U S E R N A M E ) \r
0140520 R E T U R N S
0140540 \r (
0140560 R E S P O N S E ) \r
0140600 R E P O R T S \r
0140620 ( R
0140640 E M O T E E R R O R ) \r
0140660 I M P L E M
0140700 E N T E D B Y S T A R T - G E
0140720 T - B I T S ) ) \r 006 002 E
0140740 R R O R S 006 001 \r ( (
0140760 E R R O R 1 ( S T R I N G )
0141000 ) \r ( U S E . C O
0141020 U R I E R 2 N I L ) ) ) \r (
0141040 P U T P R O P S C O M M W I N
0141060 D O W C O P Y R I G H T ( "
0141100 X e r o x C o r p o r a t i o
0141120 n " 1 9 8 6 1 9 0 0 1 9 8
0141140 7 ) ) \r ( D E C L A R E % : D
0141160 O N T C O P Y \r ( F I L E M
0141200 A P ( N I L ( 3 2 0 3 1 3
0141220 1 3 4 ( C L O S E - F R A M E
0141240 3 2 1 3 . 3 3 6 4 ) ( G
0141260 E T - B I T S 3 3 6 6 . 1
0141300 1 6 5 5 ) ( S T A R T - G E T
0141320 - B I T S 1 1 6 5 7 . \r 1
0141340 3 1 3 2 ) ) ( 1 3 1 8 9 2 6
0141360 2 3 6 ( S E N D - B I T S 1
0141400 3 1 9 9 . 1 6 0 2 0 ) ( S
0141420 E N D - T I L E 1 6 0 2 2 .
0141440 1 9 1 4 5 ) ( L I S T E N -
0141460 T O - V I E W E R 1 9 1 4 7
0141500 . \r 2 0 4 5 0 ) ( M A P T I
0141520