$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>tkdorado!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 " 1 6 - A p r - 8
0000140 7 1 7 : 2 8 : 4 8 " 006 004 { E
0000160 R I S } < L I S P U S E R S > L
0000200 Y R I C > T K D O R A D O . ; 5
0000220 006 001 1 4 7 6 4 \r \r
0000240 c h a n g e s t o % :
0000260 ( V A R S T K D O R A D O C O
0000300 M S ) \r
0000320 ( F N S \ T K
0000340 D . S E T L O O K S ) \r \r
0000360 p r e v i o u s d a t e
0000400 % : " 1 4 - A p r - 8 7 1 7
0000420 : 1 0 : 4 4 " { E R I S } < L
0000440 I S P U S E R S > L Y R I C > T
0000460 K D O R A D O . ; 4 ) \r \r \r ( *
0000500 " \r C o p y r i g h t ( c )
0000520 1 9 8 6 , 1 9 8 7 b y X
0000540 e r o x C o r p o r a t i o n
0000560 . A l l r i g h t s r e
0000600 s e r v e d . \r " ) \r \r ( P R E
0000620 T T Y C O M P R I N T T K D O
0000640 R A D O C O M S ) \r \r ( R P A Q
0000660 Q 006 002 T K D O R A D O C O M S
0000700 006 001 [ ( F I L E S T E D I T
0000720 K E Y ) \r
0000740 ( F N S \
0000760 T K D . S E T L O O K S ) \r
0001000
0001020 ( P [ S E T Q T E D I
0001040 T K E Y . K E Y B I N D I N G S
0001060 \r
0001100 (
0001120 U N I O N ( A P P E N D T E
0001140 D I T K E Y . K E Y B I N D I N
0001160 G S ' ( N I L ) ) \r
0001200
*
0001240 ' ( ( [ L A M B D A ( T E X T
0001260 S T R E A M T E X T O B J S
0001300 E L ) \r
0001320
*
0001360 ( i f ( Z E R O P ( f
0001400 e t c h D C H o f S E L )
0001420 ) \r
0001440
*
0001500 t h e n \r
0001520
*
0001560 ( \ T
0001600 K . D E F A U L T S . C A R E T
0001620 T E X T S T R E A M T E X T
0001640 O B J S E L ) \r
0001660
*
0001720 e l s e
0001740 \r
0001760
*
0002020 ( \ T K . D E F A U L T
0002040 S S E L T E X T S T R E A M
0002060 T E X T O B J S E L ] \r
0002100
*
0002140 ( % # # ^ V ) \r
0002160
*
0002220 " d e f a u l t l o
0002240 o k s " ) \r
0002260
0002300 ( [ L
0002320 A M B D A ( T E X T S T R E A
0002340 M T E X T O B J S E L ) \r
0002360
*
0002420 ( \
0002440 T K D . S E T L O O K S T E X
0002460 T S T R E A M T E X T O B J
0002500 S E L \r
0002520
*
0002560 ' ( O V E R
0002600 L I N E O N ] \r
0002620
*
0002660 ( % # # ^ D ) \r
0002700
*
0002740 " o v e r b a r o n " ) \r
0002760
*
0003020 ( [ L A M B D A (
0003040 T E X T S T R E A M T E X T O
0003060 B J S E L ) \r
0003100
*
0003140 ( \ T K D . S E T
0003160 L O O K S T E X T S T R E A M
0003200 T E X T O B J S E L \r
0003220
*
0003300 ' ( O V E R L I N E O F
0003320 F ] \r
0003340
0003360 ( % # # ^
0003400 F ) \r
0003420
0003440 " o v e r
0003460 b a r o f f " ) \r
0003500
*
0003540 ( [ L A M B D A ( T E X T S
0003560 T R E A M T E X T O B J S E
0003600 L ) \r
0003620
*
0003660 ( \ T K D . S E T L O O K S
0003700 T E X T S T R E A M T E X T
0003720 O B J S E L \r
0003740
*
0004000 ' (
0004020 S T R I K E O U T O N ] \r
0004040
*
0004100 ( % # # ^ G ) \r
0004120
*
0004160 " s t r i k e t h r
0004200 u o n " ) \r
0004220
0004240 ( [
0004260 L A M B D A ( T E X T S T R E
0004300 A M T E X T O B J S E L ) \r
0004320
*
0004360 (
0004400 \ T K D . S E T L O O K S T E
0004420 X T S T R E A M T E X T O B J
0004440 S E L \r
0004460
*
0004520 ' ( S T R
0004540 I K E O U T O F F ] \r
0004560
*
0004620 ( % # # ^ H ) \r
0004640
*
0004700 " s t r i k e t h r u
0004720 o f f " ) \r
0004740
0004760 ( [ L
0005000 A M B D A ( T E X T S T R E A
0005020 M T E X T O B J S E L ) \r
0005040
*
0005100 ( \
0005120 T K D . S E T L O O K S T E X
0005140 T S T R E A M T E X T O B J
0005160 S E L \r
0005200
*
0005240 ' ( U N D E
0005260 R L I N E O N ] \r
0005300
*
0005340 ( % # # ^ J ) \r
0005360
*
0005420 " u n d e r l i n i n g o
0005440 n " ) \r
0005460
0005500 ( [ L A M
0005520 B D A ( T E X T S T R E A M
0005540 T E X T O B J S E L ) \r
0005560
*
0005620 ( \ T K
0005640 D . S E T L O O K S T E X T S
0005660 T R E A M T E X T O B J S E
0005700 L \r
0005720
*
0005760 ' ( U N D E R L
0006000 I N E O F F ] \r
0006020
*
0006060 ( % # # ^ K ) \r
0006100
*
0006140 " u n d e r l i n i n g o f
0006160 f " ) \r
0006200
0006220 ( [ L A M
0006240 B D A ( T E X T S T R E A M
0006260 T E X T O B J S E L ) \r
0006300
*
0006340 ( \ T K
0006360 D . S E T L O O K S T E X T S
0006400 T R E A M T E X T O B J S E
0006420 L \r
0006440
*
0006500 ' ( W E I G H T
0006520 B O L D ] \r
0006540
0006560 (
0006600 % # # ^ B ) \r
0006620
0006640 "
0006660 b o l d o n " ) \r
0006700
*
0006740 ( [ L A M B D A ( T E X T S
0006760 T R E A M T E X T O B J S E
0007000 L ) \r
0007020
*
0007060 ( \ T K D . S E T L O O K S
0007100 T E X T S T R E A M T E X T
0007120 O B J S E L \r
0007140
*
0007200 ' (
0007220 W E I G H T M E D I U M ] \r
0007240
*
0007300 ( % # # ^ N ) \r
0007320
*
0007360 " b o l d o f f
0007400 " ) \r
0007420
0007440 ( [ L A M B
0007460 D A ( T E X T S T R E A M T
0007500 E X T O B J S E L ) \r
0007520
*
0007560 ( \ T K D
0007600 . S E T L O O K S T E X T S T
0007620 R E A M T E X T O B J S E L
0007640 \r
0007660
*
0007720 ' ( S L O P E I
0007740 T A L I C ] \r
0007760
0010000 (
0010020 % # # ^ I ) \r
0010040
0010060 "
0010100 i t a l i c s o n " ) \r
0010120
*
0010160 ( [ L A M B D A ( T E
0010200 X T S T R E A M T E X T O B J
0010220 S E L ) \r
0010240
*
0010300 ( \ T K D . S E T L O
0010320 O K S T E X T S T R E A M T
0010340 E X T O B J S E L \r
0010360
*
0010440 ' ( S L O P E R E G U L A R
0010460 ] \r
0010500
0010520 ( % # # ^ O
0010540 ) \r
0010560
0010600 " i t a l i
0010620 c s o f f " ) \r
0010640
*
0010700 ( [ L A M B D A ( T E X T S T
0010720 R E A M T E X T O B J S E L
0010740 ) \r
0010760
*
0011020 ( I F ( Z E R O P ( F E T
0011040 C H D C H O F S E L ) ) \r
0011060
*
0011140 t h e n \r
0011160
*
0011220 ( \ T K .
0011240 S M A L L E R . C A R E T T E
0011260 X T S T R E A M T E X T O B J
0011300 S E L ) \r
0011320
*
0011360 e l s e \r
0011400
*
0011460 ( \ T K . S M A L L E R S E L
0011500 T E X T S T R E A M T E X T
0011520 O B J S E L ] \r
0011540
*
0011600 ( | # # ^ [ | ) \r
0011620
*
0011660 " s m a l l e r f o n t "
0011700 ) \r
0011720
0011740 ( [ L A M B D
0011760 A ( T E X T S T R E A M T E
0012000 X T O B J S E L ) \r
0012020
*
0012060 ( I F ( Z
0012100 E R O P ( F E T C H D C H
0012120 O F S E L ) ) \r
0012140
*
0012200 t h e n
0012220 \r
0012240
*
0012300 ( \ T K . L A R G E R .
0012320 C A R E T T E X T S T R E A M
0012340 T E X T O B J S E L ) \r
0012360
*
0012440 e l s e \r
0012460
*
0012520 ( \ T K . L A
0012540 R G E R S E L T E X T S T R E
0012560 A M T E X T O B J S E L ] \r
0012600
*
0012640 ( | # # ^ ] | )
0012660 \r
0012700
0012720 " l a r g e r
0012740 f o n t " ) \r
0012760
0013000 (
0013020 [ L A M B D A ( T E X T S T R
0013040 E A M T E X T O B J S E L )
0013060 \r
0013100
*
0013140 ( I F ( Z E R O P ( F E T C
0013160 H D C H O F S E L ) ) \r
0013200
*
0013260 t h e n \r
0013300
*
0013340 ( \ T K . S
0013360 U P E R S C R I P T . C A R E T
0013400 T E X T S T R E A M T E X T
0013420 O B J S E L ) \r
0013440
*
0013500 e l s e
0013520 \r
0013540
*
0013600 ( \ T K . S U P E R S C
0013620 R I P T S E L T E X T S T R E
0013640 A M T E X T O B J S E L ] \r
0013660
*
0013720 ( % # # ^ ^ ) \r
0013740
*
0014000 " s u p e r s c
0014020 r i p t " ) \r
0014040
0014060 ( [
0014100 L A M B D A ( T E X T S T R E
0014120 A M T E X T O B J S E L ) \r
0014140
*
0014200 (
0014220 I F ( Z E R O P ( F E T C H
0014240 D C H O F S E L ) ) \r
0014260
*
0014340 t h e n \r
0014360
*
0014420 ( \ T K . S U
0014440 B S C R I P T . C A R E T T E
0014460 X T S T R E A M T E X T O B J
0014500 S E L ) \r
0014520
*
0014560 e l s e \r
0014600
*
0014660 ( \ T K . S U B S C R I P T S
0014700 E L T E X T S T R E A M T E
0014720 X T O B J S E L ] \r
0014740
*
0015000 ( % # # ^ _ ) \r
0015020
*
0015060 " s u b s c r i p t " ) \r
0015100
*
0015140 ( \ T K . C E N T
0015160 E R . S E L ( % # # ^ C ) \r
0015200
*
0015240 " c e
0015260 n t e r , j u s t i f y , .
0015300 . . " ] \r
0015320 ( \
0015340 T K . B U I L D . M E N U ) \r
0015360
0015400 ( T E D I T K E Y
0015420 . I N S T A L L ) \r
0015440
0015460 ( A N D ( B O U N D P '
0015500 D L I O N F N K E Y S ) \r
0015520
0015540 ( O P E N W
0015560 P D L I O N F N K E Y S ) \r
0015600
0015620 ( C L O
0015640 S E W D L I O N F N K E Y S )
0015660 ) \r
0015700 ( T E D I T
0015720 . S E T S Y N T A X ( C H A R
0015740 C O D E E S C ) \r
0015760
0016000 ' R E D O ] )
0016020 \r ( F I L E S L O A D T E D I
0016040 T K E Y ) \r ( D E F I N E Q \r \r
0016060 ( 006 004 \ T K D . S E T L O O K S
0016100 006 001 \r [ L A M B D A ( T E
0016120 X T S T R E A M T E X T O B J
0016140 S E L L O O K S ) 006 006 006 001
0016160
0016200 006 006 ( * ; " E d i t
0016220 e d 1 6 - A p r - 8 7 1 7 :
0016240 2 6 b y m d d " ) 006 001 \r
0016260 ( 006 002 i f 006 001 ( Z E R O P
0016300 ( 006 002 f e t c h 006 001 D C H
0016320 006 002 o f 006 001 S E L ) ) \r
0016340 006 002 t h e n 006 001 [ L
0016360 E T [ ( c h a r l o o k s (
0016400 006 002 c r e a t e 006 001 C H A R L
0016420 O O K S 006 002 u s i n g 006 001 (
0016440 006 002 f e t c h 006 001 C A R E T L
0016460 O O K S 006 002 o f 006 001 T E X T
0016500 O B J ] \r
0016520 [ R E P L A C E F
0016540 I E L D ( L I S T G E T [ C
0016560 O N S T A N T ( L I S T ' U
0016600 N D E R L I N E ( C A D A D R
0016620 ( R E C O R D A C C E S S F O
0016640 R M \r
0016660
*
0016760 ' C L U L I N E ) ) \r
0017000
*
0017060 ' O V E R L I N E \r
0017100
*
0017160 ( C A D A D R (
0017200 R E C O R D A C C E S S F O R M
0017220 ' C L O L I N E ) ) \r
0017240
*
0017320 ' S T R I K E O U T \r
0017340
*
0017420 ( C A D A D R
0017440 ( R E C O R D A C C E S S F O
0017460 R M ' C L S T R I K E ) ) \r
0017500
*
0017560 ' S L O P E \r
0017600
*
0017660 ( C A D A D R
0017700 ( R E C O R D A C C E S S F O R
0017720 M ' C L I T A L ) ) \r
0017740
*
0020020 ' W E I G H T \r
0020040
*
0020120 ( C A D A D R ( R
0020140 E C O R D A C C E S S F O R M
0020160 ' C L B O L D ] \r
0020200
*
0020240 ( C A R L O O K S ) ) \r
0020260
0020300 c h a r l o o k s \r
0020320
0020340 ( F M E M B
0020360 ( C A D R L O O K S ) \r
0020400
0020420 ' ( I
0020440 T A L I C B O L D O N ] \r
0020460
0020500 ( 006 002 i f 006 001 ( O R ( A N
0020520 D ( N E Q ( C A R L O O K
0020540 S ) \r
0020560
0020600 ' S L O P E ) \r
0020620
0020640 ( N
0020660 E Q ( C A R L O O K S ) \r
0020700
*
0020740 ' W E I G H T ) ) \r
0020760
0021000 ( \ T K . S E T F
0021020 O N T I N L O O K S T E X T S
0021040 T R E A M c h a r l o o k s )
0021060 ) \r
0021100 006 002 t h e n 006 001
0021120 ( T E D I T . C A R E T L O O
0021140 K S T E X T S T R E A M c h
0021160 a r l o o k s ) \r
0021200
0021220 ( 006 002 i f 006 001 T E D I
0021240 T K E Y . V E R B O S E \r
0021260
0021300 006 002 t h
0021320 e n 006 001 ( \ T K . S H O W C A
0021340 R E T L O O K S T E X T S T R
0021360 E A M T E X T O B J S E L ]
0021400 \r 006 002 e l s e 006 001
0021420 ( T E D I T . L O O K S T E X
0021440 T S T R E A M L O O K S S E
0021460 L ] ) \r ) \r [ S E T Q T E D I
0021500 T K E Y . K E Y B I N D I N G S
0021520 ( U N I O N ( A P P E N D
0021540 T E D I T K E Y . K E Y B I N D
0021560 I N G S ' ( N I L ) ) \r
0021600
0021620 '
0021640 ( ( [ L A M B D A ( T E X T S
0021660 T R E A M T E X T O B J S E
0021700 L ) \r
0021720
0021740 (
0021760 i f ( Z E R O P ( f e t c h
0022000 D C H o f S E L ) ) \r
0022020
*
0022060 t h
0022100 e n \r
0022120
*
0022160 ( \ T K . D E F A U L T S
0022200 . C A R E T T E X T S T R E A
0022220 M T E X T O B J S E L ) \r
0022240
*
0022300 e
0022320 l s e \r
0022340
*
0022400 ( \ T K . D E F A U L T
0022420 S S E L T E X T S T R E A M
0022440 T E X T O B J S E L ] \r
0022460
*
0022520 ( % # # ^ V ) \r
0022540
0022560 "
0022600 d e f a u l t l o o k s " ) \r
0022620
*
0022660 ( [ L A M B D A ( T E
0022700 X T S T R E A M T E X T O B J
0022720 S E L ) \r
0022740
*
0023000 ( \ T K D . S E T L O O K S
0023020 T E X T S T R E A M T E X T
0023040 O B J S E L ' ( O V E R L I
0023060 N E O N ] \r
0023100
0023120 ( % # #
0023140 ^ D ) \r
0023160
0023200 " o v e r b a
0023220 r o n " ) \r
0023240
0023260 ( [ L A M
0023300 B D A ( T E X T S T R E A M
0023320 T E X T O B J S E L ) \r
0023340
*
0023400 ( \ T K D . S
0023420 E T L O O K S T E X T S T R E
0023440 A M T E X T O B J S E L '
0023460 ( O V E R L I N E O F F ] \r
0023500
*
0023540 ( % # # ^ F ) \r
0023560
*
0023620 " o v e r b a r o f f " ) \r
0023640
*
0023700 ( [ L A M B D A ( T E
0023720 X T S T R E A M T E X T O B J
0023740 S E L ) \r
0023760
*
0024020 ( \ T K D . S E T L O O K S
0024040 T E X T S T R E A M T E X T
0024060 O B J S E L ' ( S T R I K E
0024100 O U T O N ] \r
0024120
0024140 ( % #
0024160 # ^ G ) \r
0024200
0024220 " s t r i k
0024240 e t h r u o n " ) \r
0024260
0024300 (
0024320 [ L A M B D A ( T E X T S T R
0024340 E A M T E X T O B J S E L )
0024360 \r
0024400
0024420 ( \ T
0024440 K D . S E T L O O K S T E X T
0024460 S T R E A M T E X T O B J S
0024500 E L ' ( S T R I K E O U T O
0024520 F F ] \r
0024540
0024560 ( % # # ^ H )
0024600 \r
0024620
0024640 " s t r i k e t h r
0024660 u o f f " ) \r
0024700
0024720 ( [ L A
0024740 M B D A ( T E X T S T R E A M
0024760 T E X T O B J S E L ) \r
0025000
*
0025040 ( \ T K D .
0025060 S E T L O O K S T E X T S T R
0025100 E A M T E X T O B J S E L
0025120 ' ( U N D E R L I N E O N ] \r
0025140
*
0025200 ( % # # ^ J ) \r
0025220
*
0025260 " u n d e r l i n i n g o
0025300 n " ) \r
0025320
0025340 ( [ L A M B D A
0025360 ( T E X T S T R E A M T E X
0025400 T O B J S E L ) \r
0025420
*
0025460 ( \ T K D . S E T L
0025500 O O K S T E X T S T R E A M
0025520 T E X T O B J S E L ' ( U N
0025540 D E R L I N E O F F ] \r
0025560
*
0025620 ( % # # ^ K ) \r
0025640
0025660 "
0025700 u n d e r l i n i n g o f f "
0025720 ) \r
0025740
0025760 ( [ L A M B D A (
0026000 T E X T S T R E A M T E X T O
0026020 B J S E L ) \r
0026040
*
0026100 ( \ T K D . S E T L O O
0026120 K S T E X T S T R E A M T E
0026140 X T O B J S E L ' ( W E I G
0026160 H T B O L D ] \r
0026200
0026220 ( %
0026240 # # ^ B ) \r
0026260
0026300 " b o l d
0026320 o n " ) \r
0026340
0026360 ( [ L A M B
0026400 D A ( T E X T S T R E A M T
0026420 E X T O B J S E L ) \r
0026440
*
0026500 ( \ T K D . S E
0026520 T L O O K S T E X T S T R E A
0026540 M T E X T O B J S E L ' (
0026560 W E I G H T M E D I U M ] \r
0026600
*
0026640 ( % # # ^ N ) \r
0026660
*
0026720 " b o l d o f f " ) \r
0026740
*
0027000 ( [ L A M B D A ( T E X T S
0027020 T R E A M T E X T O B J S E
0027040 L ) \r
0027060
0027100 (
0027120 \ T K D . S E T L O O K S T E
0027140 X T S T R E A M T E X T O B J
0027160 S E L ' ( S L O P E I T A
0027200 L I C ] \r
0027220
0027240 ( % # # ^ I
0027260 ) \r
0027300
0027320 " i t a l i c s
0027340 o n " ) \r
0027360
0027400 ( [ L A M B D
0027420 A ( T E X T S T R E A M T E
0027440 X T O B J S E L ) \r
0027460
*
0027520 ( \ T K D . S E T
0027540 L O O K S T E X T S T R E A M
0027560 T E X T O B J S E L ' ( S
0027600 L O P E R E G U L A R ] \r
0027620
*
0027660 ( % # # ^ O ) \r
0027700
*
0027740 " i t a l i c s o f f " ) \r
0027760
*
0030020 ( [ L A M B D A ( T E X
0030040 T S T R E A M T E X T O B J
0030060 S E L ) \r
0030100
*
0030140 ( I F ( Z E R O P ( F E T
0030160 C H D C H O F S E L ) ) \r
0030200
*
0030260 t h e n \r
0030300
*
0030340 ( \ T K . S M A L L E
0030360 R . C A R E T T E X T S T R E
0030400 A M T E X T O B J S E L ) \r
0030420
*
0030500 e l s e \r
0030520
*
0030560 ( \ T K . S M A L L E
0030600 R S E L T E X T S T R E A M
0030620 T E X T O B J S E L ] \r
0030640
*
0030700 ( | # # ^ [ | ) \r
0030720
*
0030760 " s m a l l e r f o n t " ) \r
0031000
*
0031040 ( [ L A M B D A ( T E
0031060 X T S T R E A M T E X T O B J
0031100 S E L ) \r
0031120
*
0031160 ( I F ( Z E R O P ( F E
0031200 T C H D C H O F S E L ) )
0031220 \r
0031240
*
0031300 t h e n \r
0031320
*
0031360 ( \ T K . L A R G E
0031400 R . C A R E T T E X T S T R E
0031420 A M T E X T O B J S E L ) \r
0031440
*
0031520 e l s e \r
0031540
*
0031600 ( \ T K . L A R G E R
0031620 S E L T E X T S T R E A M T
0031640 E X T O B J S E L ] \r
0031660
*
0031720 ( | # # ^ ] | ) \r
0031740
0031760 "
0032000 l a r g e r f o n t " ) \r
0032020
*
0032060 ( [ L A M B D A ( T E X T
0032100 S T R E A M T E X T O B J S
0032120 E L ) \r
0032140
*
0032200 ( I F ( Z E R O P ( F E T C
0032220 H D C H O F S E L ) ) \r
0032240
*
0032300 t
0032320 h e n \r
0032340
*
0032400 ( \ T K . S U P E R S C
0032420 R I P T . C A R E T T E X T S
0032440 T R E A M T E X T O B J S E
0032460 L ) \r
0032500
*
0032540 e l s e \r
0032560
*
0032620 ( \ T K . S U P
0032640 E R S C R I P T S E L T E X T
0032660 S T R E A M T E X T O B J S
0032700 E L ] \r
0032720
0032740 ( % # # ^ ^ )
0032760 \r
0033000
0033020 " s u p e r s c r i
0033040 p t " ) \r
0033060
0033100 ( [ L A M B D
0033120 A ( T E X T S T R E A M T E
0033140 X T O B J S E L ) \r
0033160
*
0033220 ( I F ( Z E R O
0033240 P ( F E T C H D C H O F
0033260 S E L ) ) \r
0033300
*
0033340 t h e n \r
0033360
*
0033420 ( \ T K .
0033440 S U B S C R I P T . C A R E T
0033460 T E X T S T R E A M T E X T O
0033500 B J S E L ) \r
0033520
*
0033560 e l s e \r
0033600
*
0033640 ( \ T
0033660 K . S U B S C R I P T S E L T
0033700 E X T S T R E A M T E X T O B
0033720 J S E L ] \r
0033740
0033760 ( % # #
0034000 ^ _ ) \r
0034020
0034040 " s u b s c r
0034060 i p t " ) \r
0034100
0034120 ( \ T K . C
0034140 E N T E R . S E L ( % # # ^ C
0034160 ) \r
0034200
0034220 " c e
0034240 n t e r , j u s t i f y , .
0034260 . . " ] \r ( \ T K . B U I L D
0034300 . M E N U ) \r ( T E D I T K E Y
0034320 . I N S T A L L ) \r ( A N D (
0034340 B O U N D P ' D L I O N F N K
0034360 E Y S ) \r ( O P E N W
0034400 P D L I O N F N K E Y S ) \r
0034420 ( C L O S E W D L I O
0034440 N F N K E Y S ) ) \r ( T E D I T
0034460 . S E T S Y N T A X ( C H A R
0034500 C O D E E S C ) \r
0034520 ' R E D O ) \r ( P U T P R O P
0034540 S T K D O R A D O C O P Y R
0034560 I G H T ( " X e r o x C o r
0034600 p o r a t i o n " 1 9 8 6 1
0034620 9 8 7 ) ) \r ( D E C L A R E % :
0034640 D O N T C O P Y \r ( F I L
0034660 E M A P ( N I L ( 7 2 0 6
0034700 9 0 1 3 ( \ T K D . S E T L O
0034720 O K S 7 2 1 6 . 9 0 1 1 )
0034740 ) ) ) ) \r S T O P \r
0034752