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