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