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