$ od -c -N 50000 [phylum]<LISP>KOTO>Lispusers>GLISPGEVAUX.DCOM!1
0000000 ( F I L E C R E A T E D " 1 7
0000020 - J a n - 8 5 0 8 : 4 9 : 2 4
0000040 " ( " c o m p i l e d o n
0000060 " { D A N T E } < L I S P U S
0000100 E R S > G L I S P > G E V A U X
0000120 . D O L ; 1 ) \r " 2 0 - D e c
0000140 - 8 4 1 2 : 0 7 : 2 2 " t c
0000160 o m p l ' d i n " I N T E R
0000200 L I S P - D 2 0 - D e c - 8 4
0000220 . . . " d a t e d " 2 0 -
0000240 D e c - 8 4 1 2 : 1 6 : 5 7 "
0000260 ) \r ( F I L E C R E A T E D "
0000300 1 1 - A U G - 8 3 1 6 : 5 9 :
0000320 4 0 " { D S K } G E V A U X .
0000340 L S P ; 1 3 6 7 2 5 c h a n
0000360 g e s t o : ( V A R S G E
0000400 V A U X C O M S ) ( F N S \r
0000420 G E V S Y S T E M I N I T ) p
0000440 r e v i o u s d a t e : "
0000460 7 - A U G - 8 3 1 6 : 1 5 : 5
0000500 5 " { D S K } G E V A U X . L
0000520 S P ; 1 2 ) \r G E V A P P L Y
0000540 D 1 \r ( I 1 A R G S I 0
0000560 F N ) \0 \a \0 \0 \0 002 @ A \n \0 \0
0000600 020 \0 ( 4 A P P L Y ) \r N I L \r
0000620 ( ) \r G E V B U T T O N E V E N
0000640 T F N D 1 \r ( P 6 A R E A
0000660 P 4 N P 3 T O P P
0000700 2 T M P P 1 S E L E C
0000720 T I O N P 0 P O S ) 001
0000740 \a \0 \0 \0 021 ` 005 \b \0 \0 \b \0 \0 277 ` \0
0000760 \0 \t \0 \0 ` \0 \0 \t \0 \0 h 032 032 X \b \0
0001000 \0 277 ` \0 \0 l 004 345 j 360 264 003 202 261 \0 277
0001020 ` \0 \0 265 @ H ` \0 \0 001 \n \0 \0 027 \0 \0
0001040 d 242 261 \0 252 001 021 001 006 ` \0 \0 N 001 001 N
0001060 001 002 001 ` \0 \0 N 001 001 N 001 002 001 N 002 001
0001100 001 N 002 001 002 001 g \0 \0 g \0 \0 \r \n \0 \0
0001120 023 260 z 001 275 H 001 M 001 001 375 361 263 q H 001
0001140 M 001 001 M 002 001 001 330 361 263 d H 002 001 M 001
0001160 002 001 375 361 263 Y H 002 001 M 001 002 001 M 002 001
0001200 002 001 330 361 263 I ` \0 \0 271 h 027 \0 \0 277 I
0001220 001 021 001 006 ` \0 \0 N 001 001 N 001 002 001 ` \0
0001240 \0 N 001 001 N 001 002 001 N 002 001 001 N 002 001 002
0001260 001 g \0 \0 g \0 \0 \r \n \0 \0 023 I 002 001 I
0001300 002 002 002 001 I 002 002 001 \v \0 \0 h 020 ` \0 \0
0001320 001 021 001 006 ` \0 \0 N 001 001 N 001 002 001 ` \0
0001340 \0 N 001 001 N 001 002 001 N 002 001 001 N 002 001 002
0001360 001 g \0 \0 g \0 \0 \r \n \0 \0 023 h 027 \0 \0
0001400 277 260 312 \0 ( 4 2 6 Q B I T B L T
0001420 3 4 6 Q G E V I T E M E V E
0001440 N T F N 3 2 6 Q B I T B L T
0001460 1 5 3 Q B I T B L T 7 0 Q
0001500 G E V F I N D P O S 3 4 Q
0001520 G E T M O U S E S T A T E 2 5
0001540 Q L A S T M O U S E Y 1 7 Q
0001560 L A S T M O U S E X 1 0 Q
0001600 G E T M O U S E S T A T E 5
0001620 G E T M O U S E S T A T E ) \r (
0001640 4 3 3 Q G E V M O U S E A R E
0001660 A 4 2 2 Q R E P L A C E 4
0001700 1 7 Q I N V E R T 3 7 4 Q
0001720 G E V W I N D O W 3 6 2 Q G
0001740 E V W I N D O W 3 5 3 Q G E
0001760 V M O U S E A R E A 3 2 2 Q
0002000 R E P L A C E 3 1 7 Q I N V
0002020 E R T 2 7 4 Q G E V W I N D
0002040 O W 2 6 2 Q G E V W I N D O
0002060 W 2 5 1 Q G E V M O U S E A
0002100 R E A 2 4 4 Q G E V M O U S
0002120 E A R E A 1 4 7 Q R E P L A
0002140 C E 1 4 4 Q I N V E R T 1
0002160 2 1 Q G E V W I N D O W 1 0
0002200 7 Q G E V W I N D O W 7 3 Q
0002220 G E V M O U S E A R E A 6 4
0002240 Q G E V E D I T C H A I N 5
0002260 6 Q G E V M O U S E A R E A
0002300 4 0 Q L A S T M O U S E B U T
0002320 T O N S 2 2 Q G E V W I N D
0002340 O W 1 4 Q G E V W I N D O W
0002360 ) \r ( ) \r G E V C O N C A T D
0002400 1 \r ( I 0 L ) \0 \t \0 \0 \0 001
0002420 g \0 \0 @ \n \0 \0 020 \0 ( 6 A P P L
0002440 Y ) \r ( 2 C O N C A T ) \r ( )
0002460 \r G E V E N T E R D 1 \r N I L
0002500 \0 003 \0 \0 \0 \0 h 020 \0 N I L \r N I
0002520 L \r ( ) \r G E V E N T E R P R I
0002540 N T D 1 \r N I L \0 003 \0 \0 \0 \0
0002560 h 020 \0 N I L \r N I L \r ( ) \r G E
0002600 V E X I T D 1 \r N I L \0 003 \0
0002620 \0 \0 \0 h 020 \0 N I L \r N I L \r ( )
0002640 \r G E V E X I T P R I N T D 1
0002660 \r N I L \0 003 \0 \0 \0 \0 h 020 \0 N I
0002700 L \r N I L \r ( ) \r G E V I N I T
0002720 E D I T W I N D O W D 1 \r ( P
0002740 4 G E V M E N U P 3 H
0002760 E I G H T P 2 W I D T H
0003000 P 1 B O T T O M P 0 L
0003020 E F T ) \0 331 \b \0 \0 \0 n 002 X l 310
0003040 n 001 , n 001 220 021 D \a H I J K h 032 032
0003060 032 032 o \0 \0 \0 \n \0 \0 027 \0 \0 h 027 \0 \0
0003100 ` \0 \0 g \0 \0 g \0 \0 \v \0 \0 ` \0 \0 g
0003120 \0 \0 g \0 \0 \v \0 \0 l ( 027 \0 \0 H I `
0003140 \0 \0 331 J ` \0 \0 h 032 032 032 032 h j \v \0
0003160 \0 027 \0 \0 h _ 016 277 ` \0 \0 037 d o \0 \0
0003200 \0 024 004 277 d i 024 \f 277 d l 002 024 006 277 g
0003220 \0 \0 l \n g \0 \0 \v \0 \0 275 d M 024 020 277
0003240 d g \0 \0 024 026 277 d g \0 \0 024 277 d g
0003260 \0 \0 024 034 277 j d n 177 377 d h 032 032 032 032
0003300 276 d N 024 \n 277 _ 016 d 006 \0 \0 311 \n 002 002
0003320 002 l 017 030 277 O 016 006 \0 \0 311 \n 002 002 J l
0003340 004 333 l 002 331 030 277 \ d ` \0 \0 \n \0 \0 `
0003360 \0 \0 020 \0 ( 3 2 3 Q A D D M E N
0003400 U 1 7 6 Q F O N T C R E A T
0003420 E 1 2 5 Q C R E A T E W 7
0003440 4 Q P U T W I N D O W P R O P
0003460 6 0 Q P U T W I N D O W P R
0003500 O P 3 5 Q C R E A T E W ) \r
0003520 ( 3 2 6 Q G E V W I N D O W
0003540 3 2 0 Q G E V M E N U W I N D
0003560 O W 2 7 6 Q M E N U 2 6 0
0003600 Q M E N U 2 2 6 Q D E F A
0003620 U L T M E N U H E L D F N 2 1
0003640 7 Q C L R P R O M P T 2 1 0
0003660 Q G E V C O M M A N D F N 1
0003700 7 3 Q B O L D 1 6 6 Q H E
0003720 L V E T I C A 1 3 7 Q 004 003 M
0003740 E N U T Y P E # 1 3 0 Q G E
0003760 V M E N U W I N D O W 1 1 3 Q
0004000 G E V M E N U W I N D O W H E
0004020 I G H T 1 0 6 Q G E V M E N
0004040 U W I N D O W H E I G H T 1 0
0004060 1 Q G E V M E N U W I N D O W
0004100 H E I G H T 7 1 Q G E V M O
0004120 V E W I N D O W F N 6 6 Q M
0004140 O V E F N 6 3 Q G E V W I N
0004160 D O W 5 5 Q G E V B U T T O
0004200 N E V E N T F N 5 2 Q B U T
0004220 T O N E V E N T F N 4 7 Q G
0004240 E V W I N D O W 4 4 Q G E V
0004260 M O U S E A R E A 4 0 Q G E
0004300 V W I N D O W ) \r ( 1 4 5 Q
0004320 ( Q U I T P O P E D I T P
0004340 R O G R A M P R O P A D J
0004360 I S A M S G ) 3 2 Q " G E
0004400 V S t r u c t u r e E d i t
0004420 o r W i n d o w " ) \r G E V M
0004440 O U S E L O O P D 1 \r N I L
0004460 \0 003 \0 \0 \0 \0 h 020 \0 N I L \r N I L
0004500 \r ( ) \r G E V M O V E W I N D O
0004520 W F N D 1 \r ( I 1 N E W P
0004540 O S I 0 W ) \0 022 \0 \0 \0 002
0004560 ` \0 \0 A 001 A 002 ` \0 \0 331 032 \n \0 \0 h
0004600 020 \0 ( 1 6 Q M O V E W ) \r ( 1
0004620 1 Q G E V M E N U W I N D O W
0004640 H E I G H T 2 G E V M E N U
0004660 W I N D O W ) \r ( ) \r G E V P U
0004700 T D D 1 \r ( I 1 D E F I
0004720 0 F N ) \0 \a \0 \0 \0 002 @ A \n
0004740 \0 \0 020 \0 ( 4 P U T D ) \r N I L
0004760 \r ( ) \r G E V S T R I N G I F Y
0005000 D 1 \r ( L ( 0 X ) ) \0 003
0005020 \0 \0 \0 001 @ 020 \0 N I L \r N I L \r (
0005040 ) \r G E V S Y S T E M I N I T
0005060 D 1 \r ( F 0 W I N D O W C H
0005100 A R W I D T H ) \0 006 \0 001 \0 \0 l
0005120 \a c \0 020 \0 N I L \r N I L \r ( ) \r
0005140 P I C T U R E - G E V D I S P L
0005160 A Y D 1 \r ( P 3 N E W Y
0005200 P 2 N E W X P 1 P H T
0005220 P 0 P W D I 2 Y M A
0005240 X I 1 W I N D O W I 0
0005260 P I C T U R E F 4 Y )
0005300 \0 u 004 001 \0 003 021 @ 003 B l 024 325 h @ \n
0005320 \0 \0 002 002 002 001 \n \0 \0 Y h A \n \0 \0 002
0005340 002 001 l 024 331 h @ \n \0 \0 002 002 001 \n \0 \0
0005360 X h A \n \0 \0 002 002 001 H 325 l 002 327 Z B
0005400 I 325 l \n 325 [ @ j d 032 \n \0 \0 @ k d
0005420 A J K H I g \0 \0 g \0 \0 \r \n \0 \0 @
0005440 h A \n \0 \0 J 324 h A \n \0 \0 K 324 032 \n
0005460 \0 \0 K l \f 325 c \b h 020 \0 ( 1 5 3 Q
0005500 M O V E W 1 4 5 Q D S P Y
0005520 O F F S E T 1 3 6 Q D S P X
0005540 O F F S E T 1 3 0 Q B I T B
0005560 L T 1 0 6 Q M O V E W 5 7
0005600 Q D S P C L I P P I N G R E G
0005620 I O N 5 1 Q M I N 4 3 Q
0005640 D S P C L I P P I N G R E G I O
0005660 N 3 0 Q D S P C L I P P I N
0005700 G R E G I O N 2 2 Q M I N
0005720 1 3 Q D S P C L I P P I N G R
0005740 E G I O N ) \r ( 1 2 4 Q R E P
0005760 L A C E 1 2 1 Q I N P U T )
0006000 \r ( ) \r P R I N C D 1 \r ( I
0006020 0 X ) \0 006 \0 \0 \0 001 @ \t \0 \0 020
0006040 \0 ( 3 P R I N 1 ) \r N I L \r (
0006060 ) \r ( P R E T T Y C O M P R I N
0006100 T G E V A U X C O M S ) \r ( R
0006120 P A Q Q G E V A U X C O M S
0006140 ( ( G L I S P C O N S T A N T S
0006160 G E V N U M B E R C H A R S
0006200 G E V N U M B E R P O S G E V
0006220 W I N D O W T O P M A R G I N )
0006240 ( F N S G E V A P P L Y \r
0006260 G E V B U T T O N E V E N T F N
0006300 G E V C O N C A T G E V E N
0006320 T E R G E V E N T E R P R I N
0006340 T G E V E X I T G E V E X I
0006360 T P R I N T G E V I N I T E D
0006400 I T W I N D O W G E V M O U S
0006420 E L O O P \r G E V M O V E W I
0006440 N D O W F N G E V P U T D G
0006460 E V S T R I N G I F Y G E V S
0006500 Y S T E M I N I T P I C T U R
0006520 E - G E V D I S P L A Y P R I
0006540 N C ) ( P ( G E V S Y S T E
0006560 M I N I T ) ) ( \r D E C L A R
0006600 E : D O N T E V A L @ L O A D
0006620 D O E V A L @ C O M P I L E
0006640 D O N T C O P Y C O M P I L E
0006660 R V A R S ( A D D V A R S (
0006700 N L A M A ) ( N L A M L ) (
0006720 L A M A ) ) ) ) ) \r ( G L I S P
0006740 C O N S T A N T S ( G E V N U
0006760 M B E R C H A R S 0 I N T E
0007000 G E R ) ( G E V N U M B E R P
0007020 O S 3 I N T E G E R ) ( G
0007040 E V W I N D O W T O P M A R G I
0007060 N 1 0 I N T E G E R ) ) \r (
0007100 G E V S Y S T E M I N I T ) \r N
0007120 I L \r
0007123