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