$ 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