$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>TRANSOR-LOADTRAN!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 " X C L -
0000040 U S E R " 247 R E A D T A B L E
0000060 " X C L " ) \n 006 001 ( I L : F I
0000100 L E C R E A T E D " 1 3 - A p
0000120 r - 8 7 1 7 : 3 8 : 1 7 " 006
0000140 004 I L : { D S K } < X A V I E R
0000160 > L O A D T R A N . \ ; 9 006 001
0000200 2 0 4 5 \n \n I
0000220 L : | c h a n g e s | I L : |
0000240 t o : | ( I L : V A R S I
0000260 L : L O A D T R A N C O M S S
0000300 T O P ) \n
0000320
0000340 ( I L : F U N C T I O N S
0000360 M Y L O A D I . S . O P R P
0000400 R E T T Y C O M P R I N T S E
0000420 T T E M P L A T E D E F I N E
0000440 - F I L E - I N F O \n
0000460
0000500 )
0000520 \n
0000540 ( I
0000560 L : F N S P R E T T Y C O M P
0000600 R I N T S E T T E M P L A T E
0000620 ) \n \n I L : | p r e
0000640 v i o u s | I L : | d a t e :
0000660 | " 6 - A p r - 8 7 1 6 :
0000700 5 7 : 4 8 " I L : { D S K } <
0000720 X A V I E R > L O A D T R A N .
0000740 \ ; 1 ) \n \n \n ; C o p y r i g
0000760 h t ( c ) 1 9 8 7 b y S
0001000 y s t e m D e v e l o p m e n
0001020 t C o r p . . A l l r i
0001040 g h t s r e s e r v e d . \n \n
0001060 ( I L : P R E T T Y C O M P R I
0001100 N T I L : L O A D T R A N C O
0001120 M S ) \n \n ( I L : R P A Q Q 006
0001140 002 I L : L O A D T R A N C O M S
0001160 006 001 ( ( I L : V A R S S T O
0001200 P ) \n
0001220 ( I
0001240 L : F N S P R E T T Y C O M P
0001260 R I N T S E T T E M P L A T E
0001300 ) \n
0001320 ( I L
0001340 : F U N C T I O N S D E F I N
0001360 E - F I L E - I N F O I . S .
0001400 O P R M Y L O A D ) \n
0001420
0001440 ( I L : D E C L A
0001460 R E \ : I L : D O N T E V A L
0001500 @ L O A D I L : D O E V A L @
0001520 C O M P I L E I L : D O N T C
0001540 O P Y \n
0001560
0001600 I L : C O M P I L
0001620 E R V A R S ( I L : A D D V A
0001640 R S ( I L : N L A M A P R E
0001660 T T Y C O M P R I N T ) \n
0001700
*
0001760 ( I L : N L A M L )
0002000 \n
0002020
*
0002060 ( I L : L A
0002100 M A S E T T E M P L A T E ) )
0002120 ) ) ) \n \n ( I L : R P A Q Q 006
0002140 002 S T O P 006 001 S T O P ) \n ( I
0002160 L : D E F I N E Q \n \n ( 006 004 P R
0002200 E T T Y C O M P R I N T 006 001 \n
0002220 ( I L : N L A M B D A X 006 006
0002240 006 001
0002260
0002300 006 006 ( I L :
0002320 * I L : \ ; " E d i t e d
0002340 6 - A p r - 8 7 1 5 : 4 7
0002360 b y D J V B " ) 006 001 \n
0002400 0 ) ) \n \n ( 006 004 S E T T E M P L
0002420 A T E 006 001 \n ( L A M B D A
0002440 ( X Y ) \n (
0002460 B L O C K S E T T E M P L A T
0002500 E ( N I L L ) ) ) ) \n ) \n \n (
0002520 D E F U N 006 002 D E F I N E - F
0002540 I L E - I N F O 006 001 ( & R E S
0002560 T A R G S ) ( N I L L ) ) \n
0002600 \n \n ( D E F U N 006 002 I . S . O
0002620 P R 006 001 ( X ) ( N I L L ) )
0002640 \n \n \n ( D E F U N 006 002 M Y L O
0002660 A D 006 001 ( F I L E ) ( L E T
0002700 ( ( F I L E ( O P E N F I
0002720 L E : D I R E C T I O N : I
0002740 N P U T ) ) ) \n
0002760
0003000 ( U N W I N D - P R O T E C
0003020 T ( I L : \ \ C M L - L O A D
0003040 F I L E T * T E R M I N A
0003060 L - I O * ( F I N D - P A C K
0003100 A G E \n
0003120
*
0003220 " X C L - U
0003240 S E R " ) ) \n
0003260
0003300 ( C L O S E F
0003320 I L E ) ) ) ) \n \n ( I L : D E C
0003340 L A R E \ : I L : D O N T E V
0003360 A L @ L O A D I L : D O E V A
0003400 L @ C O M P I L E I L : D O N
0003420 T C O P Y I L : C O M P I L E
0003440 R V A R S \n \n ( I L : A D D T
0003460 O V A R 006 002 I L : N L A M A 006
0003500 001 P R E T T Y C O M P R I N T
0003520 ) \n \n ( I L : A D D T O V A R
0003540 006 002 I L : N L A M L 006 001 ) \n \n
0003560 ( I L : A D D T O V A R 006 002 I
0003600 L : L A M A 006 001 S E T T E M P
0003620 L A T E ) \n ) \n ( I L : P U T P
0003640 R O P S I L : L O A D T R A N
0003660 I L : C O P Y R I G H T ( "
0003700 S y s t e m D e v e l o p m e
0003720 n t C o r p . " 1 9 8 7 ) )
0003740 \n ( I L : D E C L A R E \ : I
0003760 L : D O N T C O P Y \n ( I L
0004000 : F I L E M A P ( N I L ( 1
0004020 1 3 4 1 3 5 7 ( P R E T T Y
0004040 C O M P R I N T 1 1 4 7 .
0004060 1 2 8 3 ) ( S E T T E M P L A
0004100 T E 1 2 8 5 . 1 3 5 5 ) )
0004120 ) ) ) \n I L : S T O P \n
0004134