$ od -c -N 50000 [phylum]<LISP>KOTO>Lispusers>THERMOMETER.DCOM!1
0000000 ( F I L E C R E A T E D " 2 6
0000020 - J u l - 8 5 1 3 : 5 0 : 1 0
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 > U T I L I T I E S > T H E R
0000120 M O M E T E R . ; 5 ) \r " 2 3
0000140 - J u l - 8 5 0 1 : 4 5 : 2 4
0000160 " t c o m p l ' d i n " I
0000200 N T E R L I S P - D 2 3 - J u
0000220 l - 8 5 . . . " d a t e d
0000240 " 2 3 - J u l - 8 5 0 1 : 5 8
0000260 : 1 4 " ) \r ( F I L E C R E A T
0000300 E D " 2 6 - J u l - 8 5 1 3
0000320 : 4 2 : 1 7 " { D S K } < L I
0000340 S P F I L E S > U T I L I T I E
0000360 S > T H E R M O M E T E R . ; 5
0000400 5 2 0 5 c h a n g e s t o
0000420 : ( F N S \r C R E A T E - T
0000440 H E R M O M E T E R U P D A T
0000460 E - T H E R M O M E T E R ) (
0000500 V A R S T H E R M O M E T E R
0000520 C O M S T H E R M O M E T E R
0000540 - T E X T U R E - B I T M A P )
0000560 p r e v i o u s \r d a t e :
0000600 " 2 4 - J u l - 8 5 1 7 : 0
0000620 4 : 4 3 " { D S K } < L I S P
0000640 F I L E S > U T I L I T I E S >
0000660 T H E R M O M E T E R . ; 3 ) \r
0000700 C R E A T E - T H E R M O M E T
0000720 E R D 1 \r ( P 6 X P 4
0000740 X - O F F S E T P 3 N -
0000760 D E V I S I O N S P 2 W I
0001000 N D O W P 1 F I L I N G -
0001020 P O S I T I O N P 0 T H E
0001040 R M O M E T E R - L E N G T H
0001060 I 3 T I T L E I 2 R E
0001100 G I O N - O R - P O S I T I O N
0001120 I 1 M I N ? I 0 M A
0001140 X F 1 0 Q W I N D O W - R
0001160 E G I O N ) 001 z \b 001 \0 004 021 P 004
0001200 A 265 003 j b 002 @ j 330 b \0 A @ 363 227 d
0001220 A b \0 277 b 002 277 @ \t \0 \0 ` \0 \0 \n \0
0001240 \0 l 005 330 \ B \t \0 \0 230 B 002 002 002 001 l
0001260 ( 331 213 l 310 n 002 274 @ \n \0 \0 \n \0 \0 270
0001300 B \t \0 \0 222 B 260 : B \t \0 \0 262 032 B 001
0001320 B 002 L d l 026 330 330 l d \n \0 \0 H l (
0001340 330 \f \0 \0 260 034 L d l 026 330 330 l d \n \0
0001360 \0 H l ( 330 h d d o \0 \0 \0 \r 006 \0 \0
0001400 c 020 d C 265 006 o \0 \0 \0 \n \0 \0 Z ` \0
0001420 \0 J \n \0 \0 W 020 002 002 001 l 002 333 l \n 331
0001440 l \n 032 Y H l 017 333 l \n @ A 331 363 223 @
0001460 A 331 201 l \n \n \0 \0 [ I 001 k 331 I 002 k
0001500 331 J \v \0 \0 l 026 j h d J \r 005 \0 \0 j
0001520 H l 002 330 h d J \r 005 \0 \0 m 352 j h d
0001540 J \r 005 \0 \0 j H l 002 330 \t \0 \0 h d J
0001560 \r 005 \0 \0 J g \0 \0 H \v \0 \0 J g \0 \0
0001600 @ \v \0 \0 J g \0 \0 A \v \0 \0 J g \0 \0
0001620 I \v \0 \0 @ A 021 022 \a O 016 262 ! O 016 j
0001640 360 263 N O 016 005 003 226 O 016 \t \0 \0 263 B j
0001660 O 016 363 222 @ N 201 N @ 363 263 5 I 001 N \t
0001700 \0 \0 ` \0 \0 \n \0 \0 l 005 330 331 N A 331 @
0001720 A 331 353 H 352 l \n 330 J \v \0 \0 277 N J \n
0001740 \0 \0 277 N @ A 331 K 333 _ 016 324 276 260 254 023
0001760 J \t \0 \0 J 020 \0 ( 5 6 6 Q R E S
0002000 E T - T H E R M O M E T E R 5
0002020 4 4 Q P R I N 1 5 3 6 Q M
0002040 O V E T O 5 1 2 Q S T R I N
0002060 G W I D T H 5 0 4 Q M K S T
0002100 R I N G 4 5 7 Q \ F Z E R O
0002120 P 4 2 6 Q P U T W I N D O W
0002140 P R O P 4 1 6 Q P U T W I N
0002160 D O W P R O P 4 0 6 Q P U T
0002200 W I N D O W P R O P 3 7 6 Q
0002220 P U T W I N D O W P R O P 3 6
0002240 6 Q R E L D R A W T O 3 5 7
0002260 Q M I N U S 3 4 7 Q R E L
0002300 D R A W T O 3 3 5 Q R E L D
0002320 R A W T O 3 2 1 Q R E L D R
0002340 A W T O 3 0 7 Q M O V E T O
0002360 2 7 2 Q M I N 2 2 7 Q D
0002400 S P F O N T 2 1 7 Q C R E A
0002420 T E W 2 0 2 Q G E T B O X R
0002440 E G I O N 1 6 3 Q M A X 1
0002460 4 6 Q C R E A T E R E G I O N
0002500 1 3 7 Q M A X 1 1 6 Q P
0002520 O S I T I O N P 1 0 6 Q R E
0002540 G I O N P 1 0 1 Q M A X 7
0002560 6 Q M I N 5 3 Q R E G I O
0002600 N P 4 3 Q S T R I N G W I D
0002620 T H 3 5 Q M K S T R I N G )
0002640 \r ( 5 0 7 Q B O L D F O N T
0002660 4 2 2 Q T H . P O S I T I O N
0002700 4 1 2 Q T H . M I N 4 0 2
0002720 Q T H . M A X 3 7 2 Q T H
0002740 . L E N G T H 2 2 3 Q B O L
0002760 D F O N T 4 0 Q B O L D F O
0003000 N T ) \r ( 2 1 4 Q " T H E R
0003020 M O M E T E R " 1 7 6 Q " M
0003040 A R K L O C A T I O N O F
0003060 T H E R M O M E T E R W I N D
0003100 O W . " ) \r R E S E T - T H E R
0003120 M O M E T E R D 1 \r ( I 0
0003140 T H - W I N D O W ) \0 & \0 \0 \0
0003160 001 @ g \0 \0 \n \0 \0 001 @ g \0 \0 \n \0 \0
0003200 002 l 024 @ g \0 \0 \n \0 \0 \f \0 \0 j g \0
0003220 \0 @ \f \0 \0 020 \0 ( 4 3 Q D S P F
0003240 I L L 3 3 Q C R E A T E R E
0003260 G I O N 3 0 Q G E T W I N D
0003300 O W U S E R P R O P 1 6 Q G
0003320 E T W I N D O W U S E R P R O P
0003340 6 G E T W I N D O W U S E R
0003360 P R O P ) \r ( 3 7 Q R E P L A
0003400 C E 2 5 Q T H . L E N G T H
0003420 1 3 Q T H . P O S I T I O N
0003440 3 T H . P O S I T I O N ) \r
0003460 ( ) \r U P D A T E - T H E R M O
0003500 M E T E R D 1 \r ( I 2 S H
0003520 A D E I 1 T H - W I N D O
0003540 W I 0 V A L U E F 0
0003560 T H E R M O M E T E R - T E X T
0003600 U R E ) \0 S \0 001 \0 003 A d 262 O \t
0003620 \0 \0 264 J B 265 003 P b 004 264 B A g \0 \0
0003640 \n \0 \0 001 A g \0 \0 \n \0 \0 002 l 024 @ A
0003660 g \0 \0 \n \0 \0 331 A g \0 \0 \n \0 \0 A g
0003700 \0 \0 \n \0 \0 331 353 A g \0 \0 \n \0 \0 352 j
0003720 330 \f \0 \0 B g \0 \0 A \f \0 \0 020 \0 ( 1
0003740 2 0 Q D S P F I L L 1 1 0 Q
0003760 C R E A T E R E G I O N 1 0
0004000 2 Q G E T W I N D O W U S E R
0004020 P R O P 7 1 Q G E T W I N D
0004040 O W U S E R P R O P 6 2 Q G
0004060 E T W I N D O W U S E R P R O P
0004100 5 2 Q G E T W I N D O W U S
0004120 E R P R O P 3 7 Q G E T W I
0004140 N D O W U S E R P R O P 2 7 Q
0004160 G E T W I N D O W U S E R P R
0004200 O P 6 W I N D O W P ) \r ( 1
0004220 1 4 Q R E P L A C E 7 7 Q
0004240 T H . L E N G T H 6 6 Q T H
0004260 . M I N 5 7 Q T H . M A X
0004300 4 7 Q T H . M I N 3 4 Q T
0004320 H . P O S I T I O N 2 4 Q T
0004340 H . P O S I T I O N ) \r ( ) \r (
0004360 P R E T T Y C O M P R I N T T
0004400 H E R M O M E T E R C O M S ) \r
0004420 ( R P A Q Q T H E R M O M E T
0004440 E R C O M S ( ( F N S C R E
0004460 A T E - T H E R M O M E T E R
0004500 R E S E T - T H E R M O M E T E
0004520 R U P D A T E - T H E R M O M
0004540 E T E R ) ( B I T M A P S \r
0004560 T H E R M O M E T E R - T E X T
0004600 U R E - B I T M A P ) ( P (
0004620 S E T Q T H E R M O M E T E R
0004640 - T E X T U R E ( C R E A T E
0004660 T E X T U R E F R O M B I T M A
0004700 P \r T H E R M O M E T E R - T
0004720 E X T U R E - B I T M A P ) ) )
0004740 ) ) \r ( R P A Q T H E R M O M
0004760 E T E R - T E X T U R E - B I T
0005000 M A P ( R E A D B I T M A P )
0005020 ) \r ( 4 4 " K @ @ @ " " K
0005040 @ @ @ " " K @ @ @ " " K @ @
0005060 @ " ) \r ( S E T Q T H E R M O
0005100 M E T E R - T E X T U R E ( C
0005120 R E A T E T E X T U R E F R O M
0005140 B I T M A P T H E R M O M E T
0005160 E R - T E X T U R E - B I T M A
0005200 P ) ) \r ( P U T P R O P S T H
0005220 E R M O M E T E R C O P Y R I
0005240 G H T ( " X e r o x C o r p
0005260 o r a t i o n " 1 9 8 5 ) ) \r
0005300 N I L \r
0005304