$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>SOURCES>MISC.DCOM!1
0000000 ( F I L E C R E A T E D " 1 4
0000020 - F e b - 8 5 0 1 : 1 8 : 3 4
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > M I S C . ;
0000120 5 ) \r " 1 3 - F e b - 8 5 1
0000140 0 : 1 4 : 1 4 " b r e c o m p
0000160 i l e d c h a n g e s : E Q
0000200 L E N G T H G E N S Y M N L
0000220 E F T i n " I N T E R L I S
0000240 P - D 1 3 - F e b - 8 5 . .
0000260 . " d a t e d \r " 1 3 - F e
0000300 b - 8 5 1 0 : 2 9 : 2 7 " ) \r
0000320 ( F I L E C R E A T E D " 1 4
0000340 - F e b - 8 5 0 1 : 1 7 : 3 5
0000360 " { E R I S } < L I S P C O R
0000400 E > S O U R C E S > M I S C . ;
0000420 5 5 5 0 8 0 c h a n g e s
0000440 t o : ( F N S E Q L E N G T
0000460 H \r G E N S Y M N L E F T )
0000500 p r e v i o u s d a t e :
0000520 " 1 6 - J u l - 8 4 1 5 : 4 0
0000540 : 1 3 " { E R I S } < L I S P
0000560 C O R E > S O U R C E S > M I S
0000600 C . ; 4 ) \r C O P Y D 1 \r ( L
0000620 ( 0 X ) ) \0 ' 002 \0 \0 001 @ d
0000640 003 262 031 001 \t \0 \0 h 032 021 021 001 H 271 @ 002
0000660 b \0 003 246 @ 222 I @ 031 H 020 I @ 001 \t \0
0000700 \0 & 260 353 \0 ( 4 2 Q C O P Y 1
0000720 0 Q C O P Y ) \r N I L \r ( ) \r
0000740 S U B S T D 1 \r ( L ( 2 E
0000760 X P R 1 O L D 0 N E W )
0001000 ) \0 , \0 \0 \0 003 B d 240 020 003 252 A B
0001020 360 224 @ \t \0 \0 020 B 020 A B 001 364 224 @ \t
0001040 \0 \0 206 @ A B 001 \v \0 \0 @ A B 002 \v \0
0001060 \0 032 020 \0 ( 5 0 Q S U B S T 4
0001100 1 Q S U B S T 3 1 Q C O P
0001120 Y 1 5 Q C O P Y ) \r N I L \r
0001140 ( ) \r D S U B S T D 1 \r ( L
0001160 ( 2 E X P R 1 O L D 0
0001200 N E W ) ) \0 < 001 \0 \0 003 021 020 \0 A
0001220 B X 360 224 @ \t \0 \0 020 B 003 262 * A B 001
0001240 364 226 B @ \t \0 \0 030 206 @ A B 001 \v \0 \0
0001260 277 A 265 \b B 002 b 004 260 342 B 002 360 262 367 B
0001300 @ \t \0 \0 031 H 020 \0 ( 6 7 Q C O P
0001320 Y 4 3 Q D S U B S T 3 2 Q
0001340 C O P Y 1 3 Q C O P Y ) \r
0001360 N I L \r ( ) \r L S U B S T D 1
0001400 \r ( L ( 2 E X P R 1 O L
0001420 D 0 N E W ) ) \0 3 \0 \0 \0 003
0001440 B d 240 020 003 247 A B 360 221 @ 020 B 020 A B
0001460 001 364 236 @ \t \0 \0 @ A B 002 \v \0 \0 \n \0
0001500 \0 020 @ A B 001 \v \0 \0 @ A B 002 \v \0 \0
0001520 032 020 \0 ( 5 7 Q L S U B S T 5
0001540 0 Q L S U B S T 4 0 Q \ N
0001560 C O N C 2 3 5 Q L S U B S T
0001600 2 6 Q C O P Y ) \r N I L \r (
0001620 ) \r G E N S Y M D 1 \r ( P 1
0001640 2 Q C P 1 1 Q C N T P
0001660 1 0 Q I P 6 \ I N T E
0001700 R R U P T A B L E P 5 A T
0001720 O M P 4 B E G . I P 3
0001740 P R E F I X L E N P 2 B
0001760 U F P 1 N U M L E N P
0002000 0 B U F S I Z E I 4 C H
0002020 A R C O D E I 3 N E W ?
0002040 I 2 O S T R B U F F E R I
0002060 1 N U M S U F F I X I 0
0002100 P R E F I X ) 001 310 \v \0 \0 005 @
0002120 262 026 @ 005 \a 257 @ 004 l 004 360 251 l 033 @ h
0002140 032 032 \t \0 \0 277 A 262 024 A d 005 001 241 005 002
0002160 251 l 033 A h 032 032 \t \0 \0 277 B 235 B 005 \a
0002200 251 l 033 B h 032 032 \t \0 \0 277 D 236 D \t \0
0002220 \0 251 l 033 D h 032 032 \t \0 \0 277 l d ` \0
0002240 \0 ` \0 \0 005 \a 265 \n l d \t \0 \0 027 \0 \0
0002260 j 021 $ 005 @ d 231 \t \0 \0 [ d j 360 234 277
0002300 h b \0 277 D 263 026 l A b \b 215 H l \n 331
0002320 361 230 @ o \0 \0 \0 \n \0 \0 277 B 262 # A 250
0002340 o \0 \0 \0 \t \0 \0 260 $ B \t \0 \0 X K l
0002360 \f 330 375 361 262 030 B o \0 \0 \0 \n \0 \0 213 A
0002400 234 K l \f 330 X \t \0 \0 b 004 277 B 272 021 020
0002420 006 B 222 i 260 024 ` \0 \0 d 005 001 241 005 002 246
0002440 j 027 \0 \0 277 i 200 h 236 J H A 265 005 ` \0
0002460 \0 \v \0 \0 271 261 \0 232 ` \0 \0 ` \0 \0 331 j
0002500 360 255 j ` \0 \0 361 224 j 027 \0 \0 277 i 260 023
0002520 o \0 \0 \0 ` \0 \0 361 246 j 027 \0 \0 277 i 200
0002540 h 231 J H ` \0 \0 \v \0 \0 Y 200 I H 021 "
0002560 \n k _ 022 277 O 022 O 016 363 263 4 ` \0 \0 O
0002600 020 ) _ 024 k 324 _ 024 l 9 361 251 J O 020 O
0002620 024 + 277 h 260 033 J O 020 l 0 + 277 O 022 k
0002640 324 _ 022 277 O 020 m 377 324 _ 020 277 260 311 i 022
0002660 262 023 J H I 331 l 1 + 277 ` \0 \0 k 324 027
0002700 \0 \0 271 ` \0 \0 k 324 027 \0 \0 027 \0 \0 277 H
0002720 I 331 k 330 274 D 230 J L m 377 324 \ D + 277
0002740 @ 231 J L K 331 \ @ \v \0 \0 277 J L H `
0002760 \0 \0 \f \0 \0 027 \0 \0 \t \0 \0 ] 023 M d d
0003000 005 001 245 d 005 002 241 005 003 232 277 l 033 @ h 032
0003020 032 \t \0 \0 M 020 \0 ( 7 0 4 Q E R R
0003040 O R X 6 5 3 Q M K A T O M
0003060 6 4 5 Q S U B S T R I N G 6
0003100 3 3 Q R P L S T R I N G 4 3
0003120 2 Q \ G S . I N I T B U F 3
0003140 4 4 Q \ G S . I N I T B U F
0003160 2 7 1 Q A L L O C S T R I N G
0003200 2 5 6 Q E R R O R 2 3 5 Q
0003220 N C H A R S 2 2 7 Q H E L
0003240 P 2 1 2 Q E R R O R 1 5 2
0003260 Q N C H A R S 1 3 5 Q A L
0003300 L O C S T R I N G 1 1 3 Q E
0003320 R R O R X 1 0 1 Q C H A R C
0003340 O D E P 7 2 Q E R R O R X
0003360 5 2 Q E R R O R X 2 5 Q E
0003400 R R O R X ) \r ( 6 5 0 Q \ G S
0003420 . S T R 6 4 2 Q \ G S . S T
0003440 R 5 7 6 Q \ G S . O G E N N
0003460 U M 5 7 3 Q G E N N U M 5
0003500 6 6 Q G E N N U M 5 6 2 Q
0003520 \ G S . N U M L E N 5 5 5 Q
0003540 \ G S . N U M L E N 4 5 7 Q
0003560 \ G S . B U F 4 2 7 Q G E N
0003600 N U M 4 1 5 Q G E N N U M
0003620 4 0 7 Q G E N N U M 3 7 4 Q
0003640 G E N N U M 3 6 6 Q G E N
0003660 N U M 3 5 6 Q \ G S . O G E
0003700 N N U M 3 5 3 Q G E N N U M
0003720 3 4 1 Q G E N N U M 3 2 4
0003740 Q G E N N U M 3 1 1 Q G E
0003760 N N U M 1 4 0 Q \ G S . B U
0004000 F 1 2 4 Q \ G S . B U F 1
0004020 2 1 Q \ G S . N U M L E N ) \r
0004040 ( 4 0 4 Q 1 7 7 7 7 7 7 7 7
0004060 7 7 Q 2 5 3 Q " T o o s h
0004100 o r t " 2 2 4 Q " O S T R B
0004120 U F F E R s u p p l i e d w
0004140 i t h o u t N U M S U F F I X
0004160 " 2 0 7 Q " T o o l o n g
0004200 " ) \r G E N S Y M ? D 1 \r ( I
0004220 0 X ) \0 K \0 \0 \0 001 @ 004 l 004
0004240 360 264 D @ m 373 ) l A 360 264 ; @ m 374 \n
0004260 \0 \0 d 005 001 241 005 002 264 - @ m 375 \n \0 \0
0004300 d 005 001 241 005 002 264 037 @ m 376 \n \0 \0 d 005
0004320 001 241 005 002 264 021 @ m 377 \n \0 \0 d 005 001 241
0004340 005 002 264 003 i 020 \0 ( 7 7 Q N T H C
0004360 H A R 6 1 Q N T H C H A R
0004400 4 3 Q N T H C H A R 2 5 Q
0004420 N T H C H A R ) \r N I L \r ( ) \r
0004440 \ G S . I N I T B U F D 1 \r (
0004460 P 0 N U M L E N I 2 N
0004500 I 1 B U F S I Z E I 0
0004520 B U F ) \0 0 001 \0 \0 003 021 020 \0 @
0004540 A n ' 020 B 361 233 B n ' 020 330 b 004 277 l
0004560 004 X 206 B \t \0 \0 X k 331 331 B \v \0 \0 @
0004600 ` \0 \0 360 223 H 027 \0 \0 H 020 \0 ( 4 2 Q
0004620 R P L S T R I N G 3 2 Q I
0004640 N T E G E R L E N G T H . D E C
0004660 I M A L ) \r ( 5 4 Q \ G S . N
0004700 U M L E N 4 6 Q \ G S . B U
0004720 F ) \r ( ) \r A D D 1 V A R D 1
0004740 \r ( L ( 0 A D D 1 X ) ) \0
0004760 \f \0 \0 001 001 @ d \t \0 \0 k 330 \n \0 \0 020
0005000 \0 ( 1 1 Q S E T 4 E V A L
0005020 ) \r N I L \r ( ) \r A P P E N D
0005040 D 1 \r ( L ( 0 L ) ) \0 - 003
0005060 \0 002 \0 e 021 001 \0 H d j 360 221 h 020 k 360
0005100 224 @ \t \0 \0 020 H a H 021 002 002 J m 377 324
0005120 Z d j 361 241 I 020 a I \n \0 \0 271 260 357 \0
0005140 ( 5 0 Q \ A P P E N D 2 2 1
0005160 Q \ A P P E N D 2 ) \r N I L \r
0005200 ( ) \r A S S O C D 1 \r ( L (
0005220 1 A L S T 0 K E Y ) ) \0
0005240 030 \0 \0 \0 002 A 003 241 h 020 A d 001 003 227 d
0005260 001 001 @ 360 221 001 020 002 b 002 260 354 \0 N I L
0005300 \r N I L \r ( ) \r A T T A C H D
0005320 1 \r ( L ( 1 L 0 X ) )
0005340 \0 037 \0 \0 \0 002 A d 003 232 d d 001 A 002 032
0005360 031 277 @ 030 020 243 @ h 032 020 l 004 A h 032 032
0005400 \t \0 \0 020 \0 ( 3 4 Q E R R O R X
0005420 ) \r N I L \r ( ) \r C H A N G E P
0005440 R O P D 1 \r ( L ( 2 P R O
0005460 P 2 1 P R O P 1 0 X ) )
0005500 \0 > 002 \0 \0 003 @ 004 l 004 360 262 026 ` \0
0005520 \0 @ 006 \0 \0 323 021 002 001 H I 320 I 320 022 311
0005540 \0 210 l 016 @ h 032 032 \t \0 \0 021 001 \0 H 003
0005560 265 004 h 020 001 A 360 224 H B 030 @ 020 H 002 003
0005600 002 X 260 355 \0 ( 4 3 Q E R R O R X
0005620 ) \r ( 1 5 Q L I T A T O M 1
0005640 1 Q \ P L I S T S P A C E ) \r
0005660 ( ) \r D R E M O V E D 1 \r ( L
0005700 ( 1 L 0 X ) ) \0 = 001 \0
0005720 \0 002 A 003 241 h 020 @ A 001 360 262 024 A 002 264
0005740 367 A d 002 001 030 A d 002 002 031 277 277 260 345 021
0005760 020 \0 A X 277 A 002 003 241 H 020 @ A 002 001 360
0006000 226 A d 002 002 031 260 356 A 002 b 002 260 352 \0 N
0006020 I L \r N I L \r ( ) \r D R E V E R
0006040 S E D 1 \r ( L ( 0 L ) )
0006060 \0 027 002 \0 \0 001 021 001 @ X 003 265 004 I 020
0006100 002 b \0 277 H d I 031 277 271 260 357 \0 N I L
0006120 \r N I L \r ( ) \r E V E R Y D 1
0006140 \r ( L ( 2 E V E R Y F N 2
0006160 1 E V E R Y F N 1 0 E V E
0006200 R Y X ) ) \0 037 \0 \0 \0 003 @ 003 241 i
0006220 020 @ 001 @ l 002 A 017 016 241 h 020 B 225 @ k
0006240 B 017 016 201 @ 002 b \0 260 345 \0 N I L \r N
0006260 I L \r ( ) \r G E T L I S D 1 \r
0006300 ( L ( 1 P R O P S 0 X )
0006320 ) \0 3 002 \0 \0 002 @ d 004 l 004 360 262 026
0006340 277 ` \0 \0 @ 006 \0 \0 323 021 002 001 H I 320 I
0006360 320 022 311 \0 021 001 \0 H 003 265 004 h 020 001 A 034
0006400 221 H 020 H 002 003 002 X 260 360 \0 N I L \r (
0006420 1 7 Q L I T A T O M 1 3 Q
0006440 \ P L I S T S P A C E ) \r ( ) \r
0006460 I N T E R S E C T I O N D 1 \r
0006500 ( L ( 1 Y 0 X ) ) \0 7
0006520 002 \0 \0 002 h h 032 021 021 001 @ 003 265 005 H 001
0006540 020 001 Y d 004 l 004 360 230 A 034 262 031 I H 001
0006560 034 212 A \n \0 \0 234 I H 001 \n \0 \0 245 H I
0006600 \n \0 \0 277 @ 002 b \0 260 323 \0 ( 5 6 Q
0006620 T C O N C 5 0 Q M E M B E R
0006640 4 1 Q M E M B E R ) \r N I L
0006660 \r ( ) \r K W O T E D 1 \r ( L
0006700 ( 0 X ) ) \0 036 \0 \0 \0 001 @ d 262
0006720 032 d i 360 263 025 d 005 001 245 d 005 002 241 005 003
0006740 265 \t g \0 \0 @ h 032 032 020 \0 N I L \r (
0006760 2 7 Q Q U O T E ) \r ( ) \r L A
0007000 S T D 1 \r ( L ( 0 X ) )
0007020 \0 016 001 \0 \0 001 021 020 \0 @ 003 265 004 H 020 X
0007040 002 260 371 \0 N I L \r N I L \r ( ) \r L
0007060 A S T N D 1 \r ( L ( 1 N
0007100 0 L ) ) \0 ( 002 \0 \0 002 021 001 @
0007120 003 265 004 h 020 A \n \0 \0 d 257 020 I @ 001 h
0007140 032 \n \0 \0 271 @ 002 b \0 277 H 002 X 263 357 I
0007160 @ 032 020 \0 ( 2 7 Q \ N C O N C 2
0007200 1 4 Q F N T H ) \r N I L \r (
0007220 ) \r L C O N C D 1 \r ( L ( 1
0007240 X 0 P T R ) ) \0 = 001 \0 \0
0007260 002 021 020 \0 A 265 004 @ 020 003 226 A \t \0 \0 X
0007300 002 221 A 211 @ 265 006 A H 032 020 003 253 @ 270 o
0007320 \0 \0 \0 H \n \0 \0 h 020 @ d 001 246 d H 031
0007340 277 A 030 020 002 A 031 @ d H 031 277 020 \0 ( 4
0007360 5 Q E R R O R 1 5 Q L A S
0007400 T ) \r N I L \r ( 4 1 Q " b a
0007420 d a r g u m e n t - L C O
0007440 N C " ) \r L D I F F D 1 \r ( L
0007460 ( 2 Z 1 Y 0 X ) )
0007500 \0 B 001 \0 \0 003 @ A 360 221 B 020 A 243 B 241
0007520 @ 020 021 020 \0 B 265 023 @ 001 h 032 b 004 270 @
0007540 002 b \0 d A 360 234 B 020 \t \0 \0 d @ 001 &
0007560 277 002 260 354 250 o \0 \0 \0 A \n \0 \0 020 H d
0007600 @ 001 & 277 002 260 331 \0 ( 6 6 Q E R R
0007620 O R 4 5 Q F L A S T ) \r N I
0007640 L \r ( 6 2 Q " L D I F F :
0007660 n o t a t a i l " ) \r L D I
0007700 F F E R E N C E D 1 \r ( L (
0007720 1 Y 0 X ) ) \0 & 004 \0 \0 002
0007740 @ 021 1 003 H 003 265 004 I 020 001 d A \n \0 \0
0007760 250 273 J 265 \r K h 032 Z Y 277 H 002 X 260 347
0010000 K & Z 260 367 \0 ( 1 7 Q M E M B E
0010020 R ) \r N I L \r ( ) \r L E N G T H
0010040 D 1 \r ( L ( 0 X ) ) \0 024
0010060 001 \0 \0 001 j 021 001 \0 @ 003 241 H 020 H k 330
0010100 270 @ 002 b \0 260 364 \0 N I L \r N I L \r
0010120 ( ) \r L I S T G E T D 1 \r ( L
0010140 ( 1 P R O P 0 L S T ) )
0010160 \0 026 \0 \0 \0 002 @ 003 241 h 020 @ d 001 A
0010200 360 222 002 001 020 002 003 002 b \0 260 356 \0 N I L
0010220 \r N I L \r ( ) \r L I S T G E T 1
0010240 D 1 \r ( L ( 1 P R O P 0
0010260 L S T ) ) \0 024 \0 \0 \0 002 @ 003 241
0010300 h 020 @ d 001 A 360 222 002 001 020 002 b \0 260 360
0010320 \0 N I L \r N I L \r ( ) \r L I S T
0010340 P U T D 1 \r ( L ( 2 V A L
0010360 1 P R O P 0 L S T ) )
0010400 \0 J 005 \0 \0 003 @ 003 265 \v l 004 @ h 032 032
0010420 \t \0 \0 021 021 001 H d 002 003 263 026 277 @ A B
0010440 @ 001 @ 002 032 032 021 003 004 J K 030 L 031 B 020
0010460 001 A 360 225 H 002 B 030 B 020 H Y 002 002 X d
0010500 003 263 326 263 332 I 002 A B h 032 032 031 B 020 \0
0010520 ( 1 4 Q E R R O R X ) \r N I L
0010540 \r ( ) \r L I S T P U T 1 D 1 \r
0010560 ( L ( 2 V A L 1 P R O P
0010600 0 L S T ) ) \0 4 001 \0 \0 003 @
0010620 003 265 \v l 004 @ h 032 032 \t \0 \0 021 001 \0 H
0010640 003 265 \f @ A B h 032 032 \n \0 \0 020 001 A 360
0010660 233 H d 002 223 002 B 030 201 B & @ 020 H 002 X
0010700 260 340 \0 ( 3 4 Q \ N C O N C 2
0010720 1 4 Q E R R O R X ) \r N I L \r
0010740 ( ) \r M A P D 1 \r ( L ( 2
0010760 M A P F N 2 1 M A P F N 1
0011000 0 M A P X ) ) \0 032 \0 \0 \0 003 @
0011020 003 241 h 020 @ k A 017 016 277 B 225 @ k B 017
0011040 016 201 @ 002 b \0 260 352 \0 N I L \r N I L
0011060 \r ( ) \r M A P 2 C D 1 \r ( L
0011100 ( 3 M A P F N 2 2 M A P F
0011120 N 1 1 M A P Y 0 M A P X
0011140 ) ) \0 5 \0 \0 \0 004 @ 003 264 006 A 003 241
0011160 h 020 @ 001 A 001 l 002 B 017 016 277 C 262 024 @
0011200 k C 017 016 b \0 277 A k C 017 016 b 002 277 260
0011220 332 @ 002 b \0 277 A 002 b 002 277 260 316 \0 N I
0011240 L \r N I L \r ( ) \r M A P 2 C A R
0011260 D 1 \r ( L ( 3 M A P F N 2
0011300 2 M A P F N 1 1 M A P Y
0011320 0 M A P X ) ) \0 E 002 \0 \0 004
0011340 021 001 @ 003 222 A 003 241 H 020 @ 001 A 001 l
0011360 002 B 017 016 I 032 271 H 230 I 002 I d h 031 277
0011400 031 201 I X 277 C 262 023 A k C 017 016 b 002 277
0011420 @ k C 017 016 b \0 260 315 A 002 b 002 277 @ 002
0011440 b \0 260 302 \0 N I L \r N I L \r ( ) \r
0011460 M A P C D 1 \r ( L ( 2 M A
0011500 P F N 2 1 M A P F N 1 0
0011520 M A P X ) ) \0 033 \0 \0 \0 003 @ 003 241
0011540 h 020 @ 001 k A 017 016 277 B 225 @ k B 017 016
0011560 201 @ 002 b \0 260 351 \0 N I L \r N I L \r
0011600 ( ) \r M A P C A R D 1 \r ( L
0011620 ( 2 M A P F N 2 1 M A P F
0011640 N 1 0 M A P X ) ) \0 . 002 \0
0011660 \0 003 021 001 @ 003 265 004 H 020 001 k A 017 016
0011700 I 032 271 H 230 I 002 I d h 031 277 031 201 I X
0011720 277 B 225 @ k B 017 016 201 @ 002 b \0 260 331 \0
0011740 N I L \r N I L \r ( ) \r M A P C O
0011760 N D 1 \r ( L ( 2 M A P F N
0012000 2 1 M A P F N 1 0 M A P
0012020 X ) ) \0 1 003 \0 \0 003 021 0 002 @ 003 265
0012040 004 H 020 k A 017 016 Z 003 232 I 265 025 J Y X
0012060 277 I 002 265 \n B 234 @ k B 017 016 210 Y 260 364
0012100 J 031 260 356 @ 002 b \0 260 326 \0 N I L \r N
0012120 I L \r ( ) \r M A P C O N C D 1
0012140 \r ( L ( 2 M A P F N 2 1
0012160 M A P F N 1 0 M A P X ) )
0012200 \0 2 003 \0 \0 003 021 0 002 @ 003 265 004 H 020 001
0012220 k A 017 016 Z 003 232 I 265 025 J Y X 277 I 002
0012240 265 \n B 234 @ k B 017 016 210 Y 260 364 J 031 260
0012260 356 @ 002 b \0 260 325 \0 N I L \r N I L \r
0012300 ( ) \r M A P L I S T D 1 \r ( L
0012320 ( 2 M A P F N 2 1 M A P
0012340 F N 1 0 M A P X ) ) \0 - 002
0012360 \0 \0 003 021 001 @ 003 265 004 H 020 k A 017 016
0012400 I 032 271 H 230 I 002 I d h 031 277 031 201 I X
0012420 277 B 225 @ k B 017 016 201 @ 002 b \0 260 332 \0
0012440 N I L \r N I L \r ( ) \r M E M B E
0012460 R D 1 \r ( L ( 1 Y 0 X
0012500 ) ) \0 035 \0 \0 \0 002 A 003 241 h 020 @ d
0012520 004 l 004 360 223 A 001 360 202 A 001 364 221 A 020 A
0012540 002 b 002 260 347 \0 N I L \r N I L \r ( )
0012560 \r N L E F T D 1 \r ( L ( 2
0012600 T A I L 1 N 0 L ) ) \0
0012620 - 002 \0 \0 003 @ d 021 002 001 A j 360 263 032 H
0012640 B 360 243 H 003 265 004 h 020 002 270 A k 331 b 002
0012660 260 353 002 270 I 002 271 H B 360 243 H 003 265 365 I
0012700 020 \0 N I L \r N I L \r ( ) \r N O T
0012720 A N Y D 1 \r ( L ( 2 S O M
0012740 E F N 2 1 S O M E F N 1 0
0012760 S O M E X ) ) \0 ' 005 \0 \0 003 @
0013000 A B 021 # 004 H 260 027 d [ 001 K l 002 I 017
0013020 016 256 274 J 242 L 002 204 L k J 017 016 003 265 352
0013040 h 022 h 360 020 \0 N I L \r N I L \r ( )
0013060 \r N O T E V E R Y D 1 \r ( L
0013100 ( 2 E V E R Y F N 2 1 E V
0013120 E R Y F N 1 0 E V E R Y X )
0013140 ) \0 * 005 \0 \0 003 @ A B 021 # 004 H 260
0013160 027 d [ 001 K l 002 I 017 016 237 274 J 242 L 002
0013200 204 L k J 017 016 003 265 352 i 201 277 h 022 h 360
0013220 020 \0 N I L \r N I L \r ( ) \r N T H
0013240 D 1 \r ( L ( 1 N 0 X )
0013260 ) \0 \0 \0 \0 002 k A 361 223 h @ 032 020
0013300 A k 361 241 @ 020 @ 003 265 004 h 020 002 b \0 277
0013320 A k 331 b 002 260 354 \0 N I L \r N I L \r
0013340 ( ) \r P U T A S S O C D 1 \r (
0013360 L ( 2 A L S T 1 V A L
0013400 0 K E Y ) ) \0 0 001 \0 \0 003 B 003
0013420 265 \v l 004 B h 032 032 \t \0 \0 021 001 \0 H 001
0013440 003 265 016 H 002 003 265 024 H @ A 032 & A 020 001
0013460 @ 360 262 361 H 001 A 031 A 020 X 260 344 \0 ( 1
0013500 4 Q E R R O R X ) \r N I L \r (
0013520 ) \r R A T O M S D 1 \r ( L (
0013540 2 R D T B L 1 F I L E 0
0013560 A ) ) \0 032 002 \0 \0 003 021 001 A B
0013600 \n \0 \0 Y @ 360 222 H 001 020 H I \n \0 \0 X
0013620 264 371 260 354 \0 ( 2 3 Q T C O N C
0013640 7 R A T O M ) \r N I L \r ( ) \r
0013660 R E M O V E D 1 \r ( L ( 1
0013700 L 0 X ) ) \0 033 \0 \0 \0 002 A 003
0013720 241 h 020 @ A 001 364 225 A 002 b 002 260 363 A 001
0013740 @ A 002 \n \0 \0 032 020 \0 ( 2 7 Q R E
0013760 M O V E ) \r N I L \r ( ) \r R E V
0014000 E R S E D 1 \r ( L ( 0 L )
0014020 ) \0 024 001 \0 \0 001 021 020 \0 @ 003 265 004 H
0014040 020 001 H 032 270 @ 002 b \0 260 363 \0 N I L \r
0014060 N I L \r ( ) \r R P T Q D 1 \r (
0014100 L ( 0 R P T Z ) P 0 R
0014120 P T N ) \0 % 002 \0 003 001 @ 001 g \0 \0
0014140 \n \0 \0 021 021 001 H j 361 262 024 g \0 \0 @ 002
0014160 g \0 \0 \v \0 \0 271 H k 331 X 260 354 I 020 \0
0014200 ( 3 2 Q A P P L Y 7 E V A
0014220 L ) \r ( 2 7 Q I N T E R N A L
0014240 2 2 Q P R O G N 4 I N T
0014260 E R N A L ) \r ( ) \r F R P T Q
0014300 D 1 \r ( L ( 0 R P T Z ) )
0014320 \0 % 002 \0 003 001 @ 001 g \0 \0 \n \0 \0 021 021
0014340 001 H j 361 262 024 g \0 \0 @ 002 g \0 \0 \v \0
0014360 \0 271 H k 331 X 260 354 I 020 \0 ( 3 2 Q
0014400 A P P L Y 7 E V A L ) \r ( 2
0014420 7 Q I N T E R N A L 2 2 Q
0014440 P R O G N 4 I N T E R N A L
0014460 ) \r ( ) \r S A S S O C D 1 \r (
0014500 L ( 1 A L S T 0 K E Y )
0014520 ) \0 024 \0 \0 \0 002 A 003 241 h 020 A d 001
0014540 001 @ 364 221 001 020 002 b 002 260 360 \0 N I L \r
0014560 N I L \r ( ) \r S A V E D E F D
0014600 1 \r ( L ( 0 X ) ) \0 ) 003 \0
0014620 \0 001 @ 004 l 004 361 244 @ \t \0 \0 020 021 0 002
0014640 @ 260 024 d 001 \t \0 \0 270 I 265 \a H h 032 Z
0014660 201 H & 271 002 003 265 355 J 020 \0 ( 2 5 Q
0014700 S A V E D E F 1 1 1 Q S A V
0014720 E D E F 1 ) \r N I L \r ( ) \r S A
0014740 V E D E F 1 D 1 \r ( L ( 0
0014760 X ) ) \0 201 001 \0 \0 001 @ \t \0 \0 021 001
0015000 \0 H 264 w @ d \t \0 \0 d g \0 \0 360 263 024
0015020 d g \0 \0 360 253 d g \0 \0 360 245 d g \0 \0
0015040 360 225 277 g \0 \0 260 L d g \0 \0 360 263 024 d
0015060 g \0 \0 360 253 d g \0 \0 360 245 d g \0 \0 360
0015100 225 277 g \0 \0 260 - d g \0 \0 360 263 024 d g
0015120 \0 \0 360 253 d g \0 \0 360 245 d g \0 \0 360 224
0015140 277 g \0 \0 214 277 @ \t \0 \0 223 g \0 \0 202 g
0015160 \0 \0 b \0 H \v \0 \0 @ 020 \0 ( 1 7 5 Q
0015200 P U T P R O P 1 5 7 Q E X
0015220 P R P 1 6 Q F N T Y P 3
0015240 G E T D ) \r ( 1 6 7 Q L I S T
0015260 1 6 3 Q E X P R 1 5 1 Q
0015300 C O D E 1 4 3 Q C F E X P R
0015320 * 1 3 5 Q C F E X P R 1 2
0015340 7 Q C E X P R * 1 2 0 Q C
0015360 E X P R 1 1 2 Q E X P R 1
0015400 0 4 Q F E X P R * 7 6 Q F
0015420 E X P R 7 0 Q E X P R * 6
0015440 1 Q E X P R 5 3 Q S U B R
0015460 4 5 Q F S U B R * 3 7 Q
0015500 F S U B R 3 1 Q S U B R *
0015520 2 2 Q S U B R ) \r ( ) \r S E T
0015540 Q Q D 1 \r ( L ( 1 Y 0
0015560 X ) ) \0 \a \0 \0 001 002 @ A \n \0 \0 020
0015600 \0 ( 4 S E T ) \r N I L \r ( ) \r
0015620 S O M E D 1 \r ( L ( 2 S O
0015640 M E F N 2 1 S O M E F N 1
0015660 0 S O M E X ) ) \0 037 \0 \0 \0 003
0015700 @ 003 241 h 020 @ 001 @ l 002 A 017 016 221 @ 020
0015720 B 225 @ k B 017 016 201 @ 002 b \0 260 345 \0 N
0015740 I L \r N I L \r ( ) \r S T R M E M
0015760 B D 1 \r ( L ( 1 Y 0 X
0016000 ) ) \0 ' 001 \0 \0 002 021 020 \0 A k \n \0
0016020 \0 b 002 277 k 270 @ H ) 265 004 A 020 A H )
0016040 360 224 H k 330 260 360 A \t \0 \0 263 351 h 020 \0
0016060 ( 4 1 Q G N C 7 S U B S T
0016100 R I N G ) \r N I L \r ( ) \r S U B
0016120 1 V A R D 1 \r ( L ( 0 S U
0016140 B 1 X ) ) \0 \f \0 \0 001 001 @ d \t \0
0016160 \0 k 331 \n \0 \0 020 \0 ( 1 1 Q S E T
0016200 4 E V A L ) \r N I L \r ( ) \r
0016220 S U B S E T D 1 \r ( L ( 2
0016240 M A P F N 2 1 M A P F N 1
0016260 0 M A P X ) ) \0 0 002 \0 \0 003 021
0016300 001 @ 003 265 004 H 020 001 k A 017 016 262 023 H
0016320 246 @ 001 h 032 Y 270 207 I d @ 001 & 277 002 271
0016340 B 225 @ k B 017 016 201 @ 002 b \0 260 327 \0 N
0016360 I L \r N I L \r ( ) \r T A I L P
0016400 D 1 \r ( L ( 1 Y 0 X ) )
0016420 \0 025 \0 \0 \0 002 @ 264 \f A 003 241 h 020 @
0016440 A 360 221 @ 020 A 002 b 002 260 362 \0 N I L \r
0016460 N I L \r ( ) \r T C O N C D 1 \r
0016500 ( L ( 1 X 0 P T R ) )
0016520 \0 / \0 \0 \0 002 @ 265 \b A h 032 d 032 020 003
0016540 250 o \0 \0 \0 @ \n \0 \0 020 @ d 002 252 A h
0016560 032 030 @ d d 001 031 277 020 d d 002 d A & 277
0016600 002 031 277 020 \0 ( 2 2 Q E R R O R )
0016620 \r N I L \r ( 1 6 Q " b a d
0016640 a r g u m e n t - T C O N C
0016660 " ) \r T I M E D 1 \r ( L ( 2
0016700 T I M E T Y P 1 T I M E N
0016720 0 T I M E X ) ) 001 K 006 \0 001
0016740 003 021 ` 005 A 263 027 k b 002 272 \b \0 \0 271 B
0016760 d j 360 262 277 j \t \0 \0 260 + j A 363 226
0017000 A o \0 \0 \0 032 020 A d 005 001 263 337 o \0 \0
0017020 \0 032 020 l 003 360 225 l 003 \t \0 \0 207 B i 360
0017040 264 005 \b \0 \0 275 l 002 \t \0 \0 273 J j 360 252
0017060 @ \t \0 \0 270 J k 331 Z 260 364 l 002 \t \0 \0
0017100 274 M 262 ( B d j 360 226 277 j \t \0 \0 260 031
0017120 l 003 360 225 l 003 \t \0 \0 214 B d i 360 224 277
0017140 \b \0 \0 202 \t \0 \0 M 331 275 \b \0 \0 I 331 271
0017160 A k 360 263 037 I i \n \0 \0 277 g \0 \0 i \n
0017200 \0 \0 277 A i \n \0 \0 277 o \0 \0 \0 i \n \0
0017220 \0 277 I A 333 i \n \0 \0 277 k i \n \0 \0 277
0017240 g \0 \0 i \n \0 \0 277 L j K 331 330 o \0 \0
0017260 \0 353 272 A k 360 263 037 J i \n \0 \0 277 g \0
0017300 \0 i \n \0 \0 277 A i \n \0 \0 277 o \0 \0 \0
0017320 i \n \0 \0 277 J A 353 i \n \0 \0 277 k i \n
0017340 \0 \0 277 g \0 \0 i \n \0 \0 277 B d j 360 262
0017360 024 277 M o \0 \0 \0 353 i \n \0 \0 277 o \0 \0
0017400 \0 260 $ l 003 360 237 M o \0 \0 \0 353 i \n \0
0017420 \0 277 o \0 \0 \0 215 B i 360 235 M i \n \0 \0
0017440 277 o \0 \0 \0 i \n \0 \0 H 020 \0 ( 5 0 7
0017460 Q P R I N 1 4 7 6 Q P R I
0017500 N 1 4 5 7 Q P R I N 1 4 3
0017520 2 Q P R I N 1 4 1 0 Q P R
0017540 I N T 4 0 0 Q S P A C E S
0017560 3 7 2 Q P R I N 1 3 6 2 Q
0017600 P R I N 1 3 5 1 Q P R I N 1
0017620 3 4 3 Q P R I N 1 3 3 3 Q
0017640 P R I N 1 3 0 5 Q P R I N
0017660 T 2 7 5 Q S P A C E S 2 6
0017700 7 Q P R I N 1 2 5 7 Q P R
0017720 I N 1 2 4 6 Q P R I N 1 2
0017740 4 0 Q P R I N 1 2 3 0 Q P
0017760 R I N 1 2 1 3 Q C O N S C O
0020000 U N T 2 0 5 Q E R R O R 2
0020020 0 1 Q P A G E F A U L T S 1
0020040 6 7 Q C L O C K 1 5 4 Q C
0020060 L O C K 1 3 6 Q C L O C K
0020100 1 2 2 Q E V A L 1 1 1 Q C
0020120 L O C K 1 0 3 Q P A G E F A
0020140 U L T S 7 2 Q C L O C K 3
0020160 0 Q C L O C K 1 4 Q C O N
0020200 S C O U N T ) \r ( 4 0 4 Q s e
0020220 c o n d s 3 3 7 Q / 3 0 1
0020240 Q c o n s e s 2 3 4 Q / )
0020260 \r ( 5 0 3 Q " p a g e f
0020300 a u l t s \r " 4 6 4 Q " s
0020320 e c o n d s , g a r b a g e
0020340 c o l l e c t i o n t i m e \r
0020360 " 4 5 2 Q 1 0 0 0 . 0 4 3
0020400 7 Q " s e c o n d s , r e
0020420 a l t i m e \r " 4 2 5 Q 1
0020440 0 0 0 . 0 3 5 6 Q " = "
0020460 3 1 7 Q 1 0 0 0 . 0 2 5 3
0020500 Q " = " 5 7 Q ( i s
0020520 t o o l a r g e ) 4 3 Q (
0020540 - ? ) ) \r U N I O N D 1 \r (
0020560 L ( 1 Y 0 X ) ) \0 ) 001
0020600 \0 \0 002 021 020 \0 @ 003 265 006 H A % 020 001 004
0020620 l 004 360 224 @ 001 A 034 205 @ 001 A \n \0 \0 244
0020640 @ 001 H $ 270 @ 002 b \0 260 336 \0 ( 3 3 Q
0020660 M E M B E R ) \r N I L \r ( ) \r
0020700 A D D T O V A R A 0 0 0 1 D 1
0020720 \r ( N A M E E R R O R S E T
0020740 L ( 0 N I L ) F 2 X )
0020760 \0 > 002 001 002 \0 ` \0 \0 027 \0 \0 g \0 \0
0021000 360 226 g \0 \0 027 \0 \0 277 021 001 R 001 X d
0021020 \t \0 \0 Y 003 242 R 002 227 R 002 I 003 \n \0 \0
0021040 210 I g \0 \0 360 241 I 200 h i \v \0 \0 277 H
0021060 022 h 032 020 \0 ( 6 6 Q S A V E S E
0021100 T 5 0 Q U N I O N 3 3 Q
0021120 G E T T O P V A L ) \r ( 5 5 Q
0021140 N O B I N D 2 0 Q D F N F L
0021160 G 1 5 Q P R O P 1 0 Q A
0021200 L L P R O P 5 D F N F L G
0021220 2 D F N F L G ) \r ( ) \r A D D
0021240 T O V A R D 1 \r ( I 0 X
0021260 F 2 R E S E T V A R S L S T
0021300 ) \0 C 002 001 003 001 g \0 \0 ` \0 \0 032 R
0021320 032 c 004 021 021 001 R Y o \0 \0 \0 g \0 \0 \n
0021340 \0 \0 H 001 002 027 \0 \0 277 I d R 360 225 277 H
0021360 002 c 004 215 R \n \0 \0 231 R k I \v \0 \0 H
0021400 002 031 277 265 005 \b \0 \0 001 020 \0 ( 7 7 Q
0021420 E R R O R ! 6 6 Q N L E F T
0021440 5 7 Q T A I L P 3 1 Q A
0021460 D D T O V A R A 0 0 0 1 ) \r ( 3
0021500 7 Q D F N F L G 2 6 Q I N
0021520 T E R N A L 5 D F N F L G
0021540 2 D F N F L G ) \r ( 2 3 Q
0021560 ( A D D T O V A R A 0 0 0 1 ) )
0021600 \r A P P E N D T O V A R A 0 0 0
0021620 1 D 1 \r ( N A M E E R R O R
0021640 S E T L ( 0 N I L ) F
0021660 2 X ) \0 ? 002 001 002 \0 ` \0 \0 027 \0
0021700 \0 g \0 \0 360 226 g \0 \0 027 \0 \0 277 021 001
0021720 R 001 X d \t \0 \0 Y 003 265 006 R 002 227 I 003
0021740 R 002 \n \0 \0 210 I g \0 \0 360 241 I 200 h i
0021760 \v \0 \0 277 H 022 h 032 020 \0 ( 6 7 Q S
0022000 A V E S E T 5 1 Q U N I O N
0022020 3 3 Q G E T T O P V A L ) \r
0022040 ( 5 6 Q N O B I N D 2 0 Q
0022060 D F N F L G 1 5 Q P R O P
0022100 1 0 Q A L L P R O P 5 D F
0022120 N F L G 2 D F N F L G ) \r (
0022140 ) \r A P P E N D T O V A R D 1
0022160 \r ( I 0 X F 2 R E S E
0022200 T V A R S L S T ) \0 C 002 001 003 001
0022220 g \0 \0 ` \0 \0 032 R 032 c 004 021 021 001 R Y
0022240 o \0 \0 \0 g \0 \0 \n \0 \0 H 001 002 027 \0 \0
0022260 277 I d R 360 225 277 H 002 c 004 215 R \n \0 \0
0022300 231 R k I \v \0 \0 H 002 031 277 265 005 \b \0 \0
0022320 001 020 \0 ( 7 7 Q E R R O R ! 6
0022340 6 Q N L E F T 5 7 Q T A I
0022360 L P 3 1 Q A P P E N D T O V
0022400 A R A 0 0 0 1 ) \r ( 3 7 Q D F
0022420 N F L G 2 6 Q I N T E R N A
0022440 L 5 D F N F L G 2 D F N
0022460 F L G ) \r ( 2 3 Q ( A P P E
0022500 N D T O V A R A 0 0 0 1 ) ) \r S
0022520 E L E C T D 1 \r ( L ( 0 .
0022540 S E L E C . ) ) \0 030 \0 \0 003 001 g
0022560 \0 \0 @ 001 g \0 \0 \n \0 \0 @ 002 \n \0 \0 g
0022600 \0 \0 \v \0 \0 020 \0 ( 2 5 Q A P P L
0022620 Y 1 7 Q \ S E L E C T / S E
0022640 L E C T 1 1 2 Q E V A L ) \r
0022660 ( 2 2 Q S E L E C T Q 7 S
0022700 E L E C T Q 2 P R O G N ) \r
0022720 ( ) \r \ S E L E C T / S E L E C
0022740 T 1 D 1 \r ( L ( 1 L 0
0022760 M ) ) \0 9 002 \0 \0 002 021 001 A X 002
0023000 b 002 241 H 020 H 001 X d 001 003 257 277 @ H 001
0023020 g \0 \0 \n \0 \0 360 262 346 H 002 020 001 271 @ I
0023040 001 g \0 \0 \n \0 \0 360 263 361 I 002 Y 003 262 317
0023060 260 356 \0 ( 5 4 Q E V A L 3 3 Q
0023100 E V A L ) \r ( 5 1 Q I N T E
0023120 R N A L 3 0 Q I N T E R N A
0023140 L ) \r ( ) \r \ A P P E N D 2 D
0023160 1 \r ( L ( 1 L 2 0 L 1 )
0023200 ) \0 & 002 \0 \0 002 @ 003 265 \b A 003 265 032
0023220 @ 020 001 A 032 021 021 001 H Y @ 002 b \0 003 265
0023240 \n I A 265 003 @ 031 H 020 001 & 260 356 \0 N I
0023260 L \r N I L \r ( ) \r C O N S T A N
0023300 T S D 1 \r ( I 0 V A R S )
0023320 \0 6 001 \0 003 001 ` \0 \0 250 l d \t \0 \0
0023340 027 \0 \0 277 @ 260 " d 001 021 001 \0 H d 003 227
0023360 001 g \0 \0 H 002 001 203 g \0 \0 H h 032 032 `
0023400 \0 \0 \v \0 \0 023 002 003 265 337 @ 020 \0 ( 5 5
0023420 Q P U T H A S H 1 0 Q H A
0023440 S H A R R A Y ) \r ( 5 2 Q C O
0023460 M P V A R M A C R O H A S H 4
0023500 3 Q C O N S T A N T 3 4 Q
0023520 C O N S T A N T 1 3 Q C O M
0023540 P V A R M A C R O H A S H 2
0023560 C O M P V A R M A C R O H A S H
0023600 ) \r ( ) \r C O N S T A N T E X P
0023620 R E S S I O N P D 1 \r ( P 5
0023640 M A C P 4 X I 0 F
0023660 O R M F 6 C O M P I L E R
0023700 M A C R O P R O P S ) \0 227 006 001
0023720 \0 001 @ d 004 l 004 360 262 037 d 242 261 \0 211 d
0023740 i 360 222 261 \0 202 277 ` \0 \0 264 } @ ` \0 \0
0023760 035 b \0 264 t 260 335 003 262 _ @ d 001 g \0 \0
0024000 360 221 002 020 001 ` \0 \0 034 262 0 @ 002 021 A 004
0024020 H 003 265 \v @ 001 I \n \0 \0 h 032 020 001 \ \t
0024040 \0 \0 d 262 D 001 273 J 265 \f K h 032 Z 271 H
0024060 002 X 260 337 K & 272 260 370 @ 001 V \n \0 \0 021
0024100 001 005 M 264 $ @ d M \n \0 \0 b \0 364 h 360
0024120 264 027 @ \t \0 \0 020 @ d 005 001 245 d 005 002 241
0024140 005 003 264 005 @ h 032 020 \0 ( 2 0 3 Q C
0024160 O N S T A N T E X P R E S S I O
0024200 N P 1 7 0 Q M A C R O E X P
0024220 A N S I O N 1 5 4 Q G E T M
0024240 A C R O P R O P 1 1 7 Q C O
0024260 N S T A N T E X P R E S S I O N
0024300 P 1 0 7 Q A P P L Y ) \r ( 6
0024320 5 Q C O N S T A N T F O L D F
0024340 N S 5 5 Q Q U O T E 3 5 Q
0024360 C O M P V A R M A C R O H A S
0024400 H 2 7 Q C O M P V A R M A C
0024420 R O H A S H ) \r ( ) \r D E F I N
0024440 E Q D 1 \r ( I 0 X ) \0 006
0024460 \0 \0 003 001 @ \t \0 \0 020 \0 ( 3 D E F
0024500 I N E ) \r N I L \r ( ) \r D E F L
0024520 I S T D 1 \r ( I 1 P R O P
0024540 I 0 L ) \0 030 \0 \0 \0 002 @ 003
0024560 241 h 020 @ 001 001 A @ 001 002 001 \v \0 \0 277 @
0024600 002 b \0 260 354 \0 ( 1 7 Q P U T P R
0024620 O P ) \r N I L \r ( ) \r E Q L E N
0024640 G T H D 1 \r ( I 1 N I
0024660 0 X ) \0 \0 \0 \0 002 j A 361 221 h
0024700 020 A j 360 224 @ 003 h 360 020 @ A \n \0 \0 b
0024720 \0 003 264 \a @ 002 003 h 360 020 \0 ( 2 3 Q
0024740 N T H ) \r N I L \r ( ) \r E R S E
0024760 T Q D 1 \r ( I 0 E R S E T
0025000 X ) \0 \a \0 \0 001 001 @ i \n \0 \0 020 \0
0025020 ( 4 E R R O R S E T ) \r N I L
0025040 \r ( ) \r N L S E T Q D 1 \r ( I
0025060 0 N L S E T X ) \0 006 \0 \0 001
0025100 001 @ \t \0 \0 020 \0 ( 3 E R R O R S
0025120 E T ) \r N I L \r ( ) \r R P T D
0025140 1 \r ( I 1 R P T F I 0
0025160 R P T N ) \0 031 001 \0 \0 002 021 020 \0 @
0025200 j 361 236 A g \0 \0 \n \0 \0 270 @ k 331 b \0
0025220 260 360 H 020 \0 ( 1 5 Q E V A L ) \r
0025240 ( 1 2 Q I N T E R N A L ) \r (
0025260 ) \r S E L E C T C D 1 \r ( L
0025300 ( 0 S E L C Q ) ) \0 : 004 \0 003
0025320 001 g \0 \0 @ 001 g \0 \0 \n \0 \0 @ 002 021 "
0025340 003 I Z 002 Y 242 J 260 033 J 001 Z 001 g \0 \0
0025360 \n \0 \0 [ H 360 250 K 003 262 350 H K 034 262 343
0025400 J 002 022 g \0 \0 \v \0 \0 020 \0 ( 6 7 Q
0025420 A P P L Y 4 1 Q E V A L 1
0025440 2 Q E V A L ) \r ( 6 4 Q S E
0025460 L E C T Q 3 6 Q I N T E R N
0025500 A L 7 S E L E C T Q 2 P
0025520 R O G N ) \r ( ) \r I N T E G E R
0025540 L E N G T H . D E C I M A L D
0025560 1 \r ( L ( 0 N ) ) \0 f \0 \0
0025600 \0 001 @ n 377 377 361 227 o \0 \0 \0 @ 361 262 -
0025620 n 003 350 @ 361 262 032 l \n @ 361 227 k @ 361 221
0025640 j 020 k 020 l d @ 361 222 l 002 020 l 003 020 n
0025660 ' 020 @ 361 222 l 004 020 l 005 020 o \0 \0 \0 @
0025700 361 262 # o \0 \0 \0 @ 361 234 o \0 \0 \0 @ 361
0025720 222 l 006 020 l \a 020 o \0 \0 \0 @ 361 222 l \b
0025740 020 l \t 020 l \n 020 \0 N I L \r N I L \r
0025760 ( 1 3 0 Q 5 7 5 3 6 0 4 0 0
0026000 Q 1 1 3 Q 3 6 4 1 1 0 0 Q
0026020 1 0 4 Q 4 6 1 1 3 2 0 0 Q 7
0026040 4 Q 7 3 4 6 5 4 5 0 0 0 Q 1
0026060 1 Q 3 0 3 2 4 0 Q ) \r \ S E T
0026100 U P T I M E R m a c r o f n D
0026120 1 \r ( P 7 F O R M P 4
0026140 C L O C K F N N A M E P 3
0026160 I n t e r v a l U n i t s P
0026200 2 T i m e r U n i t s P 1
0026220 T I M E R F O R M P 0 I
0026240 N T E R V A L F O R M I 1
0026260 N O E R R O R C H K S I 0
0026300 X ) 001 205 \b \0 \0 002 @ 001 @ 002 001 @ 002
0026320 002 001 \t \0 \0 @ 002 002 002 001 \t \0 \0 021 4 006
0026340 J 221 K 243 g \0 \0 020 J 001 ] d g \0 \0 360
0026360 263 < d g \0 \0 360 263 5 d g \0 \0 360 263 .
0026400 d g \0 \0 360 225 277 g \0 \0 260 " 235 M g \0
0026420 \0 360 247 M d g \0 \0 360 224 277 g \0 \0 214 g
0026440 \0 \0 360 223 g \0 \0 203 M \t \0 \0 Z K d 001
0026460 243 277 d 260 E 001 ^ d g \0 \0 360 263 < d g
0026500 \0 \0 360 263 5 d g \0 \0 360 263 . d g \0 \0
0026520 360 225 277 g \0 \0 260 " 235 N g \0 \0 360 247 N
0026540 d g \0 \0 360 224 277 g \0 \0 214 g \0 \0 360 223
0026560 g \0 \0 203 N \t \0 \0 [ J d g \0 \0 360 262
0026600 ) 277 d d g \0 \0 360 231 277 g \0 \0 H o \0
0026620 \0 \0 214 g \0 \0 360 232 g \0 \0 H o \0 \0 \0
0026640 032 032 270 g \0 \0 260 ] g \0 \0 360 262 ( K d
0026660 g \0 \0 360 231 277 g \0 \0 H o \0 \0 \0 214 g
0026700 \0 \0 360 232 g \0 \0 H o \0 \0 \0 032 032 270 g
0026720 \0 \0 260 1 J g \0 \0 360 262 ' K d g \0 \0
0026740 360 231 277 g \0 \0 H o \0 \0 \0 214 g \0 \0 360
0026760 232 g \0 \0 H o \0 \0 \0 032 032 270 g \0 \0 202
0027000 \b \0 \0 \ A 263 : I \t \0 \0 225 o \0 \0 \0
0027020 260 . o \0 \0 \0 021 001 \a I 003 252 I g \0 \0
0027040 O 016 \v \0 \0 260 030 g \0 \0 o \0 \0 \0 o \0
0027060 \0 \0 O 016 h 032 032 032 032 I h 032 032 022 271 g
0027100 \0 \0 L I h 032 032 H h 032 032 032 020 \0 ( 5
0027120 3 3 Q S U B S T 5 0 1 Q C
0027140 O N S T A N T E X P R E S S I O
0027160 N P 4 7 1 Q S H O U L D N T
0027200 2 5 6 Q \ C a n o n i c a l
0027220 i z e T i m e r U n i t s 1 4
0027240 2 Q \ C a n o n i c a l i z e
0027260 T i m e r U n i t s 2 3 Q C
0027300 O N S T A N T E X P R E S S I O
0027320 N P 1 3 Q C O N S T A N T E
0027340 X P R E S S I O N P ) \r ( 5 7 0
0027360 Q \ T I M E R . P L U S 5 4
0027400 0 Q L A M B D A 5 2 6 Q T
0027420 i m e r ? 4 6 5 Q \ T I M E
0027440 R . I N . S E C O N D S 4 5 2
0027460 Q I Q U O T I E N T 4 4 5 Q
0027500 T I C K S 4 3 4 Q I Q U O
0027520 T I E N T 4 2 6 Q M I L L I
0027540 S E C O N D S 4 1 6 Q S E C
0027560 O N D S 4 1 0 Q \ T I M E R
0027600 . I N . M I L L I S E C O N D S
0027620 3 7 5 Q I T I M E S 3 7 0
0027640 Q S E C O N D S 3 5 7 Q I
0027660 Q U O T I E N T 3 5 1 Q T I
0027700 C K S 3 4 1 Q M I L L I S E
0027720 C O N D S 3 3 4 Q \ T I M E
0027740 R . I N . T I C K S 3 2 1 Q
0027760 I T I M E S 3 1 4 Q S E C O
0030000 N D S 3 0 3 Q I T I M E S
0030020 2 7 5 Q M I L L I S E C O N D
0030040 S 2 6 4 Q T I C K S 2 5 1
0030060 Q S E C O N D S 2 4 4 Q S
0030100 E C S 2 4 0 Q M I L L I S E
0030120 C O N D S 2 3 2 Q M I L L I
0030140 S E C S 2 2 3 Q M S 2 1 4
0030160 Q T I C K S 2 0 6 Q T I C
0030200 S 1 7 7 Q S E C O N D S 1
0030220 7 0 Q M I L L I S E C O N D S
0030240 1 6 1 Q T I C K S 1 3 5 Q
0030260 S E C O N D S 1 3 0 Q S E
0030300 C S 1 2 4 Q M I L L I S E C
0030320 O N D S 1 1 6 Q M I L L I S
0030340 E C S 1 0 7 Q M S 1 0 0 Q
0030360 T I C K S 7 2 Q T I C S
0030400 6 3 Q S E C O N D S 5 4 Q
0030420 M I L L I S E C O N D S 4 5 Q
0030440 T I C K S 3 5 Q I G N O R
0030460 E M A C R O ) \r ( 5 5 0 Q (
0030500 D E C L A R E ( L O C A L V A
0030520 R S T i m e r ? ) ) 5 4 4 Q
0030540 ( T i m e r ? ) 5 1 4 Q (
0030560 C O N D ( ( \ T I M E R . T I
0030600 M E R P T i m e r ? ) T i m
0030620 e r ? ) ( T ( \ T I M E R .
0030640 M A K E T I M E R ) ) ) 5 0 6
0030660 Q ( \ T I M E R . M A K E T I
0030700 M E R ) 4 5 7 Q ( \ R C L K
0030720 S E C O N D ) 4 4 1 Q ( 1 7
0030740 5 0 Q ) 4 0 2 Q ( 1 7 5 0 Q
0030760 ) 3 6 4 Q ( \ R C L K M I L
0031000 L I S E C O N D ) 3 2 6 Q (
0031020 \ R C L K S E C O N D ) 3 1 0
0031040 Q ( \ R C L K M I L L I S E C
0031060 O N D ) ) \r \ T I M E R . T I M
0031100 E R P D 1 \r ( L ( 0 X ) )
0031120 \0 \a \0 \0 \0 001 @ 004 l 002 360 020 \0 N I
0031140 L \r N I L \r ( ) \r \ T I M E R .
0031160 M A K E T I M E R D 1 \r ( I
0031200 0 X ) \0 005 \0 \0 \0 001 l 002 037 020 \0
0031220 N I L \r N I L \r ( ) \r \ S E T U
0031240 P T I M E R m a c r o f n D 1
0031260 \r ( P 7 F O R M P 4 C
0031300 L O C K F N N A M E P 3 I
0031320 n t e r v a l U n i t s P 2
0031340 T i m e r U n i t s P 1
0031360 T I M E R F O R M P 0 I N
0031400 T E R V A L F O R M I 1 N
0031420 O E R R O R C H K S I 0 X
0031440 ) 001 205 \b \0 \0 002 @ 001 @ 002 001 @ 002 002
0031460 001 \t \0 \0 @ 002 002 002 001 \t \0 \0 021 4 006 J
0031500 221 K 243 g \0 \0 020 J 001 ] d g \0 \0 360 263
0031520 < d g \0 \0 360 263 5 d g \0 \0 360 263 . d
0031540 g \0 \0 360 225 277 g \0 \0 260 " 235 M g \0 \0
0031560 360 247 M d g \0 \0 360 224 277 g \0 \0 214 g \0
0031600 \0 360 223 g \0 \0 203 M \t \0 \0 Z K d 001 243
0031620 277 d 260 E 001 ^ d g \0 \0 360 263 < d g \0
0031640 \0 360 263 5 d g \0 \0 360 263 . d g \0 \0 360
0031660 225 277 g \0 \0 260 " 235 N g \0 \0 360 247 N d
0031700 g \0 \0 360 224 277 g \0 \0 214 g \0 \0 360 223 g
0031720 \0 \0 203 N \t \0 \0 [ J d g \0 \0 360 262 )
0031740 277 d d g \0 \0 360 231 277 g \0 \0 H o \0 \0
0031760 \0 214 g \0 \0 360 232 g \0 \0 H o \0 \0 \0 032
0032000 032 270 g \0 \0 260 ] g \0 \0 360 262 ( K d g
0032020 \0 \0 360 231 277 g \0 \0 H o \0 \0 \0 214 g \0
0032040 \0 360 232 g \0 \0 H o \0 \0 \0 032 032 270 g \0
0032060 \0 260 1 J g \0 \0 360 262 ' K d g \0 \0 360
0032100 231 277 g \0 \0 H o \0 \0 \0 214 g \0 \0 360 232
0032120 g \0 \0 H o \0 \0 \0 032 032 270 g \0 \0 202 \b
0032140 \0 \0 \ A 263 : I \t \0 \0 225 o \0 \0 \0 260
0032160 . o \0 \0 \0 021 001 \a I 003 252 I g \0 \0 O
0032200 016 \v \0 \0 260 030 g \0 \0 o \0 \0 \0 o \0 \0
0032220 \0 O 016 h 032 032 032 032 I h 032 032 022 271 g \0
0032240 \0 L I h 032 032 H h 032 032 032 020 \0 ( 5 3
0032260 3 Q S U B S T 5 0 1 Q C O
0032300 N S T A N T E X P R E S S I O N
0032320 P 4 7 1 Q S H O U L D N T
0032340 2 5 6 Q \ C a n o n i c a l i
0032360 z e T i m e r U n i t s 1 4 2
0032400 Q \ C a n o n i c a l i z e T
0032420 i m e r U n i t s 2 3 Q C O
0032440 N S T A N T E X P R E S S I O N
0032460 P 1 3 Q C O N S T A N T E X
0032500 P R E S S I O N P ) \r ( 5 7 0 Q
0032520 \ T I M E R . P L U S 5 4 0
0032540 Q L A M B D A 5 2 6 Q T i
0032560 m e r ? 4 6 5 Q \ T I M E R
0032600 . I N . S E C O N D S 4 5 2 Q
0032620 I Q U O T I E N T 4 4 5 Q
0032640 T I C K S 4 3 4 Q I Q U O T
0032660 I E N T 4 2 6 Q M I L L I S
0032700 E C O N D S 4 1 6 Q S E C O
0032720 N D S 4 1 0 Q \ T I M E R .
0032740 I N . M I L L I S E C O N D S
0032760 3 7 5 Q I T I M E S 3 7 0 Q
0033000 S E C O N D S 3 5 7 Q I Q
0033020 U O T I E N T 3 5 1 Q T I C
0033040 K S 3 4 1 Q M I L L I S E C
0033060 O N D S 3 3 4 Q \ T I M E R
0033100 . I N . T I C K S 3 2 1 Q I
0033120 T I M E S 3 1 4 Q S E C O N
0033140 D S 3 0 3 Q I T I M E S 2
0033160 7 5 Q M I L L I S E C O N D S
0033200 2 6 4 Q T I C K S 2 5 1 Q
0033220 S E C O N D S 2 4 4 Q S E
0033240 C S 2 4 0 Q M I L L I S E C
0033260 O N D S 2 3 2 Q M I L L I S
0033300 E C S 2 2 3 Q M S 2 1 4 Q
0033320 T I C K S 2 0 6 Q T I C S
0033340 1 7 7 Q S E C O N D S 1 7
0033360 0 Q M I L L I S E C O N D S
0033400 1 6 1 Q T I C K S 1 3 5 Q
0033420 S E C O N D S 1 3 0 Q S E C
0033440 S 1 2 4 Q M I L L I S E C O
0033460 N D S 1 1 6 Q M I L L I S E
0033500 C S 1 0 7 Q M S 1 0 0 Q
0033520 T I C K S 7 2 Q T I C S 6
0033540 3 Q S E C O N D S 5 4 Q M
0033560 I L L I S E C O N D S 4 5 Q
0033600 T I C K S 3 5 Q I G N O R E
0033620 M A C R O ) \r ( 5 5 0 Q ( D
0033640 E C L A R E ( L O C A L V A R
0033660 S T i m e r ? ) ) 5 4 4 Q
0033700 ( T i m e r ? ) 5 1 4 Q ( C
0033720 O N D ( ( \ T I M E R . T I M
0033740 E R P T i m e r ? ) T i m e
0033760 r ? ) ( T ( \ T I M E R . M
0034000 A K E T I M E R ) ) ) 5 0 6 Q
0034020 ( \ T I M E R . M A K E T I M
0034040 E R ) 4 5 7 Q ( \ R C L K S
0034060 E C O N D ) 4 4 1 Q ( 1 7 5
0034100 0 Q ) 4 0 2 Q ( 1 7 5 0 Q )
0034120 3 6 4 Q ( \ R C L K M I L L
0034140 I S E C O N D ) 3 2 6 Q ( \
0034160 R C L K S E C O N D ) 3 1 0 Q
0034200 ( \ R C L K M I L L I S E C O
0034220 N D ) ) \r \ C a n o n i c a l i
0034240 z e T i m e r U n i t s D 1 \r
0034260 ( P 1 C O N V E R T E D P
0034300 P 0 Y I 0 X ) \0 202 002
0034320 \0 \0 001 @ g \0 \0 360 246 @ d g \0 \0 360 223
0034340 g \0 \0 020 g \0 \0 360 256 @ 234 @ g \0 \0 360
0034360 246 @ d g \0 \0 360 223 g \0 \0 020 g \0 \0 360
0034400 246 @ d g \0 \0 360 223 g \0 \0 020 021 021 001 H
0034420 g \0 \0 360 263 314 H d g \0 \0 360 263 304 g \0
0034440 \0 360 263 326 H g \0 \0 360 263 317 H d g \0 \0
0034460 360 263 307 g \0 \0 360 263 321 H g \0 \0 360 263 312
0034500 I 251 H \t \0 \0 X i 271 277 260 305 g \0 \0 @
0034520 \n \0 \0 020 \0 ( 1 7 7 Q E R R O R
0034540 1 6 2 Q U - C A S E ) \r ( 1
0034560 7 3 Q I n v a l i d % a r g
0034600 % f o r % t i m e r % u n
0034620 i t s 1 5 1 Q S E C S 1 4
0034640 2 Q S E C O N D S 1 3 4 Q
0034660 M I L L I S E C S 1 2 4 Q M
0034700 S 1 1 5 Q M I L L I S E C O
0034720 N D S 1 0 7 Q T I C S 7 7
0034740 Q T I C K S 6 7 Q S E C O
0034760 N D S 6 2 Q s e c s 5 3 Q
0035000 s e c o n d s 4 7 Q M I L
0035020 L I S E C O N D S 4 2 Q m i
0035040 l l i s e c s 3 3 Q m s 2
0035060 3 Q m i l l i s e c o n d s
0035100 1 7 Q T I C K S 1 2 Q t i
0035120 c s 3 t i c k s ) \r ( ) \r S
0035140 E T U P T I M E R D 1 \r ( I
0035160 3 i n t e r v a l U n i t s
0035200 I 2 t i m e r U n i t s I
0035220 1 O l d T i m e r ? I 0
0035240 I N T E R V A L ) 001 036 \0 \0 \0
0035260 004 @ j 330 b \0 A 004 l 002 360 245 l 002 037 b
0035300 002 277 B d g \0 \0 360 263 < d g \0 \0 360 263
0035320 5 d g \0 \0 360 263 . d g \0 \0 360 225 277 g
0035340 \0 \0 260 " 235 B g \0 \0 360 247 B d g \0 \0
0035360 360 224 277 g \0 \0 214 g \0 \0 360 223 g \0 \0 203
0035400 B \t \0 \0 b 004 C 265 005 d 260 D g \0 \0 360
0035420 256 C d g \0 \0 360 263 7 d g \0 \0 360 223 277
0035440 C 260 - g \0 \0 360 224 g \0 \0 260 # C 235 C
0035460 g \0 \0 360 247 C d g \0 \0 360 224 277 g \0 \0
0035500 214 g \0 \0 360 223 g \0 \0 203 C \t \0 \0 b 006
0035520 B d g \0 \0 360 262 $ 277 d d g \0 \0 360 224
0035540 277 ` \0 \0 207 g \0 \0 360 227 ` \0 \0 @ 332 b
0035560 \0 277 A 006 \0 \0 w @ 366 020 g \0 \0 360 262 $
0035600 C d g \0 \0 360 226 277 @ ` \0 \0 333 211 g \0
0035620 \0 360 227 @ n 003 350 332 b \0 277 A \t \0 \0 @
0035640 366 020 B g \0 \0 360 262 # C d g \0 \0 360 225
0035660 277 @ n 003 350 210 g \0 \0 360 227 @ ` \0 \0 333
0035700 b \0 277 A \t \0 \0 @ 366 020 \b \0 \0 020 \0 (
0035720 4 3 3 Q S H O U L D N T 4 2
0035740 5 Q \ D A Y T I M E 0 3 5 5
0035760 Q \ C L O C K 0 2 3 4 Q \
0036000 C a n o n i c a l i z e T i m e
0036020 r U n i t s 1 2 2 Q \ C a n
0036040 o n i c a l i z e T i m e r U n
0036060 i t s ) \r ( 4 1 5 Q \ R C L K
0036100 S E C O N D 4 0 7 Q T I C K
0036120 S 3 7 4 Q M I L L I S E C O
0036140 N D S 3 6 4 Q S E C O N D S
0036160 3 3 7 Q S E C O N D S 3 3
0036200 2 Q \ R C L K M I L L I S E C
0036220 O N D 3 2 3 Q T I C K S 3
0036240 1 3 Q M I L L I S E C O N D S
0036260 3 0 4 Q F I X P 2 7 3 Q
0036300 \ R C L K S E C O N D 2 6 6 Q
0036320 S E C O N D S 2 6 2 Q \ R
0036340 C L K M I L L I S E C O N D 2
0036360 5 4 Q M I L L I S E C O N D S
0036400 2 4 3 Q T I C K S 2 2 7 Q
0036420 S E C O N D S 2 2 2 Q S E
0036440 C S 2 1 6 Q M I L L I S E C
0036460 O N D S 2 1 0 Q M I L L I S
0036500 E C S 2 0 1 Q M S 1 7 1 Q
0036520 T I C K S 1 6 4 Q T I C S
0036540 1 5 3 Q S E C O N D S 1 4
0036560 4 Q M I L L I S E C O N D S
0036600 1 3 5 Q T I C K S 1 1 5 Q
0036620 S E C O N D S 1 1 0 Q S E C
0036640 S 1 0 4 Q M I L L I S E C O
0036660 N D S 7 6 Q M I L L I S E C
0036700 S 6 7 Q M S 6 0 Q T I C
0036720 K S 5 2 Q T I C S 4 3 Q
0036740 S E C O N D S 3 4 Q M I L L
0036760 I S E C O N D S 2 5 Q T I C
0037000 K S ) \r ( ) \r S E T U P T I M E
0037020 R . D A T E D 1 \r ( I 1 O
0037040 l d T i m e r ? I 0 D T S
0037060 ) \0 031 \0 \0 \0 002 A 004 l 002 360 221 A 202
0037100 l 002 037 \t \0 \0 @ \t \0 \0 \b \0 \0 331 366 020
0037120 \0 ( 2 4 Q I D A T E 2 1 Q
0037140 I D A T E 1 5 Q \ D A Y T I
0037160 M E 0 ) \r N I L \r ( ) \r T I M E
0037200 R E X P I R E D ? D 1 \r ( P
0037220 0 \ I N T E R R U P T A B L E
0037240 I 1 C l o c k V a l u e .
0037260 o r . t i m e r U n i t s I
0037300 0 T I M E R ) \0 362 005 \0 \0 002 @
0037320 004 l 002 360 251 l 033 @ h 032 032 \t \0 \0 020 A
0037340 d 004 l 002 360 262 Q 277 021 020 \0 j ` \0 \0 A
0037360 021 " 004 J 004 d k 360 262 023 277 j J 361 244 j
0037400 273 J 260 025 n 377 377 273 J 323 213 l 002 360 264 \t
0037420 J 310 \0 273 J 310 001 \ 251 J l 033 i \v \0 \0
0037440 Z 260 323 I K 315 \0 277 I L 315 001 023 ` \0 \0
0037460 @ 367 361 h 360 020 g \0 \0 360 256 A d g \0 \0
0037500 360 263 7 d g \0 \0 360 223 277 A 260 - g \0 \0
0037520 360 224 g \0 \0 260 # A 235 A g \0 \0 360 247 A
0037540 d g \0 \0 360 224 277 g \0 \0 214 g \0 \0 360 223
0037560 g \0 \0 203 A \t \0 \0 d g \0 \0 360 262 024 277
0037600 021 020 \0 j ` \0 \0 006 \0 \0 w @ 367 361 h 360
0037620 020 d g \0 \0 360 262 023 277 021 020 \0 j ` \0 \0
0037640 \t \0 \0 @ 367 361 h 360 020 g \0 \0 360 264 022 021
0037660 020 \0 j ` \0 \0 \t \0 \0 @ 367 361 022 h 360 020
0037700 \0 ( 3 5 1 Q \ D A Y T I M E 0
0037720 3 2 3 Q \ C L O C K 0 2 5
0037740 0 Q \ C a n o n i c a l i z e
0037760 T i m e r U n i t s 1 2 0 Q
0040000 \ L I S P E R R O R 1 6 Q E
0040020 R R O R X ) \r ( 3 4 6 Q \ T I
0040040 M E R E X P I R E D . B O X 3
0040060 3 4 Q S E C O N D S 3 2 0 Q
0040100 \ T I M E R E X P I R E D . B
0040120 O X 3 0 5 Q M I L L I S E C
0040140 O N D S 2 7 2 Q F I X P 2
0040160 6 7 Q \ T I M E R E X P I R E
0040200 D . B O X 2 5 4 Q T I C K S
0040220 2 4 3 Q S E C O N D S 2 3
0040240 6 Q S E C S 2 3 2 Q M I L
0040260 L I S E C O N D S 2 2 4 Q M
0040300 I L L I S E C S 2 1 5 Q M S
0040320 2 0 5 Q T I C K S 2 0 0 Q
0040340 T I C S 1 6 7 Q S E C O N
0040360 D S 1 6 0 Q M I L L I S E C
0040400 O N D S 1 5 1 Q T I C K S
0040420 1 4 0 Q \ T I M E R E X P I R
0040440 E D . B O X 3 7 Q \ T I M E
0040460 R E X P I R E D . B O X ) \r ( )
0040500 \r ( P R E T T Y C O M P R I N T
0040520 M I S C C O M S ) \r ( R P A Q
0040540 Q M I S C C O M S ( ( F N S
0040560 A D D 1 V A R A D D T O V A
0040600 R A P P E N D T O V A R A P
0040620 P E N D \ A P P E N D 2 A S
0040640 S O C A T T A C H C H A N G
0040660 E P R O P C O N S T A N T S
0040700 \r C O N S T A N T E X P R E S S
0040720 I O N P C O P Y D E F I N E
0040740 Q D E F L I S T D R E M O V
0040760 E D R E V E R S E D S U B S
0041000 T E Q L E N G T H E R S E T
0041020 Q E V E R Y G E N S Y M G
0041040 E N S Y M ? \r \ G S . I N I T
0041060 B U F G E T L I S I N T E R
0041100 S E C T I O N K W O T E L A
0041120 S T L A S T N L C O N C L
0041140 D I F F L D I F F E R E N C E
0041160 L E N G T H L I S T G E T
0041200 L I S T G E T 1 \r L I S T P U
0041220 T L I S T P U T 1 L S U B S
0041240 T M A P M A P 2 C M A P 2
0041260 C A R M A P C M A P C A R
0041300 M A P C O N M A P C O N C M
0041320 A P L I S T M E M B E R N L
0041340 E F T N L S E T Q \r N O T A
0041360 N Y N O T E V E R Y N T H
0041400 P U T A S S O C R A T O M S
0041420 R E M O V E R E V E R S E R
0041440 P T R P T Q F R P T Q S A
0041460 S S O C S A V E D E F S A V
0041500 E D E F 1 S E L E C T \r S E
0041520 L E C T 1 S E L E C T C S E
0041540 T Q Q S O M E S T R M E M B
0041560 S U B 1 V A R S U B S E T
0041600 S U B S T T A I L P T C O N
0041620 C T I M E U N I O N I N T
0041640 E G E R L E N G T H . D E C I M
0041660 A L ) \r ( D E C L A R E : D
0041700 O N T E V A L @ L O A D D O C
0041720 O P Y ( I N I T V A R S ( C
0041740 O M P V A R M A C R O H A S H
0041760 N I L ) ) ) ( A D D V A R S
0042000 ( C O N S T A N T F O L D F N S
0042020 P L U S I P L U S \r T I M
0042040 E S I T I M E S D I F F E R
0042060 E N C E I D I F F E R E N C E
0042100 Q U O T I E N T I Q U O T I
0042120 E N T I M I N I M A X I A
0042140 B S L L S H L R S H L O G
0042160 O R L O G X O R L O G A N D
0042200 \r O R A N D ) ) ( G L O B
0042220 A L V A R S C O M P V A R M A
0042240 C R O H A S H C O N S T A N T
0042260 F O L D F N S ) ( D E C L A R
0042300 E : E V A L @ C O M P I L E
0042320 D O N T C O P Y ( C O N S T A
0042340 N T S ( \r \ G S . B U F S I Z
0042360 E 1 0 0 ) ) ( M A C R O S
0042400 R P L C H A R C O D E M I S C
0042420 . N O T I N T E R R U P T A B L
0042440 E ) ( D E C L A R E : E V A
0042460 L @ C O M P I L E W H E N ( N
0042500 E Q \r C O M P I L E M O D E
0042520 ( Q U O T E D ) ) E V A L @
0042540 L O A D W H E N ( N E Q C O
0042560 M P I L E M O D E ( Q U O T E
0042600 D ) ) ( C O N S T A N T S
0042620 ( M A X . F I X P M A X . I N
0042640 T E G E R ) ) ) ) \r ( I N I T
0042660 V A R S ( G E N N U M 0 )
0042700 ( \ G S . O G E N N U M - 1 )
0042720 ( \ G S . N U M L E N 0 )
0042740 ( \ G S . B U F N I L ) ( \
0042760 G S . S T R ( A L L O C S T R
0043000 I N G 0 ) ) ) ( P R O P \r
0043020 A R G N A M E S G E N S Y M )
0043040 ( A L I S T S ( P R E T T Y
0043060 E Q U I V L S T S E L E C T C
0043100 ) ( D W I M E Q U I V L S T
0043120 S E L E C T C ) ) ( B L O C K
0043140 S ( C O P Y C O P Y ) ( S
0043160 U B S T \r S U B S T ) ( D S
0043200 U B S T D S U B S T ) ( L S
0043220 U B S T L S U B S T ) ( N I
0043240 L G E N S Y M G E N S Y M ?
0043260 \ G S . I N I T B U F ( L I
0043300 N K F N S . T ) ( G L O B
0043320 A L V A R S \r G E N N U M \
0043340 G S . O G E N N U M \ G S . N
0043360 U M L E N \ G S . B U F \ G
0043400 S . S T R ) ) ( N I L A D D
0043420 1 V A R A P P E N D A S S O
0043440 C A T T A C H C H A N G E P
0043460 R O P D R E M O V E \r D R E
0043500 V E R S E E V E R Y G E T L
0043520 I S I N T E R S E C T I O N
0043540 K W O T E L A S T L A S T N
0043560 L C O N C L D I F F L D I
0043600 F F E R E N C E L E N G T H
0043620 L I S T G E T L I S T G E T 1
0043640 \r L I S T P U T L I S T P U
0043660 T 1 M A P M A P 2 C M A P
0043700 2 C A R M A P C M A P C A R
0043720 M A P C O N M A P C O N C
0043740 M A P L I S T M E M B E R N
0043760 L E F T N O T A N Y N O T E
0044000 V E R Y N T H \r P U T A S S
0044020 O C R A T O M S R E M O V E
0044040 R E V E R S E R P T Q F R
0044060 P T Q S A S S O C S A V E D
0044100 E F S A V E D E F 1 S E T Q
0044120 Q S O M E S T R M E M B S
0044140 U B 1 V A R S U B S E T \r T
0044160 A I L P T C O N C T I M E
0044200 U N I O N ( L O C A L V A R S
0044220 . T ) ) ( N I L A D D T
0044240 O V A R A P P E N D T O V A R
0044260 ( L O C A L V A R S . T )
0044300 ( G L O B A L V A R S D F N
0044320 F L G ) ) \r ( S E L E C T S
0044340 E L E C T S E L E C T 1 ) )
0044360 ( C O M S * D U R A T I O N
0044400 C O M S ) ( D E C L A R E :
0044420 E V A L @ C O M P I L E D O N
0044440 T C O P Y ( A D D V A R S (
0044460 B L K L I B R A R Y \r E Q U A
0044500 L ) ) ) ( D E C L A R E : D
0044520 O N T E V A L @ L O A D D O E
0044540 V A L @ C O M P I L E D O N T
0044560 C O P Y C O M P I L E R V A R
0044600 S ( A D D V A R S ( N L A M
0044620 A S E L E C T C S E L E C T
0044640 \r F R P T Q R P T Q D E F
0044660 I N E Q C O N S T A N T S A
0044700 P P E N D T O V A R A D D T O
0044720 V A R ) ( N L A M L T I M E
0044740 S U B 1 V A R S E T Q Q N
0044760 L S E T Q E R S E T Q A D D
0045000 1 V A R ) ( \r L A M A A P P
0045020 E N D ) ) ) ) ) \r ( R P A Q ?
0045040 C O M P V A R M A C R O H A S H
0045060 N I L ) \r ( A D D T O V A R
0045100 C O N S T A N T F O L D F N S
0045120 P L U S I P L U S T I M E S
0045140 I T I M E S D I F F E R E N
0045160 C E I D I F F E R E N C E Q
0045200 U O T I E N T I Q U O T I E N
0045220 T I M I N I M A X \r I A B
0045240 S L L S H L R S H L O G O
0045260 R L O G X O R L O G A N D
0045300 O R A N D ) \r ( R P A Q ? G
0045320 E N N U M 0 ) \r ( R P A Q ?
0045340 \ G S . O G E N N U M - 1 ) \r
0045360 ( R P A Q ? \ G S . N U M L E
0045400 N 0 ) \r ( R P A Q ? \ G S .
0045420 B U F N I L ) \r ( R P A Q ?
0045440 \ G S . S T R ( A L L O C S T
0045460 R I N G 0 ) ) \r ( P U T P R O
0045500 P S G E N S Y M A R G N A M
0045520 E S ( P R E F I X - - ) ) \r
0045540 ( A D D T O V A R P R E T T Y
0045560 E Q U I V L S T ( S E L E C T
0045600 C . S E L E C T Q ) ) \r ( A
0045620 D D T O V A R D W I M E Q U I
0045640 V L S T ( S E L E C T C .
0045660 S E L E C T Q ) ) \r ( R P A Q Q
0045700 D U R A T I O N C O M S ( (
0045720 * D U R A T I O N a n d T
0045740 I M E R t h i n g s ) ( D E
0045760 C L A R E : E V A L @ C O M P
0046000 I L E D O N T C O P Y ( *
0046020 N e x t f e w a r e \r m o
0046040 s t l y j u s t t o m a k
0046060 e t h e f u n c t i o n s
0046100 T I M E R E X P I R E D ? a n
0046120 d S E T U P T I M E R a r e
0046140 " m a c h i n e i n d e p e
0046160 n d e n t " ) ( M A C R O S
0046200 \r T I M E R . M A K E S A F E T
0046220 I M E R T I M E R . T I M E R
0046240 E X P I R E D ? E X P A N D .
0046260 S E T U P T I M E R ) ( * N
0046300 e x t f e w a r e b e c a
0046320 u s e M I S C m u s t b e
0046340 \r c o m p i l a b l e i n
0046360 a v a n i l l a L i s p )
0046400 ( M A C R O S C A N O N I C A
0046420 L . T I M E R U N I T S . F O R
0046440 . M I S C \ M A C R O . M X .
0046460 F O R . M I S C ) ( * F o l
0046500 l o w i n g \r m a c r o n e
0046520 e d n ' t b e i n s t a l l
0046540 e d s i n c e t h e f u n
0046560 c t i o n c a l l i s f a
0046600 i r l y s l o w a n y w a y
0046620 ) ( M A C R O S S E T U P T
0046640 I M E R . D A T E ) ( * \r F
0046660 o l l o w i n g d u e t o
0046700 s t u p i d I n t e r l o s s
0046720 p l i s s a g e ! ) ( F N S
0046740 \ S E T U P T I M E R m a c r
0046760 o f n ) ) ( D E C L A R E :
0047000 E V A L @ C O M P I L E W H E N
0047020 ( E Q \r ( C O M P I L E M O
0047040 D E ) ( Q U O T E P D P - 1
0047060 0 ) ) C O P Y W H E N ( E Q
0047100 ( C O M P I L E M O D E ) (
0047120 Q U O T E P D P - 1 0 ) ) (
0047140 M A C R O S C L O C K I D A
0047160 T E ) ( \r I N I T V A R S (
0047200 \ R C L K M I L L I S E C O N D
0047220 S 1 ) ( \ R C L K S E C O N
0047240 D S 1 0 0 0 ) ) ) ( C O M S
0047260 ( * F o l l o w i n g m a
0047300 c r o s d i s t i n g u i s h
0047320 b e t w e e n a \r c o m p
0047340 i l e t a r g e t o f I n
0047360 t e r l i s p - D a n d o t
0047400 h e r I n t e r l i s p s )
0047420 ( M A C R O S \ T I M E R . T
0047440 I M E R P \ T I M E R . M A K
0047460 E T I M E R \ T I M E R . P L
0047500 U S \r \ T I M E R . I N . S E
0047520 C O N D S \ T I M E R . I N .
0047540 M I L L I S E C O N D S \ T I
0047560 M E R . I N . T I C K S ) ( *
0047600 F o l l o w i n g f u n c t
0047620 i o n s a r e t e m p o r a
0047640 r y , u n t i l \r t h e i r
0047660 i n s t a n c e s a r e m
0047700 a c r o - c o m p i l e d o u
0047720 t i n \ D U R A T I O N T R
0047740 A N ) ( F N S \ T I M E R .
0047760 T I M E R P \ T I M E R . M A
0050000 K E T I M E R ) ) ( \r M A C R
0050020 O S S E T U P T I M E R T I
0050040 M E R E X P I R E D ? ) ( F N
0050060 S \ S E T U P T I M E R m a c
0050100 r o f n \ C a n o n i c a l i
0050120 z e T i m e r U n i t s ) ( F
0050140 N S S E T U P T I M E R \r S
0050160 E T U P T I M E R . D A T E T
0050200 I M E R E X P I R E D ? ) ( V
0050220 A R S ( \ T I M E R E X P I R
0050240 E D . B O X ( S E T U P T I M
0050260 E R 0 ) ) ) ( G L O B A L V
0050300 A R S \ T I M E R E X P I R E
0050320 D . B O X \r ) ( P R O P G L
0050340 O B A L V A R \ R C L K M I L
0050360 L I S E C O N D \ R C L K S E
0050400 C O N D ) ) ) \r ( P U T P R O P
0050420 S \ T I M E R . T I M E R P
0050440 M A C R O ( ( X ) ( F I X P
0050460 X ) ) ) \r ( P U T P R O P S
0050500 \ T I M E R . T I M E R P D M
0050520 A C R O ( ( X ) ( T Y P E N
0050540 A M E P X ( Q U O T E F I
0050560 X P ) ) ) ) \r ( P U T P R O P S
0050600 \ T I M E R . M A K E T I M E
0050620 R M A C R O ( N I L ( I P
0050640 L U S 1 0 0 0 0 0 0 ) ) ) \r (
0050660 P U T P R O P S \ T I M E R .
0050700 M A K E T I M E R D M A C R O
0050720 ( N I L ( N C R E A T E (
0050740 Q U O T E F I X P ) ) ) ) \r (
0050760 P U T P R O P S \ T I M E R .
0051000 P L U S M A C R O ( ( O L D
0051020 T I M E R I N T E R V A L )
0051040 ( I P L U S O L D T I M E R
0051060 I N T E R V A L ) ) ) \r ( P U T
0051100 P R O P S \ T I M E R . P L U
0051120 S D M A C R O ( ( O L D T I
0051140 M E R I N T E R V A L ) ( \
0051160 B O X I P L U S O L D T I M E
0051200 R I N T E R V A L ) ) ) \r ( P
0051220 U T P R O P S \ T I M E R . I
0051240 N . S E C O N D S M A C R O
0051260 ( ( O L D T I M E R ) ( I Q U
0051300 O T I E N T ( C L O C K 0
0051320 O L D T I M E R ) 1 0 0 0 ) )
0051340 ) \r ( P U T P R O P S \ T I M
0051360 E R . I N . S E C O N D S D M
0051400 A C R O ( ( O L D T I M E R )
0051420 ( \ D A Y T I M E 0 O L D T
0051440 I M E R ) ) ) \r ( P U T P R O P
0051460 S \ T I M E R . I N . M I L L
0051500 I S E C O N D S M A C R O (
0051520 ( O L D T I M E R ) ( C L O C
0051540 K 0 O L D T I M E R ) ) ) \r
0051560 ( P U T P R O P S \ T I M E R
0051600 . I N . M I L L I S E C O N D S
0051620 D M A C R O ( ( O L D T I M
0051640 E R ) ( \ C L O C K 0 O L D
0051660 T I M E R ) ) ) \r ( P U T P R O
0051700 P S \ T I M E R . I N . T I C
0051720 K S M A C R O ( ( O L D T I
0051740 M E R ) ( C L O C K 0 O L
0051760 D T I M E R ) ) ) \r ( P U T P R
0052000 O P S \ T I M E R . I N . T I
0052020 C K S D M A C R O ( ( O L D
0052040 T I M E R ) ( \ R C L O C K 0
0052060 O L D T I M E R ) ) ) \r ( P U
0052100 T P R O P S S E T U P T I M E
0052120 R M A C R O ( X ( \ S E T
0052140 U P T I M E R m a c r o f n X
0052160 ) ) ) \r ( P U T P R O P S T I
0052200 M E R E X P I R E D ? M A C R
0052220 O ( X ( ( L A M B D A ( U
0052240 N I T S ) ( C O N D ( ( O R
0052260 ( N U L L U N I T S ) ( F
0052300 M E M B ( C A R U N I T S )
0052320 ( Q U O T E ( \r T I C K S
0052340 M I L L I S E C O N D S S E C
0052360 O N D S ) ) ) ( \ T I M E R .
0052400 T I M E R P ( C A R U N I T
0052420 S ) ) ) ( Q U O T E I G N O
0052440 R E M A C R O ) ) ( T ( B Q
0052460 U O T E ( \r T I M E R E X P I
0052500 R E D ? , ( C A R X ) (
0052520 Q U O T E , ( \ C a n o n i
0052540 c a l i z e T i m e r U n i t s
0052560 ( C A R U N I T S ) ) ) ) )
0052600 ) ) ) ( C O N S T A N T E X P
0052620 R E S S I O N P ( \r C A D R
0052640 X ) ) ) ) ) \r ( R P A Q \ T I
0052660 M E R E X P I R E D . B O X (
0052700 S E T U P T I M E R 0 ) ) \r (
0052720 P U T P R O P S \ R C L K M I
0052740 L L I S E C O N D G L O B A L
0052760 V A R T ) \r ( P U T P R O P S
0053000 \ R C L K S E C O N D G L O
0053020 B A L V A R T ) \r ( P U T P R
0053040 O P S M I S C C O P Y R I G
0053060 H T ( " X e r o x C o r p o
0053100 r a t i o n " 1 9 8 2 1 9 8
0053120 3 1 9 8 4 1 9 8 5 ) ) \r N I
0053140 L \r
0053142