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