$ od -c -N 50000 [phylum]<3-LISP>emacs>PRIMIT.DCOM!24
0000000 ( F I L E C R E A T E D " 3
0000020 - A u g - 8 4 2 3 : 2 4 : 2 1
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < 3 - L I S
0000100 P > E M A C S > P R I M I T . F
0000120 P K G ; 1 ) \r " 8 - J u n -
0000140 8 4 1 1 : 1 7 : 2 0 " t c o
0000160 m p l % ' d i n W O R K d
0000200 a t e d " 2 1 - J u n - 8 4
0000220 1 0 : 5 0 : 2 8 " ) \r ( F I L E
0000240 C R E A T E D " 3 - A u g -
0000260 8 4 2 3 : 2 4 : 0 1 " { P H
0000300 Y L U M } < 3 - L I S P > E M A
0000320 C S > P R I M I T . F P K G ; 1
0000340 1 8 7 0 9 c h a n g e s t
0000360 o : ( F N S \r E M A C S . S
0000400 E T C A R E T P T R E M A C S
0000420 . S E T F I L E P T R E M A C
0000440 S . S H O W C A R E T E M A C
0000460 S . G E T F I L E P T R E M A
0000500 C S . N U M E R I C . A R G \r
0000520 E M A C S . N U M E R I C . A R
0000540 G . P E M A C S . C H A R . F
0000560 W D E M A C S . C H A R . B A
0000600 C K E M A C S . P O I N T E
0000620 M A C S . W O R D . F W D E M
0000640 A C S . W O R D . B A C K \r E
0000660 M A C S . W O R D . E N D E M
0000700 A C S . W O R D . B E G I N N I
0000720 N G E M A C S . S E X P R . F
0000740 W D E M A C S . S E X P R . B
0000760 A C K S K I P . P R E F I X .
0001000 C H A R A C T E R S . B A C K
0001020 \r E M A C S . B A L A N C E D .
0001040 S E X P R . B A C K E M A C S
0001060 . P A R A . B E G I N N I N G
0001100 E M A C S . P A R A . E N D E
0001120 M A C S . B O L E M A C S . E
0001140 O L \r E M A C S . R E G I O N
0001160 . B E G I N N I N G E M A C S
0001200 . R E G I O N . E N D E M A C
0001220 S . F I L E N A M E E M A C S
0001240 . P U T E M A C S . G E T E
0001260 M A C S . S A V E . A L L . F I
0001300 L E S \r E M A C S . B O F P
0001320 E M A C S . E O F P E M A C S
0001340 . D E L E T E E M A C S . M A
0001360 R K . R E G I O N E M A C S .
0001400 I N I T . A R R A Y E M A C S
0001420 . S K I P . S Y N T A X . F W D
0001440 \r E M A C S . S K I P T O . S
0001460 Y N T A X . F W D E M A C S .
0001500 S K I P . S Y N T A X . B A C K
0001520 E M A C S . S K I P T O . S Y
0001540 N T A X . B A C K E M A C S .
0001560 B A C K P E E K B I N ) ) \r E M
0001600 A C S . S E T C A R E T P T R
0001620 D 1 \r ( I 1 P T R I 0
0001640 S T R E A M ) \0 ' 002 \0 \0 002 @ A
0001660 d j 361 241 277 j @ \t \0 \0 021 002 001 H d I
0001700 361 221 277 I 022 k 330 j g \0 \0 \f \0 \0 @ A
0001720 \n \0 \0 020 \0 ( 4 4 Q E M A C S .
0001740 S E T F I L E P T R 3 7 Q T
0001760 E D I T . S E T S E L 1 3 Q
0002000 G E T E O F P T R ) \r ( 3 4 Q
0002020 L E F T ) \r ( ) \r E M A C S . S
0002040 E T F I L E P T R D 1 \r ( P
0002060 0 E O F I 1 P T R I
0002100 0 S T R E A M ) \0 & 001 \0 \0 002
0002120 @ \t \0 \0 021 001 \0 H j 361 264 032 @ H d A
0002140 361 221 277 A \n \0 \0 277 @ H d A 361 221 277 A
0002160 \n \0 \0 h 020 \0 ( 4 2 Q S E T F I
0002200 L E P T R 2 6 Q S E T F I L
0002220 E P T R 3 G E T E O F P T R
0002240 ) \r N I L \r ( ) \r E M A C S . S
0002260 H O W C A R E T D 1 \r ( P 0
0002300 P T R I 0 S T R E A M )
0002320 \0 036 001 \0 \0 001 021 020 \0 @ \t \0 \0 X @
0002340 H \n \0 \0 @ 006 \0 \0 311 020 \t \0 \0 @ H \n
0002360 \0 \0 h 020 \0 ( 3 2 Q E M A C S .
0002400 S E T C A R E T P T R 2 5 Q
0002420 T E D I T . N O R M A L I Z E C
0002440 A R E T 1 4 Q E M A C S . S
0002460 E T C A R E T P T R 6 E M A
0002500 C S . G E T F I L E P T R ) \r (
0002520 2 0 Q S T R E A M ) \r ( ) \r E
0002540 M A C S . G E T F I L E P T R A
0002560 0 0 0 1 D 1 \r ( N A M E E R
0002600 R O R S E T L ( 2 E R R O
0002620 R S E T . W 1 E R R O R S E
0002640 T . V 0 E R R O R S E T . U
0002660 ) F 0 S T R E A M ) \0 \b
0002700 \0 001 \0 003 P \t \0 \0 h 032 020 \0 ( 3 G
0002720 E T F I L E P T R ) \r N I L \r (
0002740 ) \r E M A C S . G E T F I L E P
0002760 T R D 1 \r ( I 0 S T R E A
0003000 M ) \0 \r \0 \0 \0 001 o \0 \0 \0 \t \0 \0
0003020 001 265 003 j 020 \0 ( 6 E M A C S . G
0003040 E T F I L E P T R A 0 0 0 1 ) \r
0003060 N I L \r ( 3 ( D U M M Y . F
0003100 O R . E R R O R S E T ) ) \r E M
0003120 A C S . N U M E R I C . A R G
0003140 D 1 \r ( I 0 S T R E A M )
0003160 \0 024 \0 \0 \0 001 @ 006 \0 \0 311 020 \t \0 \0 g
0003200 \0 \0 \n \0 \0 265 003 k 020 \0 ( 1 6 Q G
0003220 E T W I N D O W U S E R P R O P
0003240 1 0 Q \ T E D I T . M A I N
0003260 W ) \r ( 1 3 Q N U M E R I C .
0003300 A R G 3 S T R E A M ) \r ( )
0003320 \r E M A C S . N U M E R I C . A
0003340 R G . P D 1 \r ( I 0 S T R
0003360 E A M ) \0 021 \0 \0 \0 001 @ 006 \0 \0 311
0003400 020 \t \0 \0 g \0 \0 \n \0 \0 020 \0 ( 1 6 Q
0003420 G E T W I N D O W U S E R P R
0003440 O P 1 0 Q \ T E D I T . M A
0003460 I N W ) \r ( 1 3 Q N U M E R I
0003500 C . A R G 3 S T R E A M ) \r
0003520 ( ) \r E M A C S . C H A R . F W
0003540 D D 1 \r ( I 1 Q T Y I
0003560 0 S T R E A M ) \0 036 002 \0 \0 002
0003600 @ d \t \0 \0 @ \t \0 \0 A 265 003 k 330 021 002
0003620 001 H d I 361 221 277 I 022 \n \0 \0 020 \0 ( 3
0003640 3 Q E M A C S . S E T F I L E
0003660 P T R 1 0 Q E M A C S . G E
0003700 T F I L E P T R 4 G E T E O
0003720 F P T R ) \r N I L \r ( ) \r E M A
0003740 C S . C H A R . B A C K D 1 \r
0003760 ( I 1 Q T Y I 0 S T R
0004000 E A M ) \0 032 001 \0 \0 002 @ d \t \0 \0
0004020 A 265 003 k 331 021 001 \0 j H 361 241 H 200 j 022
0004040 \n \0 \0 020 \0 ( 2 7 Q E M A C S .
0004060 S E T F I L E P T R 4 E M A
0004100 C S . G E T F I L E P T R ) \r N
0004120 I L \r ( ) \r E M A C S . P O I N
0004140 T D 1 \r ( I 0 S T R E A M
0004160 ) \0 \b \0 \0 \0 001 @ @ \t \0 \0 020 \0
0004200 ( 5 \ B A C K B I N ) \r N I L
0004220 \r ( ) \r E M A C S . W O R D . F
0004240 W D D 1 \r ( P 1 I I 1
0004260 Q T Y I 0 S T R E A M
0004300 F 2 E M A C S . W S F 3
0004320 E M A C S . N O N W S ) \0 $
0004340 002 002 \0 002 A d k 361 241 277 k k 021 002 001 I
0004360 H 361 221 h 020 @ R \n \0 \0 277 @ S \n \0 \0
0004400 277 I k 330 Y 260 353 \0 ( 3 3 Q E M A
0004420 C S . S K I P . S Y N T A X . F
0004440 W D 2 5 Q E M A C S . S K I
0004460 P . S Y N T A X . F W D ) \r N I
0004500 L \r ( ) \r E M A C S . W O R D .
0004520 B A C K D 1 \r ( P 1 I I
0004540 1 Q T Y I 0 S T R E A
0004560 M F 2 E M A C S . W S F
0004600 3 E M A C S . N O N W S )
0004620 \0 $ 002 002 \0 002 A d k 361 241 277 k k 021 002
0004640 001 I H 361 221 h 020 @ R \n \0 \0 277 @ S \n
0004660 \0 \0 277 I k 330 Y 260 353 \0 ( 3 3 Q E
0004700 M A C S . S K I P . S Y N T A X
0004720 . B A C K 2 5 Q E M A C S .
0004740 S K I P . S Y N T A X . B A C K
0004760 ) \r N I L \r ( ) \r E M A C S . W
0005000 O R D . E N D D 1 \r ( I 0
0005020 S T R E A M F 0 E M A C S
0005040 . N O N W S F 1 E M A C S
0005060 . W S ) \0 \f \0 002 \0 001 @ P \n \0 \0
0005100 @ Q \n \0 \0 020 \0 ( 1 1 Q E M A C
0005120 S . S K I P . S Y N T A X . F W
0005140 D 4 E M A C S . S K I P . S
0005160 Y N T A X . F W D ) \r N I L \r (
0005200 ) \r E M A C S . W O R D . B E G
0005220 I N N I N G D 1 \r ( I 0 S
0005240 T R E A M F 0 E M A C S .
0005260 N O N W S F 1 E M A C S .
0005300 W S ) \0 \f \0 002 \0 001 @ P \n \0 \0 @
0005320 Q \n \0 \0 020 \0 ( 1 1 Q E M A C S
0005340 . S K I P . S Y N T A X . B A C
0005360 K 4 E M A C S . S K I P . S
0005400 Y N T A X . B A C K ) \r N I L \r
0005420 ( ) \r E M A C S . S E X P R . F
0005440 W D A 0 0 0 1 D 1 \r ( N A M E
0005460 E R R O R S E T L ( 2 E
0005500 R R O R S E T . W 1 E R R O
0005520 R S E T . V 0 E R R O R S E
0005540 T . U ) F 0 R E S E T V A
0005560 R S L S T F 1 S T R E A M
0005600 F 2 R E S E T Y ) \0 ! \0
0005620 003 \0 003 g \0 \0 d \t \0 \0 032 g \0 \0 o \0
0005640 \0 \0 \n \0 \0 277 P 032 c \0 277 Q \t \0 \0 c
0005660 004 i 020 \0 ( 3 3 Q R E A D 2 1
0005700 Q S E T T O P V A L 6 G E
0005720 T T O P V A L ) \r ( 1 2 Q \ B
0005740 Q U O T E L E V E L 2 \ B Q
0005760 U O T E L E V E L ) \r ( 1 6 Q
0006000 7 7 7 7 7 7 7 7 7 7 Q ) \r E M
0006020 A C S . S E X P R . F W D D 1
0006040 \r ( P 2 R E S E T Z P 1
0006060 R E S E T Y P 0 L I S P
0006100 X H I S T I 0 S T R E A M
0006120 F 3 L I S P X H I S T F
0006140 4 R E S E T V A R S L S T )
0006160 \0 " 003 002 \0 001 S 021 ! 002 T o \0 \0 \0
0006200 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0
0006220 J 223 \b \0 \0 020 I 020 \0 ( 3 5 Q E R
0006240 R O R ! 3 0 Q R E S E T R E
0006260 S T O R E 1 6 Q E M A C S .
0006300 S E X P R . F W D A 0 0 0 1 ) \r
0006320 ( 2 4 Q E R R O R 1 3 Q I
0006340 N T E R N A L ) \r ( 1 0 Q (
0006360 D U M M Y . F O R . E R R O R S
0006400 E T ) ) \r E M A C S . S E X P R
0006420 . B A C K D 1 \r ( P 1 C L
0006440 O S E . P T R P 0 C H A R
0006460 I 0 S T R E A M F 2
0006500 E M A C S . W S F 3 E M A
0006520 C S . W O R D ) \0 } 002 002 \0 001 021
0006540 001 @ R \n \0 \0 @ \t \0 \0 223 \b \0 \0 277
0006560 @ \t \0 \0 X d d l ) 360 237 277 @ l ( l
0006600 ) \v \0 \0 277 @ \t \0 \0 h 020 l ] 360 236 @
0006620 l [ l ] \v \0 \0 277 @ \t \0 \0 h 020 H d
0006640 l " 360 262 ! 277 @ \t \0 \0 251 @ \t \0 \0 X
0006660 l " 360 262 363 @ \t \0 \0 l % 360 262 031 @ \t
0006700 \0 \0 260 343 o \0 \0 \0 \n \0 \0 223 \b \0 \0 277
0006720 @ S \n \0 \0 @ \t \0 \0 h 020 \0 ( 1 7 1
0006740 Q S K I P . P R E F I X . C H
0006760 A R A C T E R S . B A C K 1 6
0007000 5 Q E M A C S . S K I P . S Y
0007020 N T A X . B A C K 1 5 7 Q E
0007040 R R O R ! 1 5 3 Q M E M B E
0007060 R 1 4 2 Q \ B A C K B I N
0007100 1 3 1 Q E M A C S . B A C K P
0007120 E E K B I N 1 1 7 Q \ B A C
0007140 K B I N 1 1 2 Q E M A C S .
0007160 B O F P 7 4 Q S K I P . P R
0007200 E F I X . C H A R A C T E R S .
0007220 B A C K 6 7 Q E M A C S . B
0007240 A L A N C E D . S E X P R . B A
0007260 C K 5 1 Q S K I P . P R E F
0007300 I X . C H A R A C T E R S . B A
0007320 C K 4 4 Q E M A C S . B A L
0007340 A N C E D . S E X P R . B A C K
0007360 2 4 Q \ B A C K B I N 1 7
0007400 Q E R R O R ! 1 3 Q E M A
0007420 C S . B O F P 7 E M A C S .
0007440 S K I P . S Y N T A X . B A C K
0007460 ) \r N I L \r ( 1 5 0 Q ( 5 0
0007500 Q 1 3 3 Q ) ) \r S K I P . P R
0007520 E F I X . C H A R A C T E R S .
0007540 B A C K D 1 \r ( I 0 S T R
0007560 E A M F 0 E M A C S . W S
0007600 ) \0 + \0 001 \0 001 @ P \n \0 \0 @ \t \0
0007620 \0 263 033 @ \t \0 \0 o \0 \0 \0 \n \0 \0 234 @
0007640 \t \0 \0 277 @ P \n \0 \0 277 260 343 @ P \n \0
0007660 \0 020 \0 ( 5 0 Q E M A C S . S K
0007700 I P . S Y N T A X . F W D 4 0
0007720 Q E M A C S . S K I P . S Y N
0007740 T A X . B A C K 3 2 Q \ B A
0007760 C K B I N 2 5 Q M E M B E R
0010000 1 6 Q E M A C S . B A C K P
0010020 E E K B I N 1 0 Q E M A C S
0010040 . B O F P 4 E M A C S . S K
0010060 I P . S Y N T A X . B A C K ) \r
0010100 N I L \r ( 2 2 Q ( 5 4 Q 1
0010120 3 6 Q 1 3 4 Q 4 7 Q ) ) \r E
0010140 M A C S . B A L A N C E D . S E
0010160 X P R . B A C K A 0 0 0 1 D 1
0010200 \r ( N A M E E R R O R S E T
0010220 L ( 2 E R R O R S E T . W
0010240 1 E R R O R S E T . V 0 E
0010260 R R O R S E T . U ) P 1 C
0010300 H A R P 0 C L O S E . P T
0010320 R F 2 S T R E A M F 3
0010340 E M A C S . L A S T . C L O S
0010360 E . P T R F 4 E M A C S .
0010400 L A S T . S T R E A M . F L A S
0010420 H E D F 5 C L O S E R F
0010440 6 E M A C S . L A S T . C L
0010460 O S E . C H A R A C T E R F
0010500 7 E M A C S . L A S T . C O R
0010520 R E S P O N D I N G . O P E N .
0010540 P T R F 1 0 Q O P E N E R
0010560 ) \0 Q 002 \a \0 003 R \t \0 \0 021 021 001 S
0010600 H \n \0 \0 262 030 T R 360 262 023 U V 360 234 R
0010620 W 016 \n \0 \0 260 . R \t \0 \0 277 R \t \0 \0
0010640 Y W 020 360 262 363 I 243 \b \0 \0 277 R \t \0 \0
0010660 277 H c 006 277 R c \b 277 U c \f 277 R \t \0
0010700 \0 c 016 023 h h 032 020 \0 ( 1 1 0 Q E
0010720 M A C S . G E T F I L E P T R
0010740 6 7 Q \ B A C K B I N 6 2 Q
0010760 E R R O R ! 4 7 Q E M A C
0011000 S . B A C K P E E K B I N 4 2
0011020 Q E M A C S . S E X P R . B A
0011040 C K 3 4 Q E M A C S . S E T
0011060 F I L E P T R 1 3 Q E Q U A
0011100 L 3 E M A C S . G E T F I L
0011120 E P T R ) \r N I L \r ( ) \r E M A
0011140 C S . B A L A N C E D . S E X P
0011160 R . B A C K D 1 \r ( I 2 C
0011200 L O S E R I 1 O P E N E R
0011220 I 0 S T R E A M F 0
0011240 E M A C S . L A S T . S T R E A
0011260 M . F L A S H E D ) \0 020 \0 001 \0
0011300 003 o \0 \0 \0 \t \0 \0 d 244 c \0 \b \0 \0 020
0011320 \0 ( 1 5 Q E R R O R ! 6 E
0011340 M A C S . B A L A N C E D . S E
0011360 X P R . B A C K A 0 0 0 1 ) \r N
0011400 I L \r ( 3 ( D U M M Y . F O
0011420 R . E R R O R S E T ) ) \r E M A
0011440 C S . P A R A . B E G I N N I N
0011460 G D 1 \r ( I 1 P T R I
0011500 0 S T R E A M F 0 E M A
0011520 C S . N O N C R ) \0 023 \0 001 \0 002
0011540 A 225 @ A \n \0 \0 277 @ P \n \0 \0 @ \t \0
0011560 \0 020 \0 ( 2 0 Q E M A C S . G E
0011600 T F I L E P T R 1 4 Q E M A
0011620 C S . S K I P . S Y N T A X . B
0011640 A C K 6 E M A C S . S E T F
0011660 I L E P T R ) \r N I L \r ( ) \r E
0011700 M A C S . P A R A . E N D D 1
0011720 \r ( I 1 P T R I 0 S T
0011740 R E A M F 0 E M A C S . N
0011760 O N C R ) \0 023 \0 001 \0 002 A 225 @ A
0012000 \n \0 \0 277 @ P \n \0 \0 @ \t \0 \0 020 \0 (
0012020 2 0 Q E M A C S . G E T F I L
0012040 E P T R 1 4 Q E M A C S . S
0012060 K I P . S Y N T A X . F W D 6
0012100 E M A C S . S E T F I L E P T
0012120 R ) \r N I L \r ( ) \r E M A C S .
0012140 B O L D 1 \r ( I 1 P T R
0012160 I 0 S T R E A M ) \0 \a \0 \0
0012200 \0 002 @ A \n \0 \0 020 \0 ( 4 E M A C
0012220 S . P A R A . B E G I N N I N G
0012240 ) \r N I L \r ( ) \r E M A C S . E
0012260 O L D 1 \r ( I 1 P T R I
0012300 0 S T R E A M ) \0 \a \0 \0 \0
0012320 002 @ A \n \0 \0 020 \0 ( 4 E M A C S
0012340 . P A R A . E N D ) \r N I L \r (
0012360 ) \r E M A C S . R E G I O N . B
0012400 E G I N N I N G D 1 \r ( I 1
0012420 S E L E C T I O N I 0 S
0012440 T R E A M ) \0 024 \0 \0 \0 002 @ A 265
0012460 \b d 006 \0 \0 311 032 006 \0 \0 311 006 \n \0 \0 020
0012500 \0 ( 2 1 Q E M A C S . S E T C
0012520 A R E T P T R ) \r ( 1 4 Q S E
0012540 L E C T I O N 7 T E X T O B
0012560 J ) \r ( ) \r E M A C S . R E G I
0012600 O N . E N D D 1 \r ( I 1 S
0012620 E L E C T I O N I 0 S T R
0012640 E A M ) \0 024 \0 \0 \0 002 @ A 265 \b d
0012660 006 \0 \0 311 032 006 \0 \0 311 \n \n \0 \0 020 \0 (
0012700 2 1 Q E M A C S . S E T C A R
0012720 E T P T R ) \r ( 1 4 Q S E L E
0012740 C T I O N 7 T E X T O B J )
0012760 \r ( ) \r E M A C S . F I L E N A
0013000 M E D 1 \r ( P 1 U N P A C
0013020 K E D P 0 F I L E N A M E
0013040 I 1 I N C R E M E N T . V
0013060 E R S I O N I 0 S T R E A
0013100 M F 2 V E R S I O N ) \0
0013120 H 002 001 \0 002 @ 006 \0 \0 311 020 006 \0 \0 311 ,
0013140 006 \0 \0 311 004 021 021 001 A 241 H 020 H \t \0 \0
0013160 g \0 \0 \n \0 \0 c 004 277 g \0 \0 R d 005 001
0013200 245 d 005 002 241 005 003 264 \r A g \0 \0 360 243 R
0013220 k 330 200 h g \0 \0 H \f \0 \0 020 \0 ( 1 0
0013240 5 Q P A C K F I L E N A M E
0013260 4 0 Q L I S T G E T 3 2 Q
0013300 U N P A C K F I L E N A M E ) \r
0013320 ( 1 0 1 Q B O D Y 6 7 Q N
0013340 O N E 4 6 Q V E R S I O N
0013360 3 5 Q V E R S I O N 1 5 Q
0013400 S T R E A M 1 0 Q T E X T O
0013420 B J 3 S T R E A M ) \r ( ) \r
0013440 E M A C S . P U T D 1 \r ( P
0013460 3 O F I L E P 2 F I L E
0013500 P 1 O U T N A M E P 0
0013520 T E X T O B J I 2 A L W
0013540 A Y S . W R I T E I 1 D O
0013560 N T . A S K I 0 S T R E A
0013600 M ) \0 245 004 \0 \0 003 @ \t \0 \0 021 1 003
0013620 @ 006 \0 \0 311 020 006 \0 \0 311 . 263 023 B 256 @
0013640 o \0 \0 \0 o \0 \0 \0 \v \0 \0 261 \0 200 A 264
0013660 022 @ \t \0 \0 i 360 247 @ g \0 \0 \n \0 \0 200
0013700 h Z 265 > H 006 \0 \0 311 , 004 ` \0 \0 360 262
0013720 ) H 006 \0 \0 311 , 006 \0 \0 311 004 \t \0 \0 [
0013740 227 K g \0 \0 \n \0 \0 277 H o \0 \0 \0 K d
0013760 222 \t \0 \0 \v \0 \0 207 H o \0 \0 \0 \n \0 \0
0014000 [ \t \0 \0 \t \0 \0 273 @ 006 \0 \0 311 020 K \n
0014020 \0 \0 277 @ o \0 \0 \0 @ \t \0 \0 \n \0 \0 o
0014040 \0 \0 \0 \v \0 \0 277 @ \t \0 \0 h 020 \0 ( 2
0014060 4 1 Q E M A C S . S E T . B U
0014100 F F E R . N A M E 2 3 4 Q T
0014120 E D I T . N O T I F Y 2 2 5 Q
0014140 C O N C A T 2 2 2 Q E M A
0014160 C S . F I L E N A M E 2 1 0 Q
0014200 T E D I T . P U T 1 7 5 Q
0014220 U - C A S E 1 7 2 Q M K A T
0014240 O M 1 6 6 Q T E D I T . G E
0014260 T I N P U T 1 5 5 Q T E D I
0014300 T . G E T I N P U T 1 5 2 Q
0014320 P A C K F I L E N A M E 1 3 6
0014340 Q L I S T P U T 1 2 5 Q U
0014360 N P A C K F I L E N A M E 6 5
0014400 Q E M A C S . F I L E N A M E
0014420 5 3 Q E M A C S . F I L E N
0014440 A M E 4 1 Q T E D I T . N O
0014460 T I F Y 3 T E X T O B J ) \r
0014500 ( 2 0 2 Q S T R E A M 1 3 3
0014520 Q V E R S I O N 1 2 0 Q S
0014540 T R E A M 1 1 3 Q T E X T O
0014560 B J 1 0 4 Q 004 003 S T R E A M
0014600 T Y P E # 7 6 Q T E X T O B
0014620 J 6 2 Q N O N E 1 7 Q T
0014640 E X T O B J 1 2 Q S T R E A
0014660 M ) \r ( 2 3 1 Q ( C L E A R
0014700 W ) 2 1 6 Q " W r i t t e n
0014720 : " 1 6 3 Q " F i l e t
0014740 o P U T t o : " 1 4 4
0014760 Q " F i l e t o P U T t
0015000 o : " 3 6 Q ( C L E A R
0015020 W ) 3 2 Q " ( N o c h a n
0015040 g e s n e e d t o b e w
0015060 r i t t e n ) " ) \r E M A C S .
0015100 G E T D 1 \r ( P 1 W I N D
0015120 O W P 0 F I L E N A M E
0015140 I 1 F I L E N A M E I 0
0015160 S T R E A M ) \0 ? 002 \0 \0 002 A
0015200 265 \n @ o \0 \0 \0 \n \0 \0 \t \0 \0 \t \0 \0
0015220 021 021 001 H d 262 ' \t \0 \0 Y 265 030 @ 006 \0
0015240 \0 311 020 H \n \0 \0 277 @ j \n \0 \0 277 @ \t
0015260 \0 \0 207 \t \0 \0 311 . \t \0 \0 h 020 \0 ( 7
0015300 3 Q T T Y . P R O C E S S 6
0015320 6 Q \ I N S U R E W I N D O W
0015340 6 2 Q E M A C S . S E T . B
0015360 U F F E R . N A M E 5 5 Q E
0015400 M A C S . S E T C A R E T P T R
0015420 4 7 Q T E D I T . G E T 3
0015440 2 Q A L R E A D Y . B E I N G
0015460 . E D I T E D 2 0 Q U - C A
0015500 S E 1 5 Q M K A T O M 1 2
0015520 Q T E D I T . G E T I N P U T
0015540 ) \r ( 4 1 Q S T R E A M ) \r (
0015560 7 " F i l e t o G e t :
0015600 " ) \r E M A C S . S A V E . A
0015620 L L . F I L E S A 0 0 0 1 A 0 0
0015640 0 2 D 1 \r ( N A M E E R R O
0015660 R S E T L ( 2 E R R O R S
0015700 E T . W 1 E R R O R S E T .
0015720 V 0 E R R O R S E T . U )
0015740 F 0 B U F F E R ) \0 017 \0 001
0015760 \0 003 P \t \0 \0 006 \0 \0 311 0 \t \0 \0 i 020
0016000 \0 ( 1 3 Q E M A C S . P U T
0016020 3 T E X T O B J ) \r ( 6 T E
0016040 X T O B J ) \r ( ) \r E M A C S .
0016060 S A V E . A L L . F I L E S A 0
0016100 0 0 1 D 1 \r ( N A M E E R R
0016120 O R S E T L ( 2 E R R O R
0016140 S E T . W 1 E R R O R S E T
0016160 . V 0 E R R O R S E T . U )
0016200 F 0 B U F F E R ) \0 025 \0
0016220 001 \0 003 P \t \0 \0 006 \0 \0 311 . 227 o \0 \0
0016240 \0 i \n \0 \0 i 020 \0 ( 2 1 Q E M A
0016260 C S . S A V E . A L L . F I L E
0016300 S A 0 0 0 1 A 0 0 0 2 3 T E
0016320 X T O B J ) \r ( 6 T E X T O B
0016340 J ) \r ( 1 5 Q ( D U M M Y .
0016360 F O R . E R R O R S E T ) ) \r E
0016400 M A C S . S A V E . A L L . F I
0016420 L E S D 1 \r ( P 0 B U F F
0016440 E R F 1 E M A C S . A L L
0016460 . B U F F E R S ) \0 034 001 001 \0 \0
0016500 Q 215 d 001 021 001 \0 o \0 \0 \0 \t \0 \0 023 002
0016520 003 265 361 g \0 \0 \t \0 \0 h 020 \0 ( 3 0 Q
0016540 P R I N T 1 5 Q E M A C S
0016560 . S A V E . A L L . F I L E S A
0016600 0 0 0 1 ) \r ( 2 5 Q D o n e .
0016620 ) \r ( 1 2 Q ( D U M M Y . F
0016640 O R . E R R O R S E T ) ) \r E M
0016660 A C S . B O F P D 1 \r ( I 0
0016700 S T R E A M ) \0 \b \0 \0 \0 001 @
0016720 \t \0 \0 j 360 020 \0 ( 3 E M A C S .
0016740 G E T F I L E P T R ) \r N I L \r
0016760 ( ) \r E M A C S . E O F P D 1
0017000 \r ( I 0 S T R E A M ) \0 \r
0017020 \0 \0 \0 001 @ \t \0 \0 @ \t \0 \0 331 j 360 020
0017040 \0 ( 7 G E T E O F P T R 3
0017060 E M A C S . G E T F I L E P T R
0017100 ) \r N I L \r ( ) \r E M A C S . D
0017120 E L E T E D 1 \r ( P 1 L E
0017140 N G T H P 0 P T R I 2
0017160 P T R 2 I 1 P T R 1 I
0017200 0 S T R E A M ) \0 W 002 \0 \0
0017220 003 @ \t \0 \0 021 021 001 A d j 360 227 277 B j
0017240 360 221 h 020 A B 361 227 B A b 004 277 b 002 277
0017260 j A 361 241 A 200 j b 002 @ \t \0 \0 d B 361
0017300 221 277 B b 004 d k 330 A 331 Y @ A k 330 I
0017320 \v \0 \0 @ H d A 361 230 d B 361 242 277 A 201
0017340 I 331 \n \0 \0 h 020 \0 ( 1 2 3 Q E M
0017360 A C S . S E T F I L E P T R 1
0017400 0 1 Q T E D I T . D E L E T E
0017420 5 3 Q G E T E O F P T R 3
0017440 E M A C S . G E T F I L E P T
0017460 R ) \r N I L \r ( ) \r E M A C S .
0017500 M A R K . R E G I O N D 1 \r (
0017520 P 0 P T R I 2 P T R 2
0017540 I 1 P T R 1 I 0 S T
0017560 R E A M ) \0 8 001 \0 \0 003 @ \t \0 \0
0017600 021 001 \0 A B 361 227 B A b 004 277 b 002 277 j
0017620 A 361 241 A 200 j b 002 @ \t \0 \0 d B 361 221
0017640 277 B b 004 @ A k 330 B k 330 A 331 i \f \0
0017660 \0 h 020 \0 ( 6 4 Q T E D I T . S
0017700 E T S E L 3 7 Q G E T E O F
0017720 P T R 3 E M A C S . G E T F
0017740 I L E P T R ) \r N I L \r ( ) \r E
0017760 M A C S . I N I T . A R R A Y
0020000 D 1 \r ( F 2 E M A C S . A R
0020020 R A Y F 3 E M A C S . N O
0020040 N C R F 4 E M A C S . W S
0020060 F 5 E M A C S . W O R D
0020100 F 6 E M A C S . N O N W S
0020120 F 7 E M A C S . L A S T . C
0020140 L O S E . C H A R A C T E R F
0020160 1 0 Q E M A C S . C R F
0020200 1 1 Q E M A C S . L A S T . S
0020220 T R E A M . F L A S H E D F
0020240 1 2 Q E M A C S . L A S T . C
0020260 O R R E S P O N D I N G . O P E
0020300 N . P T R F 1 3 Q E M A C
0020320 S . L A S T . C L O S E . P T R
0020340 ) \0 217 002 \n \0 \0 R 255 n 001 \0 g \0 \0
0020360 j d \f \0 \0 c 004 277 l 377 j 021 002 001 I H
0020400 361 254 R I S V 344 * 277 I k 330 Y 260 362 023
0020420 l \t l \n l h 032 032 032 214 d 001 021 001 \0
0020440 R H T S 344 * 023 002 003 265 362 R l \r T W
0020460 020 344 * h c 022 d c 024 d c 026 d c 016 l
0020500 377 j 021 002 001 I H 361 256 R I R I ( U 344
0020520 * 277 I k 330 Y 260 360 023 o \0 \0 \0 260 024 d
0020540 001 021 001 \0 R H R H ( U m 377 346 345 * 023
0020560 002 003 265 355 h 020 \0 ( 1 4 Q A R R A
0020600 Y ) \r ( 7 B Y T E ) \r ( 1 6
0020620 4 Q ( 5 0 Q 5 1 Q 1 3 3 Q
0020640 1 3 5 Q 1 5 Q 1 2 Q 1 1
0020660 Q 4 0 Q 4 7 Q 1 3 6 Q 1
0020700 3 4 Q 5 4 Q 4 2 Q ) ) \r E M
0020720 A C S . S K I P . S Y N T A X .
0020740 F W D D 1 \r ( I 1 C L A S
0020760 S I 0 S T R E A M F 0
0021000 E M A C S . A R R A Y ) \0 030
0021020 \0 001 \0 002 @ \t \0 \0 252 P @ \t \0 \0 ( A
0021040 345 j 360 221 h 020 @ 277 260 353 \0 ( 1 1 Q
0021060 \ P E E K B I N 3 E M A C
0021100 S . E O F P ) \r N I L \r ( ) \r E
0021120 M A C S . S K I P T O . S Y N T
0021140 A X . F W D D 1 \r ( I 1 C
0021160 L A S S I 0 S T R E A M
0021200 F 0 E M A C S . A R R A Y )
0021220 \0 022 \0 001 \0 002 @ \t \0 \0 251 P @ (
0021240 A 345 j 360 263 363 h 020 \0 ( 3 E M A C
0021260 S . E O F P ) \r N I L \r ( ) \r E
0021300 M A C S . S K I P . S Y N T A X
0021320 . B A C K D 1 \r ( I 1 C L
0021340 A S S I 0 S T R E A M F
0021360 0 E M A C S . A R R A Y )
0021400 \0 032 \0 001 \0 002 @ \t \0 \0 252 P @ \t \0 \0
0021420 ( A 345 j 360 221 h 020 @ \t \0 \0 277 260 351 \0
0021440 ( 2 5 Q \ B A C K B I N 1 1
0021460 Q E M A C S . B A C K P E E K
0021500 B I N 3 E M A C S . B O F P
0021520 ) \r N I L \r ( ) \r E M A C S . S
0021540 K I P T O . S Y N T A X . B A C
0021560 K D 1 \r ( I 1 C L A S S
0021600 I 0 S T R E A M F 0 E
0021620 M A C S . A R R A Y ) \0 024 \0 001
0021640 \0 002 @ \t \0 \0 253 P @ \t \0 \0 ( A 345 j
0021660 360 263 361 h 020 \0 ( 1 1 Q \ B A C K
0021700 B I N 3 E M A C S . B O F P
0021720 ) \r N I L \r ( ) \r E M A C S . B
0021740 A C K P E E K B I N D 1 \r ( I
0021760 0 S T R E A M ) \0 016 \0 \0 \0
0022000 001 @ \t \0 \0 j 363 264 006 @ \t \0 \0 020 \0 (
0022020 1 3 Q \ B A C K P E E K B I N
0022040 3 G E T F I L E P T R ) \r N
0022060 I L \r ( ) \r ( P R E T T Y C O M
0022100 P R I N T P R I M I T C O M S
0022120 ) \r ( R P A Q Q P R I M I T C
0022140 O M S ( ( I N I T V A R S (
0022160 E M A C S . A R R A Y N I L )
0022200 ( E M A C S . C R 1 ) ( E
0022220 M A C S . W S 2 ) ( E M A C
0022240 S . N O N C R 4 ) ( E M A C
0022260 S . N O N W S \r 8 ) ( E M A
0022300 C S . W O R D 1 6 ) ) ( F N
0022320 S E M A C S . S E T C A R E T
0022340 P T R E M A C S . S E T F I L
0022360 E P T R E M A C S . S H O W C
0022400 A R E T E M A C S . G E T F I
0022420 L E P T R \r E M A C S . N U M
0022440 E R I C . A R G E M A C S . N
0022460 U M E R I C . A R G . P E M A
0022500 C S . C H A R . F W D E M A C
0022520 S . C H A R . B A C K E M A C
0022540 S . P O I N T E M A C S . W O
0022560 R D . F W D \r E M A C S . W O
0022600 R D . B A C K E M A C S . W O
0022620 R D . E N D E M A C S . W O R
0022640 D . B E G I N N I N G E M A C
0022660 S . S E X P R . F W D E M A C
0022700 S . S E X P R . B A C K \r S K
0022720 I P . P R E F I X . C H A R A C
0022740 T E R S . B A C K E M A C S .
0022760 B A L A N C E D . S E X P R . B
0023000 A C K E M A C S . P A R A . B
0023020 E G I N N I N G E M A C S . P
0023040 A R A . E N D E M A C S . B O
0023060 L \r E M A C S . E O L E M A
0023100 C S . R E G I O N . B E G I N N
0023120 I N G E M A C S . R E G I O N
0023140 . E N D E M A C S . F I L E N
0023160 A M E E M A C S . P U T E M
0023200 A C S . G E T \r E M A C S . S
0023220 A V E . A L L . F I L E S E M
0023240 A C S . B O F P E M A C S . E
0023260 O F P E M A C S . D E L E T E
0023300 E M A C S . M A R K . R E G I
0023320 O N E M A C S . I N I T . A R
0023340 R A Y \r E M A C S . S K I P .
0023360 S Y N T A X . F W D E M A C S
0023400 . S K I P T O . S Y N T A X . F
0023420 W D E M A C S . S K I P . S Y
0023440 N T A X . B A C K E M A C S .
0023460 S K I P T O . S Y N T A X . B A
0023500 C K \r E M A C S . B A C K P E
0023520 E K B I N ) ) ) \r ( R P A Q ?
0023540 E M A C S . A R R A Y N I L )
0023560 \r ( R P A Q ? E M A C S . C R
0023600 1 ) \r ( R P A Q ? E M A C S
0023620 . W S 2 ) \r ( R P A Q ? E M
0023640 A C S . N O N C R 4 ) \r ( R P
0023660 A Q ? E M A C S . N O N W S
0023700 8 ) \r ( R P A Q ? E M A C S .
0023720 W O R D 1 6 ) \r ( P U T P R O
0023740 P S P R I M I T . F P K G C
0023760 O P Y R I G H T ( " X e r o x
0024000 C o r p o r a t i o n " 1 9
0024020 8 4 ) ) \r N I L \r
0024031