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