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