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