$ od -c -N 50000 [Indigo]<Loops>RELEASE>4-JUL-84>LOADLOOPS.DCOM!1
0000000 ( F I L E C R E A T E D " 3
0000020 - J u l - 8 4 1 7 : 3 8 : 1 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 A D L O O
0000120 P S . ; 9 6 ) \r " 8 - J u n
0000140 - 8 4 1 1 : 1 7 : 2 0 " r e
0000160 c o m p i l e d e x p r s :
0000200 L O A D L O O P S N e w R e l
0000220 e a s e i n W O R K d a t
0000240 e d " 3 - J u l - 8 4 1 0
0000260 : 5 6 : 3 0 " ) \r ( F I L E C R
0000300 E A T E D " 3 - J u l - 8 4
0000320 1 7 : 3 7 : 2 0 " { I N D I
0000340 G O } < L O O P S > S O U R C E
0000360 S > L O A D L O O P S . ; 9 6
0000400 2 1 7 9 9 c h a n g e s t o
0000420 : ( F N S \r N e w R e l e a
0000440 s e L O A D L O O P S D e b
0000460 u g L o o p s ) ( V A R S L
0000500 O A D L O O P S C O M S I n d
0000520 i g o R e l e a s e D i r ) p
0000540 r e v i o u s d a t e : \r "
0000560 3 - J u l - 8 4 0 0 : 4 8 :
0000600 3 5 " { I N D I G O } < L O O
0000620 P S > S O U R C E S > L O A D L
0000640 O O P S . ; 9 3 ) \r C o p y F i
0000660 l e s U s i n g S p e c s A 0 0
0000700 0 1 D 1 \r ( N A M E E R R O
0000720 R S E T L ( 2 E R R O R S
0000740 E T . W 1 E R R O R S E T .
0000760 V 0 E R R O R S E T . U )
0001000 F 0 x ) \0 \a \0 001 \0 003 P 001 -
0001020 h 032 020 \0 N I L \r N I L \r ( ) \r C
0001040 o p y F i l e s U s i n g S p e
0001060 c s D 1 \r ( P 1 1 Q z P
0001100 5 x P 4 c o p i e d
0001120 P 3 o p t i o n P 2 f
0001140 i l e s P 1 f r o m D i r
0001160 P 0 s t a t u s I 1
0001200 t o D i r I 0 s p e c s
0001220 F 1 2 Q T T Y F 1 3 Q
0001240 y ) 001 u \n 002 \0 002 i 021 Q 005 @ 261 001
0001260 f d 001 ] d 001 004 l 004 360 262 ' 277 o \0 \0
0001300 \0 \t \0 \0 c 026 265 033 o \0 \0 \0 W 024 \n \0
0001320 \0 277 M W 024 \n \0 \0 277 W 024 \t \0 \0 277 h
0001340 200 001 272 M 002 001 271 J 264 003 202 261 001 & M d
0001360 002 002 244 277 g \0 \0 202 002 002 001 [ g \0 \0 360
0001400 250 K d g \0 \0 360 262 | 277 021 0 \b J 260 .
0001420 d 001 021 001 \t I O 022 \n \0 \0 \t \0 \0 A O
0001440 022 \n \0 \0 \t \0 \0 \n \0 \0 022 276 O 016 265 \b
0001460 N h 032 _ 020 201 N & _ 016 277 002 003 265 323 O
0001500 020 022 274 h L 034 221 h 270 o \0 \0 \0 W 024 \n
0001520 \0 \0 277 J W 024 \n \0 \0 277 o \0 \0 \0 W 024
0001540 \n \0 \0 277 I W 024 \n \0 \0 277 o \0 \0 \0 W
0001560 024 \n \0 \0 277 A W 024 \n \0 \0 277 W 024 \t \0
0001600 \0 277 K g \0 \0 360 250 K g \0 \0 360 242 261 \0
0001620 205 021 0 \b J 260 6 d 001 021 001 \t I O 022 o
0001640 \0 \0 \0 \v \0 \0 \t \0 \0 A O 022 o \0 \0 \0
0001660 \v \0 \0 \t \0 \0 \n \0 \0 022 276 O 016 265 \b N
0001700 h 032 _ 020 201 N & _ 016 277 002 003 265 313 O 020
0001720 022 274 h L 034 221 h 270 o \0 \0 \0 W 024 \n \0
0001740 \0 277 J W 024 \n \0 \0 277 o \0 \0 \0 W 024 \n
0001760 \0 \0 277 I W 024 \n \0 \0 277 o \0 \0 \0 W 024
0002000 \n \0 \0 277 A W 024 \n \0 \0 277 W 024 \t \0 \0
0002020 200 X 277 002 003 265 003 202 261 376 231 H 020 \0 ( 5
0002040 4 6 Q T E R P R I 5 4 0 Q
0002060 P R I N 1 5 3 1 Q P R I N 1
0002100 5 1 7 Q P R I N 1 5 1 0 Q
0002120 P R I N 1 4 7 6 Q P R I N
0002140 1 4 6 7 Q P R I N 1 4 1 7
0002160 Q C O P Y F I L E 4 1 4 Q
0002200 M K A T O M 4 1 1 Q C O N C
0002220 A T 3 7 7 Q M K A T O M 3
0002240 7 4 Q C O N C A T 3 2 7 Q
0002260 T E R P R I 3 2 1 Q P R I N
0002300 1 3 1 2 Q P R I N 1 3 0 0
0002320 Q P R I N 1 2 7 1 Q P R I
0002340 N 1 2 5 7 Q P R I N 1 2 5
0002360 0 Q P R I N 1 2 0 0 Q C O
0002400 P Y F I L E 1 7 5 Q M K A T
0002420 O M 1 7 2 Q C O N C A T 1
0002440 6 4 Q M K A T O M 1 6 1 Q
0002460 C O N C A T 6 4 Q T E R P R
0002500 I 5 6 Q P R I N 1 4 7 Q
0002520 P R I N 1 3 2 Q C o p y F i
0002540 l e s U s i n g S p e c s A 0 0
0002560 0 1 ) \r ( 3 4 2 Q B 3 3 4 Q
0002600 C 1 3 4 Q B 1 2 5 Q S
0002620 1 1 5 Q C ) \r ( 5 2 4 Q
0002640 " t o : " 5 0 3 Q " f
0002660 r o m : " 4 6 2 Q " C o p
0002700 i e d c o m p i l e d f i l
0002720 e s : " 4 0 6 Q " . D C O
0002740 M " 3 7 1 Q " . D C O M "
0002760 3 0 5 Q " t o : " 2 6 4
0003000 Q " f r o m : " 2 4 3 Q
0003020 " C o p i e d s o u r c e
0003040 f i l e s : " 4 2 Q " C a
0003060 n n o t c a r r y o u t s p
0003100 e c s : " 2 7 Q ( D U M M
0003120 Y . F O R . E R R O R S E T ) )
0003140 \r D e b u g L o o p s D 1 \r (
0003160 P 3 F I L E I 0 t u r
0003200 n O f f F l g F 4 F I L E
0003220 L S T F 5 D I R E C T O R
0003240 I E S F 6 L O O P S F I L
0003260 E S ) \0 221 004 003 \0 001 @ 262 J 021 0 002
0003300 T 260 026 d 001 V 034 255 d 001 270 I 265 \a H h
0003320 032 Z 201 H & 271 002 003 265 353 J 022 c \b 021 0
0003340 002 U 260 030 d 001 g \0 \0 360 255 d 001 270 I 265
0003360 \a H h 032 Z 201 H & 271 002 003 265 351 J 022 c
0003400 \n \b \0 \0 020 V T \n \0 \0 c \b g \0 \0 h
0003420 032 U \n \0 \0 c \n \b \0 \0 V 260 * d 001 021
0003440 001 003 K g \0 \0 033 262 034 K g \0 \0 033 263 025
0003460 h K o \0 \0 \0 \n \0 \0 g \0 \0 g \0 \0 \f
0003500 \0 \0 277 023 002 003 265 327 h 020 \0 ( 2 0 7 Q
0003520 L O A D F N S 1 7 6 Q P A
0003540 C K * 1 3 7 Q L O O P S D I
0003560 R 1 3 2 Q U N I O N 1 1 7
0003600 Q U N I O N 1 1 1 Q C N D
0003620 I R ) \r ( 2 0 4 Q V A R S 2
0003640 0 1 Q A L L P R O P 1 6 2 Q
0003660 F I L E 1 5 3 Q F I L E D
0003700 A T E S 1 2 4 Q { I N D I G
0003720 O } < L O O P S > S O U R C E S
0003740 > 5 6 Q { I N D I G O } < L
0003760 O O P S > S O U R C E S > ) \r (
0004000 1 7 3 Q " . D C O M " ) \r F
0004020 o r c e L o a d F o n t s D 1
0004040 \r N I L \0 017 \0 \0 \0 \0 g \0 \0 \t \0
0004060 \0 g \0 \0 \t \0 \0 h 020 \0 ( 1 3 Q N
0004100 E W F O N T 5 N E W F O N T
0004120 ) \r ( 1 0 Q P A R C 2 B I
0004140 G ) \r ( ) \r L O A D D E M O D
0004160 1 \r ( P 0 F I L E F 1
0004200 D I R E C T O R I E S F 2
0004220 D E M O D I R F 3 L O O P
0004240 S C O U R S E F I L E S F 4
0004260 L O O P S C O U R S E F I L E
0004300 S D I R F 5 D E M O F I L
0004320 E S ) \0 > 001 005 \0 \0 R Q 034 253 R T
0004340 h 032 032 Q \n \0 \0 c 002 277 \b \0 \0 U \t \0
0004360 \0 S 206 d 001 \t \0 \0 277 002 003 265 370 o \0 \0
0004400 \0 215 d 001 021 001 \0 H g \0 \0 \n \0 \0 023 002
0004420 003 265 361 \b \0 \0 020 \0 ( 7 3 Q F o r
0004440 c e L o a d F o n t s 6 3 Q
0004460 L O A D 3 5 Q L O A D 2 6
0004500 Q D O F I L E S L O A D 2 2
0004520 Q L O A D T R U C K I N 1 4
0004540 Q U N I O N ) \r ( 6 0 Q P R
0004560 O P ) \r ( 4 6 Q ( G A U G E
0004600 S T R U C K I N P T R U C K
0004620 I N V T R U C K I N D B L O
0004640 O P S D E M O ) ) \r L O A D L O
0004660 O P S D 1 \r ( P 1 L I S P
0004700 X H I S T O R Y P 0 L I S
0004720 P X H I S T I 3 n o S c r
0004740 e e n S e t u p I 2 c o n
0004760 n e c t D i r e c t o r y I
0005000 1 s y s o u t F l g I 0
0005020 o p t i o n F 2 A R O U N
0005040 D E X I T F N S F 3 L o o
0005060 p s P a t c h F i l e s F 4
0005100 L O O P S F I L E S F 5
0005120 L O O P S D I R E C T O R Y F
0005140 6 O p t i o n a l L i s p u
0005160 s e r F i l e s F 7 L i s
0005200 p U s e r F i l e s F o r L o o
0005220 p s F 1 0 Q T T Y F 1
0005240 1 Q M A K E S Y S D A T E F
0005260 1 2 Q I N I T I A L S L S T
0005300 F 1 3 Q L i s p D a t e
0005320 F 1 4 Q L o o p s D a t e
0005340 F 1 5 Q S M A L L L O O P S
0005360 F I L E S F 1 6 Q L O G I
0005400 N H O S T / D I R F 1 7 Q
0005420 T E D I T . R E A D T A B L E
0005440 F 2 0 Q U S E R N A M E F
0005460 2 1 Q F I L E L S T F 2
0005500 2 Q F I R S T N A M E ) 001 4
0005520 002 021 \0 004 @ \t \0 \0 b \0 B 265 003 U \t \0
0005540 \0 @ d g \0 \0 360 224 277 g \0 \0 217 243 g \0
0005560 \0 212 @ d g \0 \0 360 223 277 g \0 \0 b \0 d
0005600 d g \0 \0 360 232 277 o \0 \0 \0 i \n \0 \0 h
0005620 020 g \0 \0 360 263 025 @ g \0 \0 360 254 @ g \0
0005640 \0 360 246 @ g \0 \0 360 262 B 021 001 o \0 \0
0005660 \0 V W 016 \n \0 \0 032 \t \0 \0 277 S 224 S \t
0005700 \0 \0 277 W 022 k l \t \v \0 \0 c 026 277 \b \0
0005720 \0 k l 017 \v \0 \0 c 030 277 o \0 \0 \0 @ d
0005740 g \0 \0 360 231 277 W 032 260 030 o \0 \0 \0 020 g
0005760 \0 \0 360 231 T 002 o \0 \0 \0 \n \0 \0 201 T 002
0006000 032 \t \0 \0 277 g \0 \0 g \0 \0 \n \0 \0 277 g
0006020 \0 \0 \t \0 \0 232 l 030 g \0 \0 W 036 \v \0 \0
0006040 277 @ g \0 \0 360 223 \b \0 \0 277 g \0 \0 R \n
0006060 \0 \0 247 g \0 \0 R 032 c 004 277 h c " c 034
0006100 c 024 c 277 g \0 \0 c $ 277 g \0 \0 \t \0
0006120 \0 277 W 020 \t \0 \0 023 @ g \0 \0 360 223 \b \0
0006140 \0 204 C 243 \b \0 \0 277 \b \0 \0 \b \0 \0 A d
0006160 262 026 i 360 244 A \t \0 \0 277 @ o \0 \0 \0 \n
0006200 \0 \0 @ \n \0 \0 020 \0 ( 4 6 1 Q M A
0006220 K E S Y S 4 5 5 Q P A C K *
0006240 4 4 4 Q / C N D I R 4 3 1
0006260 Q E N D L O A D U P 4 2 6 Q
0006300 U n M a r k C h a n g e s 4
0006320 2 2 Q S e t U p S c r e e n
0006340 4 1 4 Q S e t U p D e m o 4
0006360 0 2 Q C L E A R W 3 7 4 Q
0006400 S E T P R O P L I S T 3 3 5 Q
0006420 M E M B E R 3 2 5 Q L O A
0006440 D D E M O 3 1 3 Q T E D I T
0006460 . S E T F U N C T I O N 3 0 0
0006500 Q F N T Y P 2 7 1 Q M O V
0006520 D 2 5 7 Q D O F I L E S L O
0006540 A D 2 5 0 Q L D I F F E R E
0006560 N C E 2 0 2 Q S U B S T R I
0006600 N G 1 7 4 Q D A T E 1 6 6
0006620 Q S U B S T R I N G 1 5 5 Q
0006640 D O F I L E S L O A D 1 4 6
0006660 Q D O F I L E S L O A D 1 4
0006700 2 Q \ A P P E N D 2 7 2 Q
0006720 P R I N T 1 4 Q C N D I R
0006740 3 U - C A S E ) \r ( 4 0 7 Q
0006760 L O O P S D E M O 3 7 1 Q K
0007000 B I N I T 3 6 3 Q S i r O r
0007020 M a d a m 3 4 1 Q D B - I n
0007040 i t U I 3 3 1 Q D B - I n i
0007060 t U I 3 2 0 Q L O O P S D E
0007100 M O 3 0 6 Q L o o p s T e d
0007120 i t Q u i t 2 7 5 Q T E D I
0007140 T 2 6 6 Q I n s t a l l M e
0007160 t h o d 2 6 3 Q F u l l I n
0007200 s t a l l M e t h o d 2 3 5 Q
0007220 L O O P S D E M O 2 1 6 Q
0007240 S M A L L L O O P S 1 2 2 Q
0007260 ? 1 1 4 Q L O O P S D E M O
0007300 1 0 6 Q S M A L L L O O P S
0007320 7 7 Q L O O P S 5 7 Q ?
0007340 5 0 Q L O O P S D E M O 4
0007360 2 Q D E M O 3 4 Q L O O P
0007400 S 2 7 Q S M A L L L O O P S
0007420 2 1 Q S M A L L ) \r ( 4 5
0007440 2 Q " . S Y S O U T " 2 4 5
0007460 Q ( L O O P S D A T A B A S E
0007500 ) 2 3 1 Q " B a d o p t i
0007520 o n . o p t i o n c a n b
0007540 e o n e o f ( L O O P S
0007560 S M A L L L O O P S L O O P S
0007600 D E M O ? ) . \r F o r m o r
0007620 e i n f o r m a t i o n t y
0007640 p e \r L O A D L O O P S ( ? ) "
0007660 2 1 1 Q ( C O M P I L E D )
0007700 1 3 4 Q ( S Y S L O A D N
0007720 O E R R O R F R O M L I S P
0007740 U S E R S ) 6 6 Q " L O A D
0007760 L O O P S c a s e s : \r o p t
0010000 i o n = L O O P S , S t a n d
0010020 a r d L o o p s L o a d u p
0010040 \r o p t i o n = S M A L L L O O
0010060 P S S t a n d a r d n o t
0010100 i n c l u d i n g \r L O O P
0010120 S D A T A B A S E , G A U G E
0010140 S , o r R U L E S F I L E S
0010160 f i l e s \r o p t i o n = L O
0010200 O P S D E M O S t a n d a r d
0010220 m i n u s L O O P S D A T A
0010240 B A S E p l u s D e m o F i
0010260 l e s a n d f i l e s n
0010300 e e d e d f o r s t a n d a
0010320 l o n e L o o p s C o u r s e
0010340 \r o p t i o n = ? , p r i n t
0010360 s t h i s m e s s a g e . \r
0010400 I f s y s o u t F l g n o
0010420 t e q u a l t o N I L , \r
0010440 t h e n e n d s w i t h
0010460 a ( S Y S O U T < o p t i o
0010500 n > . S Y S O U T ) . \r I f
0010520 s y s o u t F l g = T d o e s
0010540 i t t o c o n n e c t e d
0010560 d i r e c t o r y , e l s e
0010600 \r d o e s a ( C N D I R s
0010620 y s o u t F l g ) \r " ) \r L o o
0010640 p s T e d i t Q u i t D 1 \r (
0010660 I 1 v a l u e I 0 s t
0010700 r e a m ) \0 # \0 \0 \0 002 @ A 005 \a
0010720 222 A 260 030 A d 004 ` \0 \0 360 226 g \0 \0 \n
0010740 \0 \0 206 o \0 \0 \0 \n \0 \0 \n \0 \0 020 \0 (
0010760 4 0 Q T E D I T . Q U I T 3
0011000 5 Q E R R O R 2 5 Q C O E
0011020 R C E T E X T O B J ) \r ( 2 2 Q
0011040 S T R I N G P 1 5 Q 004 003 T
0011060 E X T O B J T Y P E # ) \r ( 3
0011100 2 Q " w r o n g t y p e " )
0011120 \r N e w R e l e a s e D 1 \r (
0011140 P 4 M a x c R e l e a s e C
0011160 o m m d P 3 I n d i g o C
0011200 l e a n u p C o m m d P 2
0011220 s t a t u s P 1 s o u r c
0011240 e D i r P 0 i n d i g o D
0011260 i r I 2 d a t e I 1
0011300 m a x c P a s s I 0 i n d
0011320 i g o P a s s F 5 T T Y
0011340 F 6 I n d i g o R e l e a s
0011360 e D i r F 7 R e l e a s e
0011400 F i l e s S p e c ) \0 347 005 003 \0
0011420 003 021 P 004 @ 251 o \0 \0 \0 \t \0 \0 b \0 277
0011440 A 251 o \0 \0 \0 \t \0 \0 b 002 277 B 263 034 \b
0011460 \0 \0 b 004 o \0 \0 \0 B \n \0 \0 222 l 002 200
0011500 k l \t \v \0 \0 b 004 277 V B o \0 \0 \0 \v
0011520 \0 \0 \t \0 \0 Y o \0 \0 \0 I \n \0 \0 \t \0
0011540 \0 X o \0 \0 \0 I o \0 \0 \0 o \0 \0 \0 o
0011560 \0 \0 \0 \r 005 \0 \0 [ g \0 \0 h K \v \0 \0
0011600 W 016 H \n \0 \0 Z d 263 % o \0 \0 \0 U \n
0011620 \0 \0 277 H U \n \0 \0 277 U \t \0 \0 277 o \0
0011640 \0 \0 U \n \0 \0 277 U \t \0 \0 h 020 o \0 \0
0011660 \0 o \0 \0 \0 A o \0 \0 \0 o \0 \0 \0 o \0
0011700 \0 \0 o \0 \0 \0 \b \0 \0 @ o \0 \0 \0 o \0
0011720 \0 \0 I o \0 \0 \0 o \0 \0 \0 o \0 \0 \0 l
0011740 003 \t \0 \0 o \0 \0 \0 \r 021 \0 \0 \ g \0 \0
0011760 h L \v \0 \0 h 020 \0 ( 3 4 3 Q C H
0012000 A T 3 3 2 Q C O N C A T 3
0012020 2 2 Q C H A R A C T E R 2 6
0012040 7 Q U S E R N A M E 2 3 1 Q
0012060 T E R P R I 2 2 4 Q P R I
0012100 N 1 2 1 3 Q T E R P R I 2
0012120 0 6 Q P R I N 1 2 0 0 Q P
0012140 R I N 1 1 6 4 Q C o p y F i
0012160 l e s U s i n g S p e c s 1 5
0012200 6 Q C H A T 1 4 5 Q C O N
0012220 C A T 1 1 7 Q M K A T O M
0012240 1 1 4 Q C O N C A T 1 0 3 Q
0012260 M K A T O M 1 0 0 Q C O N
0012300 C A T 6 4 Q S U B S T R I N
0012320 G 5 2 Q S T R P O S 4 0 Q
0012340 G D A T E 2 7 Q I N T T Y
0012360 1 3 Q I N T T Y ) \r ( 3 3 6
0012400 Q M A X C 1 5 1 Q I N D I
0012420 G O ) \r ( 3 2 6 Q " l o g o
0012440 u t \r " 3 1 5 Q " l o g o u
0012460 t \r " 3 1 1 Q " q \r " 3 0
0012500 5 Q " * \r " 3 0 0 Q " a u
0012520 t o m a t i c r e t " 2 7
0012540 4 Q " \r " 2 6 4 Q " l o g
0012560 " 2 6 0 Q " p u p f t p
0012600 i n d i g o \r " 2 5 4 Q " d
0012620 e l * . * \r " 2 5 0 Q " \r
0012640 " 2 4 3 Q " C O N N l o o
0012660 p s " 2 3 7 Q " 1 \r " 2
0012700 2 0 Q " R E L E A S E A B O
0012720 R T E D ! ! " 1 7 4 Q " F i
0012740 l e s n o t c o p i e d p
0012760 r o p e r l y t o : " 1 4
0013000 1 Q " q \r " 1 3 5 Q " d e
0013020 l * , \r c o n f \r \r " 1 3 1
0013040 Q " \r " 1 2 4 Q " d i r
0013060 " 1 1 0 Q " { i n d i g o }
0013100 " 7 5 Q " > " 4 6 Q "
0013120 " 2 4 Q " E n t e r p a s
0013140 s w o r d f o r M a x c L
0013160 o o p s d i r e c t o r y :
0013200 " 1 0 Q " E n t e r y o u
0013220 r I n d i g o p a s s w o r
0013240 d : " ) \r T E S T L O O P S
0013260 D 1 \r ( I 0 S O U R C E S F
0013300 L G F 0 D I R E C T O R I
0013320 E S F 1 L T L O A D E D R
0013340 E S T ) \0 . \0 002 \0 001 g \0 \0 h 032
0013360 P \n \0 \0 c \0 @ 262 025 o \0 \0 \0 206 d 001
0013400 \t \0 \0 277 002 003 265 370 i c 002 205 g \0 \0 \t
0013420 \0 \0 277 j \t \0 \0 020 \0 ( 5 3 Q T e
0013440 s t F o r e v e r 4 6 Q L O
0013460 A D 2 7 Q L O A D 1 0 Q
0013500 U N I O N ) \r ( 4 3 Q L T B A
0013520 S I C . D C O M 2 { I N D I
0013540 G O } < L O O P S > S O U R C E
0013560 S ) \r ( 2 1 Q ( L T B A S I
0013600 C L T K E R L T D B L T C
0013620 A S E S ) ) \r T e s t e r S y s
0013640 t e m D 1 \r ( F 0 F I L E
0013660 L S T F 1 L e e s b u r g
0013700 F l g F 2 L O O P S C O U
0013720 R S E D I R F 3 U S E R N
0013740 A M E F 4 L I S P U S E R
0013760 S D I R E C T O R I E S F 5
0014000 D E M O F L G S E T U P F
0014020 6 F O N T D I R E C T O R I E
0014040 S F 7 N S . D E F A U L T
0014060 . P R I N T E R F 1 0 Q D
0014100 I R E C T O R I E S ) \0 S \0 \t
0014120 \0 \0 \b \0 \0 g \0 \0 \t \0 \0 h c \0 g \0
0014140 \0 \t \0 \0 \b \0 \0 g \0 \0 \t \0 \0 i c 002
0014160 g \0 \0 g \0 \0 g \0 \0 \v \0 \0 g \0 \0 c
0014200 004 h c \b d c \f g \0 \0 c 016 g \0 \0 c
0014220 006 g \0 \0 \t \0 \0 i c \n h g \0 \0 h 032
0014240 032 c 020 020 \0 ( 1 0 4 Q P R I N T
0014260 E R M O D E 5 1 Q C H A N G
0014300 E N A M E 3 2 Q L O A D 2
0014320 4 Q L o a d L T S y s t e m C
0014340 I 2 1 Q L O A D 1 0 Q L
0014360 O A D 2 F o r c e L o a d F
0014400 o n t s ) \r ( 1 1 3 Q { F S :
0014420 } < L O O P S > 1 0 1 Q I N
0014440 T E R P R E S S 7 4 Q N o t
0014460 L o g g e d I n 6 7 Q L I S
0014500 P P R I N T 5 4 Q { F S : }
0014520 < L O O P S C O U R S E > 4 6
0014540 Q E V Q 4 3 Q F O N T C O
0014560 P Y 4 0 Q \ S E T . T T Y I
0014600 N B O L D F O N T 2 7 Q L T
0014620 C A S E S 1 6 Q L T B A S I
0014640 C . D C O M 5 { P H Y L U M
0014660 } < L I S P C O R E > S O U R C
0014700 E S > F I L E B R O W S E R . D
0014720 C O M ) \r ( ) \r L O A D T R U C
0014740 K I N D 1 \r ( I 0 s o u r
0014760 c e F l g F 0 D I R E C T
0015000 O R I E S F 1 P L A Y E R
0015020 S D I R F 2 T R U C K I N
0015040 D I R F 3 P L A Y E R F I
0015060 L E S F 4 T R U C K I N F
0015100 I L E S F 5 L i s p U s e
0015120 r F i l e s F o r T r u c k i n
0015140 ) \0 _ \0 006 \0 001 g \0 \0 o \0 \0 \0 U
0015160 032 \n \0 \0 Q P 034 256 P 265 \b Q h 032 c \0
0015200 204 Q P 002 032 031 277 R P 034 256 P 265 \b R h
0015220 032 c \0 204 R P 002 032 031 277 @ 234 T 206 d 001
0015240 \t \0 \0 277 002 003 265 370 204 T \t \0 \0 277 \b \0
0015260 \0 @ 234 S 206 d 001 \t \0 \0 277 002 003 265 370 203
0015300 S \t \0 \0 h 020 \0 ( 1 3 3 Q D O F
0015320 I L E S L O A D 1 2 1 Q L O
0015340 A D 1 1 0 Q I n i t i a l i
0015360 z e T r u c k i n 1 0 4 Q D
0015400 O F I L E S L O A D 7 2 Q L
0015420 O A D 1 3 Q A P P L Y ) \r (
0015440 2 F I L E S L O A D ) \r ( 6
0015460 ( S Y S L O A D F R O M V
0015500 A L U E O F L I S P U S E R S
0015520 D I R E C T O R I E S ) ) \r L O
0015540 A D C O U R S E D 1 \r ( F 0
0015560 D I R E C T O R I E S F 1
0015600 L O O P S C O U R S E F I L E
0015620 S D I R F 2 L O O P S C O
0015640 U R S E F I L E S ) \0 027 \0 003 \0
0015660 \0 h Q P 002 032 032 c \0 R 206 d 001 \t \0 \0
0015700 277 002 003 265 370 h 020 \0 ( 1 6 Q L O A
0015720 D ) \r N I L \r ( ) \r U n M a r k
0015740 C h a n g e s D 1 \r ( P 2
0015760 I T E M P 1 C O M P 0
0016000 C O M T Y P E I 0 F I L
0016020 E S F 3 N O T L I S T E D
0016040 F I L E S F 4 N O T C O M
0016060 P I L E D F I L E S F 5 O
0016100 L D C H A N G E S ) \0 5 003 003 \0
0016120 001 021 020 \0 h c 006 d c \b g \0 \0 @ \n \0
0016140 \0 260 037 d 001 021 021 002 I 001 X g \0 \0 360 255
0016160 I 207 d 001 Z H \n \0 \0 277 002 003 265 366 023 002
0016200 003 265 342 U 020 \0 ( 4 7 Q U N M A R
0016220 K A S C H A N G E D 1 7 Q M
0016240 a k e C h a n g e C o m s ) \r (
0016260 3 4 Q * 1 3 Q O L D C H A
0016300 N G E S ) \r ( ) \r W A I T M S
0016320 D 1 \r ( I 0 n u m M S ) \0
0016340 ' \0 \0 \0 001 ` \0 \0 004 ` \0 \0 360 223 ` \0
0016360 \0 203 ` \0 \0 037 006 \0 \0 w @ ` \0 \0 332 366
0016400 d g \0 \0 \n \0 \0 262 371 i 020 \0 ( 4 1 Q
0016420 T I M E R E X P I R E D ? ) \r
0016440 ( 3 6 Q T I C K S 3 0 Q \
0016460 R C L K M I L L I S E C O N D
0016500 2 3 Q F I X P 1 7 Q \ F I
0016520 X P 1 3 Q W a i t M S T i m
0016540 e r 6 \ F I X P 2 W a i
0016560 t M S T i m e r ) \r ( ) \r W A I
0016600 T P A G E F N D 1 \r ( F 0
0016620 W A I T P A G E F L G ) \0 \0
0016640 001 \0 \0 ` \0 \0 310 \0 n \b \0 345 j 360 235 `
0016660 \0 \0 310 \0 l @ 345 j 360 262 352 h 020 P 263 375
0016700 i 020 \0 N I L \r ( 1 6 Q \ E M .
0016720 K B D A D 2 2 \ E M . K B D
0016740 A D 2 ) \r ( ) \r S e t N e t w o
0016760 r k D 1 \r ( P 0 e t h e r
0017000 H o s t N u m b e r ) \0 ! 001 \0
0017020 \0 \0 021 020 \0 \b \0 \0 X d j 360 227 o \0 \0
0017040 \0 \t \0 \0 212 \b \0 \0 l \b \n \0 \0 027 \0 \0
0017060 h 020 \0 ( 3 2 Q R S H 2 5 Q
0017100 E T H E R H O S T N U M B E R
0017120 2 1 Q H E L P C H E C K 5
0017140 E T H E R H O S T N U M B E R )
0017160 \r ( 3 5 Q N E T N U M B E R )
0017200 \r ( 1 6 Q " H e l p - -
0017220 T h e E T H E R H O S T N U M
0017240 B E R i s z e r o . L O
0017260 O P S u s e s t h i s n u
0017300 m b e r t o m a k e u n i
0017320 q u e i d e n t i f i e r s .
0017340 " ) \r D E D 1 \r ( I 0 L )
0017360 \0 \r \0 \0 003 001 @ d 001 003 241 h 032 i \n
0017400 \0 \0 020 \0 ( 1 2 Q D E F I N E )
0017420 \r N I L \r ( ) \r F I L E A 0 0 0
0017440 1 D 1 \r ( N A M E E R R O R
0017460 S E T L ( 2 E R R O R S E
0017500 T . W 1 E R R O R S E T . V
0017520 0 E R R O R S E T . U ) F
0017540 0 A R G S F 1 M A C R
0017560 O Y ) \0 \n \0 002 \0 003 P 001 \t \0 \0 c
0017600 002 i 020 \0 ( 4 M A K E F I L E )
0017620 \r N I L \r ( ) \r F I L E D 1 \r
0017640 ( P 3 R E S E T S T A T E
0017660 P 2 M A C R O Y P 0 O
0017700 L D V A L U E I 0 A R G S
0017720 F 4 R E S E T V A R S L S
0017740 T ) \0 ] 004 001 003 001 @ 002 262 037 @ 001 \t
0017760 \0 \0 @ d 002 001 004 l 004 360 231 d 002 002 245 002
0020000 001 \t \0 \0 200 002 \n \0 \0 277 l \n \t \0 \0 021
0020020 1 003 g \0 \0 H h 032 032 h 032 T 032 c \b Y
0020040 o \0 \0 \0 g \0 \0 \n \0 \0 243 g \0 \0 273 I
0020060 002 c \b g \0 \0 I 001 001 002 \n \0 \0 K 223 \b
0020100 \0 \0 020 J 020 \0 ( 1 3 0 Q E R R O
0020120 R ! 1 2 3 Q A P P L Y 1 0
0020140 0 Q F I L E A 0 0 0 1 4 5 Q
0020160 R A D I X 3 7 Q / S E T A
0020200 T O M V A L 3 2 Q G E T T O
0020220 P V A L 1 0 Q F I L E C O M
0020240 S ) \r ( 1 1 4 Q R A D I X 1
0020260 0 4 Q E R R O R 7 5 Q I N
0020300 T E R N A L 5 3 Q R A D I X
0020320 ) \r ( 7 2 Q ( D U M M Y . F
0020340 O R . E R R O R S E T ) ) \r i /
0020360 d D 1 \r ( I 0 i t e m )
0020400 \0 006 \0 \0 \0 001 @ \t \0 \0 020 \0 ( 3 I
0020420 N S P E C T / D A T A T Y P E )
0020440 \r N I L \r ( ) \r P P I A 0 0 0 1
0020460 D 1 \r ( N A M E E R R O R S
0020500 E T L ( 2 E R R O R S E T
0020520 . W 1 E R R O R S E T . V
0020540 0 E R R O R S E T . U ) P
0020560 0 F I E L D F 1 D E C
0020600 F 2 P O S F 3 I N S T
0020620 A N C E F 4 M A C R O Y )
0020640 \0 Q 001 004 \0 003 o \0 \0 \0 \t \0 \0 277 Q
0020660 \t \0 \0 260 1 d 001 021 001 \0 H g \0 \0 360 263
0020700 # R j \n \0 \0 277 H \t \0 \0 277 o \0 \0 \0
0020720 \t \0 \0 277 H S Q \v \0 \0 h \t \0 \0 \n \0
0020740 \0 277 023 002 003 265 320 o \0 \0 \0 \t \0 \0 277 h
0020760 \t \0 \0 c \b i 020 \0 ( 1 1 3 Q T E
0021000 R P R I 1 0 6 Q P R I N 1
0021020 7 1 Q P R I N T D E F 6 6 Q
0021040 P O S I T I O N 6 2 Q R E
0021060 C O R D A C C E S S 5 3 Q P
0021100 R I N 1 4 3 Q P R I N 2 3
0021120 6 Q T A B 1 3 Q R E C O R
0021140 D F I E L D N A M E S 6 P R
0021160 I N 1 ) \r ( 2 6 Q P E R F O R
0021200 M O P S ) \r ( 1 0 3 Q " ] "
0021220 5 0 Q " = " 3 " [ "
0021240 ) \r P P I D 1 \r ( P 5 R E
0021260 S E T S T A T E P 4 M A C
0021300 R O Y P 2 O L D V A L U E
0021320 P 1 D E C P 0 P O S
0021340 I 2 F I L E I 1 R E
0021360 C O R D N A M E I 0 I N S
0021400 T A N C E F 6 R E S E T V
0021420 A R S L S T ) \0 m 006 001 \0 003 B \t
0021440 \0 \0 k 330 A 265 \v @ d 003 221 001 202 \t \0 \0
0021460 \t \0 \0 021 002 001 I 262 ? B \t \0 \0 021 1 005
0021500 g \0 \0 J h 032 032 h 032 V 032 c \f 273 o \0
0021520 \0 \0 g \0 \0 \n \0 \0 243 g \0 \0 275 K 002 c
0021540 \f 277 g \0 \0 K 001 001 002 \n \0 \0 277 M 223 \b
0021560 \0 \0 277 023 260 024 @ B \t \0 \0 h d d B \r
0021600 006 \0 \0 277 B \t \0 \0 h 020 \0 ( 1 5 1 Q
0021620 T E R P R I 1 4 4 Q P R I
0021640 N T D E F 1 3 4 Q P O S I T
0021660 I O N 1 2 3 Q E R R O R !
0021700 1 1 5 Q A P P L Y 7 1 Q P
0021720 P I A 0 0 0 1 3 6 Q O U T P
0021740 U T 2 4 Q R E C L O O K 2
0021760 1 Q T Y P E N A M E 3 P O
0022000 S I T I O N ) \r ( 1 0 6 Q O U
0022020 T P U T 7 5 Q E R R O R 6
0022040 6 Q I N T E R N A L 4 4 Q
0022060 O U T P U T ) \r ( 6 3 Q ( D
0022100 U M M Y . F O R . E R R O R S E
0022120 T ) ) \r P P R A 0 0 0 1 D 1 \r
0022140 ( N A M E E R R O R S E T L
0022160 ( 2 E R R O R S E T . W 1
0022200 E R R O R S E T . V 0 E R
0022220 R O R S E T . U ) P 0 R
0022240 F 1 X F 2 M A C R O Y
0022260 ) \0 4 001 002 \0 003 Q d 003 263 ( h 032 260
0022300 $ d 001 021 001 \0 H \t \0 \0 H \t \0 \0 \n \0
0022320 \0 265 \b H o \0 \0 \0 032 \t \0 \0 277 i \t \0
0022340 \0 023 002 003 265 335 h c 004 i 020 \0 ( 5 0 Q
0022360 T E R P R I 4 3 Q P R I N
0022400 T D E F 3 0 Q \ A P P E N D
0022420 2 2 5 Q F I E L D L O O K
0022440 2 1 Q R E C L O O K ) \r N I L
0022460 \r ( 3 7 Q ( n o t f o u n
0022500 d ) ) \r P P R D 1 \r ( P 3
0022520 R E S E T S T A T E P 2 M
0022540 A C R O Y P 0 O L D V A L
0022560 U E I 0 X F 4 R E S
0022600 E T V A R S L S T ) \0 ; 004 001 003
0022620 001 i \t \0 \0 021 1 003 g \0 \0 H h 032 032 h
0022640 032 T 032 c \b Y o \0 \0 \0 g \0 \0 \n \0 \0
0022660 243 g \0 \0 273 I 002 c \b g \0 \0 I 001 001 002
0022700 \n \0 \0 K 223 \b \0 \0 020 J 020 \0 ( 6 6 Q
0022720 E R R O R ! 6 1 Q A P P L
0022740 Y 3 6 Q P P R A 0 0 0 1 3
0022760 O U T P U T ) \r ( 5 2 Q O U
0023000 T P U T 4 2 Q E R R O R 3
0023020 3 Q I N T E R N A L 1 1 Q
0023040 O U T P U T ) \r ( 3 0 Q ( D
0023060 U M M Y . F O R . E R R O R S E
0023100 T ) ) \r L O O P S D I R D 1 \r
0023120 ( I 0 S U B D I R ) \0 021 \0
0023140 \0 \0 001 g \0 \0 @ 265 005 g \0 \0 \n \0 \0 \t
0023160 \0 \0 020 \0 ( 1 6 Q / C N D I R
0023200 1 3 Q P A C K * ) \r ( 1 0 Q
0023220 S O U R C E S 2 { I N D I G
0023240 O } < L O O P S > ) \r ( ) \r P R
0023260 O J E C T D I R D 1 \r ( I 0
0023300 s u b D i r e c t o r y ) \0
0023320 024 \0 \0 \0 001 g \0 \0 @ 265 005 g \0 \0 g \0
0023340 \0 \v \0 \0 \t \0 \0 020 \0 ( 2 1 Q / C
0023360 N D I R 1 6 Q C O N C A T )
0023400 \r ( 1 3 Q > 1 0 Q L I S P
0023420 2 { I N D I G O } < K B V L
0023440 S I > ) \r ( ) \r ( P R E T T Y C
0023460 O M P R I N T L O A D L O O P
0023500 S C O M S ) \r ( R P A Q Q L O
0023520 A D L O O P S C O M S ( ( *
0023540 C o p y r i g h t ( c ) 1 9
0023560 8 2 b y X e r o x C o r p
0023600 o r a t i o n ) ( * L o o p
0023620 s D a t e i s s e t e a c
0023640 h t i m e o n e \r m a k e
0023660 s a n e w L O A D L O O P
0023700 S f i l e . T h i s m e a
0023720 n s t h a t o r d i n a r y
0023740 l o a d i n g ( L O A D L O
0023760 O P S ) w i l l g e t t h
0024000 e L o o p s D a t e f r o m
0024020 \r w h e n L O A D L O O P S
0024040 w a s m a d e . ) ( E (
0024060 S E T Q L o o p s D a t e (
0024100 S U B S T R I N G ( D A T E )
0024120 1 9 ) ) ) ( F N S C o p
0024140 y F i l e s U s i n g S p e c s
0024160 \r D e b u g L o o p s F o r
0024200 c e L o a d F o n t s L O A D
0024220 D E M O L O A D L O O P S L
0024240 o o p s T e d i t Q u i t N e
0024260 w R e l e a s e T E S T L O O
0024300 P S T e s t e r S y s t e m
0024320 \r L O A D T R U C K I N L O A
0024340 D C O U R S E U n M a r k C h
0024360 a n g e s W A I T M S W A I
0024400 T P A G E F N ) ( V A R S I
0024420 n d i g o R e l e a s e D i r
0024440 L O O P S C O U R S E D I R \r
0024460 L O O P S D I R E C T O R Y L
0024500 O O P S F I L E S S M A L L L
0024520 O O P S F I L E S T E S T C O
0024540 M P I L E D F I L E S T E S T
0024560 F I L E S T E S T S O U R C E
0024600 F I L E S R U L E S F I L E S
0024620 \r R e l e a s e F i l e s S p
0024640 e c T R U C K I N D I R T R
0024660 U C K I N F I L E S P L A Y E
0024700 R F I L E S P L A Y E R S D I
0024720 R D E M O D I R D E M O F I
0024740 L E S L O O P S C O U R S E F
0024760 I L E S \r L O O P S C O U R S
0025000 E F I L E S D I R L i s p U s
0025020 e r F i l e s F o r L o o p s
0025040 O p t i o n a l L i s p u s e r
0025060 F i l e s L i s p U s e r F i
0025100 l e s F o r T r u c k i n L o
0025120 o p s D a t e \r L o o p s P a
0025140 t c h F i l e s ) ( * N o w
0025160 s e t L i s p f l a g s
0025200 s t a n d a r d l y f o r L
0025220 o o p s ) ( G L O B A L V A R
0025240 S W a i t M S T i m e r \ F
0025260 I X P ) ( V A R S ( \r W a i
0025300 t M S T i m e r ( S E T U P T
0025320 I M E R 0 ) ) ) ( * * T
0025340 h e f u n c t i o n S e t N
0025360 e t w o r k m u s t b e m
0025400 o d i f i e d f o r u s e
0025420 o n a n y m a c h i n e \r
0025440 w h i c h w i l l n o t r
0025460 e s p o n d t o t h e f u
0025500 n c t i o n ( E T H E R H O S
0025520 T N U M B E R ) % . I t i
0025540 s c a l l e d b y D B - I
0025560 n i t U I w h i c h i s c
0025600 a l l e d \r e v e r y t i m
0025620 e t h e u s e r s t a r t
0025640 s u p . T h e v a r i a b
0025660 l e N E T N U M B E R i s
0025700 s e t b y S e t N e t w o r
0025720 k a n d u s e d i n g e
0025740 n e r a t i n g \r u n i q u e
0025760 i d s . I t i s s e t
0026000 h e r e t o 0 a s a d
0026020 e f a u l t . ) ( I N I T V A
0026040 R S ( N E T N U M B E R 0 )
0026060 ) ( F N S S e t N e t w o r
0026100 k ) ( * * S o m e \r u t
0026120 i l i t y f u n c t i o n s
0026140 a n d m a c r o s w e l i
0026160 k e h a v i n g a r o u n d
0026200 ) ( F N S D E F I L E i
0026220 / d P P I P P R L O O P S
0026240 D I R P R O J E C T D I R )
0026260 ( \r L I S P X M A C R O S o k
0026300 ) ( U S E R M A C R O S S H
0026320 O W D F V ) ( D E C L A R E
0026340 : D O N T E V A L @ L O A D
0026360 D O E V A L @ C O M P I L E D
0026400 O N T C O P Y C O M P I L E R
0026420 V A R S ( \r A D D V A R S (
0026440 N L A M A P P R F I L E D
0026460 E ) ( N L A M L ) ( L A M A
0026500 ) ) ) ) ) \r ( R P A Q Q I n d
0026520 i g o R e l e a s e D i r " <
0026540 L O O P S > R E L E A S E > " )
0026560 \r ( R P A Q Q L O O P S C O U
0026600 R S E D I R " { I V Y } < L O
0026620 O P S C O U R S E > " ) \r ( R P
0026640 A Q Q L O O P S D I R E C T O
0026660 R Y { I N D I G O } < L O O P
0026700 S > S O U R C E S ) \r ( R P A Q
0026720 Q L O O P S F I L E S ( L O
0026740 A D L O O P S B L O C K L O O
0026760 K U P L O O P S S C R E E N
0027000 L O O P S S T R U C L O O P S
0027020 P R I N T L O O P S A C C E S
0027040 S L O O P S U I D \r L O O P
0027060 S A V L O O P S E D I T L O
0027100 O P S M E T H O D S L O O P S
0027120 K E R N E L L O O P S U T I L
0027140 I T Y L O O P S M I X I N L
0027160 O O P S D A T A B A S E L O O
0027200 P S I N S P E C T \r L O O P S
0027220 W I N D O W L O O P S B R O W
0027240 S E L O O P S R U L E S L O
0027260 O P S R U L E S P L O O P S R
0027300 U L E S C L O O P S R U L E S
0027320 D G A U G E S ) ) \r ( R P A Q
0027340 Q S M A L L L O O P S F I L E
0027360 S ( L O A D L O O P S B L O
0027400 C K L O O K U P L O O P S S C
0027420 R E E N L O O P S S T R U C
0027440 L O O P S P R I N T L O O P S
0027460 A C C E S S L O O P S U I D
0027500 \r L O O P S A V L O O P S E D
0027520 I T L O O P S M E T H O D S
0027540 L O O P S K E R N E L L O O P
0027560 S U T I L I T Y L O O P S M I
0027600 X I N L O O P S I N S P E C T
0027620 L O O P S W I N D O W \r L O
0027640 O P S B R O W S E ) ) \r ( R P A
0027660 Q Q T E S T C O M P I L E D F
0027700 I L E S ( L T B A S I C L T
0027720 B C L S L T C A S E S L T D
0027740 B L T K E R L T L O A D ) )
0027760 \r ( R P A Q Q T E S T F I L E
0030000 S ( L T B A S I C L T B C L
0030020 S L T C A S E S L T D B L
0030040 T K E R L T L O A D L T 1 .
0030060 K B ) ) \r ( R P A Q Q T E S T
0030100 S O U R C E F I L E S ( L T 1
0030120 . K B ) ) \r ( R P A Q Q R U L
0030140 E S F I L E S ( L O O P S R U
0030160 L E S L O O P S R U L E S P
0030200 L O O P S R U L E S C L O O P
0030220 S R U L E S D ) ) \r ( R P A Q Q
0030240 R e l e a s e F i l e s S p e
0030260 c ( ( L O O P S F I L E S {
0030300 i n d i g o } < L O O P S > S O
0030320 U R C E S > B ) ( T R U C K
0030340 I N F I L E S \r { i n d i g o
0030360 } < l o o p s > t r u c k i n >
0030400 m u l t i > B ) ( P L A Y E
0030420 R F I L E S { i n d i g o } <
0030440 l o o p s > t r u c k i n > m u
0030460 l t i > B ) ( D E M O F I L
0030500 E S \r { i n d i g o } < L O O
0030520 P S > d e m o > B ) ( T E S
0030540 T S O U R C E F I L E S { i n
0030560 d i g o } < L O O P S > S O U R
0030600 C E S > S ) ( T E S T C O M
0030620 P I L E D F I L E S \r { i n d
0030640 i g o } < L O O P S > S O U R C
0030660 E S > B ) ) ) \r ( R P A Q Q
0030700 T R U C K I N D I R { I N D I
0030720 G O } < L O O P S > T R U C K I
0030740 N > M U L T I ) \r ( R P A Q Q
0030760 T R U C K I N F I L E S ( T R
0031000 U C K I N T R U C K I N M T
0031020 R U C K I N R T R U C K I N I
0031040 T R U C K I N D B T R U C K
0031060 I N P T R U C K I N V L O O
0031100 P S G A T E W A Y ) ) \r ( R P A
0031120 Q Q P L A Y E R F I L E S (
0031140 T R A V E L E R P E D D L E R
0031160 P L A N N E R ) ) \r ( R P A Q
0031200 Q P L A Y E R S D I R { I N
0031220 D I G O } < L O O P S > T R U C
0031240 K I N > M U L T I ) \r ( R P A Q
0031260 Q D E M O D I R { I N D I G
0031300 O } < L O O P S > D E M O > ) \r
0031320 ( R P A Q Q D E M O F I L E S
0031340 ( L O O P S D E M O ) ) \r ( R
0031360 P A Q Q L O O P S C O U R S E
0031400 F I L E S ( E X E R C I S E 1
0031420 S I M P L E G T R A N S L A
0031440 T E D E M O S C R I P T ) ) \r
0031460 ( R P A Q Q L O O P S C O U R
0031500 S E F I L E S D I R { I N D I
0031520 G O } < L O O P S > C O U R S E
0031540 > ) \r ( R P A Q Q L i s p U s
0031560 e r F i l e s F o r L o o p s
0031600 ( G R A P H E R I C O N W T
0031620 T Y H I S T M E N U T M E N
0031640 U I N M E N U R E A D N U M
0031660 B E R A N I M A T E ) ) \r ( R
0031700 P A Q Q O p t i o n a l L i s
0031720 p u s e r F i l e s ( P A G E
0031740 H O L D S I N G L E F I L E I
0031760 N D E X P A T C H U P B R O
0032000 W S E R C R O C K ) ) \r ( R P
0032020 A Q Q L i s p U s e r F i l e
0032040 s F o r T r u c k i n ( E V A
0032060 L S E R V E R L L C O L O R
0032100 C O L O R ) ) \r ( R P A Q Q L
0032120 o o p s D a t e " 3 - J u l
0032140 - 8 4 " ) \r ( R P A Q Q L o o
0032160 p s P a t c h F i l e s ( { E
0032200 R I S } < T E D I T > T E D I T
0032220 H C P Y P A T C H . D C O M ) )
0032240 \r ( R P A Q W a i t M S T i m
0032260 e r ( S E T U P T I M E R 0
0032300 ) ) \r ( R P A Q ? N E T N U M
0032320 B E R 0 ) \r ( A D D T O V A R
0032340 L I S P X M A C R O S ( o k
0032360 ( R E T F R O M ( O R ( S
0032400 T K P O S ( Q U O T E U S E
0032420 R E X E C ) ) ( Q U O T E L
0032440 I S P X ) ) T T ) ) ) \r ( A
0032460 D D T O V A R E D I T M A C R
0032500 O S ( S H O W D N I L U P
0032520 ( O R R ( ( E ( R E S E T
0032540 F O R M ( O U T P U T T )
0032560 ( P R O G N ( P R I N T D E F
0032600 ( O R ( E D I T G E T D (
0032620 % # % # \r 1 ) ( A N D ( C
0032640 D R L ) ( E D I T L 0 L
0032660 ( Q U O T E ( ! 0 ) ) ) ) )
0032700 ( E R R O R ! ) ) N I L T )
0032720 ( T E R P R I ) ) ) T ) )
0032740 ( ( E ( Q U O T E S H O W D
0032760 ? ) ) ) ) ) ( F V \r N I L
0033000 ( E ( F R E E V A R S ( % #
0033020 % # ( O R R ( U P 1 ) N
0033040 I L ) ) T ) ) ) ) \r ( A D D T
0033060 O V A R E D I T C O M S A S
0033100 H O W D F V ) \r ( P U T P R O
0033120 P S L O A D L O O P S C O P
0033140 Y R I G H T ( " X e r o x C
0033160 o r p o r a t i o n " 1 9 8 3
0033200 1 9 8 4 ) ) \r N I L \r
0033214