$ od -c -N 50000 [eris]<Lisp>Harmony>Library>PEANO.DCOM!1
0000000 ( F I L E C R E A T E D " 3 1
0000020 - M A Y - 8 2 1 3 : 3 3 : 1 4
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P C
0000100 O R E > D E M O > P E A N O . ;
0000120 5 ) \r " 2 0 - M A Y - 8 2 1
0000140 5 : 5 3 : 1 9 " r e c o m p i
0000160 l e d e x p r s : P E A N O
0000200 1 i n " N T E R L I S P - D
0000220 " d a t e d " 2 0 - M A Y
0000240 - 8 2 1 6 : 0 1 : 3 9 " ) \r (
0000260 F I L E C R E A T E D " 3 1 -
0000300 M A Y - 8 2 1 3 : 3 3 : 0 7 "
0000320 { P H Y L U M } < L I S P C O
0000340 R E > D E M O > P E A N O . ; 5
0000360 2 7 3 8 c h a n g e s t o
0000400 : P E A N O C O M S \r P E A
0000420 N O S C A L E P L O T P E A
0000440 N O S T E P P E A N O D E M O
0000460 P E A N O 1 p r e v i o u s
0000500 d a t e : " 3 1 - M A Y - 8
0000520 2 1 1 : 2 9 : 4 4 " \r { P H
0000540 Y L U M } < L I S P C O R E > D
0000560 E M O > P E A N O . ; 1 ) \r P E
0000600 A N O D E M O D 1 \r ( I 1
0000620 S C A L E I 0 L E V E L )
0000640 \0 f \0 \0 \0 002 @ 244 l \a b \0 277 A 265
0000660 Y ` \0 \0 d 005 001 241 005 002 245 l 003 027 \0 \0
0000700 277 ` \0 \0 d 004 ` \0 \0 360 263 036 277 n 002 p
0000720 n 001 222 n 001 214 n 001 226 h 032 032 032 032 o \0
0000740 \0 \0 \n \0 \0 027 \0 \0 \t \0 \0 277 ` \0 \0 d
0000760 ` \0 \0 \v \0 \0 k 027 \0 \0 d 027 \0 \0 j 027
0001000 \0 \0 @ k \n \0 \0 020 j 330 260 263 \0 ( 1 3
0001020 7 Q P E A N O 1 1 1 6 Q M
0001040 O V E T O 1 0 3 Q C L E A R
0001060 W 7 5 Q C R E A T E W ) \r (
0001100 1 3 2 Q O R I E N T 1 2 6 Q
0001120 Y N O W 1 2 2 Q X N O W
0001140 1 1 3 Q P E A N O W I N D O W
0001160 1 0 7 Q P E A N O S C A L E
0001200 1 0 0 Q P E A N O W I N D O
0001220 W 4 1 Q 004 003 W I N D O W T Y
0001240 P E # 3 4 Q P E A N O W I N
0001260 D O W 3 0 Q P E A N O S C A
0001300 L E 1 4 Q P E A N O S C A L
0001320 E ) \r ( 7 2 Q " P e a n o c
0001340 u r v e s " ) \r P E A N O R O T
0001360 A T E D 1 \r ( L ( 0 D I R
0001400 E C T I O N ) ) \0 ' \0 \0 \0 001 `
0001420 \0 \0 @ 330 027 \0 \0 d l 003 361 227 d l 004 331
0001440 027 \0 \0 020 j ` \0 \0 361 264 \v ` \0 \0 l 004
0001460 330 027 \0 \0 020 \0 N I L \r ( 4 4 Q O
0001500 R I E N T 3 6 Q O R I E N T
0001520 3 0 Q O R I E N T 2 3 Q
0001540 O R I E N T 7 O R I E N T
0001560 2 O R I E N T ) \r N I L \r P E
0001600 A N O 1 D 1 \r ( I 1 H A N
0001620 D I 0 L E V E L ) \0 223 \0
0001640 \0 \0 002 @ d k 360 262 025 277 ` \0 \0 j ` \0
0001660 \0 g \0 \0 ` \0 \0 \r 005 \0 \0 020 k 331 b \0
0001700 A \t \0 \0 @ j A 331 \n \0 \0 \b \0 \0 ` \0
0001720 \0 j ` \0 \0 g \0 \0 ` \0 \0 \r 005 \0 \0 \b
0001740 \0 \0 j A 331 \t \0 \0 @ A \n \0 \0 \b \0 \0
0001760 ` \0 \0 j ` \0 \0 g \0 \0 ` \0 \0 \r 005 \0
0002000 \0 \b \0 \0 @ A \n \0 \0 j A 331 \t \0 \0 \b
0002020 \0 \0 ` \0 \0 j ` \0 \0 g \0 \0 ` \0 \0 \r
0002040 005 \0 \0 \b \0 \0 @ j A 331 \n \0 \0 A \t \0
0002060 \0 \b \0 \0 020 \0 ( 2 2 0 Q B L O C
0002100 K 2 1 5 Q P E A N O R O T A
0002120 T E 2 1 1 Q P E A N O 1 2
0002140 0 2 Q P E A N O S T E P 1 7
0002160 7 Q R E L D R A W T O 1 5 6
0002200 Q P E A N O S T E P 1 5 3 Q
0002220 P E A N O R O T A T E 1 4 5
0002240 Q P E A N O 1 1 4 0 Q P E
0002260 A N O S T E P 1 3 5 Q R E L
0002300 D R A W T O 1 1 4 Q P E A N
0002320 O S T E P 1 1 1 Q P E A N O
0002340 1 1 0 4 Q P E A N O R O T A
0002360 T E 7 6 Q P E A N O S T E P
0002400 7 3 Q R E L D R A W T O 5
0002420 2 Q P E A N O S T E P 4 7 Q
0002440 P E A N O 1 4 0 Q P E A N
0002460 O R O T A T E 2 7 Q R E L D
0002500 R A W T O ) \r ( 1 7 3 Q P E A
0002520 N O W I N D O W 1 7 0 Q R E
0002540 P L A C E 1 6 5 Q P E A N O
0002560 S C A L E 1 6 1 Q P E A N O
0002600 S C A L E 1 3 1 Q P E A N O
0002620 W I N D O W 1 2 6 Q R E P L
0002640 A C E 1 2 3 Q P E A N O S C
0002660 A L E 1 1 7 Q P E A N O S C
0002700 A L E 6 7 Q P E A N O W I N
0002720 D O W 6 4 Q R E P L A C E
0002740 6 1 Q P E A N O S C A L E 5
0002760 5 Q P E A N O S C A L E 2 3
0003000 Q P E A N O W I N D O W 2 0
0003020 Q R E P L A C E 1 5 Q P E
0003040 A N O S C A L E 1 1 Q P E A
0003060 N O S C A L E ) \r N I L \r P E A
0003100 N O S T E P D 1 \r N I L \0 _
0003120 \0 \0 \0 \0 ` \0 \0 d j 360 232 277 ` \0 \0 k
0003140 330 027 \0 \0 260 < d k 360 232 277 ` \0 \0 k 330
0003160 027 \0 \0 260 ) d l 002 360 232 277 ` \0 \0 k 331
0003200 027 \0 \0 260 035 l 003 360 230 ` \0 \0 k 331 027 \0
0003220 \0 211 o \0 \0 \0 ` \0 \0 \n \0 \0 277 ` \0 \0
0003240 ` \0 \0 332 ` \0 \0 ` \0 \0 332 ` \0 \0 \v \0
0003260 \0 020 \0 ( 1 3 4 Q M O V E T O
0003300 1 0 7 Q E R R O R ) \r ( 1 3 1
0003320 Q P E A N O W I N D O W 1 2
0003340 5 Q P E A N O S C A L E 1 2
0003360 2 Q Y N O W 1 1 6 Q P E A
0003400 N O S C A L E 1 1 3 Q X N O
0003420 W 1 0 4 Q O R I E N T 7 4
0003440 Q Y N O W 6 7 Q Y N O W
0003460 5 6 Q X N O W 5 1 Q X N O
0003500 W 3 6 Q Y N O W 3 1 Q Y
0003520 N O W 1 7 Q X N O W 1 2 Q
0003540 X N O W 2 O R I E N T ) \r
0003560 ( 1 0 1 Q " S t e p : s t r
0003600 a n g e d i r e c t i o n " )
0003620 \r ( P R E T T Y C O M P R I N T
0003640 P E A N O C O M S ) \r ( R P A
0003660 Q Q P E A N O C O M S ( ( F
0003700 N S P E A N O D E M O P E A
0003720 N O R O T A T E P E A N O 1
0003740 P E A N O S T E P ) ( M A C R
0003760 O S P L O T ) ( G L O B A L
0004000 V A R S X N O W Y N O W \r
0004020 O R I E N T P E A N O S C A L
0004040 E P E A N O W I N D O W ) (
0004060 V A R S P E A N O S C A L E
0004100 ( P E A N O W I N D O W N I L
0004120 ) ) ) ) \r ( P U T P R O P S P
0004140 L O T M A C R O ( N I L (
0004160 R E L D R A W T O P E A N O S
0004200 C A L E 0 P E A N O S C A L
0004220 E ( Q U O T E R E P L A C E
0004240 ) P E A N O W I N D O W ) ) )
0004260 \r ( R P A Q Q P E A N O S C A
0004300 L E 3 ) \r ( R P A Q Q P E A
0004320 N O W I N D O W N I L ) \r N I
0004340 L \r
0004342