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