$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>DEDITPP!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 " 2
0000120 6 - N o v - 8 6 1 6 : 5 1 : 3
0000140 0 " 006 004 { E R I S } < L I S P
0000160 C O R E > L I B R A R Y > D E D
0000200 I T P P . ; 1 006 001 4 1 6 8 7
0000220 \r \r c h a n g e s
0000240 t o % : ( V A R S D E D
0000260 I T P P C O M S ) \r
0000300 ( F
0000320 N S D E D I T - M A K E - R E
0000340 A D E R - E N V ) ) \r \r \r ( *
0000360 " \r C o p y r i g h t ( c )
0000400 1 9 8 6 b y X e r o x C o
0000420 r p o r a t i o n . A l l
0000440 r i g h t s r e s e r v e d .
0000460 \r " ) \r \r ( P R E T T Y C O M P
0000500 R I N T D E D I T P P C O M S
0000520 ) \r \r ( R P A Q Q 006 002 D E D I
0000540 T P P C O M S 006 001 ( [ C O M S
0000560 ( * ; " D E D I T M A P
0000600 r e c o r d a n d a c c e s
0000620 s o r s " ) \r
0000640
0000660 ( D E C L A R E % : E V A L
0000700 @ C O M P I L E D O N T C O P
0000720 Y ( * ; \r
0000740
0000760 " D E D I T M A P r
0001000 e c o r d d e f i n i t i o n
0001020 i s o n D S P R I N T D E
0001040 F b e c a u s e i t i s
0001060 n e e d e d t h e r e " \r
0001100
*
0001160 ) \r
0001200
0001220 (
0001240 F I L E S ( L O A D C O M P )
0001260 \r
0001300
0001320 D S P R I N T
0001340 D E F ) ) \r
0001360
0001400 ( I N I T R E C O R D S D E D
0001420 I T M A P ) \r
0001440
0001460 ( F N S D E D I T . L P E N
0001500 D D E D I T . R P S T A R T
0001520 M A K E M A P E N T R Y \ D E
0001540 D I T F O N T # D S P D S F O
0001560 R \r
0001600
0001620 S H O W D E D I T M A P ) \r
0001640
0001660 ( D E C L A
0001700 R E % : D O N T E V A L @ L O
0001720 A D D O C O P Y ( P ( D E
0001740 F P R I N T ' D E D I T M A P
0001760 ' S H O W D E D I T M A P ] \r
0002000
0002020 ( C O M S ( * ; "
0002040 D E D I T e n t r y a n d
0002060 i n c r e m e n t a l r e p r
0002100 e t t y p r i n t i n g " ) \r
0002120
0002140 ( F N S D E
0002160 P R I N T D E F D E D I T - M
0002200 A K E - R E A D E R - E N V ) \r
0002220
0002240 ( F N S R
0002260 E P P R E P P C H A N G E S
0002300 R E P P U N R A V E L R E P P
0002320 D E L E T E R E P P I N S E R
0002340 T R E P P T A N G L E D P \r
0002360
0002400 L
0002420 E A D S P A C E S P A C I N G
0002440 R U L E U N P P N X T U S E
0002460 D X O N E L I N E P ) \r
0002500
0002520 ( F N S M O V E
0002540 D S M A P A D J U S T X T A I
0002560 L A D J U S T Y T A I L A D
0002600 J D E E X T E N T D S L I N E
0002620 F O N T D S L I N E F O N T 1
0002640 \r
0002660
0002700 M A X F O N T ) \r
0002720
0002740 ( F N S R E F R E S H
0002760 I F R E F R E S H I F 1 ) \r
0003000
0003020 ( F N S C O
0003040 M M E N T P H I P T L O W P
0003060 T W I P E ) \r
0003100
0003120 ( F N S R E S E T C L I P
0003140 ) ) ) ) \r \r \r \r 006 004 ( * ; "
0003160 D E D I T M A P r e c o r d
0003200 a n d a c c e s s o r s " ) 006
0003220 001 \r \r ( D E C L A R E % : E V
0003240 A L @ C O M P I L E D O N T C
0003260 O P Y \r ( F I L E S L O A D
0003300 ( L O A D C O M P ) \r
0003320 D S P R I N T D E F ) \r ) \r
0003340 ( / D E C L A R E D A T A T Y P
0003360 E ' D E D I T M A P \r
0003400 ' ( B Y T E P O I N T E
0003420 R B Y T E P O I N T E R W
0003440 O R D W O R D W O R D W O
0003460 R D F L A G F L A G F L A
0003500 G F L A G F L A G F L A G
0003520 F L A G F L A G \r
0003540 P O I N T E
0003560 R ) \r ' ( ( D E D
0003600 I T M A P 0 ( B I T S .
0003620 7 ) ) \r ( D E
0003640 D I T M A P 0 P O I N T E R
0003660 ) \r ( D E D I
0003700 T M A P 2 ( B I T S . 7
0003720 ) ) \r ( D E D
0003740 I T M A P 2 P O I N T E R )
0003760 \r ( D E D I T
0004000 M A P 4 ( B I T S . 1 5
0004020 ) ) \r ( D E D
0004040 I T M A P 5 ( B I T S .
0004060 1 5 ) ) \r ( D
0004100 E D I T M A P 6 ( B I T S
0004120 . 1 5 ) ) \r
0004140 ( D E D I T M A P 7 ( B I T
0004160 S . 1 5 ) ) \r
0004200 ( D E D I T M A P 8 ( F
0004220 L A G B I T S . 0 ) ) \r
0004240 ( D E D I T M A P
0004260 8 ( F L A G B I T S . 1
0004300 6 ) ) \r ( D E
0004320 D I T M A P 8 ( F L A G B I
0004340 T S . 3 2 ) ) \r
0004360 ( D E D I T M A P 8 (
0004400 F L A G B I T S . 4 8 ) ) \r
0004420 ( D E D I T M
0004440 A P 8 ( F L A G B I T S .
0004460 6 4 ) ) \r (
0004500 D E D I T M A P 8 ( F L A G
0004520 B I T S . 8 0 ) ) \r
0004540 ( D E D I T M A P 8
0004560 ( F L A G B I T S . 9 6 )
0004600 ) \r ( D E D I
0004620 T M A P 8 ( F L A G B I T S
0004640 . 1 1 2 ) ) \r
0004660 ( D E D I T M A P 8 P O
0004700 I N T E R ) ) \r '
0004720 1 0 ) \r ( D E F I N E Q \r \r ( 006
0004740 004 D E D I T . L P E N D 006 001 \r
0004760 [ L A M B D A ( M A P E )
0005000
*
0005040 ( * b
0005060 v m % : " 2 2 - M a y - 8 6
0005100 1 2 : 4 6 " ) \r
0005120
*
0005200 ( * ; ; ; \r
0005220
0005240 " X
0005260 p o s o f s t a r t o f
0005300 e x p r e s s i o n , f o l l
0005320 o w i n g t h e o p e n p
0005340 a r e n ( o r w r a p p e r
0005360 ) " ) \r ( I P L U S (
0005400 006 002 f e t c h 006 001 S T A R T X
0005420 006 002 o f 006 001 M A P E ) \r
0005440 ( L E T ( (
0005460 W R A P ( 006 002 f e t c h 006 001
0005500 W R A P P E R 006 002 o f 006 001 M
0005520 A P E ) ) \r
0005540 ( F N T ( 006 002 f
0005560 e t c h 006 001 F N T 006 002 o f 006
0005600 001 M A P E ) ) ) \r
0005620 ( C O N D \r
0005640
0005660 ( W R A P ( S T R I N G
0005700 W I D T H W R A P F N T ) )
0005720 \r
0005740 ( T ( C H A R W I D T
0005760 H ( C H A R C O D E % ( ) \r
0006000
0006020 ( 006 002
0006040 f e t c h 006 001 F N T 006 002 o f
0006060 006 001 M A P E ] ) \r \r ( 006 004 D E
0006100 D I T . R P S T A R T 006 001 \r
0006120 [ L A M B D A ( M A P E )
0006140
*
0006200 ( * b v
0006220 m % : " 2 2 - M a y - 8 6 1
0006240 2 : 4 6 " ) \r
0006260
*
0006340 ( * ; ; ; \r
0006360
*
0006420 " X
0006440 p o s w h e r e e x p r e s
0006460 s i o n e n d s a n d r i
0006500 g h t p a r e n s t a r t s
0006520 " ) \r ( I D I F F E R E
0006540 N C E ( 006 002 f e t c h 006 001 S
0006560 T O P X 006 002 o f 006 001 M A P E
0006600 ) \r ( C O
0006620 N D \r
0006640 ( ( 006 002 f e t c h 006 001 W R A
0006660 P P E R 006 002 o f 006 001 M A P E
0006700 ) \r
0006720 0 ) \r
0006740 ( T ( C H A R W I D T H
0006760 ( C H A R C O D E % ) ) \r
0007000
0007020 ( 006 002 f e t c h 006 001
0007040 F N T 006 002 o f 006 001 M A P E
0007060 ] ) \r \r ( 006 004 M A K E M A P E N
0007100 T R Y 006 001 \r [ L A M B D A
0007120 ( T A I L B A C K S X S Y
0007140 E X E Y F N )
0007160
0007200 ( * h d j " 1 9 - J u
0007220 l - 8 5 1 1 : 3 5 " ) \r
0007240
*
0007320 ( * ; ;
0007340 " U s e d t o c h e c k f
0007360 o r e x i s t i n g h a s h
0007400 l i n k a n d d o s o m e
0007420 t h i n g f a n c y . N o
0007440 w s h o u l d n o t h a p
0007460 p e n e x c e p t f r o m
0007500 d u m m y b l o c k s . " ) \r
0007520 ( P U T H A S H T A I
0007540 L \r ( 006 002
0007560 c r e a t e 006 001 D E D I T M A
0007600 P \r
0007620 B P _ B A C K \r
0007640
0007660 T A I L _ T A I L \r
0007700 S T
0007720 A R T X _ S X \r
0007740 S T A R
0007760 T Y _ S Y \r
0010000 S T O P X
0010020 _ E X \r
0010040 S T O P Y _ E
0010060 Y \r
0010100 D # _ ( C O N D \r
0010120
0010140 ( B A C K (
0010160 006 002 f e t c h 006 001 D # 006 002 o
0010200 f 006 001 B A C K ) ) \r
0010220
0010240 ( T ( 006 002 D S P D S
0010260 F O R 006 001 ) ) ) \r
0010300 F # _
0010320 F N ) \r \
0010340 D E D I T M E H A S H ] ) \r \r (
0010360 006 004 \ D E D I T F O N T # 006 001 \r
0010400 [ L A M B D A N I L
0010420
*
0010460 ( *
0010500 k b r % : " 2 5 - A u g - 8 5
0010520 1 7 : 4 5 " ) \r ( O R
0010540 \ D E D I T F O N T # ( S E
0010560 T Q \ D E D I T F O N T # (
0010600 P R O G ( F O N T F O N T T
0010620 Y P E F O N T # ) \r
0010640
*
0010700 ( S E T Q F O N
0010720 T ( D S P F O N T ) ) \r
0010740
*
0011000 ( S E T Q F
0011020 O N T T Y P E ( 006 002 f e t c h
0011040 006 001 ( F O N T D E S C R I P T
0011060 O R F O N T D E V I C E ) \r
0011100
*
0011160 006 002 o
0011200 f 006 001 F O N T ) ) \r
0011220
*
0011260 [ O R \ D E D I
0011300 T F O N T S ( S E T Q \ D E
0011320 D I T F O N T S ( F O N T M A
0011340 P A R R A Y \r
0011360
*
0011460 N I L \r
0011500
*
0011600 ' D I S P L A
0011620 Y ] \r
0011640
0011660 [
0011700 S E T Q F O N T # \r
0011720
*
0011760 ( 006 002 f o r 006 001
0012000 I 006 002 t o 006 001 ( A R R A Y
0012020 S I Z E \ D E D I T F O N T S
0012040 ) \r
0012060
*
0012120 006 002 t h e r e i s 006 001 ( E
0012140 Q F O N T ( C O N D \r
0012160
*
0012260 ( ( E Q F O N T T Y P E '
0012300 D I S P L A Y ) \r
0012320
*
0012400 ( 006
0012420 002 f e t c h 006 001 ( F O N T C L
0012440 A S S D I S P L A Y F D ) \r
0012460
*
0012560 006 002 o f 006 001 ( E
0012600 L T \ D E D I T F O N T S I
0012620 ) ) ) \r
0012640
*
0012720 ( T ( F O N T
0012740 C L A S S C O M P O N E N T \r
0012760
*
0013060 ( E L T \ D E D
0013100 I T F O N T S I ) \r
0013120
*
0013220 F O N T T Y P E N I L
0013240 T ] \r
0013260
0013300 (
0013320 R E T U R N F O N T # ) ) ) \r
0013340 ( S H O U L D N
0013360 T ] ) \r \r ( 006 004 D S P D S F O R
0013400 006 001 \r [ L A M B D A ( D S
0013420 )
0013440
*
0013500 ( * h d j " 1 9 - J u l - 8
0013520 5 1 1 : 3 5 " ) \r [ O
0013540 R D S ( S E T Q D S ( G
0013560 E T S T R E A M N I L ' O U
0013600 T P U T ] \r ( P R O G
0013620 [ ( V ( O R [ 006 002 f o r 006 001
0013640 I 006 002 t o 006 001 ( A R R A Y
0013660 S I Z E \ D E D I T D S P S )
0013700 006 002 t h e r e i s 006 001 ( O R
0013720 ( N O T ( S T R E A M P (
0013740 E L T \ D E D I T D S P S I
0013760 ) ) ) \r
0014000
*
0014060 ( E Q D S ( E L T \
0014100 D E D I T D S P S I ] \r
0014120 (
0014140 006 002 b i n d 006 001 [ N U _ (
0014160 A R R A Y ( I T I M E S 2
0014200 ( A R R A Y S I Z E \ D E D I
0014220 T D S P S ] 006 002 f o r 006 001 J
0014240 006 002 t o 006 001 ( A R R A Y S I
0014260 Z E \ D E D I T D S P S ) \r
0014300
0014320 006 002 d o 006 001 ( S E T A
0014340 N U J ( E L T \ D E D I
0014360 T D S P S J ) ) 006 002 f i n a
0014400 l l y 006 001 ( S E T Q \ D E D
0014420 I T D S P S N U ) \r
0014440
*
0014520 ( R E T U R N
0014540 J ] \r ( S E
0014560 T A \ D E D I T D S P S V
0014600 D S ) \r ( R
0014620 E T U R N V ] ) \r \r ( 006 004 S H
0014640 O W D E D I T M A P 006 001 \r [
0014660 L A M B D A ( M E )
0014700
*
0014740 ( * b a s
0014760 % : " 8 - M a r - 8 4 1 3
0015000 : 1 1 " ) \r ( C O N S
0015020 [ A P P L Y ' C O N C A T (
0015040 A P P E N D ( L I S T " { "
0015060 ) \r
0015100
0015120 [ 006 002 b i n d 006 001 V T L
0015140 ( Q _ ( C A R ( 006 002 f e
0015160 t c h 006 001 T A I L 006 002 o f 006
0015200 001 M E ) ) ) 006 002 w h i l e 006
0015220 001 ( L I S T P Q ) \r
0015240
0015260 006
0015300 002 d o 006 001 ( 006 002 p u s h 006 001
0015320 V " ( " ) \r
0015340
0015360 ( 006 002
0015400 p u s h 006 001 T L ( C O N D \r
0015420
*
0015500 ( ( C D R Q ) \r
0015520
*
0015560 ' "
0015600 - - ) " ) \r
0015620
*
0015660 ( T " ) " )
0015700 ) ) \r
0015720
0015740 ( S E T Q Q
0015760 ( C A R Q ) ) \r
0016000
0016020 006 002 f
0016040 i n a l l y 006 001 ( R E T U R N
0016060 ( C O N D \r
0016100
*
0016140 ( V
0016160 ( A P P E N D V ( C O N S
0016200 Q T L ) ) ) \r
0016220
*
0016260 ( T
0016300 ( L I S T Q ] \r
0016320
0016340 ( L I S T
0016360 " @ " ( C O N C A T " <
0016400 " ( 006 002 f e t c h 006 001 S T A
0016420 R T X 006 002 o f 006 001 M E ) \r
0016440
*
0016520 " , " \r
0016540
*
0016600 ( 006 002 f e t c
0016620 h 006 001 S T A R T Y 006 002 o f 006
0016640 001 M E ) \r
0016660
*
0016720 " - " \r
0016740
*
0017020 ( 006 002 f e t c h 006 001 S T O
0017040 P X 006 002 o f 006 001 M E ) \r
0017060
*
0017140 " , " \r
0017160
*
0017220 ( 006 002 f e t c h
0017240 006 001 S T O P Y 006 002 o f 006 001
0017260 M E ) \r
0017300
*
0017340 " > " ) ) \r
0017360
0017400 ( L I
0017420 S T ( C O N D \r
0017440
*
0017500 ( ( U N P U R G E D P M E
0017520 ) \r
0017540
0017560 " } " )
0017600 \r
0017620
0017640 ( T " P
0017660 U R G E D } " ] \r
0017700 ( P A C K ] ) \r ) \r ( D E
0017720 C L A R E % : D O N T E V A L
0017740 @ L O A D D O C O P Y \r ( D
0017760 E F P R I N T ' D E D I T M A
0020000 P ' S H O W D E D I T M A P )
0020020 \r ) \r \r \r \r 006 004 ( * ; " D E
0020040 D I T e n t r y a n d i n
0020060 c r e m e n t a l r e p r e t
0020100 t y p r i n t i n g " ) 006 001 \r \r
0020120 ( D E F I N E Q \r \r ( 006 004 D E P
0020140 R I N T D E F 006 001 \r [ L A M
0020160 B D A ( T A I L L E F T F
0020200 O N T F I L E )
0020220
0020240 ( * b v m % :
0020260 " 9 - J u n - 8 6 1 6 : 5 1
0020300 " ) \r
0020320
*
0020400 ( * ; ; ; " T h e c e n t
0020420 r a l p r e t t y - p r i n t
0020440 e r f o r D E D I T - -
0020460 p r i n t s T A I L t o F
0020500 I L E w i t h i n d i c a t
0020520 e d L E F T m a r g i n a
0020540 n d F O N T . T A I L i
0020560 s e i t h e r a n e x p r
0020600 e s s i o n , o r a m a p
0020620 e n t r y w h o s e T A I
0020640 L w e s h o u l d s t a r
0020660 t p r i n t i n g w i t h "
0020700 ) \r ( S E T Q F I L E
0020720 ( G E T S T R E A M F I L E
0020740 ' O U T P U T ) ) \r [
0020760 W I T H - R E A D E R - E N V I
0021000 R O N M E N T ( O R ( W I N
0021020 D O W P R O P F I L E ' R E
0021040 A D E R - E N V I R O N M E N T
0021060 ) \r
0021100
0021120 ( 006 002 D E D I T - M A K E
0021140 - R E A D E R - E N V 006 001 ) ) \r
0021160 ( L E T
0021200 ( ( M A K E M A P T ) \r
0021220 ( %
0021240 # R P A R S N I L ) ) \r
0021260 ( 006 002
0021300 D E C L A R E 006 001 ( S P E C V
0021320 A R S M A K E M A P % # R P
0021340 A R S ) ) \r
0021360 ( R E S E T L S T
0021400 ( R E S E T S A V E * * C O M
0021420 M E N T * * F L G N I L ) \r
0021440
0021460 ( R E S E T S A V E
0021500 ( O U T P U T F I L E ) ) \r
0021520
0021540 ( S E T Q \ D E
0021560 D I T F O N T S ( F O N T M A
0021600 P A R R A Y N I L ' D I S P
0021620 L A Y ) ) \r
0021640 [ C O
0021660 N D \r
0021700 ( ( 006
0021720 002 t y p e ? 006 001 D E D I T M A
0021740 P T A I L ) \r
0021760
0022000 ( S E T Q M A K E M A P
0022020 ( O R ( 006 002 f e t c h 006 001
0022040 B P 006 002 o f 006 001 T A I L ) \r
0022060
*
0022120 T ) )
0022140 \r
0022160 ( O R
0022200 F I L E ( O U T P U T ( 006 002
0022220 f e t c h 006 001 P D S P 006 002 o
0022240 f 006 001 T A I L ) ) ) \r
0022260
0022300 [ O R F O N T
0022320 ( S E T Q F O N T ( 006 002 f e
0022340 t c h 006 001 F N T 006 002 o f 006 001
0022360 ( C O N D \r
0022400
*
0022460 ( ( N E Q M A K
0022500 E M A P T ) \r
0022520
*
0022600 M A K E M A P
0022620 ) \r
0022640
*
0022720 ( T T A I L ] \r
0022740
0022760 ( O R L E F T (
0023000 S E T Q L E F T ( 006 002 f e t
0023020 c h 006 001 S T A R T X 006 002 o f
0023040 006 001 T A I L ) ) ) \r
0023060
0023100 ( S E T Q T A I L
0023120 ( 006 002 f e t c h 006 001 T A I L
0023140 006 002 o f 006 001 T A I L ] \r
0023160
0023200 ( P R O G ( ( F I R
0023220 S T P O S ( D S P L E F T M A
0023240 R G I N ) ) \r
0023260
0023300 [ R M A R G I N ( I
0023320 P L U S ( D S P L E F T M A R
0023340 G I N ) \r
0023360
*
0023420 ( I D I F F E R E N C E
0023440 ( 006 002 f e t c h 006 001 W I D T H
0023460 006 002 o f 006 001 ( W I N D O W P
0023500 R O P F I L E \r
0023520
*
0023620 ' R E G I
0023640 O N ) ) \r
0023660
*
0023720 ( I T I M E
0023740 S 2 ( W I N D O W P R O P
0023760 F I L E ' B O R D E R ] \r
0024000
0024020 C O M M
0024040 E N T C O L F N S L S T T A
0024060 I L F L G F I L E F L G C H
0024100 A N G E F L G ( F O R M F L G
0024120 T ) ) \r
0024140
0024160 ( S E T F O N T F O N T
0024200 F I L E ) \r
0024220
0024240 ( D S P X P O S I T I O N
0024260 L E F T F I L E ) \r
0024300
0024320 ( S U P E R P
0024340 R I N T ( C A R T A I L ) \r
0024360
*
0024420 T A I L N I L F I L
0024440 E ] \r ( G E T M E 4 T
0024460 A I L T ] ) \r \r ( 006 004 D E D I
0024500 T - M A K E - R E A D E R - E N
0024520 V 006 001 \r [ L A M B D A ( E
0024540 X P R )
0024560
*
0024620 ( * ; " E d i t e d 2 6
0024640 - N o v - 8 6 1 6 : 3 8 b y
0024660 b v m : " ) \r
0024700
*
0024760 ( * ; ; ; " C r e
0025000 a t e s a R E A D E R - E N
0025020 V I R O N M E N T o b j e c t
0025040 t o c o n t r o l t h e
0025060 e d i t i n g e n v i r o n m
0025100 e n t o f E X P R . F o
0025120 r n o w , j u s t u s e
0025140 t h e c u r r e n t e n v i
0025160 r o n m e n t " ) \r ( M
0025200 A K E - R E A D E R - E N V I R
0025220 O N M E N T ( A N D A T M
0025240 ( C L : S Y M B O L P A T M )
0025260 \r
0025300
0025320 ( N E Q A T M ' N O B
0025340 I N D ) \r
0025360
0025400 ( C L : S Y M B O
0025420 L - P A C K A G E A T M ] ) \r
0025440 ) \r ( D E F I N E Q \r \r ( 006 004 R
0025460 E P P 006 001 \r [ L A M B D A
0025500 ( E N T )
0025520
*
0025560 ( * b v m % : " 9 -
0025600 J u n - 8 6 1 7 : 1 1 " ) \r
0025620 ( 006 002 b i n d 006 001 D S
0025640 O L D E 006 002 d o 006 001 ( S E T
0025660 Q O L D E E N T )
0025700
0025720 ( * ; " S a v e c
0025740 u r r e n t v a l u e " ) \r
0025760
0026000 ( S E T Q D S ( 006 002
0026020 f e t c h 006 001 P D S P 006 002 o
0026040 f 006 001 E N T ) ) \r
0026060 [
0026100 C O N D \r
0026120 [ ( 006
0026140 002 f e t c h 006 001 B P 006 002 o f
0026160 006 001 E N T )
0026200 ( * ; ;
0026220 " S u b e x p r e s s i o n -
0026240 - m o v e t o w h e r e
0026260 i t s t a r t s n o w , t
0026300 h e n r e p r i n t t h e
0026320 e x p r e s s i o n w i t h
0026340 c l i p p i n g r e g i o n
0026360 s e t t o c o n f i n e t
0026400 h e p r i n t i n g t o t
0026420 h e s p a c e n o w a v a
0026440 i l a b l e " ) \r
0026460
0026500 ( M O V E T O ( 006 002 f e t
0026520 c h 006 001 S T A R T X 006 002 o f
0026540 006 001 E N T ) \r
0026560
0026600 ( 006 002 f e t c h
0026620 006 001 S T A R T Y 006 002 o f 006 001
0026640 E N T ) \r
0026660
0026700 D S ) \r
0026720
0026740 ( R E S E T F O R M ( 006
0026760 002 R E S E T C L I P 006 001 ( C O
0027000 N S D S ( 006 002 U N P P 006 001
0027020 E N T ) ) ) \r
0027040
0027060 ( S E T Q E N T
0027100 ( 006 002 D E P R I N T D E F 006 001
0027120 E N T N I L N I L D S ]
0027140 \r
0027160 ( T
0027200
0027220 ( *
0027240 ; " R e p r i n t t h e
0027260 e n t i r e w i n d o w " ) \r
0027300
0027320 ( R E T U
0027340 R N ( S E T D E D I T M A P
0027360 D S ( 006 002 f e t c h 006 001 T A
0027400 I L 006 002 o f 006 001 E N T ] \r
0027420 006 002 r e p e a t w h
0027440 i l e 006 001 ( S E T Q E N T
0027460 ( 006 002 M O V E D S M A P 006 001 E
0027500 N T ( 006 002 f e t c h 006 001 S T
0027520 O P X 006 002 o f 006 001 O L D E )
0027540 \r
0027560
0027600 ( 006 002 f e t c h 006 001
0027620 S T O P Y 006 002 o f 006 001 O L D
0027640 E ) \r
0027660
0027700 ( 006 002 f e t c h 006
0027720 001 S T O P X 006 002 o f 006 001 E
0027740 N T ) \r
0027760
0030000 ( 006 002 f e t c h
0030020 006 001 S T O P Y 006 002 o f 006 001
0030040 E N T ] ) \r \r ( 006 004 R E P P C H
0030060 A N G E S 006 001 \r [ L A M B D
0030100 A ( U L )
0030120
*
0030160 ( * b a s % : " 1
0030200 2 - S e p - 8 4 1 3 : 5 7 " )
0030220 \r ( 006 002 f o r 006 001 I \r
0030240 006 002 i n 006 001 ( 006
0030260 002 b i n d 006 001 C L T E M 006
0030300 002 f o r 006 001 U E 006 002 i n 006 001
0030320 ( S E T Q U L ( 006 002 R E P
0030340 P U N R A V E L 006 001 U L ) ) \r
0030360 006 002 w
0030400 h e n 006 001 [ A N D ( S E T Q
0030420 T E M ( G E T M E 4 ( C A
0030440 R U E ) ) ) \r
0030460 (
0030500 P R O G ( S C R ( B K ( O
0030520 R ( 006 002 f e t c h 006 001 B P
0030540 006 002 o f 006 001 T E M ) \r
0030560
*
0030620 T E M ) ) \r
0030640
0030660 ( O
0030700 L D C A R ( C A D R U E ) )
0030720 \r
0030740
0030760 ( O L D C D R ( C D D R
0031000 U E ) ) \r
0031020
0031040 ( N E W C A R
0031060 ( C A A R U E ) ) \r
0031100
0031120 ( N E
0031140 W C D R ( C D A R U E ) ) )
0031160 \r
0031200 ( R
0031220 E T U R N ( C O N D \r
0031240
*
0031300 ( ( N E Q ( N L I S T
0031320 P N E W C A R ) \r
0031340
*
0031400 ( N L I S T P
0031420 O L D C A R ) ) \r
0031440
*
0031500 ( S E T Q T E M B K ) )
0031520 \r
0031540
0031560 ( ( E Q N E
0031600 W C D R O L D C D R ) \r
0031620
*
0031660 ( N E Q O L D C A
0031700 R N E W C A R ) ) \r
0031720
*
0031760 ( ( 006 002 R E P P T A N G L
0032000 E D P 006 001 ( C A R U E ) \r
0032020
*
0032060 U
0032100 L ) \r
0032120
0032140 ( S E T
0032160 Q T E M B K ) ) \r
0032200
*
0032240 ( ( 006 002 f o r 006 001 I 006
0032260 002 i n 006 001 C L 006 002 t h e r e
0032300 i s 006 001 ( D O M I N A T E ?
0032320 I T E M ) ) \r
0032340
*
0032400 ( S E T Q T E M B K ) ) \r
0032420
*
0032460 ( T ( O R (
0032500 S E L E C T Q ( S E T Q S C
0032520 R ( 006 002 R E P P I N S E R T 006
0032540 001 T E M O L D C D R N E W
0032560 C D R ) ) \r
0032600
*
0032640 ( N I L N I
0032660 L ) \r
0032700
*
0032740 ( T ( S E L E C T
0032760 Q ( S E T Q S C R ( 006 002 R
0033000 E P P D E L E T E 006 001 T E M
0033020 O L D C D R \r
0033040
*
0033140 N E W C D R ) )
0033160 \r
0033200
*
0033240 ( N I L
0033260 N I L ) \r
0033300
*
0033340 (
0033360 T ( S E T Q T E M B K ) )
0033400 \r
0033420
*
0033460 ( S E T Q
0033500 T E M S C R ) ) ) \r
0033520
*
0033560 (
0033600 S E T Q T E M S C R ) ) \r
0033620
*
0033660 ( N
0033700 E Q O L D C A R N E W C A R
0033720 ] \r 006
0033740 002 u n l e s s 006 001 ( 006 002 f o r
0033760 006 001 I 006 002 i n 006 001 C L 006
0034000 002 t h e r e i s 006 001 ( D O M I
0034020 N A T E ? I T E M ) ) 006 002
0034040 d o 006 001 ( 006 002 p u s h 006 001 C
0034060 L T E M ) \r
0034100 006 002 f i n a l l y 006 001
0034120 ( R E T U R N C L ) ) 006 002 w
0034140 h e n 006 001 ( U N P U R G E D P
0034160 I ) 006 002 d o 006 001
0034200 ( * ; ; " E a r l i e r e
0034220 l e m e n t s o f C L m a
0034240 y d o m i n a t e l a t e r
0034260 o n e s . I f s o , t
0034300 h e l a t t e r w i l l b
0034320 e p u r g e d b y t h e
0034340 f o r m e r ' s R E P P . " )
0034360 \r
0034400
*
0034440 ( 006 002 R E P P
0034460 006 001 I ] ) \r \r ( 006 004 R E P P U
0034500 N R A V E L 006 001 \r [ L A M B
0034520 D A ( U L )
0034540
*
0034600 ( * b a s % : "
0034620 2 5 - J U L - 8 2 2 1 : 0 5 "
0034640 ) \r
0034660
*
0034720 (
0034740 * ; ; \r
0034760
*
0035040 " R e v e r s e s a n d
0035060 u n p a c k s L I S P X H I
0035100 S T e n t r i e s " ) \r
0035120 ( P R O G ( R S L T ) \r
0035140 L P [ C O N D \r
0035160 ( ( N U L
0035200 L U L ) \r
0035220 ( R E T U R N R S L T
0035240 ) ) \r
0035260 [ ( E Q ' L I S P X H I S T
0035300 ( C A A R U L ) ) \r
0035320 ( 006 002 f o r 006
0035340 001 I 006 002 i n 006 001 ( C D A R
0035360 U L ) 006 002 d o 006 001 ( C O N
0035400 D \r
0035420
0035440 ( ( L I S T
0035460 P ( C A R I ) ) \r
0035500
*
0035540 ( 006 002 p u s h 006 001 R S
0035560 L T I ) ) \r
0035600
0035620 (
0035640 ( E Q ( C A R I ) \r
0035660
*
0035720 ' / R P L A C
0035740 A ) \r
0035760
0036000 ( 006 002 p
0036020 u s h 006 001 R S L T ( C O N S
0036040 ( C A D R I ) \r
0036060
*
0036140 ( C O N S ( C A D D R
0036160 I ) \r
0036200
*
0036260 ( C D A D R I ] \r
0036300 ( T ( 006
0036320 002 p u s h 006 001 R S L T ( C A
0036340 R U L ] \r
0036360 ( S E T Q U L ( C D R U L
0036400 ) ) \r ( G O
0036420 L P ] ) \r \r ( 006 004 R E P P D E
0036440 L E T E 006 001 \r [ L A M B D A
0036460 ( E N T O C D R N C D R )
0036500
*
0036540 ( * b a s % : " 7
0036560 - M a r - 8 4 1 8 : 0 9 " ) \r
0036600 ( P R O G ( [ E D G E
0036620 ( 006 002 f o r 006 001 I 006 002 o n
0036640 006 001 O C D R 006 002 t h e r e i
0036660 s 006 001 ( E Q N C D R ( C D
0036700 R I ] \r
0036720 N C E O C E S X S Y ) \r
0036740 ( C O N D \r
0036760 [ ( S E
0037000 T Q E D G E ( G E T M E 4
0037020 E D G E ) ) \r
0037040 ( S E T Q O C E (
0037060 G E T M E 4 O C D R T ) ) \r
0037100 [ A
0037120 N D N C D R ( S E T Q N C
0037140 E ( G E T M E 4 N C D R (
0037160 006 002 f e t c h 006 001 B P 006 002 o
0037200 f 006 001 E D G E ) ) ) \r
0037220 (
0037240 C O N D \r
0037260 ( ( 006 002 C
0037300 O M M E N T P 006 001 ( C A R N
0037320 C D R ) ) \r
0037340 ( S E
0037360 T Q S X ( 006 002 f e t c h 006 001
0037400 S T A R T X 006 002 o f 006 001 N
0037420 C E ] \r
0037440 [ 006 002 b i n d 006 001 I M 006
0037460 002 f o r 006 001 I 006 002 o n 006 001
0037500 O C D R 006 002 u n t i l 006 001 (
0037520 E Q I N C D R ) 006 002 w h e
0037540 n 006 001 ( S E T Q I M ( G E
0037560 T M E 4 I ) ) \r
0037600 006 002 d o 006 001
0037620 ( C O N D \r
0037640 ( (
0037660 006 002 C O M M E N T P 006 001 ( C A
0037700 R I ) ) \r
0037720 ( 006
0037740 002 U N P P 006 001 I M ) ) \r
0037760
0040000 ( T ( C O N D \r
0040020
0040040 ( ( 006 002 C O
0040060 M M E N T P 006 001 ( C A R N C
0040100 D R ) ) \r
0040120
0040140 ( 006 002 U N P P 006 001 I M )
0040160 ) ) \r
0040200 ( O R
0040220 S X ( S E T Q S X ( 006 002
0040240 f e t c h 006 001 S T A R T X 006
0040260 002 o f 006 001 I M ) ) ) \r
0040300
0040320 ( O R S Y ( S E
0040340 T Q S Y ( 006 002 f e t c h 006 001
0040360 S T A R T Y 006 002 o f 006 001 I
0040400 M ] \r
0040420 ( R E T U R N ( C O N D \r
0040440
0040460 [ N C D R [ A
0040500 N D S X ( D P C D R S E L
0040520 N C E ) \r
0040540
0040560 ( 006 002 a d d 006
0040600 001 S X ( W I D T H D O T S
0040620 T R I N G ( 006 002 f e t c h 006 001
0040640 F N T 006 002 o f 006 001 N C E ]
0040660 \r
0040700
0040720 ( 006 002 M O V E D S M A P 006 001 E
0040740 N T ( 006 002 f e t c h 006 001 S T
0040760 A R T X 006 002 o f 006 001 N C E )
0041000 \r
0041020
0041040 ( 006 002 f e t c h 006
0041060 001 S T A R T Y 006 002 o f 006 001
0041100 N C E ) \r
0041120
0041140 ( O R S
0041160 X ( 006 002 f e t c h 006 001 S T A
0041200 R T X 006 002 o f 006 001 N C E ) )
0041220 \r
0041240
0041260 ( O R S Y ( I
0041300 D I F F E R E N C E ( 006 002 f e
0041320 t c h 006 001 S T O P Y 006 002 o f
0041340 006 001 E N T ) \r
0041360
*
0041420 ( I D I
0041440 F F E R E N C E ( 006 002 f e t c
0041460 h 006 001 S T O P Y 006 002 o f 006 001
0041500 E D G E ) \r
0041520
*
0041600 ( 006 002 f e t c h 006 001 S T A
0041620 R T Y 006 002 o f 006 001 N C E ] \r
0041640
0041660 ( T ( 006 002 M
0041700 O V E D S M A P 006 001 E N T (
0041720 006 002 f e t c h 006 001 S T O P X
0041740 006 002 o f 006 001 E D G E ) \r
0041760
*
0042020 ( 006 002 f e t c h 006 001 S T O P Y
0042040 006 002 o f 006 001 E D G E ) \r
0042060
*
0042120 ( 006 002 f e t c h 006 001 S T O P
0042140 X 006 002 o f 006 001 E N T ) \r
0042160
*
0042220 ( 006 002 f e t c h 006 001 S T O P
0042240 Y 006 002 o f 006 001 E N T ] \r
0042260 ( T ( R
0042300 E T U R N T ] ) \r \r ( 006 004 R E
0042320 P P I N S E R T 006 001 \r [ L A
0042340 M B D A ( E N T O C D R N
0042360 C D R )
0042400
0042420 ( * b a s % :
0042440 " 7 - M A R - 8 3 0 9 : 3
0042460 1 " ) \r ( C O N D \r
0042500 [ ( A N D ( L I S T
0042520 P N C D R ) \r
0042540 ( O R ( N U L L O
0042560 C D R ) \r
0042600 ( T A I L P O C D
0042620 R N C D R ) ) ) \r
0042640 ( P R O G ( ( E D S ( 006
0042660 002 f e t c h 006 001 P D S P 006 002
0042700 o f 006 001 E N T ) ) \r
0042720 ( A L I G N
0042740 ( 006 002 S P A C I N G R U L E 006
0042760 001 ( 006 002 f e t c h 006 001 B P
0043000 006 002 o f 006 001 E N T ) ) ) \r
0043020 ( D E
0043040 L T A X ( C H A R W I D T H
0043060 ( C H A R C O D E S P A C E )
0043100 \r
0043120 (
0043140 006 002 f e t c h 006 001 F N T 006 002
0043160 o f 006 001 E N T ) ) ) \r
0043200 ( S X (
0043220 006 002 f e t c h 006 001 S T O P X
0043240 006 002 o f 006 001 E N T ) ) \r
0043260 ( S Y
0043300 ( 006 002 f e t c h 006 001 S T O P Y
0043320 006 002 o f 006 001 E N T ) ) \r
0043340 N X
0043360 N Y T M P )
0043400
0043420 ( * ;
0043440 \r
0043460
*
0043520 " D o e s
0043540 n t e n t e r P R O G u n
0043560 l e s s i t s a n i n s e
0043600 r t i o n " ) \r
0043620 [ S E T Q A L I G
0043640 N ( C O N D \r
0043660
0043700 ( A L I G N ( 006 002 f
0043720 e t c h 006 001 S T A R T X 006 002
0043740 o f 006 001 A L I G N ) ) \r
0043760
0044000 ( T ( I P
0044020 L U S D E L T A X S X ] \r
0044040 ( R E
0044060 S E T F O R M ( 006 002 R E S E T
0044100 C L I P 006 001 ( C O N S E D S
0044120 \r
0044140
0044160 ( 006 002 c r
0044200 e a t e 006 001 R E G I O N \r
0044220
*
0044260 L
0044300 E F T _ S X \r
0044320
*
0044360 B O T T O M
0044400 _ S Y \r
0044420
*
0044460 W I D T H _ 0
0044500 \r
0044520
*
0044560 H E I G H T _ 0 ) ) ) \r
0044600
0044620 ( M O V E T O S X
0044640 S Y E D S ) \r
0044660 ( 006 002
0044700 f o r 006 001 E 006 002 o n 006 001 N
0044720 C D R 006 002 u n t i l 006 001 ( E
0044740 Q E O C D R ) 006 002 f i r s
0044760 t 006 001 ( S E T Q T M P E N
0045000 T ) \r
0045020 006 002 d o 006
0045040 001 ( 006 002 L E A D S P A C E 006 001
0045060 E T M P A L I G N D E L
0045100 T A X E D S ) \r
0045120
0045140 ( S E T Q T M P ( 006
0045160 002 D E P R I N T D E F 006 001 E
0045200 ( D S P X P O S I T I O N N I
0045220 L E D S ) \r
0045240
*
0045300 ( 006 002 f e t c h 006 001 F N
0045320 T 006 002 o f 006 001 ( 006 002 f e t c
0045340 h 006 001 B P 006 002 o f 006 001 E N
0045360 T ) ) \r
0045400
*
0045440 E D S ) ) \r
0045460
0045500 ( 006 002 r e p l a c e 006 001 B P
0045520 006 002 o f 006 001 T M P 006 002 w i
0045540 t h 006 001 ( 006 002 f e t c h 006 001
0045560 B P 006 002 o f 006 001 E N T ) ) \r
0045600
0045620 006 002 f i n a l l
0045640 y 006 001 ( 006 002 L E A D S P A C E
0045660 006 001 O C D R T M P A L I G
0045700 N D E L T A X E D S ) ) ) \r
0045720 ( S
0045740 E T Q N X ( D S P X P O S I
0045760 T I O N N I L E D S ) ) \r
0046000 ( S E
0046020 T Q N Y ( D S P Y P O S I T
0046040 I O N N I L E D S ) ) \r
0046060 [ P R O
0046100 G ( N S Y ( Q V ( G E T M
0046120 E 4 O C D R ) ) ) \r
0046140 (
0046160 C O N D \r
0046200 ( Q V
0046220 ( S E T Q N S Y ( 006 002 f e t
0046240 c h 006 001 S T A R T Y 006 002 o f
0046260 006 001 Q V ) ) \r
0046300
0046320 ( S E T Q S X ( 006 002 f
0046340 e t c h 006 001 S T A R T X 006 002
0046360 o f 006 001 Q V ) ) \r
0046400
0046420 ( C O N D \r
0046440
0046460 ( ( I L E S S
0046500 P N S Y S Y ) \r
0046520
0046540 ( 006 002 R E F R
0046560 E S H I F 006 001 E D S ( 006 002 H
0046600 I P T 006 001 E N T ) \r
0046620
*
0046660 ( A D D 1 ( 006 002 H I P T 006 001
0046700 Q V ) ) ) ( * ;
0046720 \r
0046740
*
0047000 "
0047020 S o m e a c t i o n a t t
0047040 h e e n d o f E N T ' s
0047060 l i n e ? " ) \r
0047100
0047120 ( S E T Q S Y
0047140 N S Y ) ) \r
0047160
0047200 ( ( E Q N S Y S Y )
0047220
0047240 ( * ; \r
0047260
*
0047320 " D o n t m o v e i f i
0047340 n s e r t d i d n o t r e
0047360 a c h r e s t o f l i n e
0047400 e g a c o m m e n t " ) \r
0047420
0047440 (
0047460 S E T Q N X ( I M A X N X
0047500 S X ] \r
0047520 ( R E T U R N ( 006 002 M O
0047540 V E D S M A P 006 001 T M P S X
0047560 S Y N X N Y ] \r
0047600 ( T T ] ) \r \r ( 006 004 R E P
0047620 P T A N G L E D P 006 001 \r [ L
0047640 A M B D A ( E L )
0047660
*
0047720 ( * b a s %
0047740 : " 3 - D e c - 8 4 2 1 :
0047760 4 5 " ) \r
0050000
*
0050060 ( * ; ; " C a n o n l
0050100 y h a n d l e o n e c h a
0050120 n g e p e r c e l l b e c
0050140 a u s e o f c a n c e l l i
0050160 n g c h a n g e s o r o n
0050200 e C D R c h a n g e p e r
0050220 c o m m a n d l e s t d i
0050240 f f e r e n t C D R c h a n
0050260 g e s s h a r e e l e m e n
0050300 t s " ) \r ( 006 002 b i n d
0050320 006 001 E C C C C 006 002 f o r 006
0050340 001 I 006 002 i n 006 001 L 006 002 w
0050360 h e n 006 001 ( G E T M E 4 ( C
0050400 A R I ) ) 006 002 d o 006 001 ( C
0050420 O N D \r
0050440
*
0050500 ( ( N E
0050520 Q E ( C A R I ) ) ) \r
0050540
*
0050620 ( E C ( R E T U R
0050640 N T ) ) \r
0050660
*
0050720 ( T
0050740 ( S E T Q E C T ) ) ) \r
0050760
*
0051040 ( C O N D \r
0051060
*
0051140 ( ( E Q ( C D A R I ) \r
0051160
*
0051240 ( C D
0051260 D R I ) ) ) \r
0051300
*
0051360 ( C C C ( R E T U R N T ) )
0051400 \r
0051420
*
0051460 ( T ( S E T
0051500 Q C C C T ] ) \r \r ( 006 004 L E
0051520 A D S P A C E 006 001 \r [ L A M
0051540 B D A ( E P R V A L I G N
0051560 D E L T A X E D S )
0051600
0051620 ( * b a s % :
0051640 " 3 - D E C - 8 2 1 8 : 4 0
0051660 " ) \r ( C O N D \r
0051700 ( ( N O T E ) ) \r
0051720 ( [ A N D ( L I S T
0051740 P ( C A R ( 006 002 f e t c h 006
0051760 001 T A I L 006 002 o f 006 001 P R
0052000 V ) ) ) \r
0052020 ( N O T ( 006 002 C O M M E N
0052040 T P 006 001 ( C A R E ] \r
0052060 ( M O V E T O A L I
0052100 G N ( I P L U S ( D S P Y P
0052120 O S I T I O N N I L E D S )
0052140 \r
0052160 ( D
0052200 S P L I N E F E E D N I L E
0052220 D S ) ) \r
0052240 E D S ) ) \r
0052260 ( T ( R E L M O V E T O D
0052300 E L T A X 0 E D S ] ) \r \r (
0052320 006 004 S P A C I N G R U L E 006 001 \r
0052340 [ L A M B D A ( B M E )
0052360
*
0052420 ( *
0052440 b a s % : " 1 2 - S e p - 8 4
0052460 1 0 : 4 6 " ) \r
0052500
*
0052560 ( * ; ; \r
0052600 " L o o k s f o r
0052620 s o m e o n e w h o m i g
0052640 h t k n o w w h a t t h e
0052660 c u r r e n t l e f t m a
0052700 r g i n i s a n d r e t u
0052720 r n s t h a t s o m e o n e
0052740 . " ) \r ( 006 002 b i n d 006
0052760 001 P Q 006 002 f o r 006 001 E
0053000 006 002 o n 006 001 ( 006 002 f e t c h 006
0053020 001 S E L E X P 006 002 o f 006 001
0053040 B M E ) 006 002 u n l e s s 006 001
0053060 ( 006 002 C O M M E N T P 006 001 ( C
0053100 A R E ) ) 006 002 w h e n 006 001
0053120 ( S E T Q Q ( G E T S E L M
0053140 A P E ) ) \r 006 002
0053160 d o 006 001 ( C O N D \r
0053200 ( ( N E Q ( 006
0053220 002 f e t c h 006 001 S T A R T Y
0053240 006 002 o f 006 001 Q ) \r
0053260 ( 006 002
0053300 f e t c h 006 001 S T A R T Y 006
0053320 002 o f 006 001 B M E ) ) \r
0053340 ( R E T U R
0053360 N Q ) ) \r
0053400 ( P ) \r
0053420 ( T ( S E T Q P Q
0053440 ) ) ) 006 002 f i n a l l y 006 001
0053460 ( R E T U R N P ] ) \r \r ( 006 004
0053500 U N P P 006 001 \r [ L A M B D A
0053520 ( E N T )
0053540
*
0053600 ( * b a s % : " 4
0053620 - O C T - 8 2 1 5 : 2 5 " ) \r
0053640
*
0053720 ( *
0053740 ; ; \r
0053760
*
0054040 " C l e a r s r e g i o n p
0054060 r i n t e d b y E N T , c
0054100 a r e f u l l y " ) \r (
0054120 P R O G ( ( E D S ( 006 002 f e
0054140 t c h 006 001 P D S P 006 002 o f 006
0054160 001 E N T ) ) \r
0054200 ( H ( F O N T P R O P
0054220 ( 006 002 f e t c h 006 001 F N T 006
0054240 002 o f 006 001 E N T ) \r
0054260
0054300 ' H E I G H T ) ) \r
0054320 ( H I ( A D D 1 (
0054340 006 002 H I P T 006 001 E N T ) ) ) \r
0054360 ( L O (
0054400 006 002 L O W P T 006 001 E N T ) ) \r
0054420 R ) \r
0054440 ( S E T Q R
0054460 ( D S P C L I P P I N G R E G I
0054500 O N N I L E D S ) ) \r
0054520 ( C O N D \r
0054540 ( ( N O T
0054560 ( 006 002 f e t c h 006 001 B P 006 002
0054600 o f 006 001 E N T ) ) \r
0054620 ( 006 002 W I P E
0054640 006 001 ( 006 002 f e t c h 006 001 L E
0054660 F T 006 002 o f 006 001 R ) \r
0054700
0054720 ( 006 002 f e t c h 006 001 B O T T
0054740 O M 006 002 o f 006 001 R ) \r
0054760
0055000 ( 006 002 f e t c h 006 001 W I D T
0055020 H 006 002 o f 006 001 R ) \r
0055040
0055060 ( 006 002 f e t c h 006 001 H E I G H
0055100 T 006 002 o f 006 001 R ) \r
0055120
0055140 E D S ) \r
0055160 ( R E T U R N R ) ) \r
0055200 ( ( 006 002
0055220 O N E L I N E P 006 001 E N T ) \r
0055240 ( 006
0055260 002 W I P E 006 001 ( 006 002 f e t c h
0055300 006 001 S T A R T X 006 002 o f 006 001
0055320 E N T ) \r
0055340 L O \r
0055360
0055400 ( I D I F F E R E N C E ( 006
0055420 002 f e t c h 006 001 S T O P X 006
0055440 002 o f 006 001 E N T ) \r
0055460
0055500 ( 006 002 f e t c h 006 001
0055520 S T A R T X 006 002 o f 006 001 E
0055540 N T ) ) \r
0055560 H E D S ) )
0055600 \r ( T
0055620 ( 006 002 W I P E 006 001 ( 006 002 f e
0055640 t c h 006 001 S T A R T X 006 002 o
0055660 f 006 001 E N T ) \r
0055700 (
0055720 I D I F F E R E N C E H I H
0055740 ) \r
0055760 ( I D I F F E R
0056000 E N C E ( 006 002 f e t c h 006 001
0056020 P R I G H T 006 002 o f 006 001 R )
0056040 \r
0056060 ( 006
0056100 002 f e t c h 006 001 S T A R T X
0056120 006 002 o f 006 001 E N T ) ) \r
0056140
0056160 H E D S )
0056200
0056220 ( * ; \r
0056240
*
0056320 " A m a z i n g l y
0056340 e n o u g h t h i s i s a
0056360 s g o o d a s o n e c a
0056400 n d o " ) \r
0056420 ( 006 002 W I P E 006 001
0056440 ( 006 002 f e t c h 006 001 L E F T
0056460 006 002 o f 006 001 R ) \r
0056500
0056520 ( I P L U S L O H ) \r
0056540
0056560 ( 006 002 f e t c h 006 001 W
0056600 I D T H 006 002 o f 006 001 R ) \r
0056620
0056640 ( I D I F F E R E N C
0056660 E ( I D I F F E R E N C E H
0056700 I H ) \r
0056720
0056740 ( I P L U S L O H ) ) \r
0056760
0057000 E D S ) \r
0057020 ( 006 002 W I
0057040 P E 006 001 ( 006 002 f e t c h 006 001
0057060 L E F T 006 002 o f 006 001 R ) \r
0057100
0057120 L O \r
0057140 ( A
0057160 D D 1 ( I D I F F E R E N C E
0057200 ( 006 002 f e t c h 006 001 S T O P
0057220 X 006 002 o f 006 001 E N T ) \r
0057240
*
0057300 ( 006 002 f e t c h 006 001 L E F T
0057320 006 002 o f 006 001 R ) ) ) \r
0057340
0057360 H E D S ) ) ) \r
0057400 ( R E T U R N ( 006
0057420 002 c r e a t e 006 001 R E G I O N
0057440 \r
0057460 L E F T _
0057500 ( 006 002 f e t c h 006 001 L E F T
0057520 006 002 o f 006 001 R ) \r
0057540
0057560 B O T T O M _ ( I M
0057600 A X L O ( 006 002 f e t c h 006 001
0057620 B O T T O M 006 002 o f 006 001 R
0057640 ) ) \r
0057660 W I D T
0057700 H _ ( C O N D \r
0057720
0057740 ( (
0057760 006 002 O N E L I N E P 006 001 E N T
0060000 ) \r
0060020
0060040 ( I D I F F E R E
0060060 N C E ( 006 002 N X T U S E D X 006
0060100 001 E N T ) \r
0060120
*
0060160 ( 006 002 f e t c h 006 001 L E
0060200 F T 006 002 o f 006 001 R ) ) ) \r
0060220
*
0060260 ( T ( 006 002 f e t c h 006 001
0060300 W I D T H 006 002 o f 006 001 R )
0060320 ) ) \r
0060340 H E I G
0060360 H T _ ( I M A X 0 ( I D
0060400 I F F E R E N C E ( I M I N
0060420 H I ( 006 002 f e t c h 006 001 T O
0060440 P 006 002 o f 006 001 R ) ) \r
0060460
*
0060520 ( I
0060540 M A X L O ( 006 002 f e t c h 006
0060560 001 B O T T O M 006 002 o f 006 001
0060600 R ] ) \r \r ( 006 004 N X T U S E D X
0060620 006 001 \r [ L A M B D A ( E )
0060640
*
0060720 ( * b a s % : " 5 - F e b
0060740 - 8 4 2 1 : 0 6 " ) \r
0060760
*
0061040 ( * ; ; \r
0061060
*
0061120 " F i n d s t
0061140 h e f i r s t u s e d X
0061160 l o c o n t h e s a m e
0061200 l i n e a s t h e e n d
0061220 o f E " ) \r ( P R O G
0061240 ( V ) \r (
0061260 R E T U R N ( O R [ C O N D
0061300 \r
0061320 [ ( S E T Q
0061340 V ( C D R ( 006 002 f e t c h
0061360 006 001 T A I L 006 002 o f 006 001 E
0061400 ) ) ) \r
0061420 ( C
0061440 O N D \r
0061460
0061500 [ ( L I S T P V ) \r
0061520
0061540 ( S E T Q
0061560 V ( G E T M E 4 V ( G E T
0061600 M E B P E ) ) ) \r
0061620
0061640 ( C O N D \r
0061660
0061700 (
0061720 ( E Q ( 006 002 f e t c h 006 001 S
0061740 T A R T Y 006 002 o f 006 001 V ) \r
0061760
*
0062020 ( 006 002 f e t c h 006 001
0062040 S T O P Y 006 002 o f 006 001 E )
0062060 ) \r
0062100
0062120 ( 006 002 f e t c h 006 001 S
0062140 T A R T X 006 002 o f 006 001 V ] \r
0062160
0062200 ( T
0062220
0062240 ( *
0062260 ; " D o t t e d p a i r " )
0062300 \r
0062320
0062340 ( I P L U S ( 006 002 f e t c h
0062360 006 001 S T O P X 006 002 o f 006 001
0062400 E ) \r
0062420
0062440 ( C H A R W
0062460 I D T H ( C H A R C O D E S
0062500 P A C E ) \r
0062520
*
0062560 ( 006 002 f e t c h 006 001 F
0062600 N T 006 002 o f 006 001 E ] \r
0062620
0062640 ( ( S E T Q V (
0062660 006 002 f e t c h 006 001 B P 006 002 o
0062700 f 006 001 E ) ) \r
0062720
0062740 ( C O N D \r
0062760
0063000 ( ( E Q ( 006 002 f e t
0063020 c h 006 001 S T O P Y 006 002 o f 006
0063040 001 V ) \r
0063060
0063100 ( 006 002 f e t c h 006
0063120 001 S T O P Y 006 002 o f 006 001 E
0063140 ) ) \r
0063160
0063200 ( 006 002 f e t c h 006 001 R P S T
0063220 A R T 006 002 o f 006 001 V ] \r
0063240
0063260 ( 006 002 f e t c h 006 001 R
0063300 I G H T 006 002 o f 006 001 ( D S P
0063320 C L I P P I N G R E G I O N N
0063340 I L ( 006 002 f e t c h 006 001 P D
0063360 S P 006 002 o f 006 001 E ] ) \r \r (
0063400 006 004 O N E L I N E P 006 001 \r [
0063420 L A M B D A ( E N T )
0063440
*
0063500 ( * b a s
0063520 % : " 4 - O C T - 8 2 1 5
0063540 : 2 6 " ) \r ( E Q ( 006
0063560 002 f e t c h 006 001 S T A R T Y
0063600 006 002 o f 006 001 E N T ) \r
0063620 ( 006 002 f e t c h 006 001 S
0063640 T O P Y 006 002 o f 006 001 E N T ]
0063660 ) \r ) \r ( D E F I N E Q \r \r ( 006
0063700 004 M O V E D S M A P 006 001 \r [
0063720 L A M B D A ( E N T O X O
0063740 Y N X N Y )
0063760
0064000 ( * b a s
0064020 % : " 3 0 - S e p - 8 4 1 4
0064040 : 0 2 " ) \r
0064060
*
0064140 ( * ; ; " A P O L O G
0064160 Y : T h i s c o d e a n d
0064200 a n y p a t h b y w h i
0064220 c h y o u g o t h e r e
0064240 i s a f r i g h t f u l k
0064260 l u d g e . W A R N I N G :
0064300 I t i s a l s o v e r y
0064320 t r i c k y a s t h e r e
0064340 a r e l o t s o f s p e
0064360 c i a l c a s e s . " ) \r
0064400 ( P R O G ( O L O W N L
0064420 O W F O N T H N E X T R E
0064440 G B O T T O M L E F T R I
0064460 G H T W I D T H ( D X ( I
0064500 D I F F E R E N C E N X O X
0064520 ) ) \r
0064540 ( D Y ( I D I F F E R E
0064560 N C E N Y O Y ) ) \r
0064600 ( L I N
0064620 E F O N T ( 006 002 D S L I N E F
0064640 O N T 006 001 E N T O Y ) ) \r
0064660 (
0064700 E P D S ( 006 002 f e t c h 006 001
0064720 P D S P 006 002 o f 006 001 E N T )
0064740 ) ) \r ( S E
0064760 T Q F O N T H ( F O N T P R
0065000 O P L I N E F O N T ' D E S
0065020 C E N T ) ) \r
0065040 ( S E T Q N L O W ( I D I
0065060 F F E R E N C E N Y F O N T
0065100 H ) ) \r ( S
0065120 E T Q O L O W ( I D I F F E
0065140 R E N C E O Y F O N T H ) )
0065160 \r ( S E T Q
0065200 F O N T H ( F O N T P R O P
0065220 L I N E F O N T ' H E I G H
0065240 T ) ) \r ( S
0065260 E T Q R E G ( D S P C L I P
0065300 P I N G R E G I O N N I L E
0065320 P D S ) ) \r
0065340 ( S E T Q B O T T O M ( 006 002
0065360 f e t c h 006 001 B O T T O M 006
0065400 002 o f 006 001 R E G ) ) \r
0065420 ( S E T Q L E F T
0065440 ( 006 002 f e t c h 006 001 L E F T
0065460 006 002 o f 006 001 R E G ) ) \r
0065500 ( S E T Q R I
0065520 G H T ( 006 002 f e t c h 006 001 P
0065540 R I G H T 006 002 o f 006 001 R E G
0065560 ) ) \r ( S E
0065600 T Q W I D T H ( 006 002 f e t c
0065620 h 006 001 W I D T H 006 002 o f 006 001
0065640 R E G ) ) \r
0065660 [ C O N D \r
0065700 ( ( Z E R O P D X ) )
0065720 \r ( T
0065740 ( 006 002 f o r 006 001 ( B _ E
0065760 N T ) 006 002 b y 006 001 ( 006 002 f e
0066000 t c h 006 001 B P 006 002 o f 006 001
0066020 B ) 006 002 w h i l e 006 001 ( 006 002
0066040 f e t c h 006 001 B P 006 002 o f 006
0066060 001 B ) \r
0066100 006 002 d o 006 001 (
0066120 S E T Q N E X T ( O R ( 006
0066140 002 A D J U S T X T A I L 006 001 (
0066160 C D R ( 006 002 f e t c h 006 001 T
0066200 A I L 006 002 o f 006 001 B ) ) \r
0066220
*
0066260 ( 006 002 f e
0066300 t c h 006 001 B P 006 002 o f 006 001
0066320 B ) \r
0066340
0066360 D
0066400 X O Y R I G H T ) \r
0066420
*
0066460 N E X T ) ) )
0066500 ( * ; " M
0066520 o v e t h e r e s t o f
0066540 t h e l i n e " ) \r
0066560 ( C O N D
0066600 \r
0066620 ( ( A N D ( I L E S S
0066640 P D X 0 ) \r
0066660
0066700 ( I G E Q D Y 0 ) ) \r
0066720
0066740 ( B I T B L T E P D S O
0066760 X O L O W E P D S N X O
0067000 L O W ( I D I F F E R E N C E
0067020 R I G H T O X ) \r
0067040
0067060 F O N T H \r
0067100
0067120 ' I N P U T \r
0067140
0067160 ' R E P L A C
0067200 E )
0067220 ( * ;
0067240 " M o v e i n t h e n b l
0067260 a n k o u t f a r e d g e
0067300 " ) \r
0067320 ( 006 002 W I P E 006 001
0067340 ( I P L U S R I G H T D X
0067360 ) \r
0067400 O L O W
0067420 \r
0067440 ( I M I N
0067460 U S D X ) \r
0067500
0067520 F O N T H E P D S ) ) \r
0067540
0067560 ( T
0067600
0067620 ( * ;
0067640 " I m a g e i s f i l l e d
0067660 i n a t e x i t " ) \r
0067700
0067720 ( 006 002 W I P E 006 001 O X
0067740 O L O W ( I D I F F E R E N
0067760 C E R I G H T O X ) \r
0070000
0070020 F O N T H E
0070040 P D S ] \r [
0070060 C O N D \r
0070100 ( ( Z E R O P D Y ) ) \r
0070120 ( T (
0070140 B I T B L T E P D S L E F T
0070160 B O T T O M E P D S L E F
0070200 T ( I P L U S B O T T O M
0070220 D Y ) \r
0070240 W I D T H
0070260 \r
0070300 ( I D I F F E R
0070320 E N C E O L O W B O T T O M
0070340 ) \r
0070360 ' I N P U T \r
0070400
0070420 ' R E P L A C E )
0070440 \r
0070460 ( 006 002 f o r 006 001 ( B _ E
0070500 N T ) 006 002 b y 006 001 ( 006 002 f e
0070520 t c h 006 001 B P 006 002 o f 006 001
0070540 B ) 006 002 w h i l e 006 001 ( 006 002
0070560 f e t c h 006 001 B P 006 002 o f 006
0070600 001 B ) \r
0070620 006 002 d o 006 001
0070640
*
0070700 ( * ; \r
0070720
*
0070760 " M a p o v e r e v e
0071000 r y t h i n g t o t h e b
0071020 o t t o m r i g h t m o v i
0071040 n g i t v e r t i c a l l y
0071060 " ) \r
0071100 ( 006 002 A D J U
0071120 S T Y T A I L 006 001 ( C D R (
0071140 006 002 f e t c h 006 001 T A I L 006
0071160 002 o f 006 001 B ) ) \r
0071200
0071220 ( 006 002 f e t c h 006
0071240 001 B P 006 002 o f 006 001 B ) \r
0071260
0071300 O Y D
0071320 Y ) ) \r
0071340 ( 006 002 A D J D E E X T E
0071360 N T 006 001 E P D S D Y )
0071400
0071420 ( * ; \r
0071440
*
0071520 " F i x e x t
0071540 e n t a n d b l a n k i n
0071560 s e r t e d s p a c e " ) \r
0071600 (
0071620 C O N D \r
0071640 ( ( I G R E A T
0071660 E R P D Y 0 ) \r
0071700 ( 006
0071720 002 W I P E 006 001 L E F T ( I M
0071740 I N B O T T O M O L O W ) \r
0071760
0072000 W I D T H
0072020 D Y E P D S )
0072040 ( *
0072060 ; " R e p a i n t i n t o
0072100 c l e a r e d s p a c e " ) \r
0072120
0072140 ( 006 002 R E F R E S H I F
0072160 006 001 E P D S ( I P L U S B
0072200 O T T O M D Y ) \r
0072220
0072240 B O T T O M )
0072260
0072300 ( * ; " C l e
0072320 a r r e s t o f n e w l
0072340 i n e " ) \r
0072360 ( 006 002 W I P
0072400 E 006 001 N X N L O W ( I D I
0072420 F F E R E N C E R I G H T N
0072440 X ) \r
0072460 F O N
0072500 T H E P D S ) ) \r
0072520 ( T
0072540 [ S E T Q N L O W ( I M I N
0072560 N L O W ( I P L U S D Y
0072600 ( 006 002 f e t c h 006 001 P T O P
0072620 006 002 o f 006 001 R E G ] \r
0072640
0072660 ( 006 002 W I P E 006 001 L E F T
0072700 N L O W W I D T H ( I M I
0072720 N U S D Y ) \r
0072740
0072760 E P D S )
0073000
0073020 ( * ; \r
0073040
*
0073120 " C l e a r p o s s i b
0073140 l e t r a s h t h r u w h
0073160 i c h w e e x t e n d e d "
0073200 ) \r
0073220 ( 006 002 W I P E 006
0073240 001 L E F T O L O W W I D T
0073260 H F O N T H E P D S ] \r
0073300 ( 006 002 R E F R E
0073320 S H I F 006 001 E P D S ( I P L
0073340 U S F O N T H - 1 ( I M A
0073360 X N L O W O L O W ) ) \r
0073400 (
0073420 A D D 1 N L O W ) )
0073440
0073460 ( * ; ;
0073500 " A n o t h e r s m a l l
0073520 k l u d g e . A s l i g h
0073540 t l y b i g g e r f o n t
0073560 l i k e C L I S P F O N T o
0073600 n t h e n e x t l i n e
0073620 m i g h t s t i c k u p i
0073640 n t o N L O W a n d t h u
0073660 s g e t r e f r e s h e d .
0073700 U n f o r t u n a t e l y ,
0073720 t h e r e i s n o g u a
0073740 r r a n t e e t h a t t h a
0073760 t l i n e w i l l b e v
0074000 a l i d t o r e f r e s h .
0074020 C o r r e c t s o l u t i
0074040 o n i s t o m a k e l i
0074060 n e s p a c i n g o n p r
0074100 i n t i n g s u c h t h a t
0074120 n o t w o l i n e s t o
0074140 u c h . F o r n o w , w
0074160 e d i d d l e t h e N L O
0074200 W v a l u e t o a v o i d
0074220 t o u c h i n g t h e n e
0074240 x t l i n e d o w n . " ) \r
0074260 ( R E T U R
0074300 N N E X T ] ) \r \r ( 006 004 A D J
0074320 U S T X T A I L 006 001 \r [ L A
0074340 M B D A ( T A I L B K D X
0074360 Y L I N E R I G H T )
0074400
0074420 ( * b a s % :
0074440 " 3 - D e c - 8 4 2 2 : 0
0074460 7 " ) \r ( P R O G ( O
0074500 V E R ) \r [
0074520 006 002 b i n d 006 001 I M 006 002 f o
0074540 r 006 001 I 006 002 o n 006 001 T A I
0074560 L 006 002 w h e n 006 001 ( S E T Q
0074600 I M ( G E T M E 4 I ) ) \r
0074620 006 002 d
0074640 o 006 001 ( C O N D \r
0074660 ( ( N
0074700 E Q Y L I N E ( 006 002 f e t c
0074720 h 006 001 S T A R T Y 006 002 o f 006
0074740 001 I M ) ) \r
0074760 ( R E T U
0075000 R N ) ) \r
0075020 ( ( I G R E A T
0075040 E R P R I G H T ( 006 002 a d d
0075060 006 001 ( 006 002 f e t c h 006 001 S T
0075100 A R T X 006 002 o f 006 001 I M ) \r
0075120
*
0075160 D X ) ) ) \r
0075200
0075220 ( T ( S E T Q O V E R
0075240 B K ) ) ) \r
0075260 ( A N D [ C O N
0075300 D \r
0075320 ( ( L I S T
0075340 P ( C A R I ) ) \r
0075360
0075400 ( 006 002 A D J U S T X T A
0075420 I L 006 001 ( C A R I ) \r
0075440
0075460 I M
0075500 D X Y L I N E R I G H T ) )
0075520 \r
0075540 ( ( E Q Y L
0075560 I N E ( 006 002 f e t c h 006 001 S
0075600 T O P Y 006 002 o f 006 001 I M ) )
0075620 \r
0075640 ( I L E Q
0075660 R I G H T ( 006 002 a d d 006 001 (
0075700 006 002 f e t c h 006 001 S T O P X
0075720 006 002 o f 006 001 I M ) \r
0075740
*
0076000 D X ] \r
0076020 ( S
0076040 E T Q O V E R B K ) ) 006 002
0076060 f i n a l l y 006 001 ( C O N D \r
0076100
*
0076160 ( ( S E T Q I M ( G E T M E
0076200 4 I B K ) ) \r
0076220
*
0076260 ( A N D (
0076300 E Q Y L I N E ( 006 002 f e t c
0076320 h 006 001 S T A R T Y 006 002 o f 006
0076340 001 I M ) ) \r
0076360
*
0076420 ( I L
0076440 E Q R I G H T ( 006 002 a d d 006
0076460 001 ( 006 002 f e t c h 006 001 S T A
0076500 R T X 006 002 o f 006 001 I M ) \r
0076520
*
0076620 D X ) ) \r
0076640
*
0076720 ( S E T Q O V E R B K ) )
0076740 \r
0076760
*
0077020 ( A N D ( E Q Y L I N E
0077040 ( 006 002 f e t c h 006 001 S T O P
0077060 Y 006 002 o f 006 001 I M ) ) \r
0077100
*
0077160 ( I L E Q R I G H T
0077200 ( 006 002 a d d 006 001 ( 006 002 f e t c
0077220 h 006 001 S T O P X 006 002 o f 006 001
0077240 I M ) \r
0077260
*
0077340 D X ) )
0077360 \r
0077400
*
0077440 ( S E T Q O V E
0077460 R B K ] \r
0077500 ( A N D ( E Q Y L I N E (
0077520 006 002 f e t c h 006 001 S T O P Y
0077540 006 002 o f 006 001 B K ) ) \r
0077560 ( I L E Q
0077600 R I G H T ( 006 002 a d d 006 001
0077620 ( 006 002 f e t c h 006 001 S T O P X
0077640 006 002 o f 006 001 B K ) \r
0077660
0077700 D X ) )
0077720 \r
0077740 ( S E T Q O V E R ( O R (
0077760 006 002 f e t c h 006 001 B P 006 002 o
0100000 f 006 001 B K ) \r
0100020
0100040 B K ) ) ) \r
0100060 ( R E T U R N O V
0100100 E R ] ) \r \r ( 006 004 A D J U S T Y
0100120 T A I L 006 001 \r [ L A M B D A
0100140 ( T A I L B K O Y D )
0100160
*
0100220 ( * b a s % : " 3
0100240 - D e c - 8 4 2 2 : 0 7 " ) \r
0100260 [ 006 002 b i n d 006 001 I M
0100300 006 002 f o r 006 001 I 006 002 o n 006
0100320 001 T A I L 006 002 w h e n 006 001
0100340 ( S E T Q I M ( G E T M E 4
0100360 I ) ) \r 006 002 d o
0100400 006 001 ( 006 002 a d d 006 001 ( 006 002 f
0100420 e t c h 006 001 S T A R T Y 006 002
0100440 o f 006 001 I M ) \r
0100460 D ) \r
0100500 ( C O N D \r
0100520 ( ( L I S T P
0100540 ( C A R I ) ) \r
0100560 ( 006 002 A D J U S T
0100600 Y T A I L 006 001 ( C A R I ) \r
0100620
0100640 I M O Y D ) ) \r
0100660 ( T (
0100700 006 002 a d d 006 001 ( 006 002 f e t c h
0100720 006 001 S T O P Y 006 002 o f 006 001
0100740 I M ) \r
0100760 D ) ) ) 006 002
0101000 f i n a l l y 006 001 ( C O N D \r
0101020
*
0101060 ( ( S E T Q I M (
0101100 G E T M E 4 I B K ) ) \r
0101120
*
0101160 ( 006 002 a d d 006 001 ( 006 002
0101200 f e t c h 006 001 S T A R T Y 006
0101220 002 o f 006 001 I M ) \r
0101240
*
0101300 D ) \r
0101320
0101340 ( 006
0101360 002 a d d 006 001 ( 006 002 f e t c h 006
0101400 001 S T O P Y 006 002 o f 006 001 I
0101420 M ) \r
0101440
0101460 D ]
0101500 \r ( 006 002 a d d 006 001 ( 006
0101520 002 f e t c h 006 001 S T O P Y 006
0101540 002 o f 006 001 B K ) \r
0101560 D ] ) \r \r ( 006 004 A D J D E
0101600 E X T E N T 006 001 \r [ L A M B
0101620 D A ( E X D Y )
0101640
*
0101700 ( * b a s % : "
0101720 1 9 - J U L - 8 2 1 7 : 0 5 "
0101740 ) \r ( O R ( S E T Q
0101760 E X ( W I N D O W P R O P E
0102000 X ' E X T E N T ) ) \r
0102020 ( S H O U L D N T ) ) \r
0102040 ( 006 002 a d d 006 001 ( 006 002
0102060 f e t c h 006 001 B O T T O M 006
0102100 002 o f 006 001 E X ) \r
0102120 D Y ) \r ( 006 002 a d
0102140 d 006 001 ( 006 002 f e t c h 006 001 H
0102160 E I G H T 006 002 o f 006 001 E X )
0102200 \r ( I M I N U
0102220 S D Y ] ) \r \r ( 006 004 D S L I N
0102240 E F O N T 006 001 \r [ L A M B D
0102260 A ( E Y )
0102300
*
0102340 ( * b a s % : " 3
0102360 0 - M a r - 8 4 1 1 : 2 2 " )
0102400 \r ( 006 002 D S L I N E F O
0102420 N T 1 006 001 [ 006 002 f o r 006 001 006
0102440 002 o l d 006 001 E 006 002 b y 006 001
0102460 ( 006 002 f e t c h 006 001 B P 006 002
0102500 o f 006 001 E ) \r
0102520 006 002 t h
0102540 e r e i s 006 001 ( O R ( N O T
0102560 ( 006 002 f e t c h 006 001 B P 006
0102600 002 o f 006 001 E ) ) \r
0102620
0102640 ( A N D (
0102660 I L E S S P Y ( 006 002 f e t c
0102700 h 006 001 S T A R T Y 006 002 o f 006
0102720 001 E ) ) \r
0102740
0102760 ( I G R E
0103000 A T E R P Y ( 006 002 f e t c h
0103020 006 001 S T O P Y 006 002 o f 006 001
0103040 E ] \r Y ]
0103060 ) \r \r ( 006 004 D S L I N E F O N T
0103100 1 006 001 \r [ L A M B D A ( E
0103120 N T Y L I N E )
0103140
*
0103200 ( * b a s % : " 3 0 - M a
0103220 r - 8 4 1 0 : 5 2 " ) \r
0103240 ( A N D E N T ( 006 002 b i n
0103260 d 006 001 I M ( M F O N T _
0103300 ( A N D ( O R ( E Q Y L I
0103320 N E ( 006 002 f e t c h 006 001 S T
0103340 A R T Y 006 002 o f 006 001 E N T )
0103360 ) \r
0103400
0103420 ( E Q Y L
0103440 I N E ( 006 002 f e t c h 006 001 S
0103460 T O P Y 006 002 o f 006 001 E N T )
0103500 ) ) \r
0103520
0103540 ( 006 002 f e t c h 006
0103560 001 F N T 006 002 o f 006 001 E N T
0103600 ) ) ) 006 002 f o r 006 001 I \r
0103620 006 002
0103640 o n 006 001 ( L I S T P ( 006 002 f
0103660 e t c h 006 001 S E L E X P 006 002
0103700 o f 006 001 E N T ) ) 006 002 d o 006
0103720 001 ( S E T Q M F O N T ( 006
0103740 002 M A X F O N T 006 001 M F O N T
0103760 ( 006 002 D S L I N E F O N T 1 006
0104000 001 \r
0104020
*
0104120 ( G E T M E 4 I ) \r
0104140
*
0104240 Y L I
0104260 N E ) ) ) \r
0104300 006 002 f i n a l l y 006
0104320 001 ( R E T U R N M F O N T ]
0104340 ) \r \r ( 006 004 M A X F O N T 006 001 \r
0104360 [ L A M B D A ( F 1 F 2
0104400 )
0104420
0104440 ( *
0104460 b a s % : " 3 0 - M a r - 8 4
0104500 1 0 : 1 7 " ) \r ( C O
0104520 N D \r ( ( I G R E
0104540 A T E R P ( C O N D \r
0104560
0104600 ( ( F O N T P F 1 ) \r
0104620
0104640 ( F O N T P R O P F
0104660 1 ' H E I G H T ) ) \r
0104700
0104720 ( T 0 ) ) \r
0104740 ( C O N D \r
0104760
0105000 ( ( F O N T P F 2 ) \r
0105020 (
0105040 F O N T P R O P F 2 ' H E I
0105060 G H T ) ) \r
0105100 ( T 0 ) ) ) \r
0105120 F 1 ) \r
0105140 ( T F 2 ] ) \r ) \r ( D E
0105160 F I N E Q \r \r ( 006 004 R E F R E S
0105200 H I F 006 001 \r [ L A M B D A
0105220 ( W D S H I L O )
0105240
*
0105300 ( * b v m % : " 2 7 -
0105320 M a y - 8 6 1 5 : 1 9 " ) \r
0105340
*
0105420 ( * ;
0105440 ; ; \r
0105460
*
0105520 " R e p a i n t
0105540 s s t u f f L O W E R t h
0105560 a n H I a n d o n o r
0105600 a b o v e L O " ) \r (
0105620 W I T H - R E A D E R - E N V I
0105640 R O N M E N T ( O R ( W I N
0105660 D O W P R O P W D S ' R E A
0105700 D E R - E N V I R O N M E N T )
0105720 \r
0105740
0105760 ( S H O U L D N T ) ) \r
0106000 ( D S P R I G
0106020 H T M A R G I N [ P R O G 1
0106040 ( D S P R I G H T M A R G I N
0106060 1 0 0 0 0 W D S ) ( * ;
0106100 \r
0106120 " W e r e s e t m a r
0106140 g i n b / c R E F R E S H I
0106160 F i s s o m e t i m e s c
0106200 a l l e d w i t h t h i n g
0106220 s t h a t w o u l d o v e
0106240 r f l o w " ) \r
0106260
0106300 ( L E T (
0106320 ( R ( D S P C L I P P I N G R
0106340 E G I O N N I L W D S ) ) )
0106360 \r
0106400
0106420 ( 006 002 R E F R E
0106440 S H I F 1 006 001 ( G E T M A P ?
0106460 W D S ) \r
0106500
*
0106540 ( G E T S T R E A M W
0106560 D S ' O U T P U T ) \r
0106600
*
0106640 ( I M I N
0106660 H I ( 006 002 f e t c h 006 001 P T
0106700 O P 006 002 o f 006 001 R ) ) \r
0106720
*
0106760 ( I M A
0107000 X L O ( 006 002 f e t c h 006 001
0107020 B O T T O M 006 002 o f 006 001 R ]
0107040 \r
0107060 W D S ] ) \r \r ( 006 004 R E F
0107100 R E S H I F 1 006 001 \r [ L A M
0107120 B D A ( M D S H I L O )
0107140
*
0107200 ( * b v m % :
0107220 " 2 8 - M a y - 8 6 1 5 : 3 0
0107240 " ) \r
0107260
*
0107340 ( * ; ; ; " R e f r e s h
0107360 d i s p l a y o f t h a t
0107400 p a r t o f e x p r e s s i
0107420 o n i n d i c a t e d b y
0107440 m a p e n t r y M t h a t
0107460 l i e s b e t w e e n y p
0107500 o s H I a n d L O " ) \r
0107520 ( C O N D \r
0107540 ( ( A N D M ( O V E R L A P
0107560 H I L O ( 006 002 H I P T 006 001
0107600 M ) \r
0107620 ( 006 002 L O W
0107640 P T 006 001 M ) ) ) \r
0107660 ( C O N D \r
0107700 [ ( L I S T P ( 006 002 f e
0107720 t c h 006 001 S E L E X P 006 002 o
0107740 f 006 001 M ) ) \r
0107760 ( L E T ( ( W R A P
0110000 ( 006 002 f e t c h 006 001 W R A P P
0110020 E R 006 002 o f 006 001 M ) ) ) \r
0110040
0110060 ( C O N D \r
0110100 ( [ I G R E
0110120 A T E R P H I ( I D I F F E
0110140 R E N C E ( 006 002 f e t c h 006 001
0110160 S T A R T Y 006 002 o f 006 001 M
0110200 ) \r
0110220
0110240 ( F O N
0110260 T P R O P ( 006 002 f e t c h 006 001
0110300 F N T 006 002 o f 006 001 M ) \r
0110320
*
0110400 ' D E S C E N T ] \r
0110420 (
0110440 M O V E T O ( 006 002 f e t c h 006
0110460 001 S T A R T X 006 002 o f 006 001
0110500 M ) \r
0110520 (
0110540 006 002 f e t c h 006 001 S T A R T Y
0110560 006 002 o f 006 001 M ) \r
0110600
0110620 D S ) \r
0110640
0110660 ( D S P F O N T ( 006 002 f e t c
0110700 h 006 001 F N T 006 002 o f 006 001 M
0110720 ) \r
0110740 D S
0110760 ) \r
0111000 ( P R I N 3 ( O
0111020 R W R A P ' % ( ) \r
0111040
0111060 D S ) ) ) \r
0111100 (
0111120 C O N D \r
0111140 ( W R A P (
0111160 006 002 R E F R E S H I F 1 006 001 (
0111200 G E T M E 4 ( C D R ( 006 002 f
0111220 e t c h 006 001 S E L E X P 006 002
0111240 o f 006 001 M ) ) \r
0111260
*
0111320 M ) \r
0111340
0111360 D S H I
0111400 L O ) ) \r
0111420 ( T [ 006 002 f
0111440 o r 006 001 I 006 002 o n 006 001 ( 006
0111460 002 f e t c h 006 001 S E L E X P
0111500 006 002 o f 006 001 M ) 006 002 d o 006 001
0111520 ( 006 002 R E F R E S H I F 1 006 001
0111540 ( G E T M E 4 I M ) \r
0111560
*
0111640 D S
0111660 H I L O ) \r
0111700
0111720 006 002 f i n a l l y 006 001 ( C O
0111740 N D \r
0111760
0112000 ( I ( S E T Q
0112020 I ( G E T M E 4 I M ) )
0112040 \r
0112060
0112100 ( M O V E T O
0112120 ( I D I F F E R E N C E ( 006
0112140 002 f e t c h 006 001 S T A R T X
0112160 006 002 o f 006 001 I ) \r
0112200
*
0112260 ( S T R I N G W I D T H D O
0112300 T S T R I N G ( 006 002 f e t c h
0112320 006 001 F N T 006 002 o f 006 001 M )
0112340 ) ) \r
0112360
*
0112420 ( 006 002 f e t c h 006 001 S T A
0112440 R T Y 006 002 o f 006 001 I ) \r
0112460
*
0112520 D S )
0112540 \r
0112560
0112600 ( P R I N 3
0112620 D O T S T R I N G D S ) ( *
0112640 ; " D o t t e d p a i r "
0112660 ) \r
0112700
0112720 ( 006 002 R E F
0112740 R E S H I F 1 006 001 I D S H
0112760 I L O ] \r
0113000 ( C O
0113020 N D \r
0113040 ( [ I
0113060 L E Q L O ( I P L U S ( 006
0113100 002 f e t c h 006 001 S T O P Y 006
0113120 002 o f 006 001 M ) \r
0113140
*
0113200 ( F O N T P R O P ( 006
0113220 002 f e t c h 006 001 F N T 006 002 o
0113240 f 006 001 M ) \r
0113260
*
0113320 ' A S C E N T
0113340 ] \r
0113360 ( M O
0113400 V E T O ( 006 002 f e t c h 006 001
0113420 R P S T A R T 006 002 o f 006 001 M
0113440 ) \r
0113460
0113500 ( 006 002 f e t c h 006 001 S
0113520 T O P Y 006 002 o f 006 001 M ) \r
0113540
*
0113600 D S ) \r
0113620
0113640 ( D S P F O N T ( 006 002 f e t c
0113660 h 006 001 F N T 006 002 o f 006 001 M
0113700 ) \r
0113720
0113740 D S ) \r
0113760
0114000 ( P R I N 3 ' % ) D S
0114020 ] \r ( T
0114040 ( M O V E T O ( 006 002 f e t c h
0114060 006 001 S T A R T X 006 002 o f 006 001
0114100 M ) \r
0114120 ( 006 002 f e t c
0114140 h 006 001 S T A R T Y 006 002 o f 006
0114160 001 M ) \r
0114200 D S ) \r
0114220 ( D S P
0114240 F O N T ( 006 002 f e t c h 006 001
0114260 F N T 006 002 o f 006 001 M ) \r
0114300
0114320 D S ) \r
0114340 ( C O N D \r
0114360 ( ( 006 002
0114400 f e t c h 006 001 L O N G S T R I
0114420 N G P 006 002 o f 006 001 M ) \r
0114440
0114460 ( L E T * ( ( 006 002 C O M M E N
0114500 T P 006 001 ( N U L L ( 006 002 f e
0114520 t c h 006 001 L O N G S T R I N G
0114540 1 M A R G I N P 006 002 o f 006 001
0114560 M ) ) ) \r
0114600 [ L
0114620 M A R G ( 006 002 f e t c h 006 001
0114640 S T A R T X 006 002 o f 006 001 ( C
0114660 O N D \r
0114700
*
0114740 ( 006 002 C O M M E
0114760 N T P 006 001 \r
0115000
*
0115060 ( * ; \r " I n
0115100 s i d e a c o m m e n t ,
0115120 t h e s t r i n g m a y b
0115140 e p r i n t e d w i t h a
0115160 m a r g i n t o t h e l
0115200 e f t o f w h e r e t h e
0115220 s t r i n g s t a r t s " )
0115240 \r
0115260
*
0115320 ( 006 002 f
0115340 e t c h 006 001 B P 006 002 o f 006 001
0115360 M ) ) \r
0115400
*
0115440 ( T M ] \r
0115460
0115500 ( R M A R G (
0115520 W I N D O W P R O P D S ' W
0115540 I D T H ) ) \r
0115560
0115600 M A K E M A P ) \r
0115620
0115640 ( 006 002 D E C L A R E 006 001 ( S
0115660 P E C V A R S M A K E M A P )
0115700 ) \r
0115720 ( P R I N 2
0115740 - L O N G - S T R I N G ( 006 002
0115760 f e t c h 006 001 S E L E X P 006
0116000 002 o f 006 001 M ) \r
0116020
0116040 D S T T L
0116060 M A R G ( C O N D \r
0116100
*
0116140 ( ( 006 002 f e
0116160 t c h 006 001 L O N G S T R I N G
0116200 S Y M M E T R I C P 006 002 o f 006
0116220 001 M ) \r
0116240
*
0116320 ( * ; " S t r i n g s
0116340 y m m e t r i c a l l y c e n
0116360 t e r e d " ) \r
0116400
*
0116440 ( I D I F F E R
0116460 E N C E R M A R G L M A R G
0116500 ) ) \r
0116520
*
0116560 ( T R M A R G ) ) \r
0116600
0116620 C O M M
0116640 E N T P ) ) ) \r
0116660 ( T ( P R I
0116700 N 4 ( 006 002 f e t c h 006 001 S E
0116720 L E X P 006 002 o f 006 001 M ) \r
0116740
0116760 D S ] ) \r )
0117000 \r ( D E F I N E Q \r \r ( 006 004 C O
0117020 M M E N T P 006 001 \r [ L A M B
0117040 D A ( E )
0117060
*
0117120 ( * b a s % : "
0117140 1 5 - N O V - 8 2 2 2 : 0 1 "
0117160 ) \r ( A N D C O M M E
0117200 N T F L G ( E Q C O M M E N
0117220 T F L G ( C A R ( L I S T P
0117240 E ] ) \r \r ( 006 004 H I P T 006 001 \r
0117260 [ L A M B D A ( E N T )
0117300
*
0117340 ( *
0117360 b a s % : " 4 - O C T - 8 2
0117400 1 5 : 2 5 " ) \r ( I P
0117420 L U S ( 006 002 f e t c h 006 001 S
0117440 T A R T Y 006 002 o f 006 001 E N T
0117460 ) \r ( F O
0117500 N T P R O P ( 006 002 f e t c h 006
0117520 001 F N T 006 002 o f 006 001 E N T
0117540 ) \r
0117560 ' A S C E N T ) \r
0117600 - 1 ] ) \r \r ( 006
0117620 004 L O W P T 006 001 \r [ L A M B
0117640 D A ( E )
0117660
*
0117720 ( * b a s % : "
0117740 4 - O C T - 8 2 1 5 : 2 5 "
0117760 ) \r ( I D I F F E R E N
0120000 C E ( 006 002 f e t c h 006 001 S T
0120020 O P Y 006 002 o f 006 001 E ) \r
0120040 ( F O N T P R
0120060 O P ( 006 002 f e t c h 006 001 F N
0120100 T 006 002 o f 006 001 E ) \r
0120120 ' D
0120140 E S C E N T ] ) \r \r ( 006 004 W I P
0120160 E 006 001 \r [ L A M B D A ( X
0120200 Y W H D S )
0120220
*
0120260 ( * b a s % : " 1 9 - A U
0120300 G - 8 2 1 5 : 1 8 " ) \r
0120320 ( B I T B L T N I L N I L
0120340 N I L D S X Y W H
0120360 ' T E X T U R E ' R E P L A C
0120400 E ( D S P T E X T U R E N I
0120420 L D S ] ) \r ) \r ( D E F I N E
0120440 Q \r \r ( 006 004 R E S E T C L I P 006
0120460 001 \r [ L A M B D A ( C )
0120500
*
0120540 (
0120560 * b a s % : " 8 - N O V -
0120600 8 2 1 5 : 3 5 " ) \r
0120620
*
0120700 ( * ; ; \r
0120720
*
0120760 " F o r u s e i n R
0121000 E S E T F O R M . T a k e s
0121020 a C O N S o f a D S P
0121040 a n d i t s n e w r e g
0121060 i o n " ) \r ( C O N S
0121100 ( C A R C ) \r
0121120 ( D S P C L I P P I N G R E
0121140 G I O N ( C D R C ) \r
0121160 ( C
0121200 A R C ] ) \r ) \r ( P U T P R O
0121220 P S D E D I T P P C O P Y R
0121240 I G H T ( " X e r o x C o r
0121260 p o r a t i o n " 1 9 8 6 ) )
0121300 \r ( D E C L A R E % : D O N T
0121320 C O P Y \r ( F I L E M A P
0121340 ( N I L ( 2 5 1 6 8 1 4 0
0121360 ( D E D I T . L P E N D 2 5 2
0121400 6 . 3 1 2 9 ) ( D E D I T
0121420 . R P S T A R T 3 1 3 1 .
0121440 3 6 3 4 ) ( M A K E M A P E N
0121460 T R Y 3 6 3 6 . \r 4 3 3 3
0121500 ) ( \ D E D I T F O N T # 4
0121520 3 3 5 . 5 8 7 5 ) ( D S P
0121540 D S F O R 5 8 7 7 . 6 5 5
0121560 3 ) ( S H O W D E D I T M A P
0121600 6 5 5 5 . 8 1 3 8 ) ) (
0121620 8 2 7 2 1 1 0 4 1 ( \r D E P
0121640 R I N T D E F 8 2 8 2 . 1
0121660 0 5 5 1 ) ( D E D I T - M A K
0121700 E - R E A D E R - E N V 1 0 5
0121720 5 3 . 1 1 0 3 9 ) ) ( 1 1
0121740 0 4 2 2 6 5 4 7 ( R E P P
0121760 1 1 0 5 2 . 1 2 3 2 5 ) (
0122000 \r R E P P C H A N G E S 1 2 3
0122020 2 7 . 1 4 6 4 6 ) ( R E P
0122040 P U N R A V E L 1 4 6 4 8 .
0122060 1 5 6 3 7 ) ( R E P P D E L
0122100 E T E 1 5 6 3 9 . 1 7 6 0
0122120 9 ) ( R E P P I N S E R T 1
0122140 7 6 1 1 . \r 2 0 3 6 0 ) (
0122160 R E P P T A N G L E D P 2 0 3
0122200 6 2 . 2 1 3 2 1 ) ( L E A
0122220 D S P A C E 2 1 3 2 3 . 2
0122240 1 7 0 9 ) ( S P A C I N G R U
0122260 L E 2 1 7 1 1 . 2 2 3 3 1
0122300 ) ( U N P P 2 2 3 3 3 \r .
0122320 2 4 9 6 3 ) ( N X T U S E D
0122340 X 2 4 9 6 5 . 2 6 3 6 5 )
0122360 ( O N E L I N E P 2 6 3 6 7
0122400 . 2 6 5 4 5 ) ) ( 2 6 5 4
0122420 8 3 5 4 3 6 ( M O V E D S M
0122440 A P 2 6 5 5 8 . 3 0 9 2 0
0122460 ) ( \r A D J U S T X T A I L
0122500 3 0 9 2 2 . 3 2 8 3 6 ) (
0122520 A D J U S T Y T A I L 3 2 8 3
0122540 8 . 3 3 6 5 4 ) ( A D J D
0122560 E E X T E N T 3 3 6 5 6 .
0122600 3 3 9 4 2 ) ( D S L I N E F O
0122620 N T 3 3 9 4 4 \r . 3 4 3 5
0122640 3 ) ( D S L I N E F O N T 1
0122660 3 4 3 5 5 . 3 5 0 4 1 ) (
0122700 M A X F O N T 3 5 0 4 3 .
0122720 3 5 4 3 4 ) ) ( 3 5 4 3 7 4
0122740 0 4 4 8 ( R E F R E S H I F
0122760 3 5 4 4 7 . 3 6 4 0 8 ) \r
0123000 ( R E F R E S H I F 1 3 6 4 1
0123020 0 . 4 0 4 4 6 ) ) ( 4 0 4
0123040 4 9 4 1 2 4 0 ( C O M M E N
0123060 T P 4 0 4 5 9 . 4 0 6 1 2
0123100 ) ( H I P T 4 0 6 1 4 .
0123120 4 0 8 4 4 ) ( L O W P T 4 0
0123140 8 4 6 . \r 4 1 0 6 4 ) ( W
0123160 I P E 4 1 0 6 6 . 4 1 2 3
0123200 8 ) ) ( 4 1 2 4 1 4 1 6 0 8
0123220 ( R E S E T C L I P 4 1 2 5
0123240 1 . 4 1 6 0 6 ) ) ) ) ) \r S
0123260 T O P \r
0123264