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