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