$ od -c -N 50000 [Indigo]<Loops>RELEASE>27-SEP-83>LOADLOOPS.DCOM!2
0000000 ( F I L E C R E A T E D " 1
0000020 - F E B - 8 4 1 1 : 3 3 : 4 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 > R E L E A S E > 2 7 - S E P -
0000120 8 3 > L O A D L O O P S . ; 3 )
0000140 \r " 2 2 - S E P - 8 3 2 3 :
0000160 5 8 : 4 1 " r e c o m p i l e
0000200 d e x p r s : C o p y F i l
0000220 e s U s i n g S p e c s E n t
0000240 e r S y s E n t e r S y s F o
0000260 r L o o p s C o u r s e \r E n
0000300 t e r S y s F o r S t a n d A l
0000320 o n e E n t e r S y s F o r L
0000340 e e s b u r g F o r c e L o a
0000360 d F o n t s L E E S B U R G
0000400 L O A D D E M O L O A D L O O
0000420 P S N e w R e l e a s e \r S
0000440 A L E E S B U R G S T A N D A
0000460 L O N E T E S T L O O P S T
0000500 e s t e r S y s t e m L O A D
0000520 T R U C K I N L O A D C O U R
0000540 S E W A I T M S W A I T P A
0000560 G E F N S e t N e t w o r k
0000600 D E \r F I L E i / d P P I
0000620 P P R i n L O O P S . S Y
0000640 S O U T d a t e d " 2 3 - S
0000660 E P - 8 3 1 3 : 2 1 : 4 5 " )
0000700 \r ( F I L E C R E A T E D "
0000720 1 - F E B - 8 4 1 1 : 3 3 : 0
0000740 0 " { I N D I G O } < L O O P
0000760 S > R E L E A S E > 2 7 - S E P
0001000 - 8 3 > L O A D L O O P S . ; 3
0001020 2 7 3 5 3 c h a n g e s t
0001040 o : ( \r V A R S L O A D L O
0001060 O P S C O M S L O O P S F I L
0001100 E S L o o p s D a t e ) ( F
0001120 N S C o p y F i l e s U s i n
0001140 g S p e c s E n t e r S y s
0001160 E n t e r S y s F o r L o o p s
0001200 C o u r s e \r E n t e r S y s
0001220 F o r S t a n d A l o n e E n
0001240 t e r S y s F o r L e e s b u r
0001260 g F o r c e L o a d F o n t s
0001300 L E E S B U R G L O A D D E
0001320 M O L O A D L O O P S N e w
0001340 R e l e a s e \r S A L E E S B
0001360 U R G S T A N D A L O N E T
0001400 E S T L O O P S T e s t e r S
0001420 y s t e m L O A D T R U C K I
0001440 N L O A D C O U R S E W A I
0001460 T M S W A I T P A G E F N S
0001500 e t N e t w o r k D E \r F I
0001520 L E i / d P P I P P R )
0001540 ( A D V I C E P A G E F U L L
0001560 F N ) p r e v i o u s d a t
0001600 e : " 2 7 - S E P - 8 3 1 5
0001620 : 5 4 : 3 7 " \r { I N D I G O
0001640 } < L O O P S > S O U R C E S >
0001660 L O A D L O O P S . ; 4 9 ) \r C
0001700 o p y F i l e s U s i n g S p e
0001720 c s A 0 0 2 6 D 1 \r ( N A M E
0001740 E R R O R S E T L ( 2 E
0001760 R R O R S E T . W 1 E R R O
0002000 R S E T . V 0 E R R O R S E
0002020 T . U ) F 0 x ) \0 \a \0 001
0002040 \0 003 P 001 - h 032 020 \0 N I L \r N I L
0002060 \r N I L \r C o p y F i l e s U s
0002100 i n g S p e c s D 1 \r ( P 1
0002120 1 Q z P 5 x P 4 c
0002140 o p i e d P 3 o p t i o n
0002160 P 2 f i l e s P 1 f
0002200 r o m D i r P 0 s t a t u
0002220 s I 1 t o D i r I 0
0002240 s p e c s F 1 2 Q T T Y
0002260 F 1 3 Q y ) 001 u \n 002 \0 002 i
0002300 021 Q 005 @ 261 001 f d 001 ] d 001 004 l 004 360
0002320 262 ' 277 o \0 \0 \0 \t \0 \0 c 026 265 033 o \0
0002340 \0 \0 W 024 \n \0 \0 277 M W 024 \n \0 \0 277 W
0002360 024 \t \0 \0 277 h 200 001 272 M 002 001 271 J 264 003
0002400 202 261 001 & M d 002 002 244 277 g \0 \0 202 002 002
0002420 001 [ g \0 \0 360 250 K d g \0 \0 360 262 | 277
0002440 021 0 \b J 260 . d 001 021 001 \t I O 022 \n \0
0002460 \0 \t \0 \0 A O 022 \n \0 \0 \t \0 \0 \n \0 \0
0002500 022 276 O 016 265 \b N h 032 _ 020 201 N & _ 016
0002520 277 002 003 265 323 O 020 022 274 h L 034 221 h 270 o
0002540 \0 \0 \0 W 024 \n \0 \0 277 J W 024 \n \0 \0 277
0002560 o \0 \0 \0 W 024 \n \0 \0 277 I W 024 \n \0 \0
0002600 277 o \0 \0 \0 W 024 \n \0 \0 277 A W 024 \n \0
0002620 \0 277 W 024 \t \0 \0 277 K g \0 \0 360 250 K g
0002640 \0 \0 360 242 261 \0 205 021 0 \b J 260 6 d 001 021
0002660 001 \t I O 022 o \0 \0 \0 \v \0 \0 \t \0 \0 A
0002700 O 022 o \0 \0 \0 \v \0 \0 \t \0 \0 \n \0 \0 022
0002720 276 O 016 265 \b N h 032 _ 020 201 N & _ 016 277
0002740 002 003 265 313 O 020 022 274 h L 034 221 h 270 o \0
0002760 \0 \0 W 024 \n \0 \0 277 J W 024 \n \0 \0 277 o
0003000 \0 \0 \0 W 024 \n \0 \0 277 I W 024 \n \0 \0 277
0003020 o \0 \0 \0 W 024 \n \0 \0 277 A W 024 \n \0 \0
0003040 277 W 024 \t \0 \0 200 X 277 002 003 265 003 202 261 376
0003060 231 H 020 \0 ( 5 4 6 Q T E R P R I
0003100 5 4 0 Q P R I N 1 5 3 1 Q
0003120 P R I N 1 5 1 7 Q P R I N
0003140 1 5 1 0 Q P R I N 1 4 7 6
0003160 Q P R I N 1 4 6 7 Q P R I
0003200 N 1 4 1 7 Q C O P Y F I L E
0003220 4 1 4 Q M K A T O M 4 1 1
0003240 Q C O N C A T 3 7 7 Q M K
0003260 A T O M 3 7 4 Q C O N C A T
0003300 3 2 7 Q T E R P R I 3 2 1
0003320 Q P R I N 1 3 1 2 Q P R I
0003340 N 1 3 0 0 Q P R I N 1 2 7
0003360 1 Q P R I N 1 2 5 7 Q P R
0003400 I N 1 2 5 0 Q P R I N 1 2
0003420 0 0 Q C O P Y F I L E 1 7 5
0003440 Q M K A T O M 1 7 2 Q C O
0003460 N C A T 1 6 4 Q M K A T O M
0003500 1 6 1 Q C O N C A T 6 4 Q
0003520 T E R P R I 5 6 Q P R I N
0003540 1 4 7 Q P R I N 1 3 2 Q
0003560 C o p y F i l e s U s i n g S p
0003600 e c s A 0 0 2 6 ) \r ( 3 4 2 Q
0003620 B 3 3 4 Q C 1 3 4 Q B
0003640 1 2 5 Q S 1 1 5 Q C ) \r (
0003660 5 2 4 Q " t o : " 5 0 3
0003700 Q " f r o m : " 4 6 2 Q
0003720 " C o p i e d c o m p i l e
0003740 d f i l e s : " 4 0 6 Q
0003760 " . D C O M " 3 7 1 Q " . D
0004000 C O M " 3 0 5 Q " t o :
0004020 " 2 6 4 Q " f r o m : "
0004040 2 4 3 Q " C o p i e d s o
0004060 u r c e f i l e s : " 4 2
0004100 Q " C a n n o t c a r r y o
0004120 u t s p e c s : " 2 7 Q
0004140 ( D U M M Y . F O R . E R R O R
0004160 S E T ) ) \r E n t e r S y s A 0
0004200 0 2 7 D 1 \r ( N A M E E R R
0004220 O R S E T L ( 2 E R R O R
0004240 S E T . W 1 E R R O R S E T
0004260 . V 0 E R R O R S E T . U )
0004300 F 0 L O G I N H O S T / D
0004320 I R ) \0 \a \0 001 \0 003 P \t \0 \0 i 020
0004340 \0 ( 3 / C N D I R ) \r N I L \r
0004360 N I L \r E n t e r S y s D 1 \r
0004400 ( P 1 l o g i n H o s t E n
0004420 t r y P 0 u s e r E n t r
0004440 y I 0 l o g I n F l g F
0004460 2 U S E R N A M E F 3
0004500 I N I T I A L S L S T F 4
0004520 D E F A U L T P R I N T I N G H
0004540 O S T F 5 L e e s b u r g
0004560 F l g F 6 S t a n d A l o
0004600 n e F l g F 7 I N I T I A
0004620 L S F 1 0 Q D E F A U L T
0004640 F I L E S E R V E R F 1 1 Q
0004660 L O G I N H O S T / D I R F
0004700 1 2 Q F I R S T N A M E )
0004720 \0 343 002 \t \0 001 021 001 U 223 \b \0 \0 020 V
0004740 223 \b \0 \0 020 @ 234 \b \0 \0 277 \b \0 \0 \t \0
0004760 \0 c 004 277 \b \0 \0 \t \0 \0 c 004 d g \0 \0
0005000 360 224 277 \b \0 \0 020 S \n \0 \0 X 265 037 @ 243
0005020 \b \0 \0 277 \b \0 \0 \t \0 \0 c 004 d g \0 \0
0005040 360 263 341 S \n \0 \0 X d 262 v 002 002 002 001 Y
0005060 d 005 \a 225 I \t \0 \0 260 ' o \0 \0 \0 H 225
0005100 I 265 021 W 020 213 o \0 \0 \0 h o \0 \0 \0 \v
0005120 \0 \0 o \0 \0 \0 R o \0 \0 \0 \r 005 \0 \0 c
0005140 022 H 265 L o \0 \0 \0 h o \0 \0 \0 \v \0 \0
0005160 c \b H 265 1 o \0 \0 \0 h o \0 \0 \0 i \f
0005200 \0 \0 c 016 H 265 033 o \0 \0 \0 h o \0 \0 \0
0005220 i \f \0 \0 c 024 o \0 \0 \0 i \n \0 \0 h 020
0005240 002 001 260 362 002 002 001 265 333 g \0 \0 260 326 002 002
0005260 002 002 001 265 275 T 260 272 \0 ( 3 0 7 Q E
0005300 n t e r S y s A 0 0 2 7 2 7 5
0005320 Q I N T T Y 2 5 3 Q I N T
0005340 T Y 2 3 1 Q I N T T Y 2 1
0005360 0 Q P A C K * 1 7 3 Q I N
0005400 T T Y 1 4 1 Q P A C K * 1
0005420 2 0 Q F A S S O C 1 0 3 Q
0005440 M K A T O M 1 0 0 Q U S E R
0005460 N A M E 7 4 Q L O G I N 6
0005500 4 Q F A S S O C 5 7 Q E n
0005520 t e r S y s F o r L o o p s C o
0005540 u r s e 4 3 Q M K A T O M
0005560 4 0 Q U S E R N A M E 3 2 Q
0005600 M K A T O M 2 7 Q U S E R
0005620 N A M E 2 3 Q L O G I N 1
0005640 5 Q E n t e r S y s F o r S t
0005660 a n d A l o n e 7 E n t e r
0005700 S y s F o r L e e s b u r g ) \r
0005720 ( 3 2 5 Q e d i t e d : 1 1
0005740 1 Q L O O P S C O U R S E 5
0005760 1 Q L O O P S C O U R S E ) \r
0006000 ( 3 0 3 Q ( D U M M Y . F O R
0006020 . E R R O R S E T ) 2 7 1 Q
0006040 " N a m e t o b e u s e d
0006060 i n g r e e t i n g ; e g
0006100 . g . D a n n y " 2 6 4 Q
0006120 " W h a t i s y o u r f i
0006140 r s t n a m e ? " 2 4 7 Q
0006160 " I n i t i a l s t o b e
0006200 i n s e r t e d i n e d i
0006220 t e d f u n c t i o n s e .
0006240 g . d g b : " 2 4 2 Q " W
0006260 h a t a r e y o u r i n i
0006300 t i a l s ? " 2 2 6 Q " A
0006320 p r i n t s e r v e r n a
0006340 m e s u c h a s M E N L O
0006360 , Y O D A " 2 2 1 Q " W h a
0006400 t i s t h e n a m e o f
0006420 y o u r d e f a u l t p r
0006440 i n t i n g s e r v e r ? "
0006460 2 0 4 Q " > L I S P > " 1
0006500 7 7 Q " } < " 1 7 0 Q " A
0006520 f i l e s e r v e r n a m
0006540 e s u c h a s I V Y ,
0006560 P H Y L U M " 1 6 3 Q " W h
0006600 a t i s t h e n a m e o
0006620 f y o u r f i l e s e r v
0006640 e r ? " 1 4 7 Q " { " ) \r
0006660 E n t e r S y s F o r L o o p s
0006700 C o u r s e A 0 0 2 8 D 1 \r (
0006720 N A M E E R R O R S E T L
0006740 ( 2 E R R O R S E T . W 1
0006760 E R R O R S E T . V 0 E R R
0007000 O R S E T . U ) F 0 L O G
0007020 I N H O S T / D I R ) \0 \b \0 001
0007040 \0 003 P \t \0 \0 h 032 020 \0 ( 3 / C N
0007060 D I R ) \r N I L \r N I L \r E n t
0007100 e r S y s F o r L o o p s C o u
0007120 r s e D 1 \r ( F 0 S t u d
0007140 e n t N a m e F 1 I N I T
0007160 I A L S F 2 L O G I N H O
0007200 S T / D I R F 3 F I R S T
0007220 N A M E F 4 L O O P S C O
0007240 U R S E D I R ) \0 & \0 005 \0 \0 o
0007260 \0 \0 \0 \t \0 \0 c \0 g \0 \0 c 002 g \0 \0
0007300 c 006 T d 235 P \n \0 \0 c 004 o \0 \0 \0 i
0007320 \n \0 \0 020 \0 ( 4 3 Q E n t e r S
0007340 y s F o r L o o p s C o u r s e
0007360 A 0 0 2 8 3 1 Q P A C K *
0007400 6 I N T T Y ) \r ( 2 0 Q S t
0007420 u d e n t 1 3 Q e d i t e d
0007440 : ) \r ( 3 7 Q ( D U M M Y . F
0007460 O R . E R R O R S E T ) 3 "
0007500 W h a t i s y o u r l a s
0007520 t n a m e , p l e a s e ?
0007540 " ) \r E n t e r S y s F o r S t
0007560 a n d A l o n e D 1 \r N I L
0007600 \0 \n \0 \0 \0 \0 o \0 \0 \0 \t \0 \0 h 020 \0
0007620 ( 6 W R I T E ) \r N I L \r ( 3
0007640 " W e l c o m e t o t h e
0007660 L o o p s D e m o - - S
0007700 T A N D A L O N E v e r s i o
0007720 n . " ) \r E n t e r S y s F o r
0007740 L e e s b u r g A 0 0 2 9 D 1
0007760 \r ( N A M E E R R O R S E T
0010000 L ( 2 E R R O R S E T . W
0010020 1 E R R O R S E T . V 0 E
0010040 R R O R S E T . U ) F 0 L
0010060 O G I N H O S T / D I R ) \0 \a
0010100 \0 001 \0 003 P \t \0 \0 i 020 \0 ( 3 / C
0010120 N D I R ) \r N I L \r N I L \r E n
0010140 t e r S y s F o r L e e s b u r
0010160 g D 1 \r ( F 0 L O G I N H
0010200 O S T / D I R F 1 S t u d
0010220 e n t N a m e F 2 I N I T
0010240 I A L S F 3 F I R S T N A
0010260 M E F 4 L O O P S C O U R
0010300 S E D I R F 5 U S E R N A
0010320 M E ) \0 ~ \0 006 \0 \0 o \0 \0 \0 \t \0
0010340 \0 277 o \0 \0 \0 h o \0 \0 \0 \v \0 \0 c 002
0010360 277 g \0 \0 c 004 277 g \0 \0 c 006 277 T Q g
0010400 \0 \0 \v \0 \0 c \0 277 U g \0 \0 360 247 o \0
0010420 \0 \0 \t \0 \0 277 P \t \0 \0 225 P \t \0 \0 260
0010440 6 o \0 \0 \0 P \n \0 \0 277 o \0 \0 \0 o \0
0010460 \0 \0 o \0 \0 \0 \v \0 \0 g \0 \0 360 263 245 o
0010500 \0 \0 \0 P \n \0 \0 277 P \t \0 \0 277 o \0 \0
0010520 \0 i \n \0 \0 h 020 \0 ( 1 7 2 Q E n
0010540 t e r S y s F o r L e e s b u r
0010560 g A 0 0 2 9 1 6 1 Q N S C R
0010600 E A T E D I R E C T O R Y 1 5
0010620 4 Q W R I T E 1 3 6 Q I N
0010640 T T Y 1 1 6 Q W R I T E 1
0010660 0 4 Q / C N D I R 7 7 Q D
0010700 I R E C T O R Y N A M E P 7 2
0010720 Q W R I T E 5 2 Q P A C K
0010740 * 2 3 Q I N T T Y 6 W R
0010760 I T E ) \r ( 1 4 1 Q N 6 1 Q
0011000 L O O P S C O U R S E 4 7 Q
0011020 > 3 7 Q S t u d e n t 3
0011040 1 Q e d i t e d : ) \r ( 1 6 6
0011060 Q ( D U M M Y . F O R . E R R
0011100 O R S E T ) 1 5 0 Q " C r e
0011120 a t i n g d i r e c t o r y
0011140 f o r " 1 3 3 Q " T y p e
0011160 Y t o c r e a t e a n
0011200 e w d i r e c t o r y . \r T y
0011220 p e N t o r e - e n t e r
0011240 y o u r l a s t n a m e .
0011260 " 1 2 7 Q ( Y N ) 1 2 3
0011300 Q " C r e a t e a n e w
0011320 d i r e c t o r y ( Y / N ) ?
0011340 " 1 1 2 Q " N o d i r e
0011360 c t o r y e x i s t s y e t
0011400 f o r " 6 7 Q " P l e a
0011420 s e L O G I N a s L O O P
0011440 S C O U R S E a n d t y p e
0011460 t h e c o u r s e p a s s
0011500 w o r d . " 2 0 Q " E n t e
0011520 r y o u r n a m e . e . g
0011540 . J O N E S . ( U s e a
0011560 l l c a p i t a l s a n d
0011600 n o s p a c e s . ) " 1 3 Q
0011620 " W h a t i s y o u r l
0011640 a s t n a m e , p l e a s e
0011660 ? " 3 " W e l c o m e t
0011700 o L i s p a n d L o o p s
0011720 . " ) \r F o r c e L o a d F o n
0011740 t s D 1 \r N I L \0 017 \0 \0 \0 \0
0011760 g \0 \0 \t \0 \0 g \0 \0 \t \0 \0 h 020 \0 (
0012000 1 3 Q N E W F O N T 5 N E
0012020 W F O N T ) \r ( 1 0 Q P A R C
0012040 2 B I G ) \r N I L \r L E E S
0012060 B U R G D 1 \r ( F 0 F I L
0012100 E L S T F 1 L e e s b u r
0012120 g F l g F 2 L O O P S C O
0012140 U R S E D I R F 3 L I S P
0012160 U S E R S D I R E C T O R I E S
0012200 F 4 U S E R N A M E F
0012220 5 F O N T D I R E C T O R I E
0012240 S F 6 D E M O F L G S E T
0012260 U P F 7 N S . D E F A U L
0012300 T . P R I N T E R F 1 0 Q
0012320 D I R E C T O R I E S ) \0 G \0
0012340 \t \0 \0 \b \0 \0 i c 002 g \0 \0 g \0 \0 g
0012360 \0 \0 \v \0 \0 g \0 \0 c 004 h c 006 d c \n
0012400 d c \0 g \0 \0 c 016 g \0 \0 c \b g \0 \0
0012420 \t \0 \0 i c \f o \0 \0 \0 c \0 h g \0 \0
0012440 h 032 032 c 020 \b \0 \0 020 \0 ( 1 0 4 Q
0012460 S e t U p D e m o 5 7 Q P R
0012500 I N T E R M O D E 2 1 Q C H
0012520 A N G E N A M E 2 F o r c e
0012540 L o a d F o n t s ) \r ( 7 4 Q
0012560 { F S : } < L O O P S > 5 4 Q
0012600 I N T E R P R E S S 4 7 Q
0012620 N o t L o g g e d I n 4 2 Q
0012640 L I S P P R I N T 2 4 Q { F
0012660 S : } < L O O P S C O U R S E >
0012700 1 6 Q E V Q 1 3 Q F O N
0012720 T C O P Y 1 0 Q \ S E T . T
0012740 T Y I N B O L D F O N T ) \r ( 6
0012760 6 Q ( G A U G E S T R U C K
0013000 I N P T R U C K I N V T R U
0013020 C K I N D B T R U C K I N R
0013040 L O O P S D E M O ) ) \r L O A D
0013060 D E M O D 1 \r ( I 0 s o u
0013100 r c e F l g F 0 D E M O D
0013120 I R F 1 D I R E C T O R I
0013140 E S F 2 D E M O F I L E S
0013160 ) \0 & \0 003 \0 001 P Q 034 247 Q P h 032
0013200 \n \0 \0 277 @ \t \0 \0 @ 235 R 206 d 001 \t \0
0013220 \0 277 002 003 265 370 h 020 R \t \0 \0 020 \0 ( 4
0013240 3 Q D O F I L E S L O A D 3
0013260 0 Q L O A D 1 7 Q L O A D
0013300 T R U C K I N 1 2 Q \ N C O
0013320 N C 2 ) \r N I L \r N I L \r L O A
0013340 D L O O P S D 1 \r ( P 0 F
0013360 I L E I 2 n o S c r e e n
0013400 S e t u p I 1 s y s o u t
0013420 F l g I 0 o p t i o n F
0013440 1 A F T E R S Y S O U T F O
0013460 R M S F 2 L O O P S F I L
0013500 E S F 3 A F T E R L O G O
0013520 U T F O R M S F 4 L i s p
0013540 U s e r F i l e s F o r L o o p
0013560 s F 5 O p t i o n a l L i
0013600 s p u s e r F i l e s F 6
0013620 M A K E S Y S D A T E F 7
0013640 S Y S O U T G A G F 1 0 Q
0013660 L i s p D a t e F 1 1 Q R
0013700 U L E S F I L E S F 1 2 Q
0013720 C O M P I L E . E X T F 1 3
0013740 Q L o o p s D a t e F 1 4
0013760 Q F I L E L S T ) 001 202 001 \f \0
0014000 003 @ \t \0 \0 b \0 d d g \0 \0 360 232 277 o
0014020 \0 \0 \0 i \n \0 \0 h 020 262 8 @ g \0 \0 360
0014040 263 1 @ g \0 \0 360 263 * @ g \0 \0 360 263 #
0014060 @ g \0 \0 360 263 034 @ g \0 \0 360 263 025 @ g
0014100 \0 \0 360 254 @ g \0 \0 360 246 @ g \0 \0 360 262
0014120 036 g \0 \0 o \0 \0 \0 T U \n \0 \0 032 \n \0
0014140 \0 V k l \t \v \0 \0 c 020 R 260 1 o \0 \0
0014160 \0 020 d 001 021 001 \0 @ g \0 \0 360 225 H W 022
0014200 034 263 032 g \0 \0 H g \0 \0 @ g \0 \0 360 221
0014220 h 201 W 024 \f \0 \0 \t \0 \0 277 023 002 003 265 324
0014240 \b \0 \0 k l 017 \v \0 \0 c 026 @ g \0 \0 360
0014260 246 @ g \0 \0 360 264 006 R \t \0 \0 c 030 277 B
0014300 263 & @ d g \0 \0 360 263 037 d g \0 \0 360 263
0014320 030 d g \0 \0 360 257 277 A 247 @ d g \0 \0 360
0014340 245 277 \b \0 \0 277 @ g \0 \0 360 263 024 @ g \0
0014360 \0 360 253 @ g \0 \0 360 245 @ g \0 \0 360 233 \b
0014400 \0 \0 277 \b \0 \0 277 \b \0 \0 277 o \0 \0 \0 Q
0014420 \n \0 \0 263 034 Q o \0 \0 \0 h 032 \n \0 \0 c
0014440 002 277 S o \0 \0 \0 h 032 \n \0 \0 c 006 277 g
0014460 \0 \0 h 032 c 016 @ d g \0 \0 360 225 277 \b \0
0014500 \0 277 @ g \0 \0 360 223 \b \0 \0 277 @ d g \0
0014520 \0 360 225 277 \b \0 \0 277 @ g \0 \0 360 223 \b \0
0014540 \0 277 A d 262 035 i 360 244 A \t \0 \0 200 h 264
0014560 022 @ g \0 \0 360 223 g \0 \0 202 g \0 \0 \t \0
0014600 \0 020 \0 ( 5 7 7 Q S Y S O U T
0014620 5 5 3 Q / C N D I R 5 3 7 Q
0014640 T e s t e r S y s t e m 5 2
0014660 5 Q S T A N D A L O N E 5 1
0014700 1 Q S A L E E S B U R G 4 7
0014720 7 Q L E E S B U R G 4 5 2 Q
0014740 \ A P P E N D 2 4 3 5 Q \
0014760 A P P E N D 2 4 2 1 Q M E M
0015000 B E R 4 1 0 Q S e t U p D e
0015020 m o 4 0 4 Q L O A D C O U R
0015040 S E 4 0 0 Q L O A D D E M O
0015060 3 4 3 Q S e t U p S c r e e
0015100 n 2 7 2 Q \ A P P E N D 2
0015120 2 4 7 Q S U B S T R I N G 2
0015140 4 1 Q D A T E 2 3 0 Q L O
0015160 A D 2 2 5 Q P A C K F I L E
0015200 N A M E 1 4 6 Q S U B S T R
0015220 I N G 1 3 7 Q A P P L Y 1
0015240 3 3 Q \ A P P E N D 2 2 5 Q
0015260 P R I N T 3 U - C A S E )
0015300 \r ( 5 7 4 Q L O O P S . S Y S
0015320 O U T 5 7 0 Q L O O P S D E
0015340 M O . S Y S O U T 5 6 3 Q D
0015360 E M O 5 3 2 Q T E S T E R
0015400 5 1 7 Q S T A N D A L O N E
0015420 5 0 4 Q S A L E E S B U R G
0015440 4 7 1 Q L E E S B U R G 4 6
0015460 0 Q E n t e r S y s 3 7 3 Q
0015500 S T A N D A L O N E 3 6 5 Q
0015520 L E E S B U R G 3 5 7 Q S
0015540 A L E E S B U R G 3 5 0 Q D
0015560 E M O 3 3 5 Q K E R N E L
0015600 3 2 3 Q S T A N D A L O N E
0015620 3 1 4 Q L E E S B U R G 3 0
0015640 5 Q D E M O 2 6 3 Q D E M
0015660 O 2 5 5 Q D E B U G 2 1 4
0015700 Q S O U R C E S 2 1 0 Q E
0015720 X T E N S I O N 2 0 4 Q N A
0015740 M E 1 7 1 Q K E R N E L 1
0015760 2 2 Q F I L E S L O A D 1 1
0016000 4 Q T E S T E R 1 0 6 Q K
0016020 E R N E L 1 0 0 Q S O U R C
0016040 E S 7 1 Q D E B U G 6 2 Q
0016060 D E M O 5 3 Q S T A N D A
0016100 L O N E 4 4 Q L E E S B U R
0016120 G 3 5 Q S A L E E S B U R G
0016140 1 2 Q ? ) \r ( 4 4 5 Q ( D
0016160 B - I n i t U I ) 4 3 0 Q (
0016200 D B - I n i t U I ) 4 1 5 Q
0016220 ( D B - I n i t U I ) 1 5 7 Q
0016240 " B a d o p t i o n . o p
0016260 t i o n c a n b e o n e
0016300 o f N I L D E B U G S O U
0016320 R C E S K E R N E L . \r F o r
0016340 m o r e i n f o r m a t i o
0016360 n t y p e \r L O A D L O O P S
0016400 ( ? ) " 1 2 6 Q ( S Y S L O
0016420 A D F R O M V A L U E O F
0016440 L I S P U S E R S D I R E C T O
0016460 R I E S ) 2 1 Q " L O A D L
0016500 O O P S c a s e s : \r o p t i
0016520 o n = N I L , l o a d s D
0016540 C O M o f L O O P S F I L E
0016560 S ; s e t s F I L E L S T
0016600 t o N I L . \r o p t i o n = D
0016620 E B U G l o a d s D C O M
0016640 o f L O O P S F I L E S . \r o
0016660 p t i o n = D E M O l o a d s
0016700 D C O M f i l e s o f L
0016720 O O P S , D E M O a n d T R
0016740 U C K I N , \r \t a n d s e t
0016760 s u p d e m o s c r e e n
0017000 a n d f o n t s \r o p t i o
0017020 n = L E E S B U R G d o e s
0017040 a d e m o l o a d , a n d
0017060 t h e n r u n s f u n c t
0017100 i o n \r \t L E E S B U R G \r o p
0017120 t i o n = S A L E E S B U R G
0017140 d o e s a d e m o l o a d
0017160 , a n d r u n s S A L E E
0017200 S B U R G . \r M a k e s a
0017220 s y s t e m w i t h A L L
0017240 n e e d e d s t u f f a l r
0017260 e a d y l o a d e d . \r o p t
0017300 i o n = S T A N D A L O N E d
0017320 o e s a d e m o l o a d ,
0017340 a n d t h e n r u n s f
0017360 u n c t i o n \r \t S T A N D A L
0017400 O N E \r o p t i o n = S O U R C
0017420 E S , t h e n l o a d s s
0017440 o u r c e s o f L O O P S F
0017460 I L E S . \r o p t i o n = K E R
0017500 N E L , l o a d s D C O M
0017520 f i l e s e x c l u d i n g
0017540 R U L E S F I L E S . \r
0017560 I n a l l a b o v e c a s
0017600 e s , E X C E P T o p t i o
0017620 n = K E R N E L , \r
0017640 s e t s u p t h e s t a n
0017660 d a r d l o o p s s c r e e
0017700 n . \r o p t i o n = T E S T E R
0017720 , l o a d s L o o p s T e s
0017740 t e r f i l e s . \r o p t i o
0017760 n = ? , t h e n L O A D L O
0020000 O P S p r i n t s t h i s
0020020 m e s s a g e . \r I f
0020040 s y s o u t F l g = T t h e n
0020060 e n d s w i t h a ( S Y
0020100 S O U T ' L O O P S . S Y S O
0020120 U T ) " ) \r N e w R e l e a s e
0020140 D 1 \r ( P 2 s t a t u s
0020160 P 1 s o u r c e D i r P
0020200 0 i n d i g o D i r I 0
0020220 d a t e F 3 T T Y F 4
0020240 I n d i g o C l e a n u p C o
0020260 m m d F 5 M a x c R e l e
0020300 a s e C o m m d F 6 I n d
0020320 i g o R e l e a s e D i r F
0020340 7 R e l e a s e F i l e s S p
0020360 e c ) \0 260 003 005 \0 001 021 0 002 @ 253 \b
0020400 \0 \0 k l \t \v \0 \0 b \0 277 V @ o \0 \0
0020420 \0 \v \0 \0 \t \0 \0 Y o \0 \0 \0 I \n \0 \0
0020440 \t \0 \0 X o \0 \0 \0 I o \0 \0 \0 o \0 \0
0020460 \0 o \0 \0 \0 \r 005 \0 \0 c \b g \0 \0 h T
0020500 \v \0 \0 W 016 H \n \0 \0 Z d 263 % o \0 \0
0020520 \0 S \n \0 \0 277 H S \n \0 \0 277 S \t \0 \0
0020540 277 o \0 \0 \0 S \n \0 \0 277 S \t \0 \0 h 020
0020560 o \0 \0 \0 o \0 \0 \0 o \0 \0 \0 o \0 \0 \0
0020600 I o \0 \0 \0 \v \0 \0 o \0 \0 \0 o \0 \0 \0
0020620 l 003 \t \0 \0 o \0 \0 \0 \r \b \0 \0 c \n g
0020640 \0 \0 h U \v \0 \0 h 020 \0 ( 2 5 4 Q
0020660 C H A T 2 4 2 Q C O N C A T
0020700 2 3 2 Q C H A R A C T E R
0020720 2 1 5 Q C O N C A T 1 6 3 Q
0020740 T E R P R I 1 5 6 Q P R I
0020760 N 1 1 4 5 Q T E R P R I 1
0021000 4 0 Q P R I N 1 1 3 2 Q P
0021020 R I N 1 1 1 6 Q C o p y F i
0021040 l e s U s i n g S p e c s 1 1
0021060 0 Q C H A T 7 6 Q C O N C
0021100 A T 5 0 Q M K A T O M 4 5
0021120 Q C O N C A T 3 4 Q M K A
0021140 T O M 3 1 Q C O N C A T 1
0021160 5 Q S U B S T R I N G 7 G
0021200 D A T E ) \r ( 2 4 7 Q M A X C
0021220 1 0 3 Q I N D I G O ) \r ( 2
0021240 3 6 Q " l o g o u t \r " 2 2
0021260 5 Q " l o g o u t \r " 2 2 1
0021300 Q " q \r " 2 1 2 Q " * \r "
0021320 2 0 5 Q " a u t o m a t i c
0021340 r e t " 2 0 1 Q " p u p
0021360 f t p i n d i g o \r l o g m
0021400 i t t a l i t e e r p \r " 1
0021420 7 5 Q " d e l * . * \r " 1
0021440 7 1 Q " 1 \r C O N N l o o p
0021460 s b e t a t e s t \r " 1 5 2
0021500 Q " R E L E A S E A B O R T
0021520 E D ! ! " 1 2 6 Q " F i l e
0021540 s n o t c o p i e d p r o
0021560 p e r l y t o : " 7 2 Q
0021600 " q \r " 6 6 Q " d e l * ,
0021620 \r c o n f \r \r " 6 2 Q " \r "
0021640 5 5 Q " d i r " 4 1 Q
0021660 " { i n d i g o } " 2 6 Q "
0021700 > " ) \r S A L E E S B U R G D
0021720 1 \r ( P 0 F I L E F 1
0021740 L e e s b u r g F l g F 2
0021760 L O O P S C O U R S E D I R F
0022000 3 L I S P U S E R S D I R E
0022020 C T O R I E S F 4 U S E R
0022040 N A M E F 5 F O N T D I R
0022060 E C T O R I E S F 6 D E M
0022100 O F L G S E T U P F 7 F I
0022120 L E L S T F 1 0 Q N S . D
0022140 E F A U L T . P R I N T E R F
0022160 1 1 Q D I R E C T O R I E S
0022200 ) \0 Q 001 \t \0 \0 \b \0 \0 i c 002 g \0
0022220 \0 g \0 \0 g \0 \0 \v \0 \0 g \0 \0 c 004 h
0022240 c 006 d c \n d c 016 g \0 \0 c 020 g \0 \0
0022260 c \b g \0 \0 \t \0 \0 o \0 \0 \0 215 d 001 021
0022300 001 \0 H g \0 \0 \n \0 \0 023 002 003 265 361 i c
0022320 \f h c 022 \b \0 \0 020 \0 ( 1 1 6 Q S
0022340 e t U p D e m o 1 0 0 Q L O
0022360 A D 5 7 Q P R I N T E R M O
0022400 D E 2 1 Q C H A N G E N A M
0022420 E 2 F o r c e L o a d F o n
0022440 t s ) \r ( 7 5 Q P R O P 5 4
0022460 Q I N T E R P R E S S 4 7 Q
0022500 N o t L o g g e d I n 4 2 Q
0022520 L I S P P R I N T 2 4 Q {
0022540 F S : } < L O O P S C O U R S E
0022560 > 1 6 Q E V Q 1 3 Q F O
0022600 N T C O P Y 1 0 Q \ S E T .
0022620 T T Y I N B O L D F O N T ) \r (
0022640 6 3 Q ( G A U G E S T R U C
0022660 K I N P T R U C K I N V T R
0022700 U C K I N D B T R U C K I N R
0022720 L O O P S D E M O ) ) \r S T A
0022740 N D A L O N E D 1 \r ( P 0
0022760 F I L E F 1 S t a n d A l
0023000 o n e F l g F 2 L I S P U
0023020 S E R S D I R E C T O R I E S
0023040 F 3 F O N T D I R E C T O R
0023060 I E S F 4 D I R E C T O R
0023100 I E S F 5 F I L E L S T
0023120 F 6 N S . D E F A U L T . P
0023140 R I N T E R F 7 U S E R N
0023160 A M E ) \0 F 001 \a \0 \0 \b \0 \0 i c
0023200 002 g \0 \0 g \0 \0 g \0 \0 \v \0 \0 h c 004
0023220 d c 006 d c \n g \0 \0 c \f g \0 \0 c 016
0023240 g \0 \0 \t \0 \0 o \0 \0 \0 215 d 001 021 001 \0
0023260 H g \0 \0 \n \0 \0 023 002 003 265 361 h c \b 020
0023300 \0 ( 7 3 Q L O A D 5 2 Q P
0023320 R I N T E R M O D E 2 1 Q C
0023340 H A N G E N A M E 2 F o r c
0023360 e L o a d F o n t s ) \r ( 7 0 Q
0023400 P R O P 4 7 Q I N T E R P
0023420 R E S S 4 2 Q N o t L o g g
0023440 e d I n 3 5 Q L I S P P R I
0023460 N T 1 6 Q E V Q 1 3 Q F
0023500 O N T C O P Y 1 0 Q \ S E T
0023520 . T T Y I N B O L D F O N T ) \r
0023540 ( 5 6 Q ( G A U G E S T R U
0023560 C K I N P T R U C K I N V T
0023600 R U C K I N D B L O O P S D E
0023620 M O ) ) \r T E S T L O O P S D
0023640 1 \r ( I 0 S O U R C E S F L
0023660 G F 0 L T L O A D E D R E
0023700 S T ) \0 # \0 001 \0 001 @ 262 025 o \0 \0
0023720 \0 206 d 001 \t \0 \0 277 002 003 265 370 i c \0 205
0023740 g \0 \0 \t \0 \0 277 j \t \0 \0 020 \0 ( 4 0
0023760 Q T e s t F o r e v e r 3 3
0024000 Q L O A D 1 4 Q L O A D )
0024020 \r ( 3 0 Q L T B A S I C . D C
0024040 O M ) \r ( 6 ( L T B A S I C
0024060 L T K E R L T D B L T C A S
0024100 E S ) ) \r T e s t e r S y s t e
0024120 m D 1 \r ( F 0 F I L E L S
0024140 T F 1 L e e s b u r g F l
0024160 g F 2 L O O P S C O U R S
0024200 E D I R F 3 U S E R N A M
0024220 E F 4 L I S P U S E R S D
0024240 I R E C T O R I E S F 5 D
0024260 E M O F L G S E T U P F 6
0024300 F O N T D I R E C T O R I E S
0024320 F 7 N S . D E F A U L T . P
0024340 R I N T E R F 1 0 Q D I R
0024360 E C T O R I E S ) \0 S \0 \t \0 \0
0024400 \b \0 \0 g \0 \0 \t \0 \0 h c \0 g \0 \0 \t
0024420 \0 \0 \b \0 \0 g \0 \0 \t \0 \0 i c 002 g \0
0024440 \0 g \0 \0 g \0 \0 \v \0 \0 g \0 \0 c 004 h
0024460 c \b d c \f g \0 \0 c 016 g \0 \0 c 006 g
0024500 \0 \0 \t \0 \0 i c \n h g \0 \0 h 032 032 c
0024520 020 020 \0 ( 1 0 4 Q P R I N T E R
0024540 M O D E 5 1 Q C H A N G E N
0024560 A M E 3 2 Q L O A D 2 4 Q
0024600 L o a d L T S y s t e m C I
0024620 2 1 Q L O A D 1 0 Q L O A
0024640 D 2 F o r c e L o a d F o n
0024660 t s ) \r ( 1 1 3 Q { F S : } <
0024700 L O O P S > 1 0 1 Q I N T E
0024720 R P R E S S 7 4 Q N o t L o
0024740 g g e d I n 6 7 Q L I S P P
0024760 R I N T 5 4 Q { F S : } < L
0025000 O O P S C O U R S E > 4 6 Q
0025020 E V Q 4 3 Q F O N T C O P Y
0025040 4 0 Q \ S E T . T T Y I N B
0025060 O L D F O N T 2 7 Q L T C A
0025100 S E S 1 6 Q L T B A S I C .
0025120 D C O M 5 { P H Y L U M } <
0025140 L I S P C O R E > S O U R C E S
0025160 > F I L E B R O W S E R . D C O
0025200 M ) \r N I L \r L O A D T R U C K
0025220 I N D 1 \r ( I 0 s o u r c
0025240 e F l g F 0 D I R E C T O
0025260 R I E S F 1 P L A Y E R S
0025300 D I R F 2 T R U C K I N D
0025320 I R F 3 P L A Y E R F I L
0025340 E S F 4 T R U C K I N F I
0025360 L E S F 5 L i s p U s e r
0025400 F i l e s F o r T r u c k i n )
0025420 \0 _ \0 006 \0 001 g \0 \0 o \0 \0 \0 U 032
0025440 \n \0 \0 Q P 034 256 P 265 \b Q h 032 c \0 204
0025460 Q P 002 032 031 277 R P 034 256 P 265 \b R h 032
0025500 c \0 204 R P 002 032 031 277 @ 234 T 206 d 001 \t
0025520 \0 \0 277 002 003 265 370 204 T \t \0 \0 277 \b \0 \0
0025540 @ 234 S 206 d 001 \t \0 \0 277 002 003 265 370 203 S
0025560 \t \0 \0 h 020 \0 ( 1 3 3 Q D O F I
0025600 L E S L O A D 1 2 1 Q L O A
0025620 D 1 1 0 Q I n i t i a l i z
0025640 e T r u c k i n 1 0 4 Q D O
0025660 F I L E S L O A D 7 2 Q L O
0025700 A D 1 3 Q A P P L Y ) \r ( 2
0025720 F I L E S L O A D ) \r ( 6 (
0025740 S Y S L O A D F R O M V A L
0025760 U E O F L I S P U S E R S D I
0026000 R E C T O R I E S ) ) \r L O A D
0026020 C O U R S E D 1 \r ( F 0 D
0026040 I R E C T O R I E S F 1 L
0026060 O O P S C O U R S E F I L E S D
0026100 I R F 2 L O O P S C O U R
0026120 S E F I L E S ) \0 027 \0 003 \0 \0 h
0026140 Q P 002 032 032 c \0 R 206 d 001 \t \0 \0 277 002
0026160 003 265 370 h 020 \0 ( 1 6 Q L O A D )
0026200 \r N I L \r N I L \r W A I T M S
0026220 D 1 \r ( I 0 n u m M S ) \0
0026240 ' \0 \0 \0 001 ` \0 \0 004 ` \0 \0 360 223 ` \0
0026260 \0 203 ` \0 \0 037 006 \0 \0 w @ ` \0 \0 332 366
0026300 d g \0 \0 \n \0 \0 262 371 i 020 \0 ( 4 1 Q
0026320 T I M E R E X P I R E D ? ) \r
0026340 ( 3 6 Q T I C K S 3 0 Q \
0026360 R C L K M I L L I S E C O N D
0026400 2 3 Q F I X P 1 7 Q \ F I
0026420 X P 1 3 Q W a i t M S T i m
0026440 e r 6 \ F I X P 2 W a i
0026460 t M S T i m e r ) \r N I L \r W A
0026500 I T P A G E F N D 1 \r ( F 0
0026520 W A I T P A G E F L G ) \0
0026540 \0 001 \0 \0 ` \0 \0 310 \0 n \b \0 345 j 360 235
0026560 ` \0 \0 310 \0 l @ 345 j 360 262 352 h 020 P 263
0026600 375 i 020 \0 N I L \r ( 1 6 Q \ E M
0026620 . K B D A D 2 2 \ E M . K B
0026640 D A D 2 ) \r N I L \r S e t N e t
0026660 w o r k D 1 \r ( P 0 e t h
0026700 e r H o s t N u m b e r F 1
0026720 N E T N U M B E R ) \0 001 001
0026740 \0 \0 021 020 \0 \b \0 \0 X d j 360 227 o \0 \0
0026760 \0 \t \0 \0 211 \b \0 \0 l \b \n \0 \0 c 002 h
0027000 020 \0 ( 3 2 Q R S H 2 5 Q E
0027020 T H E R H O S T N U M B E R 2
0027040 1 Q H E L P C H E C K 5 E
0027060 T H E R H O S T N U M B E R ) \r
0027100 N I L \r ( 1 6 Q " H e l p -
0027120 - T h e E T H E R H O S T N
0027140 U M B E R i s z e r o .
0027160 L O O P S u s e s t h i s
0027200 n u m b e r t o m a k e u
0027220 n i q u e i d e n t i f i e r
0027240 s . " ) \r D E D 1 \r ( I 0
0027260 L ) \0 \r \0 \0 003 001 @ d 001 003 241 h 032
0027300 i \n \0 \0 020 \0 ( 1 2 Q D E F I N
0027320 E ) \r N I L \r N I L \r F I L E A
0027340 0 0 3 0 D 1 \r ( N A M E E R
0027360 R O R S E T L ( 2 E R R O
0027400 R S E T . W 1 E R R O R S E
0027420 T . V 0 E R R O R S E T . U
0027440 ) F 0 A R G S F 1 M
0027460 A C R O Y ) \0 \n \0 002 \0 003 P 001 \t
0027500 \0 \0 c 002 i 020 \0 ( 4 M A K E F I
0027520 L E ) \r N I L \r N I L \r F I L E
0027540 D 1 \r ( P 3 R E S E T S T
0027560 A T E P 2 M A C R O Y P
0027600 0 O L D V A L U E I 0
0027620 A R G S F 4 R E S E T V A
0027640 R S L S T ) \0 ] 004 001 003 001 @ 002 262
0027660 037 @ 001 \t \0 \0 @ d 002 001 004 l 004 360 231 d
0027700 002 002 245 002 001 \t \0 \0 200 002 \n \0 \0 277 l \n
0027720 \t \0 \0 021 1 003 g \0 \0 H h 032 032 h 032 T
0027740 032 c \b Y o \0 \0 \0 g \0 \0 \n \0 \0 243 g
0027760 \0 \0 273 I 002 c \b g \0 \0 I 001 001 002 \n \0
0030000 \0 K 223 \b \0 \0 020 J 020 \0 ( 1 3 0 Q
0030020 E R R O R ! 1 2 3 Q A P P L
0030040 Y 1 0 0 Q F I L E A 0 0 3 0
0030060 4 5 Q R A D I X 3 7 Q /
0030100 S E T A T O M V A L 3 2 Q G
0030120 E T T O P V A L 1 0 Q F I L
0030140 E C O M S ) \r ( 1 1 4 Q R A D
0030160 I X 1 0 4 Q E R R O R 7 5
0030200 Q I N T E R N A L 5 3 Q R
0030220 A D I X ) \r ( 7 2 Q ( D U M M
0030240 Y . F O R . E R R O R S E T ) )
0030260 \r i / d D 1 \r ( I 0 i t e
0030300 m ) \0 006 \0 \0 \0 001 @ \t \0 \0 020 \0 (
0030320 3 I N S P E C T / D A T A T Y
0030340 P E ) \r N I L \r N I L \r P P I A
0030360 0 0 3 1 D 1 \r ( N A M E E R
0030400 R O R S E T L ( 2 E R R O
0030420 R S E T . W 1 E R R O R S E
0030440 T . V 0 E R R O R S E T . U
0030460 ) P 0 F I E L D F 1
0030500 D E C F 2 P O S F 3
0030520 I N S T A N C E F 4 M A C
0030540 R O Y ) \0 Q 001 004 \0 003 o \0 \0 \0 \t
0030560 \0 \0 277 Q \t \0 \0 260 1 d 001 021 001 \0 H g
0030600 \0 \0 360 263 # R j \n \0 \0 277 H \t \0 \0 277
0030620 o \0 \0 \0 \t \0 \0 277 H S Q \v \0 \0 h \t
0030640 \0 \0 \n \0 \0 277 023 002 003 265 320 o \0 \0 \0 \t
0030660 \0 \0 277 h \t \0 \0 c \b i 020 \0 ( 1 1 3
0030700 Q T E R P R I 1 0 6 Q P R
0030720 I N 1 7 1 Q P R I N T D E F
0030740 6 6 Q P O S I T I O N 6 2
0030760 Q R E C O R D A C C E S S 5
0031000 3 Q P R I N 1 4 3 Q P R I
0031020 N 2 3 6 Q T A B 1 3 Q R
0031040 E C O R D F I E L D N A M E S
0031060 6 P R I N 1 ) \r ( 2 6 Q P E
0031100 R F O R M O P S ) \r ( 1 0 3 Q
0031120 " ] " 5 0 Q " = " 3
0031140 " [ " ) \r P P I D 1 \r ( P 5
0031160 R E S E T S T A T E P 4
0031200 M A C R O Y P 2 O L D V A
0031220 L U E P 1 D E C P 0
0031240 P O S I 2 F I L E I 1
0031260 R E C O R D N A M E I 0
0031300 I N S T A N C E F 6 R E S
0031320 E T V A R S L S T ) \0 m 006 001 \0
0031340 003 B \t \0 \0 k 330 A 265 \v @ d 003 221 001 202
0031360 \t \0 \0 \t \0 \0 021 002 001 I 262 ? B \t \0 \0
0031400 021 1 005 g \0 \0 J h 032 032 h 032 V 032 c \f
0031420 273 o \0 \0 \0 g \0 \0 \n \0 \0 243 g \0 \0 275
0031440 K 002 c \f 277 g \0 \0 K 001 001 002 \n \0 \0 277
0031460 M 223 \b \0 \0 277 023 260 024 @ B \t \0 \0 h d
0031500 d B \r 006 \0 \0 277 B \t \0 \0 h 020 \0 ( 1
0031520 5 1 Q T E R P R I 1 4 4 Q
0031540 P R I N T D E F 1 3 4 Q P O
0031560 S I T I O N 1 2 3 Q E R R O
0031600 R ! 1 1 5 Q A P P L Y 7 1
0031620 Q P P I A 0 0 3 1 3 6 Q O
0031640 U T P U T 2 4 Q R E C L O O
0031660 K 2 1 Q T Y P E N A M E 3
0031700 P O S I T I O N ) \r ( 1 0 6 Q
0031720 O U T P U T 7 5 Q E R R O
0031740 R 6 6 Q I N T E R N A L 4
0031760 4 Q O U T P U T ) \r ( 6 3 Q
0032000 ( D U M M Y . F O R . E R R O R
0032020 S E T ) ) \r P P R A 0 0 3 2 D
0032040 1 \r ( N A M E E R R O R S E T
0032060 L ( 2 E R R O R S E T . W
0032100 1 E R R O R S E T . V 0
0032120 E R R O R S E T . U ) P 0
0032140 R F 1 X F 2 M A C R
0032160 O Y ) \0 4 001 002 \0 003 Q d 003 263 ( h
0032200 032 260 $ d 001 021 001 \0 H \t \0 \0 H \t \0 \0
0032220 \n \0 \0 265 \b H o \0 \0 \0 032 \t \0 \0 277 i
0032240 \t \0 \0 023 002 003 265 335 h c 004 i 020 \0 ( 5
0032260 0 Q T E R P R I 4 3 Q P R
0032300 I N T D E F 3 0 Q \ A P P E
0032320 N D 2 2 5 Q F I E L D L O O
0032340 K 2 1 Q R E C L O O K ) \r N
0032360 I L \r ( 3 7 Q ( n o t f o u
0032400 n d ) ) \r P P R D 1 \r ( P 3
0032420 R E S E T S T A T E P 2
0032440 M A C R O Y P 0 O L D V A
0032460 L U E I 0 X F 4 R E
0032500 S E T V A R S L S T ) \0 ; 004 001
0032520 003 001 i \t \0 \0 021 1 003 g \0 \0 H h 032 032
0032540 h 032 T 032 c \b Y o \0 \0 \0 g \0 \0 \n \0
0032560 \0 243 g \0 \0 273 I 002 c \b g \0 \0 I 001 001
0032600 002 \n \0 \0 K 223 \b \0 \0 020 J 020 \0 ( 6 6
0032620 Q E R R O R ! 6 1 Q A P P
0032640 L Y 3 6 Q P P R A 0 0 3 2
0032660 3 O U T P U T ) \r ( 5 2 Q O
0032700 U T P U T 4 2 Q E R R O R
0032720 3 3 Q I N T E R N A L 1 1 Q
0032740 O U T P U T ) \r ( 3 0 Q ( D
0032760 U M M Y . F O R . E R R O R S E
0033000 T ) ) \r ( P R E T T Y C O M P R
0033020 I N T L O A D L O O P S C O M
0033040 S ) \r ( R P A Q Q L O A D L O
0033060 O P S C O M S ( ( * C o p y
0033100 r i g h t ( c ) 1 9 8 2 b
0033120 y X e r o x C o r p o r a t
0033140 i o n ) ( * L o o p s D a t
0033160 e i s s e t e a c h t i
0033200 m e o n e \r m a k e s a
0033220 n e w L O A D L O O P S f i
0033240 l e . T h i s m e a n s t
0033260 h a t o r d i n a r y l o a
0033300 d i n g ( L O A D L O O P S )
0033320 w i l l g e t t h e L o
0033340 o p s D a t e f r o m \r w h
0033360 e n L O A D L O O P S w a s
0033400 m a d e . L O A D L O O P S
0033420 ( D E B U G ) s e t s t h
0033440 e d a t e w h e n l o a d
0033460 i n g . ) ( E ( S E T Q L
0033500 o o p s D a t e ( S U B S T R
0033520 I N G \r ( D A T E ) 1 9 )
0033540 ) ) ( F N S C o p y F i l e
0033560 s U s i n g S p e c s E n t e
0033600 r S y s E n t e r S y s F o r
0033620 L o o p s C o u r s e E n t e
0033640 r S y s F o r S t a n d A l o n
0033660 e \r E n t e r S y s F o r L e
0033700 e s b u r g F o r c e L o a d
0033720 F o n t s L E E S B U R G L
0033740 O A D D E M O L O A D L O O P
0033760 S N e w R e l e a s e S A L
0034000 E E S B U R G S T A N D A L O
0034020 N E \r T E S T L O O P S T e
0034040 s t e r S y s t e m L O A D T
0034060 R U C K I N L O A D C O U R S
0034100 E W A I T M S W A I T P A G
0034120 E F N ) ( V A R S I n d i g
0034140 o R e l e a s e D i r L O O P
0034160 S F I L E S \r T E S T C O M P
0034200 I L E D F I L E S T E S T F I
0034220 L E S T E S T S O U R C E F I
0034240 L E S R U L E S F I L E S R
0034260 e l e a s e F i l e s S p e c
0034300 T R U C K I N D I R T R U C K
0034320 I N F I L E S \r P L A Y E R F
0034340 I L E S P L A Y E R S D I R
0034360 D E M O D I R D E M O F I L E
0034400 S L O O P S C O U R S E F I L
0034420 E S L O O P S C O U R S E F I
0034440 L E S D I R L i s p U s e r F
0034460 i l e s F o r L o o p s \r O p
0034500 t i o n a l L i s p u s e r F i
0034520 l e s L i s p U s e r F i l e
0034540 s F o r T r u c k i n L o o p
0034560 s D a t e ) ( G L O B A L V A
0034600 R S W a i t M S T i m e r \
0034620 F I X P ) ( V A R S \r W A I
0034640 T P A G E F L G ( W a i t M S
0034660 T i m e r ( S E T U P T I M E
0034700 R 0 ) ) ) ( * F u n c t i
0034720 o n w h i c h a l l o w s
0034740 t h e c o n t r o l k e y
0034760 t o s t o p s c r o l l i n
0035000 g \r o n t h e T T Y D I S
0035020 P L A Y S T R E A M ) ( A D V
0035040 I S E P A G E F U L L F N )
0035060 ( * * T h e f u n c t i o
0035100 n S e t N e t w o r k m u s
0035120 t b e m o d i f i e d f o
0035140 r u s e o n \r a n y m a
0035160 c h i n e w h i c h w i l l
0035200 n o t r e s p o n d t o
0035220 t h e f u n c t i o n ( E T
0035240 H E R H O S T N U M B E R ) %
0035260 . I t i s c a l l e d b
0035300 y D B - I n i t U I \r w h i
0035320 c h i s c a l l e d e v e
0035340 r y t i m e t h e u s e r
0035360 s t a r t s u p . T h e
0035400 v a r i a b l e N E T N U M B
0035420 E R i s s e t b y S e t
0035440 N e t w o r k a n d u s e d
0035460 i n \r g e n e r a t i n g
0035500 u n i q u e i d s . I t i
0035520 s s e t h e r e t o 0
0035540 a s a d e f a u l t . ) (
0035560 I N I T V A R S ( N E T N U M
0035600 B E R 0 ) ( L e e s b u r g
0035620 F l g N I L ) ( \r S t a n d
0035640 A l o n e F l g N I L ) ) (
0035660 F N S S e t N e t w o r k )
0035700 ( * * S o m e u t i l i t
0035720 y f u n c t i o n s a n d
0035740 m a c r o s w e l i k e h
0035760 a v i n g a r o u n d ) ( \r
0036000 F N S D E F I L E i / d
0036020 P P I P P R ) ( L I S P X M
0036040 A C R O S o k ) ( U S E R M
0036060 A C R O S S H O W D F V )
0036100 ( D E C L A R E : D O N T E V
0036120 A L @ L O A D D O E V A L @ C
0036140 O M P I L E \r D O N T C O P Y
0036160 C O M P I L E R V A R S ( A
0036200 D D V A R S ( N L A M A P P
0036220 R F I L E D E ) ( N L A M
0036240 L ) ( L A M A ) ) ) ) ) \r ( R
0036260 P A Q Q I n d i g o R e l e a
0036300 s e D i r < l o o p s > r e l
0036320 e a s e > ) \r ( R P A Q Q L O
0036340 O P S F I L E S ( L O A D L O
0036360 O P S B L O C K L O O K U P
0036400 L O O P S S C R E E N L O O P
0036420 S S T R U C L O O P S P R I N
0036440 T L O O P S A C C E S S L O
0036460 O P S U I D \r L O O P S A V
0036500 L O O P S E D I T L O O P S U
0036520 T I L I T Y L O O P S M E T H
0036540 O D S L O O P S K E R N E L
0036560 L O O P S M I X I N L O O P S
0036600 D A T A B A S E L O O P S I N
0036620 S P E C T \r L O O P S W I N D
0036640 O W L O O P S B R O W S E L
0036660 O O P S R U L E S L O O P S R
0036700 U L E S P L O O P S R U L E S
0036720 C L O O P S R U L E S D G A
0036740 U G E S ) ) \r ( R P A Q Q T E
0036760 S T C O M P I L E D F I L E S
0037000 ( L T B A S I C L T B C L S
0037020 L T C A S E S L T D B L T K
0037040 E R L T L O A D ) ) \r ( R P A
0037060 Q Q T E S T F I L E S ( L T
0037100 B A S I C L T B C L S L T C
0037120 A S E S L T D B L T K E R
0037140 L T L O A D L T 1 . K B ) ) \r
0037160 ( R P A Q Q T E S T S O U R C
0037200 E F I L E S ( L T 1 . K B ) )
0037220 \r ( R P A Q Q R U L E S F I L
0037240 E S ( L O O P S R U L E S L
0037260 O O P S R U L E S P L O O P S
0037300 R U L E S C L O O P S R U L E
0037320 S D ) ) \r ( R P A Q Q R e l e
0037340 a s e F i l e s S p e c ( ( L
0037360 O O P S F I L E S { i n d i g
0037400 o } < L O O P S > S O U R C E S
0037420 > B ) ( T R U C K I N F I L
0037440 E S \r { i n d i g o } < l o o
0037460 p s > t r u c k i n > m u l t i
0037500 > C ) ( P L A Y E R F I L E
0037520 S { i n d i g o } < l o o p s
0037540 > t r u c k i n > m u l t i >
0037560 B ) ( D E M O F I L E S \r {
0037600 i n d i g o } < L O O P S > d e
0037620 m o > B ) ( T E S T S O U R
0037640 C E F I L E S { i n d i g o }
0037660 < L O O P S > S O U R C E S >
0037700 S ) ( T E S T C O M P I L E D
0037720 F I L E S \r { i n d i g o } <
0037740 L O O P S > S O U R C E S > B
0037760 ) ) ) \r ( R P A Q Q T R U C K
0040000 I N D I R { I N D I G O } < L
0040020 O O P S > T R U C K I N > M U L
0040040 T I ) \r ( R P A Q Q T R U C K
0040060 I N F I L E S ( T R U C K I N
0040100 T R U C K I N M T R U C K I
0040120 N R T R U C K I N I T R U C
0040140 K I N D B T R U C K I N P T
0040160 R U C K I N V L O O P S G A T
0040200 E W A Y ) ) \r ( R P A Q Q P L
0040220 A Y E R F I L E S ( T R A V E
0040240 L E R P E D D L E R P L A N
0040260 N E R ) ) \r ( R P A Q Q P L A
0040300 Y E R S D I R { I N D I G O }
0040320 < L O O P S > T R U C K I N > M
0040340 U L T I ) \r ( R P A Q Q D E M
0040360 O D I R { I N D I G O } < L O
0040400 O P S > D E M O > ) \r ( R P A Q
0040420 Q D E M O F I L E S ( L O O
0040440 P S D E M O ) ) \r ( R P A Q Q
0040460 L O O P S C O U R S E F I L E S
0040500 ( E X E R C I S E 1 S I M P
0040520 L E G T R A N S L A T E D E
0040540 M O S C R I P T ) ) \r ( R P A Q
0040560 Q L O O P S C O U R S E F I L
0040600 E S D I R { I N D I G O } < L
0040620 O O P S > C O U R S E > ) \r ( R
0040640 P A Q Q L i s p U s e r F i l
0040660 e s F o r L o o p s ( G R A P
0040700 H E R I C O N W T T Y H I
0040720 S T M E N U T M E N U I N M
0040740 E N U R E A D N U M B E R A
0040760 N I M A T E ) ) \r ( R P A Q Q
0041000 O p t i o n a l L i s p u s e r
0041020 F i l e s ( S I N G L E F I L
0041040 E I N D E X P A T C H U P B
0041060 R O W S E R ) ) \r ( R P A Q Q
0041100 L i s p U s e r F i l e s F o r
0041120 T r u c k i n ( E V A L S E R
0041140 V E R L L C O L O R C O L O
0041160 R ) ) \r ( R P A Q Q L o o p s
0041200 D a t e " 1 - F E B - 8 4 "
0041220 ) \r ( R P A Q Q W A I T P A G
0041240 E F L G N I L ) \r ( R P A Q
0041260 W a i t M S T i m e r ( S E T
0041300 U P T I M E R 0 ) ) \r ( P U T
0041320 P R O P S P A G E F U L L F N
0041340 R E A D V I C E ( N I L (
0041360 B E F O R E N I L ( C O N D
0041400 ( ( W A I T P A G E F N ) (
0041420 R E T U R N T ) ) ) ) ) ) \r (
0041440 R E A D V I S E P A G E F U L
0041460 L F N ) \r ( R P A Q ? N E T N
0041500 U M B E R 0 ) \r ( R P A Q ?
0041520 L e e s b u r g F l g N I L )
0041540 \r ( R P A Q ? S t a n d A l o
0041560 n e F l g N I L ) \r ( A D D T
0041600 O V A R L I S P X M A C R O S
0041620 ( o k ( R E T F R O M ( O
0041640 R ( S T K P O S ( Q U O T E
0041660 U S E R E X E C ) ) ( Q U O
0041700 T E L I S P X ) ) T T ) )
0041720 ) \r ( A D D T O V A R E D I T
0041740 M A C R O S ( F V N I L (
0041760 E ( F R E E V A R S ( % # %
0042000 # ( O R R ( U P 1 ) N I
0042020 L ) ) T ) ) ) ( S H O W D
0042040 N I L U P ( O R R ( ( E
0042060 ( \r R E S E T F O R M ( O U T
0042100 P U T T ) ( P R O G N ( P
0042120 R I N T D E F ( O R ( E D I
0042140 T G E T D ( % # % # 1 ) (
0042160 A N D ( C D R L ) ( E D I
0042200 T L 0 L ( Q U O T E ( ! 0
0042220 ) ) ) ) ) ( \r E R R O R ! ) )
0042240 N I L T ) ( T E R P R I )
0042260 ) ) T ) ) ( ( E ( Q U O T
0042300 E S H O W D ? ) ) ) ) ) ) \r (
0042320 A D D T O V A R E D I T C O M
0042340 S A S H O W D F V ) \r ( P U
0042360 T P R O P S L O A D L O O P S
0042400 C O P Y R I G H T ( " X e r
0042420 o x C o r p o r a t i o n "
0042440 1 9 8 3 1 9 8 4 ) ) \r N I L \r
0042460