$ od -c -N 50000 [eris]<LispCore>busmaster>TOGMENU.DCOM!1
0000000 ( F I L E C R E A T E D " 1 2
0000020 - A p r - 8 5 1 7 : 1 4 : 1 1
0000040 " ( " c o m p i l e d o n
0000060 " { D S K } < L I S P F I L E
0000100 S > H T H O M P S O N > T O G M
0000120 E N U . ; 1 2 ) \r " 1 9 - M a
0000140 r - 8 5 1 4 : 3 4 : 1 7 " r
0000160 e c o m p i l e d e x p r s :
0000200 T o g M e n u i n " I N T
0000220 E R L I S P - D 1 9 - M a r -
0000240 8 5 . . . " d a t e d \r "
0000260 1 9 - M a r - 8 5 1 4 : 4 8 :
0000300 3 5 " ) \r ( F I L E C R E A T E
0000320 D " 1 2 - A p r - 8 5 1 7 :
0000340 1 3 : 4 5 " { D S K } < L I S
0000360 P F I L E S > H T H O M P S O N
0000400 > T O G M E N U . ; 1 2 7 5 6
0000420 0 c h a n g e s t o : ( F
0000440 N S T o g M e n u \r T o g M
0000460 e n u R e s e t \ T o g M e n
0000500 u B u t t o n F n ) ( R E C O
0000520 R D S T o g M e n u I t e m )
0000540 p r e v i o u s d a t e :
0000560 " 1 0 - A p r - 8 5 1 9 : 5 3
0000600 : 4 6 " \r { D S K } < L I S P
0000620 F I L E S > H T H O M P S O N >
0000640 T O G M E N U . ; 8 ) \r M a k e
0000660 T o g M e n u D 1 \r ( I 0
0000700 i t e m s ) \0 \v \0 \0 \0 001 ` \0 \0
0000720 037 d @ 024 \0 277 020 \0 N I L \r ( 2 004
0000740 003 T o g M e n u T Y P E # ) \r (
0000760 ) \r T o g M e n u D 1 \r ( P
0001000 1 0 Q w i n d o w P 7 w
0001020 i d t h P 6 h e i g h t
0001040 P 5 i t P 4 i t e m
0001060 I 6 m i n W i d t h I 5
0001100 d o n t O p e n I 4 o r
0001120 g Y I 3 o r g X I 2
0001140 f o n t I 1 t i t l e I
0001160 0 t o g M e n u F 1 1 Q
0001200 W i n d o w T i t l e D i s p
0001220 l a y S t r e a m ) 001 s \t 001 \0
0001240 \a B \t \0 \0 A \n \0 \0 g \0 \0 @ 006 \0 \0
0001260 311 \0 021 Q 005 H 003 265 003 202 261 \0 202 I 022 A
0001300 d 232 h W 022 \n \0 \0 \n \0 \0 h 032 F d 221
0001320 h 032 \n \0 \0 \n \0 \0 \n \0 \0 \t \0 \0 021 022
0001340 \b @ 006 \0 \0 311 006 242 261 \0 230 @ 006 \0 \0 311
0001360 006 C 265 G @ 006 \0 \0 311 006 \t \0 \0 311 006 001
0001400 @ 006 \0 \0 311 006 \t \0 \0 311 006 002 001 O 016 N
0001420 \f \0 \0 \n \0 \0 277 @ 006 \0 \0 311 006 g \0 \0
0001440 A \v \0 \0 277 E 231 @ 006 \0 \0 311 006 \t \0 \0
0001460 277 @ 006 \0 \0 311 006 260 m D 260 323 001 \ d 003
0001500 227 d 002 002 002 002 001 263 - 003 222 L 001 200 L ]
0001520 \t \0 \0 d g \0 \0 360 225 277 M \t \0 \0 213 g
0001540 \0 \0 360 221 j 204 M B \n \0 \0 273 J 265 016 K
0001560 h 032 Z Y 277 H 002 X 261 377 > K & Z 260 366
0001600 C 265 003 202 261 \0 206 O 016 N h d d o \0 \0
0001620 \0 h 032 A \n \0 \0 \t \0 \0 \r 006 \0 \0 A h
0001640 E \f \0 \0 _ 020 d g \0 \0 g \0 \0 \v \0 \0
0001660 O 020 g \0 \0 g \0 \0 \v \0 \0 O 020 g \0 \0
0001700 g \0 \0 \v \0 \0 O 020 g \0 \0 @ \v \0 \0 O
0001720 020 g \0 \0 g \0 \0 \v \0 \0 B O 020 \n \0 \0
0001740 @ 006 \0 \0 O 020 024 006 @ 006 \0 \0 311 002 254 @
0001760 006 \0 \0 @ 006 \0 \0 311 \0 024 002 277 @ \t \0 \0
0002000 E 244 O 020 \t \0 \0 O 020 020 D O 016 N \f \0
0002020 \0 260 215 \0 ( 5 5 7 Q C R E A T E
0002040 R E G I O N 5 4 5 Q R E D I
0002060 S P L A Y W 5 3 6 Q \ S e t
0002100 T o g M e n u V a l u e 4 7 6
0002120 Q D S P F O N T 4 7 0 Q P
0002140 U T W I N D O W P R O P 4 5 5
0002160 Q P U T W I N D O W P R O P
0002200 4 4 4 Q P U T W I N D O W P R
0002220 O P 4 3 1 Q P U T W I N D O
0002240 W P R O P 4 1 6 Q P U T W I
0002260 N D O W P R O P 4 0 2 Q C R
0002300 E A T E W 3 7 4 Q G E T B O
0002320 X R E G I O N 3 7 0 Q P A C
0002340 K 3 6 5 Q \ N C O N C 2 3
0002360 1 1 Q S T R I N G W I D T H
0002400 2 7 4 Q B I T M A P W I D T H
0002420 2 6 1 Q T Y P E N A M E 2
0002440 1 6 Q C L O S E W 2 0 2 Q
0002460 P U T W I N D O W P R O P 1 6
0002500 4 Q S H A P E W 1 6 1 Q C
0002520 R E A T E R E G I O N 1 4 7 Q
0002540 \ I N S U R E W I N D O W 1
0002560 3 3 Q \ I N S U R E W I N D O
0002600 W 7 4 Q W I D T H I F W I N
0002620 D O W 7 1 Q A P P L Y 6 6
0002640 Q \ N C O N C 2 6 3 Q \ N
0002660 C O N C 2 5 1 Q S T R I N G
0002700 W I D T H 4 6 Q D S P F O N
0002720 T 7 H E I G H T I F W I N D
0002740 O W 3 F O N T H E I G H T )
0002760 \r ( 5 2 5 Q T o g M e n u 5
0003000 2 1 Q T o g M e n u 5 1 2 Q
0003020 T o g M e n u 5 0 2 Q T o
0003040 g M e n u 4 6 5 Q \ T o g M
0003060 e n u R e p a i n t F n 4 6 2
0003100 Q R E P A I N T F N 4 5 1 Q
0003120 T o g g l e M e n u 4 4 1 Q
0003140 \ T o g M e n u B u t t o n F
0003160 n 4 3 6 Q C U R S O R M O V
0003200 E D F N 4 2 6 Q \ T o g M e
0003220 n u B u t t o n F n 4 2 3 Q
0003240 C U R S O R I N F N 4 1 3 Q
0003260 \ T o g M e n u B u t t o n F n
0003300 4 1 0 Q B U T T O N E V E N
0003320 T F N 3 0 0 Q L I S T P 2
0003340 6 5 Q B I T M A P 2 2 3 Q
0003360 T o g M e n u 2 1 1 Q T o g
0003400 M e n u 1 7 6 Q T I T L E
0003420 1 7 1 Q T o g M e n u 1 4 2
0003440 Q T o g M e n u 1 2 6 Q T
0003460 o g M e n u 1 1 5 Q T o g M
0003500 e n u 1 0 3 Q T o g M e n u
0003520 1 6 Q T o g M e n u 1 2 Q
0003540 M A X ) \r ( 3 5 7 Q " P l
0003560 e a s e i n d i c a t e p o
0003600 s i t i o n f o r t o g g l
0003620 e m e n u " ) \r T o g M e n
0003640 u R e s e t D 1 \r ( I 2 s
0003660 e t I 1 s t a t e I 0
0003700 t o g M e n u ) \0 F \0 \0 \0 003
0003720 B 227 @ 006 \0 \0 B 024 \0 207 @ 006 \0 \0 311 \0
0003740 b 004 277 @ 006 \0 \0 A 265 023 B 024 002 @ \t \0
0003760 \0 @ 006 \0 \0 311 006 \t \0 \0 020 B \n \0 \0 265
0004000 354 A B \n \0 \0 262 344 A B \n \0 \0 B \n \0
0004020 \0 265 332 260 327 \0 ( 1 0 0 Q M E M B
0004040 7 4 Q S A S S O C 6 5 Q
0004060 S A S S O C 5 6 Q M E M B
0004100 5 1 Q R E D I S P L A Y W 4
0004120 0 Q \ S e t T o g M e n u V a
0004140 l u e ) \r ( 4 4 Q T o g M e n
0004160 u 2 6 Q T o g M e n u 1 5
0004200 Q T o g M e n u 5 T o g M
0004220 e n u ) \r ( ) \r T o g M e n u V
0004240 a l u e D 1 \r ( L ( 0 t o
0004260 g M e n u ) F 0 $ $ T o g
0004300 M e n u $ $ ) \0 \v \0 001 \0 001 @ 265
0004320 003 P 006 \0 \0 311 004 020 \0 N I L \r ( 6
0004340 T o g M e n u ) \r ( ) \r \ T o g
0004360 M e n u B u t t o n F n A 0 0 0
0004400 1 A 0 0 0 3 D 1 \r ( N A M E
0004420 E R R O R S E T F 0 $ $ T
0004440 o g M e n u $ $ ) \0 % \0 001 002 \0
0004460 P 006 \0 \0 311 002 001 003 262 032 P 006 \0 \0 311 002
0004500 001 002 002 001 234 P 006 \0 \0 311 002 001 002 002 001 \t
0004520 \0 \0 i 020 \0 ( 4 1 Q E V A L ) \r
0004540 ( 3 0 Q T o g M e n u 1 5 Q
0004560 T o g M e n u 3 T o g M e
0004600 n u ) \r ( ) \r \ T o g M e n u B
0004620 u t t o n F n A 0 0 0 1 D 1 \r
0004640 ( N A M E E R R O R S E T L
0004660 ( 0 N I L ) F 1 $ $ T
0004700 o g W i n d o w $ $ F 2 $
0004720 $ T o g M e n u $ $ ) \0 z 001 002
0004740 002 \0 \b \0 \0 277 ` \0 \0 l \a 345 021 001 \0 H
0004760 j 360 265 \v H 005 003 264 006 H \t \0 \0 022 252 Q
0005000 h Q \n \0 \0 \n \0 \0 263 332 Q h Q \n \0 \0
0005020 \n \0 \0 262 B o \0 \0 \0 i \n \0 \0 277 R 006
0005040 \0 \0 R 006 \0 \0 311 002 002 265 \b R 006 \0 \0 311
0005060 \0 024 002 277 R 006 \0 \0 311 002 001 003 235 R 006 \0
0005100 \0 311 002 001 002 002 002 002 001 263 325 R \t \0 \0 277
0005120 Q \t \0 \0 203 Q \t \0 \0 i 020 \0 ( 1 6 6
0005140 Q I N V E R T W 1 6 1 Q R
0005160 E D I S P L A Y W 1 5 4 Q \
0005200 S e t T o g M e n u V a l u e
0005220 7 2 Q \ T o g M e n u B u t t
0005240 o n F n A 0 0 0 1 A 0 0 0 3 6
0005260 0 Q I N S I D E P 5 5 Q C
0005300 U R S O R P O S I T I O N 4 5
0005320 Q I N S I D E P 4 2 Q C U
0005340 R S O R P O S I T I O N 3 2 Q
0005360 \ F Z E R O P 2 G E T M O
0005400 U S E S T A T E ) \r ( 1 3 6 Q
0005420 T o g M e n u 1 2 5 Q T o g
0005440 M e n u 1 1 4 Q T o g M e n
0005460 u 1 0 3 Q T o g M e n u 7
0005500 7 Q T o g M e n u 6 L A S
0005520 T M O U S E B U T T O N S ) \r (
0005540 6 6 Q ( \ T o g M e n u B u
0005560 t t o n F n A 0 0 0 1 A 0 0 0 3
0005600 ) ) \r \ T o g M e n u B u t t o
0005620 n F n D 1 \r ( P 0 $ $ T o
0005640 g M e n u $ $ I 0 $ $ T o
0005660 g W i n d o w $ $ ) \0 271 \a \0 \0
0005700 001 @ g \0 \0 \n \0 \0 021 1 003 \b \0 \0 277 `
0005720 \0 \0 l 004 345 j 360 263 026 @ \t \0 \0 o \0 \0
0005740 \0 i \n \0 \0 244 @ \t \0 \0 020 h 020 \b \0 \0
0005760 277 ` \0 \0 k 345 j 360 263 363 ` \0 \0 037 021 0
0006000 006 H 006 \0 \0 311 \0 260 = d 001 Y d d 003 262
0006020 033 277 277 I 002 002 002 002 001 d i 360 241 d 242 277
0006040 I 205 277 I 002 002 002 002 001 I d 003 264 \a d 002
0006060 002 002 001 h 032 032 032 274 M 265 \a L h 032 ^ 201
0006100 L & 275 002 003 265 304 N 022 272 d J 024 004 277 d
0006120 g \0 \0 024 026 277 d g \0 \0 024 277 d g \0
0006140 \0 024 034 277 j d n 177 377 d h 032 032 032 032 273
0006160 d K 024 \n 277 \t \0 \0 020 \0 ( 2 6 6 Q
0006200 M E N U 5 6 Q G E T M O U S
0006220 E S T A T E 5 0 Q I N V E R
0006240 T W 4 3 Q \ T o g M e n u B
0006260 u t t o n F n A 0 0 0 1 3 3 Q
0006300 I N V E R T W 1 4 Q G E T
0006320 M O U S E S T A T E 6 G E T
0006340 W I N D O W U S E R P R O P ) \r
0006360 ( 2 3 7 Q D E F A U L T M E N
0006400 U H E L D F N 2 3 0 Q C L R
0006420 P R O M P T 2 2 1 Q \ T o g
0006440 M i d M e n u F n 1 0 3 Q T
0006460 o g M e n u 7 3 Q 004 003 M E N
0006500 U T Y P E # 6 2 Q L A S T M
0006520 O U S E B U T T O N S 2 0 Q
0006540 L A S T M O U S E B U T T O N S
0006560 3 T o g g l e M e n u ) \r (
0006600 3 7 Q ( \ T o g M e n u B u
0006620 t t o n F n A 0 0 0 1 ) ) \r \ T
0006640 o g M i d M e n u F n D 1 \r (
0006660 I 2 b u t t o n I 1 m
0006700 e n u I 0 i t e m F 0
0006720 $ $ T o g M e n u $ $ ) \0 \t
0006740 \0 001 \0 003 P @ 002 001 \n \0 \0 020 \0 ( 6
0006760 T o g M e n u R e s e t ) \r N I
0007000 L \r ( ) \r \ T o g M e n u R e p
0007020 a i n t F n D 1 \r ( P 2 n
0007040 a m e P 1 i t e m P 0
0007060 $ $ T o g M e n u $ $ I 1
0007100 r e g I 0 $ $ T o g W i
0007120 n d o w $ $ ) \0 A 003 \0 \0 002 @ \t
0007140 \0 \0 @ g \0 \0 \n \0 \0 021 021 001 H 006 \0 \0
0007160 311 002 001 Y d 003 231 d 001 003 224 001 \t \0 \0 200
0007200 001 021 001 002 J 004 ` \0 \0 360 227 o \0 \0 \0 \t
0007220 \0 \0 020 j J j h i @ \r 006 \0 \0 020 \0 (
0007240 7 6 Q F L U S H R I G H T 6
0007260 3 Q H E L P 4 0 Q E V A L
0007300 1 2 Q G E T W I N D O W U S
0007320 E R P R O P 3 C L E A R W )
0007340 \r ( 5 2 Q 004 003 B I T M A P T Y
0007360 P E # 2 1 Q T o g M e n u
0007400 7 T o g g l e M e n u ) \r (
0007420 6 0 Q " n o t i m p l e m e
0007440 n t e d y e t " ) \r \ S e t T
0007460 o g M e n u V a l u e D 1 \r (
0007500 I 0 t o g M e n u ) \0 k 002
0007520 \0 \0 001 @ 006 \0 \0 @ 006 \0 \0 311 002 001 003 262
0007540 N @ 006 \0 \0 311 002 001 002 001 262 % @ 006 \0 \0
0007560 311 002 001 002 001 003 235 @ 006 \0 \0 311 002 001 002 001
0007600 \t \0 \0 260 1 @ 006 \0 \0 311 002 001 002 260 & @
0007620 006 \0 \0 311 002 001 001 003 233 @ 006 \0 \0 311 002 001
0007640 001 \t \0 \0 216 @ 006 \0 \0 311 002 001 205 @ 006 \0
0007660 \0 311 002 001 021 002 001 H I 024 004 I 020 \0 ( 1
0007700 2 0 Q E V A L 5 7 Q E V A
0007720 L ) \r ( 1 3 5 Q T o g M e n u
0007740 1 2 5 Q T o g M e n u 1 1
0007760 1 Q T o g M e n u 7 7 Q T
0010000 o g M e n u 6 5 Q T o g M e
0010020 n u 4 7 Q T o g M e n u 3
0010040 4 Q T o g M e n u 2 1 Q T
0010060 o g M e n u 7 T o g M e n u
0010100 3 T o g M e n u ) \r ( ) \r (
0010120 P R E T T Y C O M P R I N T T
0010140 O G M E N U C O M S ) \r ( R P A
0010160 Q Q T O G M E N U C O M S (
0010200 ( F N S M a k e T o g M e n u
0010220 T o g M e n u T o g M e n u
0010240 R e s e t T o g M e n u V a l
0010260 u e ) ( F N S \ T o g M e n
0010300 u B u t t o n F n \r \ T o g M
0010320 i d M e n u F n \ T o g M e n
0010340 u R e p a i n t F n \ S e t T
0010360 o g M e n u V a l u e ) ( D E
0010400 C L A R E : D O N T E V A L @
0010420 L O A D D O C O P Y ( S Y S
0010440 R E C O R D S T o g M e n u )
0010460 \r ( I N I T R E C O R D S T
0010500 o g M e n u ) ) ( D E C L A R
0010520 E : D O N T C O P Y ( R E C
0010540 O R D S T o g M e n u T o g
0010560 M e n u I t e m ) ) ) ) \r ( A D
0010600 D T O V A R S Y S T E M R E C
0010620 L S T ( D A T A T Y P E T o
0010640 g M e n u ( s e t s t a t e
0010660 v a l u e w i n d o w ) ) )
0010700 \r ( / D E C L A R E D A T A T Y
0010720 P E ( Q U O T E T o g M e n
0010740 u ) ( Q U O T E ( P O I N T
0010760 E R P O I N T E R P O I N T
0011000 E R P O I N T E R ) ) ( Q U
0011020 O T E ( ( T o g M e n u 0
0011040 P O I N T E R \r ) ( T o g M e
0011060 n u 2 P O I N T E R ) ( T
0011100 o g M e n u 4 P O I N T E R
0011120 ) ( T o g M e n u 6 P O I
0011140 N T E R ) ) ) 8 ) \r ( P U T P
0011160 R O P S T O G M E N U C O P
0011200 Y R I G H T ( " H e n r y T
0011220 h o m p s o n " 1 9 8 5 ) ) \r
0011240 N I L \r
0011244