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