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