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