$ od -c -N 50000 [Indigo]<Loops>RELEASE>4-JUL-84>LOOPSUID.DCOM!1
0000000 ( F I L E C R E A T E D " 3
0000020 - J u l - 8 4 1 5 : 0 6 : 0 2
0000040 " ( " c o m p i l e d o n
0000060 " { I N D I G O } < L O O P S
0000100 > S O U R C E S > L O O P S U I
0000120 D . ; 9 ) \r " 8 - J u n - 8
0000140 4 1 1 : 1 7 : 2 0 " r e c o
0000160 m p i l e d e x p r s : D B
0000200 - I n i t U I i n W O R K
0000220 d a t e d " 3 - J u l - 8 4
0000240 1 0 : 5 6 : 3 0 " ) \r ( F I L
0000260 E C R E A T E D " 3 - J u l
0000300 - 8 4 1 5 : 0 5 : 4 3 " { I
0000320 N D I G O } < L O O P S > S O U
0000340 R C E S > L O O P S U I D . ; 9
0000360 7 5 3 0 c h a n g e s t o
0000400 : ( F N S D B - I n i t U I
0000420 ) \r p r e v i o u s d a t e
0000440 : " 2 5 - A p r - 8 4 1 6 :
0000460 0 1 : 3 5 " { I N D I G O } <
0000500 L O O P S > S O U R C E S > L O
0000520 O P S U I D . ; 8 ) \r D B - I n
0000540 i t U I D 1 \r ( P 1 0 Q n
0000560 s H o s t N u m b e r P 7
0000600 t e m p P 6 s t a r t I n
0000620 d e x P 5 d a t e C o d e
0000640 P 4 m o n t h C o d e P
0000660 3 d a y P 2 m o n t h
0000700 P 1 y e a r P 0 d a
0000720 t e I 0 W H E N F 1 1
0000740 Q D B . U I C O U N T F 1
0000760 2 Q D B . F R O N T U I ) 001
0001000 245 \t 002 \0 001 021 220 \b @ 262 032 @ g \0 \0 360
0001020 263 023 @ g \0 \0 360 252 @ g \0 \0 360 264 003 202
0001040 261 001 210 g \0 \0 - _ 020 003 253 \b \0 \0 j d
0001060 h 032 032 032 _ 020 277 \b \0 \0 X d l \b l \t
0001100 \v \0 \0 Y H l 004 l 006 \v \0 \0 Z H k l
0001120 002 \v \0 \0 d 005 001 245 d 005 002 241 005 003 265 \t
0001140 H l 002 d \v \0 \0 [ H \t \0 \0 H k l \n
0001160 \v \0 \0 o \0 \0 \0 \n \0 \0 \t \0 \0 331 ^ n
0001200 003 350 \t \0 \0 J g \0 \0 360 247 J d g \0 \0
0001220 360 226 277 g \0 \0 261 \0 323 g \0 \0 360 247 J d
0001240 g \0 \0 360 226 277 g \0 \0 261 \0 300 g \0 \0 360
0001260 247 J d g \0 \0 360 226 277 g \0 \0 261 \0 255 g
0001300 \0 \0 360 247 J d g \0 \0 360 226 277 g \0 \0 261
0001320 \0 232 g \0 \0 360 247 J d g \0 \0 360 226 277 g
0001340 \0 \0 261 \0 207 g \0 \0 360 247 J d g \0 \0 360
0001360 225 277 g \0 \0 260 t g \0 \0 360 247 J d g \0
0001400 \0 360 225 277 g \0 \0 260 b g \0 \0 360 247 J d
0001420 g \0 \0 360 225 277 g \0 \0 260 P g \0 \0 360 247
0001440 J d g \0 \0 360 225 277 g \0 \0 260 > g \0 \0
0001460 360 247 J d g \0 \0 360 225 277 g \0 \0 260 , g
0001500 \0 \0 360 247 J d g \0 \0 360 225 277 g \0 \0 260
0001520 032 g \0 \0 360 247 J d g \0 \0 360 224 277 g \0
0001540 \0 206 o \0 \0 \0 \n \0 \0 \ j c 022 L K l
0001560 @ 330 \t \0 \0 I \t \0 \0 O 020 002 001 \t \0 \0
0001600 g \0 \0 O 020 002 002 001 340 340 340 340 340 340 O 020
0001620 002 002 002 001 330 \t \0 \0 g \0 \0 N \t \0 \0 g
0001640 \0 \0 \r \t \0 \0 c 024 020 \0 ( 6 4 0 Q
0001660 C O N C A T 6 3 1 Q R A D I
0001700 X 6 4 N U M 6 2 2 Q R A D I
0001720 X 6 4 N U M 5 7 2 Q R A D I
0001740 X 6 4 N U M 5 6 3 Q C H A R
0001760 A C T E R 5 5 7 Q C H A R A
0002000 C T E R 5 4 3 Q E R R O R
0002020 1 7 7 Q W A I T M S 1 6 7 Q
0002040 I D A T E 1 6 4 Q C O N C
0002060 A T 1 5 5 Q S U B S T R I N
0002100 G 1 4 6 Q I D A T E 1 4 1
0002120 Q S U B A T O M 1 1 6 Q S
0002140 U B A T O M 1 0 6 Q S U B A
0002160 T O M 7 5 Q S U B A T O M
0002200 6 4 Q D A T E 5 0 Q D A Y
0002220 T I M E ) \r ( 6 3 4 Q % . 6
0002240 2 5 Q % . 5 7 5 Q % . 5
0002260 3 3 Q D 5 2 5 Q D E C 5
0002300 1 6 Q D e c 5 1 1 Q N 5
0002320 0 3 Q N O V 4 7 4 Q N o v
0002340 4 6 7 Q O 4 6 1 Q O C T
0002360 4 5 2 Q O c t 4 4 5 Q S
0002400 4 3 7 Q S E P 4 3 0 Q S
0002420 e p 4 2 3 Q G 4 1 5 Q A
0002440 U G 4 0 6 Q A u g 4 0 1 Q
0002460 L 3 7 3 Q J U L 3 6 4 Q
0002500 J u l 3 5 7 Q U 3 5 1 Q
0002520 J U N 3 4 2 Q J u n 3 3
0002540 4 Q Y 3 2 6 Q M A Y 3 1
0002560 7 Q M a y 3 1 1 Q A 3 0
0002600 3 Q A P R 2 7 4 Q A p r
0002620 2 6 6 Q M 2 6 0 Q M A R
0002640 2 5 1 Q M a r 2 4 3 Q F
0002660 2 3 5 Q F E B 2 2 6 Q F e
0002700 b 2 2 0 Q J 2 1 2 Q J A
0002720 N 2 0 3 Q J a n 4 0 Q \
0002740 M Y . N S H O S T N U M B E R
0002760 2 6 Q A F T E R S Y S O U T
0003000 2 0 Q A F T E R M A K E S Y S
0003020 1 1 Q A F T E R L O G O U T
0003040 ) \r ( 5 4 0 Q " I S N O T
0003060 A M O N T H " 1 6 1 Q "
0003100 0 0 : 0 0 : 0 0 " ) \r D B - P a
0003120 c k U I D 1 \r ( F 0 D B .
0003140 U I C O U N T F 1 D B . F
0003160 R O N T U I ) \0 \v \0 002 \0 \0 Q P
0003200 k 330 c \0 \n \0 \0 020 \0 ( 1 0 Q C O
0003220 N C A T ) \r N I L \r ( ) \r D B -
0003240 U n p a c k U I D 1 \r ( P 1
0003260 0 Q d a t e C o d e P 7
0003300 c h a r C o d e s P 6 u i
0003320 C o u n t P 5 y e a r P
0003340 4 m o n t h P 3 d a y
0003360 P 2 p a r t i t o n P
0003400 1 h o s t N u m b e r P 0
0003420 n e t N u m b e r I 0 U
0003440 I ) \0 334 \t \0 \0 001 021 220 \b @ \t \0 \0
0003460 _ 016 d 002 002 001 O 016 002 002 002 001 l \b \n \0
0003500 \0 330 _ 020 O 016 l 003 \n \0 \0 001 ] O 016 l
0003520 002 \n \0 \0 001 l @ 331 [ O 016 001 \t \0 \0 d
0003540 g \0 \0 360 226 277 g \0 \0 261 \0 215 d g \0 \0
0003560 360 226 277 g \0 \0 261 \0 200 d g \0 \0 360 225 277
0003600 g \0 \0 260 s d g \0 \0 360 225 277 g \0 \0 260
0003620 g d g \0 \0 360 225 277 g \0 \0 260 [ d g \0
0003640 \0 360 225 277 g \0 \0 260 O d g \0 \0 360 225 277
0003660 g \0 \0 260 C d g \0 \0 360 225 277 g \0 \0 260
0003700 7 d g \0 \0 360 225 277 g \0 \0 260 + d g \0
0003720 \0 360 225 277 g \0 \0 260 037 d g \0 \0 360 225 277
0003740 g \0 \0 260 023 g \0 \0 360 223 g \0 \0 207 L o
0003760 \0 \0 \0 \n \0 \0 \ o \0 \0 \0 K L M h 032
0004000 032 032 032 020 \0 ( 3 1 4 Q E R R O R
0004020 6 5 Q C H A R A C T E R 5
0004040 2 Q N T H 4 1 Q N T H 2
0004060 7 Q L S H 6 C H C O N ) \r
0004100 ( 3 0 3 Q D E C 2 7 6 Q D
0004120 2 7 1 Q N O V 2 6 3 Q N
0004140 2 5 5 Q O C T 2 4 7 Q O
0004160 2 4 1 Q S E P 2 3 3 Q S
0004200 2 2 5 Q A U G 2 1 7 Q G
0004220 2 1 1 Q J U L 2 0 3 Q L
0004240 1 7 5 Q J U N 1 6 7 Q U
0004260 1 6 1 Q M A Y 1 5 3 Q Y
0004300 1 4 5 Q A P R 1 3 7 Q A
0004320 1 3 1 Q M A R 1 2 3 Q M
0004340 1 1 4 Q F E B 1 0 6 Q F
0004360 7 7 Q J A N 7 1 Q J ) \r
0004400 ( 3 2 1 Q " C r e a t e d "
0004420 3 1 1 Q " I S N O T A M
0004440 O N T H " ) \r R A D I X 6 4 N U
0004460 M D 1 \r ( P 2 r e m P
0004500 1 n u m P 0 c h a r s
0004520 I 0 i n p u t N u m ) \0 5
0004540 003 \0 \0 001 h h 032 @ 021 022 002 I l ? 345 l
0004560 0 330 d l ` 360 222 277 l z 272 H J \t \0 \0
0004600 \n \0 \0 277 I 342 342 342 342 342 342 Y d j 360 262
0004620 335 277 H 001 \t \0 \0 020 \0 ( 6 2 Q C O
0004640 N C A T L I S T 3 6 Q T C O
0004660 N C 3 3 Q C H A R A C T E R
0004700 ) \r N I L \r N I L \r U I D D 1
0004720 \r ( P 0 u i d I 1 n a
0004740 m e F l g I 0 o b j ) \0
0004760 % 001 \0 \0 002 @ 311 004 021 001 \0 H 231 H \t \0
0005000 \0 004 ` \0 \0 360 245 @ H \n \0 \0 270 A 224 H
0005020 \t \0 \0 020 H \t \0 \0 020 \0 ( 4 2 Q M
0005040 K S T R I N G 3 5 Q M K A T
0005060 O M 2 6 Q C r e a t e E n t
0005100 i t y 1 3 Q G e t E n t i t
0005120 y F r o m U I D ) \r ( 1 7 Q 004
0005140 003 E n t i t y T Y P E # ) \r N I
0005160 L \r ( P R E T T Y C O M P R I N
0005200 T L O O P S U I D C O M S ) \r
0005220 ( R P A Q Q L O O P S U I D C
0005240 O M S ( ( * C o p y r i g h
0005260 t ( c ) 1 9 8 3 b y X e
0005300 r o x C o r p o r a t i o n )
0005320 ( * C r e a t e s u n i q
0005340 u e i d e n t i f i e r s f
0005360 o r \r i n s t a n c e s ) (
0005400 R E C O R D S U I R E C ) (
0005420 V A R S * U I V A R S ) (
0005440 F N S * U I F N S ) ( P
0005460 ( D B - I n i t U I ) ) ) ) \r (
0005500 R E C O R D U I R E C ( N e
0005520 t N u m b e r H o s t N u m b
0005540 e r P a r t i t i o n N u m b
0005560 e r D a y M o n t h Y e a
0005600 r U I C o u n t ) ( S Y S T
0005620 E M ) ) \r ( R P A Q Q U I V A
0005640 R S ( ( D B . P R I N T D E S
0005660 T I N A T I O N P R O M P T W
0005700 I N D O W ) ( D B . U I F I L
0005720 E N A M E ( C O N D ( ( F M
0005740 E M B ( S Y S T E M T Y P E )
0005760 ( Q U O T E ( \r A L T O D
0006000 ) ) ) ( Q U O T E { D S K }
0006020 L o r e - U I . S A V E ) ) (
0006040 T ( Q U O T E L o r e - U I
0006060 . S A V E ) ) ) ) ( D B . U I
0006100 R E C N I L ) ( D B . F R O
0006120 N T U I N I L ) ( \r D B . U
0006140 I C O U N T 0 ) ( D B . U I
0006160 D U M P I N C R 1 0 0 0 ) (
0006200 D B . N E X T U I D U M P N I
0006220 L ) ( D B . E N V I R O N M E
0006240 N T N I L ) ( U I D P R I N
0006260 T F L G ) ( N E T N U M B E R
0006300 0 \r ) ) ) \r ( R P A Q D B .
0006320 P R I N T D E S T I N A T I O N
0006340 P R O M P T W I N D O W ) \r (
0006360 R P A Q D B . U I F I L E N A
0006400 M E ( C O N D ( ( F M E M B
0006420 ( S Y S T E M T Y P E ) ( Q
0006440 U O T E ( A L T O D ) ) )
0006460 ( Q U O T E { D S K } L o r e
0006500 - U I . S A V E ) ) ( T ( Q
0006520 U O T E \r L o r e - U I . S A
0006540 V E ) ) ) ) \r ( R P A Q Q D B
0006560 . U I R E C N I L ) \r ( R P A
0006600 Q Q D B . F R O N T U I N I
0006620 L ) \r ( R P A Q Q D B . U I C
0006640 O U N T 0 ) \r ( R P A Q Q D
0006660 B . U I D U M P I N C R 1 0 0
0006700 0 ) \r ( R P A Q Q D B . N E X
0006720 T U I D U M P N I L ) \r ( R P
0006740 A Q Q D B . E N V I R O N M E
0006760 N T N I L ) \r ( R P A Q Q U
0007000 I D P R I N T F L G N I L ) \r
0007020 ( R P A Q Q N E T N U M B E R
0007040 0 ) \r ( R P A Q Q U I F N S
0007060 ( D B - I n i t U I D B - P
0007100 a c k U I D B - U n p a c k U
0007120 I R A D I X 6 4 N U M U I D
0007140 ) ) \r ( D B - I n i t U I ) \r (
0007160 P U T P R O P S L O O P S U I
0007200 D C O P Y R I G H T ( " X e
0007220 r o x C o r p o r a t i o n "
0007240 1 9 8 4 ) ) \r N I L \r
0007254