$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>SOURCES>LLARITH.DCOM!1
0000000 ( F I L E C R E A T E D " 1 0
0000020 - J a n - 8 5 1 5 : 5 0 : 2 5
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 > L L A R I T
0000120 H . ; 1 5 ) \r " 6 - J a n -
0000140 8 5 0 5 : 1 1 : 1 0 " r e c
0000160 o m p i l e d c h a n g e s :
0000200 G C D i n " I N T E R L I
0000220 S P - D 6 - J a n - 8 5 .
0000240 . . " d a t e d " 6 - J a
0000260 n - 8 5 0 5 : 2 8 : 4 6 " \r )
0000300 \r ( F I L E C R E A T E D " 1
0000320 0 - J a n - 8 5 1 5 : 4 8 : 3
0000340 5 " { E R I S } < L I S P C O
0000360 R E > S O U R C E S > L L A R I
0000400 T H . ; 1 5 5 0 9 0 5 c h a
0000420 n g e s t o : ( F N S G C
0000440 D ) \r p r e v i o u s d a t
0000460 e : " 6 - J a n - 8 5 0 0
0000500 : 5 7 : 3 2 " { E R I S } < L
0000520 I S P C O R E > S O U R C E S >
0000540 L L A R I T H . ; 1 4 ) \r I D I
0000560 F F E R E N C E D 1 \r ( L (
0000600 1 Y 0 X ) ) \0 005 \0 \0 \0 002
0000620 @ A 331 020 \0 N I L \r N I L \r ( ) \r
0000640 I G R E A T E R P D 1 \r ( L
0000660 ( 1 Y 0 X ) ) \0 005 \0 \0 \0
0000700 002 @ A 361 020 \0 N I L \r N I L \r ( )
0000720 \r I Q U O T I E N T D 1 \r ( L
0000740 ( 1 Y 0 X ) ) \0 005 \0 \0
0000760 \0 002 @ A 333 020 \0 N I L \r N I L \r (
0001000 ) \r \ S L O W I P L U S 2 D 1
0001020 \r ( N A M E I P L U S L (
0001040 1 Y 0 X ) F 5 \ O V
0001060 E R F L O W ) \0 361 005 001 \0 002 021 P
0001100 004 @ 004 d l 002 360 231 277 @ 310 \0 270 @ 310 001
0001120 260 026 d k 360 262 $ 277 j @ 361 243 j 270 @ 205
0001140 n 377 377 270 @ 323 271 A 004 d l 002 360 262 " 277
0001160 A 310 \0 272 A 310 001 260 , l 003 360 227 @ \t \0
0001200 \0 b \0 260 277 @ l \n \n \0 \0 b \0 260 265 d
0001220 k 360 262 , 277 j A 361 243 j 272 A 205 n 377 377
0001240 272 A 323 273 H n 177 377 361 \ H d n 377 377 J
0001260 331 361 262 " n 377 377 J 331 k 330 331 260 032 l 003
0001300 360 227 A \t \0 \0 b 002 260 240 A l \n \n \0 \0
0001320 b 002 260 226 J 330 X I d n 377 377 K 331 361 262
0001340 032 277 d d n 377 377 360 222 277 j 201 k 330 270 I
0001360 n 377 377 K 331 k 330 331 201 K 330 Y L J n 177
0001400 377 361 360 262 031 L H n 177 377 361 360 256 U d i
0001420 360 235 277 H I 365 l 2 \n \0 \0 277 H I 365 020
0001440 263 374 L 224 o \0 \0 \0 020 o \0 \0 \0 020 \0 (
0001460 3 3 4 Q \ L I S P E R R O R
0001500 2 2 1 Q \ L I S P E R R O R
0001520 2 0 7 Q \ F I X P . F R O M .
0001540 F L O A T P 1 1 4 Q \ L I S
0001560 P E R R O R 1 0 2 Q \ F I X
0001600 P . F R O M . F L O A T P ) \r N
0001620 I L \r ( 3 5 6 Q 1 7 7 7 7 7
0001640 7 7 7 7 7 Q 3 5 1 Q - 2 0 0
0001660 0 0 0 0 0 0 0 0 Q ) \r \ S L O W
0001700 P L U S 2 D 1 \r ( N A M E P
0001720 L U S L ( 1 Y 0 X ) )
0001740 \0 9 \0 \0 \0 002 @ 005 003 265 \a A 005 003 223
0001760 @ A 350 020 @ d 005 001 241 005 002 252 @ l \n i
0002000 \v \0 \0 b \0 260 343 A d 005 001 241 005 002 253 A
0002020 l \n i \v \0 \0 b 002 277 260 316 @ A 330 020 \0
0002040 ( 5 6 Q \ L I S P E R R O R
0002060 3 3 Q \ L I S P E R R O R ) \r
0002100 N I L \r ( ) \r \ S L O W I D I F
0002120 F E R E N C E D 1 \r ( N A M E
0002140 I D I F F E R E N C E L (
0002160 1 Y 0 X ) F 5 \ O V
0002200 E R F L O W ) 001 * 005 001 \0 002 021 P
0002220 004 @ 004 d l 002 360 231 277 @ 310 \0 270 @ 310 001
0002240 260 026 d k 360 262 $ 277 j @ 361 243 j 270 @ 205
0002260 n 377 377 270 @ 323 271 A 004 d l 002 360 262 " 277
0002300 A 310 \0 272 A 310 001 260 - l 003 360 227 @ \t \0
0002320 \0 b \0 260 277 @ l \n \n \0 \0 b \0 260 265 d
0002340 k 360 262 034 277 j A 361 244 j 272 A [ 207 n 377
0002360 377 272 A 323 273 A j 360 262 034 H I 365 020 l 003
0002400 360 227 A \t \0 \0 b 002 260 260 A l \n \n \0 \0
0002420 b 002 260 246 K j 360 235 J j 360 263 031 n 377 377
0002440 J 331 k 330 272 215 n 377 377 J 331 272 n 377 377 K
0002460 331 k 330 273 H n 177 377 361 \ K j 360 234 J n
0002500 200 \0 360 226 H J 346 270 L 260 L H d n 377 377
0002520 J 331 361 230 n 377 377 J 331 k 330 331 201 J 330 270
0002540 I d n 377 377 K 331 361 262 032 277 H d n 377 377
0002560 360 222 277 j 201 k 330 270 I n 377 377 K 331 k 330
0002600 331 201 K 330 271 L J n 177 377 361 360 262 031 L H
0002620 n 177 377 361 360 256 U d i 360 235 277 H I 365 l
0002640 2 \n \0 \0 277 H I 365 020 263 374 L 224 o \0 \0
0002660 \0 020 o \0 \0 \0 020 \0 ( 4 2 5 Q \ L
0002700 I S P E R R O R 2 0 1 Q \ L
0002720 I S P E R R O R 1 6 7 Q \ F
0002740 I X P . F R O M . F L O A T P
0002760 1 1 4 Q \ L I S P E R R O R
0003000 1 0 2 Q \ F I X P . F R O M .
0003020 F L O A T P ) \r N I L \r ( 4 4
0003040 7 Q 1 7 7 7 7 7 7 7 7 7 7 Q
0003060 4 4 2 Q - 2 0 0 0 0 0 0 0 0 0
0003100 0 Q ) \r \ S L O W D I F F E R E
0003120 N C E D 1 \r ( N A M E D I F
0003140 F E R E N C E L ( 1 Y 0
0003160 X ) ) \0 9 \0 \0 \0 002 @ 005 003 265 \a
0003200 A 005 003 223 @ A 351 020 @ d 005 001 241 005 002 252
0003220 @ l \n i \v \0 \0 b \0 260 343 A d 005 001 241
0003240 005 002 253 A l \n i \v \0 \0 b 002 277 260 316 @
0003260 A 331 020 \0 ( 5 6 Q \ L I S P E R
0003300 R O R 3 3 Q \ L I S P E R R
0003320 O R ) \r N I L \r ( ) \r \ S L O W
0003340 I G R E A T E R P D 1 \r ( N A
0003360 M E I G R E A T E R P L (
0003400 1 Y 0 X ) ) \0 223 004 \0 \0 002
0003420 021 @ 003 @ 004 d l 002 360 231 277 @ 310 \0 270 @
0003440 310 001 260 026 d k 360 262 $ 277 j @ 361 243 j 270
0003460 @ 205 n 377 377 270 @ 323 271 A 004 d l 002 360 262
0003500 " 277 A 310 \0 272 A 310 001 260 , l 003 360 227 @
0003520 \t \0 \0 b \0 260 277 @ l \n \n \0 \0 b \0 260
0003540 265 d k 360 262 035 277 j A 361 243 j 272 A 205 n
0003560 377 377 272 A 323 273 H d J 360 262 035 277 I K 361
0003600 020 l 003 360 227 A \t \0 \0 b 002 260 257 A l \n
0003620 \n \0 \0 b 002 260 245 n 200 \0 346 J n 200 \0 346
0003640 361 020 \0 ( 2 0 2 Q \ L I S P E R
0003660 R O R 1 7 0 Q \ F I X P . F
0003700 R O M . F L O A T P 1 1 4 Q
0003720 \ L I S P E R R O R 1 0 2 Q
0003740 \ F I X P . F R O M . F L O A T
0003760 P ) \r N I L \r ( ) \r \ S L O W L
0004000 L S H 1 D 1 \r ( L ( 0 X )
0004020 ) \0 Z 002 \0 \0 001 021 001 @ 004 d l 002
0004040 360 231 277 @ 310 \0 271 @ 310 001 260 026 d k 360 262
0004060 " 277 j @ 361 243 j 271 @ 205 n 377 377 271 @ 323
0004100 270 I n 177 377 345 340 H n 177 377 361 262 033 k 260
0004120 031 l 003 360 227 @ \t \0 \0 b \0 260 301 @ l \n
0004140 \n \0 \0 b \0 260 267 j 330 H n 177 377 345 340 365
0004160 020 \0 ( 1 1 2 Q \ L I S P E R R
0004200 O R 1 0 0 Q \ F I X P . F R
0004220 O M . F L O A T P ) \r N I L \r (
0004240 ) \r \ S L O W L L S H 8 D 1 \r
0004260 ( L ( 0 X ) ) \0 O 002 \0 \0 001
0004300 021 001 @ 004 d l 002 360 231 277 @ 310 \0 270 @
0004320 310 001 260 026 d k 360 262 ! 277 j @ 361 243 j 270
0004340 @ 205 n 377 377 270 @ 323 271 H l 377 345 341 I 343
0004360 330 I l 377 345 341 365 020 l 003 360 227 @ \t \0 \0
0004400 b \0 260 302 @ l \n \n \0 \0 b \0 260 270 \0 (
0004420 1 1 1 Q \ L I S P E R R O R
0004440 7 7 Q \ F I X P . F R O M . F
0004460 L O A T P ) \r N I L \r ( ) \r \ S
0004500 L O W L O G A N D 2 D 1 \r ( N
0004520 A M E L O G A N D L ( 1
0004540 B 0 A ) ) \0 205 004 \0 \0 002 021 @
0004560 003 @ 004 d l 002 360 231 277 @ 310 \0 270 @ 310 001
0004600 260 026 d k 360 262 $ 277 j @ 361 243 j 270 @ 205
0004620 n 377 377 270 @ 323 271 A 004 d l 002 360 262 " 277
0004640 A 310 \0 272 A 310 001 260 , l 003 360 227 @ \t \0
0004660 \0 b \0 260 277 @ l \n \n \0 \0 b \0 260 265 d
0004700 k 360 262 032 277 j A 361 243 j 272 A 205 n 377 377
0004720 272 A 323 273 H J 345 I K 345 365 020 l 003 360 227
0004740 A \t \0 \0 b 002 260 262 A l \n \n \0 \0 b 002
0004760 260 250 \0 ( 1 7 7 Q \ L I S P E R
0005000 R O R 1 6 5 Q \ F I X P . F
0005020 R O M . F L O A T P 1 1 4 Q
0005040 \ L I S P E R R O R 1 0 2 Q
0005060 \ F I X P . F R O M . F L O A T
0005100 P ) \r N I L \r ( ) \r \ S L O W L
0005120 O G O R 2 D 1 \r ( N A M E L
0005140 O G O R L ( 1 B 0 A )
0005160 ) \0 205 004 \0 \0 002 021 @ 003 @ 004 d l 002
0005200 360 231 277 @ 310 \0 270 @ 310 001 260 026 d k 360 262
0005220 $ 277 j @ 361 243 j 270 @ 205 n 377 377 270 @ 323
0005240 271 A 004 d l 002 360 262 " 277 A 310 \0 272 A 310
0005260 001 260 , l 003 360 227 @ \t \0 \0 b \0 260 277 @
0005300 l \n \n \0 \0 b \0 260 265 d k 360 262 032 277 j
0005320 A 361 243 j 272 A 205 n 377 377 272 A 323 273 H J
0005340 344 I K 344 365 020 l 003 360 227 A \t \0 \0 b 002
0005360 260 262 A l \n \n \0 \0 b 002 260 250 \0 ( 1 7
0005400 7 Q \ L I S P E R R O R 1 6
0005420 5 Q \ F I X P . F R O M . F L
0005440 O A T P 1 1 4 Q \ L I S P E
0005460 R R O R 1 0 2 Q \ F I X P .
0005500 F R O M . F L O A T P ) \r N I L
0005520 \r ( ) \r \ S L O W L O G X O R 2
0005540 D 1 \r ( N A M E L O G X O R
0005560 L ( 1 B 0 A ) ) \0 205
0005600 004 \0 \0 002 021 @ 003 @ 004 d l 002 360 231 277 @
0005620 310 \0 270 @ 310 001 260 026 d k 360 262 $ 277 j @
0005640 361 243 j 270 @ 205 n 377 377 270 @ 323 271 A 004 d
0005660 l 002 360 262 " 277 A 310 \0 272 A 310 001 260 , l
0005700 003 360 227 @ \t \0 \0 b \0 260 277 @ l \n \n \0
0005720 \0 b \0 260 265 d k 360 262 032 277 j A 361 243 j
0005740 272 A 205 n 377 377 272 A 323 273 H J 346 I K 346
0005760 365 020 l 003 360 227 A \t \0 \0 b 002 260 262 A l
0006000 \n \n \0 \0 b 002 260 250 \0 ( 1 7 7 Q \
0006020 L I S P E R R O R 1 6 5 Q \
0006040 F I X P . F R O M . F L O A T P
0006060 1 1 4 Q \ L I S P E R R O R
0006100 1 0 2 Q \ F I X P . F R O M
0006120 . F L O A T P ) \r N I L \r ( ) \r
0006140 \ S L O W L R S H 1 D 1 \r ( L
0006160 ( 0 X ) ) \0 T 002 \0 \0 001 021
0006200 001 @ 004 d l 002 360 231 277 @ 310 \0 270 @ 310 001
0006220 260 026 d k 360 262 277 j @ 361 243 j 270 @ 205
0006240 n 377 377 270 @ 323 271 H 342 I 342 H k 345 j 360
0006260 262 033 j 260 033 l 003 360 227 @ \t \0 \0 b \0 260
0006300 303 @ l \n \n \0 \0 b \0 260 271 n 200 \0 330 365
0006320 020 \0 ( 1 1 0 Q \ L I S P E R R
0006340 O R 7 6 Q \ F I X P . F R O
0006360 M . F L O A T P ) \r N I L \r ( )
0006400 \r \ S L O W L R S H 8 D 1 \r (
0006420 L ( 0 X ) ) \0 L 002 \0 \0 001 021
0006440 001 @ 004 d l 002 360 231 277 @ 310 \0 270 @ 310
0006460 001 260 026 d k 360 262 036 277 j @ 361 243 j 270 @
0006500 205 n 377 377 270 @ 323 271 H 343 H l 377 345 341 I
0006520 343 330 365 020 l 003 360 227 @ \t \0 \0 b \0 260 305
0006540 @ l \n \n \0 \0 b \0 260 273 \0 ( 1 0 6 Q
0006560 \ L I S P E R R O R 7 4 Q
0006600 \ F I X P . F R O M . F L O A T
0006620 P ) \r N I L \r ( ) \r \ S L O W I
0006640 T I M E S 2 D 1 \r ( N A M E
0006660 I T I M E S L ( 1 Y 0
0006700 X ) F 1 0 Q \ O V E R F L
0006720 O W ) 001 307 \b 001 \0 002 @ j 360 243 A j
0006740 360 221 j 020 j d 021 b \a @ 004 d l 002 360 231
0006760 277 @ 310 \0 272 @ 310 001 260 026 d k 360 262 $ 277
0007000 j @ 361 243 j 272 @ 205 n 377 377 272 @ 323 274 A
0007020 004 d l 002 360 262 " 277 A 310 \0 273 A 310 001 260
0007040 , l 003 360 227 @ \t \0 \0 b \0 260 277 @ l \n
0007060 \n \0 \0 b \0 260 265 d k 360 262 - 277 j A 361
0007100 243 j 273 A 205 n 377 377 273 A 323 275 J n 177 377
0007120 361 262 < L j 360 262 ' J j 360 263 0 n 377 377
0007140 J 331 k 330 272 260 & l 003 360 227 A \t \0 \0 b
0007160 002 260 237 A l \n \n \0 \0 b 002 260 225 n 377 377
0007200 J 331 272 n 377 377 L 331 k 330 274 i 276 K d n
0007220 177 377 361 262 ( 277 M j 360 235 K j 360 263 031 n
0007240 377 377 K 331 k 330 273 215 n 377 377 K 331 273 n 377
0007260 377 M 331 k 330 275 N h 360 276 K j 360 256 J j
0007300 360 242 261 \0 224 M L 275 274 K J 273 272 M d 342
0007320 275 k 345 j 360 263 C I d n 377 377 L 331 361 232
0007340 n 377 377 L k 331 331 331 271 k 203 L 330 271 j _
0007360 016 277 H J O 016 330 330 X n 177 377 361 262 033 M
0007400 j 360 262 T N 262 Q H n 200 \0 360 262 J I j
0007420 360 262 E o \0 \0 \0 020 M j 360 263 L n @ \0
0007440 J 361 262 032 J 340 272 L d n 177 377 361 231 277 J
0007460 k 324 272 L n 177 377 345 340 274 260 223 J n @ \0
0007500 360 262 025 L j 360 236 N 234 M k 360 230 H j 360
0007520 224 I j 360 263 277 W 020 d i 360 262 $ 277 H I
0007540 365 l 2 \n \0 \0 277 N 262 4 I j 360 262 ! H
0007560 d j 360 263 * 277 n 377 377 H 331 k 330 260 247
0007600 N 263 222 o \0 \0 \0 020 @ A \n \0 \0 020 n 377
0007620 377 H 331 270 n 377 377 I 331 k 330 271 H I 365 020
0007640 \0 ( 6 6 2 Q T R U N C A T E M
0007660 U L T I P L Y 6 1 3 Q \ L I
0007700 S P E R R O R 2 3 6 Q \ L I
0007720 S P E R R O R 2 2 4 Q \ F I
0007740 X P . F R O M . F L O A T P 1
0007760 3 0 Q \ L I S P E R R O R 1
0010000 1 6 Q \ F I X P . F R O M . F
0010020 L O A T P ) \r N I L \r ( 6 5 4
0010040 Q 1 7 7 7 7 7 7 7 7 7 7 Q 4
0010060 7 4 Q - 2 0 0 0 0 0 0 0 0 0 0
0010100 Q ) \r \ S L O W T I M E S 2 D
0010120 1 \r ( N A M E T I M E S L
0010140 ( 1 Y 0 X ) ) \0 9 \0 \0 \0
0010160 002 @ 005 003 265 \a A 005 003 223 @ A 352 020 @ d
0010200 005 001 241 005 002 252 @ l \n i \v \0 \0 b \0 260
0010220 343 A d 005 001 241 005 002 253 A l \n i \v \0 \0
0010240 b 002 277 260 316 @ A 332 020 \0 ( 5 6 Q \
0010260 L I S P E R R O R 3 3 Q \ L
0010300 I S P E R R O R ) \r N I L \r ( )
0010320 \r \ S L O W I Q U O T I E N T
0010340 D 1 \r ( N A M E I Q U O T I E
0010360 N T L ( 1 Y 0 X ) F
0010400 1 1 Q \ O V E R F L O W )
0010420 002 177 \t 001 \0 002 j d d 021 c \b @ 004 d l
0010440 002 360 231 277 @ 310 \0 273 @ 310 001 260 026 d k 360
0010460 262 $ 277 j @ 361 243 j 273 @ 205 n 377 377 273 @
0010500 323 274 A 004 d l 002 360 262 " 277 A 310 \0 275 A
0010520 310 001 260 , l 003 360 227 @ \t \0 \0 b \0 260 277
0010540 @ l \n \n \0 \0 b \0 260 265 d k 360 262 - 277
0010560 j A 361 243 j 275 A 205 n 377 377 275 A 323 276 K
0010600 n 177 377 361 262 @ L j 360 262 ' K j 360 263 0
0010620 n 377 377 K 331 k 330 273 260 & l 003 360 227 A \t
0010640 \0 \0 b 002 260 237 A l \n \n \0 \0 b 002 260 225
0010660 n 377 377 K 331 273 n 377 377 L 331 k 330 274 i _
0010700 020 _ 016 277 M n 177 377 361 262 ) N j 360 235 M
0010720 j 360 263 031 n 377 377 M 331 k 330 275 215 n 377 377
0010740 M 331 275 n 377 377 N 331 k 330 276 O 016 h 360 _
0010760 016 277 K j 360 242 261 \0 210 M j 360 262 + L j
0011000 360 263 027 N d j 360 262 032 277 W 022 i 360 230 o
0011020 \0 \0 \0 A \n \0 \0 277 @ 264 003 202 261 001 w j
0011040 020 k 360 262 + L 272 @ 264 003 202 261 001 h O 016
0011060 242 261 001 _ J j 360 242 261 001 J I d j 360 222
0011100 261 001 Q 277 n 377 377 I 331 k 330 261 001 F L N
0011120 361 236 N d n 177 377 361 250 340 276 H k 330 270 260
0011140 357 N L 361 247 L N 331 274 J k 330 272 N 342 276
0011160 H k 331 270 j H 361 263 260 J 340 272 260 345 M j
0011200 360 262 9 N ] j 360 263 203 O 020 262 ( O 016 263
0011220 $ N k 360 262 037 K n 200 \0 360 262 030 L j 360
0011240 262 023 W 022 i 360 242 261 377 q o \0 \0 \0 A \n
0011260 \0 \0 277 j 276 l 020 X 260 2 O 020 262 / O 016
0011300 263 + L j 360 262 & K n 200 \0 360 262 037 M d
0011320 j 360 262 032 277 N k 360 262 023 W 022 i 360 242 261
0011340 377 9 o \0 \0 \0 A \n \0 \0 277 M K 360 223 L
0011360 N 361 246 K d M 361 262 m 277 n 177 377 M 361 262
0011400 d M 340 275 N d n 177 377 361 231 277 M k 324 275
0011420 N n 177 377 345 340 276 H k 330 X 260 317 n 377 377
0011440 N L 331 331 k 330 274 k 331 273 J k 330 272 N 342
0011460 276 M d k 345 j 360 247 277 N n 200 \0 330 276 M
0011500 342 275 H k 331 270 j H 361 222 261 376 335 I 340 271
0011520 J d n 177 377 361 231 277 I k 324 271 J n 177 377
0011540 345 340 272 K M 361 253 M K 360 262 304 N d L 361
0011560 263 277 277 K M 331 N L 361 263 244 L N 331 274 j
0011600 260 250 n 377 377 I 331 271 n 377 377 J 331 k 330 272
0011620 I J 365 020 \0 ( 7 2 3 Q E R R O R
0011640 6 3 3 Q E R R O R 4 0 0 Q
0011660 E R R O R 2 2 5 Q \ L I S
0011700 P E R R O R 2 1 3 Q \ F I X
0011720 P . F R O M . F L O A T P 1 1
0011740 7 Q \ L I S P E R R O R 1 0
0011760 5 Q \ F I X P . F R O M . F L
0012000 O A T P ) \r N I L \r ( 7 1 7 Q
0012020 " D I V I S I O N O V E R F
0012040 L O W " 6 2 7 Q " D I V I S
0012060 I O N O V E R F L O W " 3 7
0012100 4 Q " D I V I D E B Y Z E
0012120 R O " ) \r \ S L O W Q U O T I E
0012140 N T D 1 \r ( N A M E Q U O T
0012160 I E N T L ( 1 Y 0 X )
0012200 ) \0 9 \0 \0 \0 002 @ 005 003 265 \a A 005 003
0012220 223 @ A 353 020 @ d 005 001 241 005 002 252 @ l \n
0012240 i \v \0 \0 b \0 260 343 A d 005 001 241 005 002 253
0012260 A l \n i \v \0 \0 b 002 277 260 316 @ A 333 020
0012300 \0 ( 5 6 Q \ L I S P E R R O R
0012320 3 3 Q \ L I S P E R R O R )
0012340 \r N I L \r ( ) \r \ B O X I P L U
0012360 S D 1 \r ( L ( 1 Y 0 X
0012400 ) ) \0 212 004 \0 \0 002 @ 310 \0 @ 310 001 021
0012420 " 003 A 004 d l 002 360 231 277 A 310 \0 272 A 310
0012440 001 260 026 d k 360 262 & 277 j A 361 243 j 272 A
0012460 205 n 377 377 272 A 323 273 H d n 377 377 J 331 361
0012500 262 " n 377 377 J 331 k 330 331 260 032 l 003 360 227
0012520 A \t \0 \0 b 002 260 275 A l \n \n \0 \0 b 002
0012540 260 263 J 330 X @ I d n 377 377 K 331 361 262 032
0012560 277 H d n 377 377 360 222 277 j 201 k 330 270 I n
0012600 377 377 K 331 k 330 331 201 K 330 315 001 @ H 315 \0
0012620 @ 020 \0 ( 1 2 4 Q \ L I S P E R
0012640 R O R 1 1 2 Q \ F I X P . F
0012660 R O M . F L O A T P ) \r N I L \r
0012700 ( ) \r \ B O X I D I F F E R E N
0012720 C E D 1 \r ( L ( 1 Y 0
0012740 X ) ) \0 251 004 \0 \0 002 @ 310 \0 @ 310 001
0012760 021 " 003 A 004 d l 002 360 231 277 A 310 \0 272 A
0013000 310 001 260 026 d k 360 262 % 277 j A 361 243 j 272
0013020 A 205 n 377 377 272 A 323 [ j 360 262 ' J j 360
0013040 263 0 n 377 377 J 331 k 330 272 260 & l 003 360 227
0013060 A \t \0 \0 b 002 260 276 A l \n \n \0 \0 b 002
0013100 260 264 n 377 377 J 331 272 n 377 377 K 331 k 330 273
0013120 H d n 377 377 J 331 361 230 n 377 377 J 331 k 330
0013140 331 201 J 330 X @ I d n 377 377 K 331 361 262 032
0013160 277 H d n 377 377 360 222 277 j 201 k 330 270 I n
0013200 377 377 K 331 k 330 331 201 K 330 315 001 @ H 315 \0
0013220 @ 020 \0 ( 1 2 3 Q \ L I S P E R
0013240 R O R 1 1 1 Q \ F I X P . F
0013260 R O M . F L O A T P ) \r N I L \r
0013300 ( ) \r \ M A K E N U M B E R D
0013320 1 \r ( L ( 1 N 1 0 N 0 )
0013340 ) \0 G 001 \0 \0 002 A d 005 001 227 277 j A
0013360 361 241 A 203 A \t \0 \0 b 002 @ d 005 001 227 277
0013400 j @ 361 241 @ 203 @ \t \0 \0 b \0 d j 360 221
0013420 A 020 n 377 377 360 224 l 017 A 321 020 021 020 \0 l
0013440 002 037 X d @ 315 \0 277 H A 315 001 277 020 \0 (
0013460 4 1 Q \ I L L E G A L . A R G
0013500 1 7 Q \ I L L E G A L . A R
0013520 G ) \r N I L \r ( ) \r O V E R F L
0013540 O W D 1 \r ( L ( 0 F L G )
0013560 F 0 \ O V E R F L O W )
0013600 \0 017 \0 001 \0 001 P @ d 225 i 360 221 i 200 j
0013620 c \0 277 020 \0 N I L \r N I L \r ( ) \r
0013640 \ G E T B A S E F I X P D 1 \r
0013660 ( L ( 1 O F F S T 0 B A
0013700 S E ) ) \0 017 001 \0 \0 002 @ A 320 021 001
0013720 \0 H 310 \0 H 310 001 365 020 \0 N I L \r N I
0013740 L \r ( ) \r \ P U T B A S E F I X
0013760 P D 1 \r ( L ( 2 V A L 1
0014000 O F F S T 0 B A S E ) )
0014020 \0 F 002 \0 \0 003 021 001 B 004 d k 360 262 023
0014040 277 j B 361 244 j 270 B 260 025 n 377 377 270 B 323
0014060 213 l 002 360 264 \t B 310 \0 270 B 310 001 Y 252 B
0014100 l 033 i \v \0 \0 b 004 260 322 @ A 320 H 315 \0
0014120 277 @ A k 330 320 I 315 \0 B 020 \0 ( 5 7 Q
0014140 \ L I S P E R R O R ) \r N I L
0014160 \r ( ) \r \ P U T B A S E F I X P
0014200 . U F N D 1 \r ( L ( 2 O F
0014220 F S T 1 V A L 0 B A S E
0014240 ) ) \0 F 002 \0 \0 003 021 001 A 004 d k
0014260 360 262 023 277 j A 361 244 j 270 A 260 025 n 377 377
0014300 270 A 323 213 l 002 360 264 \t A 310 \0 270 A 310 001
0014320 Y 252 A l 033 i \v \0 \0 b 002 260 322 @ B 320
0014340 H 315 \0 277 @ B k 330 320 I 315 \0 A 020 \0 (
0014360 5 7 Q \ L I S P E R R O R ) \r
0014400 N I L \r ( ) \r E Q P D 1 \r ( L
0014420 ( 1 Y 0 X ) ) \0 e \0 \0
0014440 \0 002 @ A 360 265 ` @ d d 005 001 245 d 005 002
0014460 241 005 003 262 & 277 A d 005 001 245 d 005 002 241 005
0014500 003 262 027 @ 005 003 265 \a A 005 003 225 @ A \n \0
0014520 \0 020 @ A 331 j 360 020 @ 004 A 004 360 264 ( @
0014540 004 d l \b 360 230 277 @ 310 001 A 310 001 360 020 l
0014560 006 360 264 023 @ 006 \0 \0 312 \0 C l 004 360 264 \a
0014600 @ A \n \0 \0 020 \0 ( 1 4 2 Q E Q D
0014620 E F P 5 6 Q F E Q P ) \r ( 1
0014640 2 5 Q A R R A Y P ) \r ( ) \r F
0014660 I X D 1 \r ( L ( 0 N ) )
0014700 \0 005 \0 \0 \0 001 @ j 330 020 \0 N I L \r N
0014720 I L \r ( ) \r I Q U O T I E N T
0014740 D 1 \r ( L ( 1 Y 0 X ) )
0014760 \0 005 \0 \0 \0 002 @ A 333 020 \0 N I L \r
0015000 N I L \r ( ) \r I R E M A I N D E
0015020 R D 1 \r ( L ( 1 Y 0 X
0015040 ) F 1 1 Q \ O V E R F L O
0015060 W ) 002 177 \t 001 \0 002 j d d 021 c \b @
0015100 004 d l 002 360 231 277 @ 310 \0 273 @ 310 001 260 026
0015120 d k 360 262 $ 277 j @ 361 243 j 273 @ 205 n 377
0015140 377 273 @ 323 274 A 004 d l 002 360 262 " 277 A 310
0015160 \0 275 A 310 001 260 , l 003 360 227 @ \t \0 \0 b
0015200 \0 260 277 @ l \n \n \0 \0 b \0 260 265 d k 360
0015220 262 - 277 j A 361 243 j 275 A 205 n 377 377 275 A
0015240 323 276 K n 177 377 361 262 @ L j 360 262 ' K j
0015260 360 263 0 n 377 377 K 331 k 330 273 260 & l 003 360
0015300 227 A \t \0 \0 b 002 260 237 A l \n \n \0 \0 b
0015320 002 260 225 n 377 377 K 331 273 n 377 377 L 331 k 330
0015340 274 i _ 020 _ 016 277 M n 177 377 361 262 ) N j
0015360 360 235 M j 360 263 031 n 377 377 M 331 k 330 275 215
0015400 n 377 377 M 331 275 n 377 377 N 331 k 330 276 O 016
0015420 h 360 _ 016 277 K j 360 242 261 \0 210 M j 360 262
0015440 + L j 360 263 027 N d j 360 262 032 277 W 022 i
0015460 360 230 o \0 \0 \0 A \n \0 \0 277 A 264 003 202 261
0015500 001 w j 020 k 360 262 + j 274 A 264 003 202 261 001
0015520 h O 020 242 261 001 _ L j 360 242 261 001 J K d
0015540 j 360 222 261 001 Q 277 n 377 377 K 331 k 330 261 001
0015560 F L N 361 236 N d n 177 377 361 250 340 276 H k
0015600 330 270 260 357 N L 361 247 L N 331 274 J k 330 272
0015620 N 342 276 H k 331 270 j H 361 263 260 J 340 272 260
0015640 345 M j 360 262 9 N ] j 360 263 203 O 020 262 (
0015660 O 016 263 $ N k 360 262 037 K n 200 \0 360 262 030
0015700 L j 360 262 023 W 022 i 360 242 261 377 q o \0 \0
0015720 \0 A \n \0 \0 277 j 276 l 020 X 260 2 O 020 262
0015740 / O 016 263 + L j 360 262 & K n 200 \0 360 262
0015760 037 M d j 360 262 032 277 N k 360 262 023 W 022 i
0016000 360 242 261 377 9 o \0 \0 \0 A \n \0 \0 277 M K
0016020 360 223 L N 361 246 K d M 361 262 m 277 n 177 377
0016040 M 361 262 d M 340 275 N d n 177 377 361 231 277 M
0016060 k 324 275 N n 177 377 345 340 276 H k 330 X 260 317
0016100 n 377 377 N L 331 331 k 330 274 k 331 273 J k 330
0016120 272 N 342 276 M d k 345 j 360 247 277 N n 200 \0
0016140 330 276 M 342 275 H k 331 270 j H 361 222 261 376 335
0016160 I 340 271 J d n 177 377 361 231 277 I k 324 271 J
0016200 n 177 377 345 340 272 K M 361 253 M K 360 262 304 N
0016220 d L 361 263 277 277 K M 331 N L 361 263 244 L N
0016240 331 274 j 260 250 n 377 377 K 331 273 n 377 377 L 331
0016260 k 330 274 K L 365 020 \0 ( 7 2 3 Q E R
0016300 R O R 6 3 3 Q E R R O R 4
0016320 0 0 Q E R R O R 2 2 5 Q \
0016340 L I S P E R R O R 2 1 3 Q \
0016360 F I X P . F R O M . F L O A T P
0016400 1 1 7 Q \ L I S P E R R O R
0016420 1 0 5 Q \ F I X P . F R O M
0016440 . F L O A T P ) \r N I L \r ( 7
0016460 1 7 Q " D I V I S I O N O V
0016500 E R F L O W " 6 2 7 Q " D I
0016520 V I S I O N O V E R F L O W "
0016540 3 7 4 Q " D I V I D E B Y
0016560 Z E R O " ) \r L L S H D 1 \r
0016600 ( L ( 1 N 0 X ) ) \0 246
0016620 002 \0 \0 002 j A 361 227 @ j A 331 \n \0 \0 020
0016640 021 001 @ 004 d l 002 360 231 277 @ 310 \0 270 @
0016660 310 001 260 026 d k 360 262 033 277 j @ 361 243 j 270
0016700 @ 205 n 377 377 270 @ 323 271 A d l 037 361 262 032
0016720 j 020 l 003 360 227 @ \t \0 \0 b \0 260 310 @ l
0016740 \n \n \0 \0 b \0 260 276 l 017 361 232 I 270 j 271
0016760 A l 020 331 b 002 200 A l \a 361 262 026 H l 377
0017000 345 341 I 343 330 270 I l 377 345 341 271 A l \b 331
0017020 200 A d j 361 262 H n 177 377 345 340 270 I d
0017040 n 177 377 361 231 277 H k 324 270 I n 177 377 345 340
0017060 271 k 331 260 337 H I 365 020 \0 ( 1 1 7 Q
0017100 \ L I S P E R R O R 1 0 5 Q
0017120 \ F I X P . F R O M . F L O A T
0017140 P 1 2 Q L R S H ) \r N I L \r
0017160 ( ) \r L R S H D 1 \r ( L ( 1
0017200 N 0 X ) ) \0 235 002 \0 \0 002 j
0017220 A 361 227 @ j A 331 \n \0 \0 020 021 001 @ 004
0017240 d l 002 360 231 277 @ 310 \0 270 @ 310 001 260 026 d
0017260 k 360 262 033 277 j @ 361 243 j 270 @ 205 n 377 377
0017300 270 @ 323 271 A d l 037 361 262 032 j 020 l 003 360
0017320 227 @ \t \0 \0 b \0 260 310 @ l \n \n \0 \0 b
0017340 \0 260 276 l 017 361 232 H 271 j 270 A l 020 331 b
0017360 002 200 A l \a 361 262 023 I 343 H l 377 345 341 330
0017400 271 H 343 270 A l \b 331 200 A d j 361 262 032 I
0017420 342 271 H d k 345 j 360 247 277 I n 200 \0 330 271
0017440 H 342 270 k 331 260 345 H I 365 020 \0 ( 1 1 7
0017460 Q \ L I S P E R R O R 1 0 5
0017500 Q \ F I X P . F R O M . F L O
0017520 A T P 1 2 Q L L S H ) \r N I
0017540 L \r ( ) \r L S H D 1 \r ( L (
0017560 1 N 0 X ) F 3 \ O V
0017600 E R F L O W ) 001 P 003 001 \0 002 A d
0017620 j 361 254 j 360 221 @ 020 @ j A 331 \n \0 \0 020
0017640 l 036 361 262 . j @ 363 262 031 S i 360 235 @ m
0017660 377 360 250 o \0 \0 \0 l 2 \n \0 \0 o \0 \0 \0
0017700 020 S i 360 231 @ j 360 245 j l 2 \n \0 \0 j
0017720 020 j 021 ! 002 @ 004 d l 002 360 231 277 @ 310 \0
0017740 271 @ 310 001 260 026 d k 360 262 < 277 j @ 361 243
0017760 j 271 @ 205 n 377 377 271 @ 323 272 n 200 \0 I 361
0020000 243 n 200 \0 270 l 020 A 361 263 R S i 360 262 B
0020020 H j 360 262 ( I j 360 262 1 J n 200 \0 345 j
0020040 360 h 360 260 % l 003 360 227 @ \t \0 \0 b \0 260
0020060 247 @ l \n \n \0 \0 b \0 260 235 I n 377 377 360
0020100 227 J n 200 \0 345 j 360 226 @ l 2 \n \0 \0 277
0020120 J 271 j 272 A l 020 331 b 002 200 A l \a 361 262
0020140 1 S i 360 262 031 I n 177 \0 345 H j 360 243 n
0020160 177 \0 200 j 360 246 @ l 2 \n \0 \0 277 I 341 J
0020200 343 344 271 J l 377 345 341 272 A l \b 331 b 002 200
0020220 A d j 361 262 > S i 360 262 033 I n @ \0 345
0020240 j 360 225 H j 360 h 360 202 H j 360 226 @ l 2
0020260 \n \0 \0 277 J d n 200 \0 345 j 360 223 277 I 340
0020300 210 n 200 \0 346 272 I 340 k 344 271 J 340 272 k 331
0020320 260 301 H I n 177 377 345 344 d J 365 020 \0 ( 4
0020340 4 4 Q \ L I S P E R R O R 3
0020360 5 5 Q \ L I S P E R R O R 3
0020400 0 0 Q \ L I S P E R R O R 2
0020420 5 0 Q \ L I S P E R R O R 2
0020440 3 6 Q \ F I X P . F R O M . F
0020460 L O A T P 1 0 0 Q \ L I S P
0020500 E R R O R 5 5 Q \ L I S P E
0020520 R R O R 2 0 Q R S H ) \r N I
0020540 L \r ( 6 1 Q - 2 0 0 0 0 0 0
0020560 0 0 0 0 Q 5 0 Q - 2 0 0 0 0
0020600 0 0 0 0 0 0 Q ) \r R S H D 1 \r
0020620 ( L ( 1 N 0 X ) ) \0 302
0020640 002 \0 \0 002 j A 361 227 @ j A 331 \n \0 \0 020
0020660 021 001 @ 004 d l 002 360 231 277 @ 310 \0 270 @
0020700 310 001 260 026 d k 360 262 $ 277 j @ 361 243 j 270
0020720 @ 205 n 377 377 270 @ 323 271 A d l 037 361 262 %
0020740 277 H n 177 377 361 262 033 m 377 020 l 003 360 227 @
0020760 \t \0 \0 b \0 260 277 @ l \n \n \0 \0 b \0 260
0021000 265 j 020 l 017 361 262 026 H Y n 177 377 361 223 n
0021020 377 377 200 j 270 A l 020 331 b 002 200 A l \a 361
0021040 262 037 I 343 H l 377 345 341 330 271 H 343 H n 177
0021060 377 361 223 n 377 \0 200 j 330 270 A l \b 331 200 A
0021100 d j 361 262 036 I 342 H k 345 j 360 221 j 202 n
0021120 200 \0 330 271 H 342 H n 200 \0 345 330 270 k 331 260
0021140 341 H I 365 020 \0 ( 1 3 0 Q \ L I S
0021160 P E R R O R 1 1 6 Q \ F I X
0021200 P . F R O M . F L O A T P 1 2
0021220 Q L S H ) \r N I L \r ( ) \r M I
0021240 N U S P D 1 \r ( L ( 0 X )
0021260 ) \0 020 \0 \0 \0 001 @ 005 003 226 o \0 \0 \0
0021300 @ 362 020 j @ 361 020 \0 N I L \r N I L \r
0021320 ( 7 0 . 0 ) \r I L E S S P
0021340 D 1 \r ( L ( 1 Y 0 X ) )
0021360 \0 005 \0 \0 \0 002 A @ 361 020 \0 N I L \r
0021400 N I L \r ( ) \r I M I N U S D 1
0021420 \r ( L ( 0 X ) ) \0 005 \0 \0 \0
0021440 001 j @ 331 020 \0 N I L \r N I L \r ( )
0021460 \r I P L U S D 1 \r ( L ( 0
0021500 N ) ) \0 8 003 \0 002 \0 e 021 001 \0 H d
0021520 l 002 360 224 277 @ A 330 020 k 360 223 @ j 330 020
0021540 H j 360 221 j 020 @ A B 330 330 l 004 021 002 002
0021560 J H 361 252 I J a 330 271 J k 330 Z 260 364 I
0021600 020 \0 N I L \r N I L \r ( ) \r I T I
0021620 M E S D 1 \r ( L ( 0 N ) )
0021640 \0 8 003 \0 002 \0 e 021 001 \0 H d l 002 360
0021660 224 277 @ A 332 020 k 360 223 @ j 330 020 H j 360
0021700 221 k 020 @ A B 332 332 l 004 021 002 002 J H 361
0021720 252 I J a 332 271 J k 330 Z 260 364 I 020 \0 N
0021740 I L \r N I L \r ( ) \r L O G A N D
0021760 D 1 \r ( L ( 0 N ) ) \0 9
0022000 003 \0 002 \0 e 021 001 \0 H d l 002 360 224 277 @
0022020 A 345 020 k 360 223 @ j 330 020 H j 360 222 m 377
0022040 020 @ A B 345 345 l 004 021 002 002 J H 361 252 I
0022060 J a 345 271 J k 330 Z 260 364 I 020 \0 N I L
0022100 \r N I L \r ( ) \r L O G O R D 1
0022120 \r ( L ( 0 N ) ) \0 8 003 \0 002
0022140 \0 e 021 001 \0 H d l 002 360 224 277 @ A 344 020
0022160 k 360 223 @ j 330 020 H j 360 221 j 020 @ A B
0022200 344 344 l 004 021 002 002 J H 361 252 I J a 344 271
0022220 J k 330 Z 260 364 I 020 \0 N I L \r N I L
0022240 \r ( ) \r L O G X O R D 1 \r ( L
0022260 ( 0 N ) ) \0 8 003 \0 002 \0 e 021
0022300 001 \0 H d l 002 360 224 277 @ A 346 020 k 360 223
0022320 @ j 330 020 H j 360 221 j 020 @ A B 346 346 l
0022340 004 021 002 002 J H 361 252 I J a 346 271 J k 330
0022360 Z 260 364 I 020 \0 N I L \r N I L \r ( )
0022400 \r S U B 1 D 1 \r ( L ( 0 X
0022420 ) ) \0 005 \0 \0 \0 001 @ k 331 020 \0 N I
0022440 L \r N I L \r ( ) \r Z E R O P D
0022460 1 \r ( L ( 0 X ) ) \0 020 \0 \0
0022500 \0 001 @ j 360 265 \v @ 005 003 264 006 @ \t \0 \0
0022520 020 \0 ( 1 5 Q \ F Z E R O P ) \r
0022540 N I L \r ( ) \r A D D 1 D 1 \r (
0022560 L ( 0 X ) ) \0 005 \0 \0 \0 001 @
0022600 k 330 020 \0 N I L \r N I L \r ( ) \r G
0022620 C D D 1 \r ( L ( 1 N 2 0
0022640 N 1 ) ) \0 $ \0 \0 \0 002 A j 360 221
0022660 @ 020 j A 363 234 A \t \0 \0 @ b 002 277 b \0
0022700 277 260 353 A @ A 334 b 002 277 b \0 277 260 337 \0
0022720 ( 1 5 Q M I N U S ) \r N I L \r
0022740 ( ) \r I E Q P D 1 \r ( L ( 1
0022760 Y 0 X ) ) \0 \a \0 \0 \0 002 @
0023000 A 331 j 360 020 \0 N I L \r N I L \r ( )
0023020 \r I N T E G E R L E N G T H D
0023040 1 \r ( L ( 0 X ) ) 001 024 002 \0
0023060 \0 001 @ 004 d k 360 242 261 \0 250 277 j @ 361 226
0023100 @ \t \0 \0 b \0 277 o \0 \0 \0 @ 361 242 261 \0
0023120 216 n 001 \0 @ 361 262 C l 020 @ 361 262 " l 004
0023140 @ 361 237 l 002 @ 361 227 @ j 360 221 j 020 k 020
0023160 l 002 020 l \b @ 361 222 l 003 020 l 004 020 l @
0023200 @ 361 232 l @ 361 222 l 005 020 l 006 020 l 200
0023220 @ 361 222 l \a 020 l \b 020 n 020 \0 @ 361 262
0023240 n 004 \0 @ 361 233 n 002 \0 @ 361 222 l \t 020 l
0023260 \n 020 n \b \0 @ 361 222 l \v 020 l \f 020 n @
0023300 \0 @ 361 233 n \0 @ 361 222 l \r 020 l 016 020
0023320 n 200 \0 @ 361 222 l 017 020 l 020 020 \b \0 \0 020
0023340 l 002 360 262 Z @ 310 \0 021 021 001 H d n 177 377
0023360 361 262 8 277 @ 310 001 271 H n 200 \0 360 227 I d
0023400 j 360 223 l 020 I j 360 237 H d j 360 263 033
0023420 277 n 377 377 H 331 k 330 X 214 n 377 377 H 331 270
0023440 n 377 377 I 331 k 330 277 H j 360 230 @ 310 001 b
0023460 \0 023 261 377 \0 H \t \0 \0 l 020 330 020 @ j 330
0023500 b \0 261 376 361 \0 ( 4 0 6 Q I N T E
0023520 G E R L E N G T H 2 5 4 Q S
0023540 H O U L D N T 2 1 Q M I N U
0023560 S ) \r N I L \r ( 3 0 Q 2 0 0
0023600 0 0 0 Q ) \r A B S D 1 \r ( L
0023620 ( 0 X ) ) \0 . \0 \0 \0 001 @ d d
0023640 005 001 241 005 002 232 277 j @ 361 223 j @ 331 020 @
0023660 020 005 003 236 o \0 \0 \0 @ 362 262 365 o \0 \0 \0
0023700 @ 351 020 @ l \n \n \0 \0 020 \0 ( 5 3 Q
0023720 \ L I S P E R R O R ) \r N I L \r
0023740 ( 4 2 Q 0 . 0 3 2 Q 0 .
0023760 0 ) \r D I F F E R E N C E D 1
0024000 \r ( L ( 1 Y 0 X ) ) \0
0024020 005 \0 \0 \0 002 @ A 325 020 \0 N I L \r N I
0024040 L \r ( ) \r G R E A T E R P D 1
0024060 \r ( L ( 1 Y 0 X ) ) \0
0024100 033 \0 \0 \0 002 @ d d 005 001 241 005 002 235 277 A
0024120 d 005 001 241 005 002 223 @ A 361 020 @ A 362 020 \0
0024140 N I L \r N I L \r ( ) \r P L U S
0024160 D 1 \r ( L ( 0 N ) ) \0 5 003
0024200 \0 002 \0 e 021 001 \0 j 021 021 002 I H 360 263 '
0024220 I k 330 Y a d 005 001 241 005 002 233 J d 005 003
0024240 255 265 003 j I a 330 211 J 265 006 o \0 \0 \0 I
0024260 a 350 272 260 330 J 020 \0 N I L \r N I L \r
0024300 ( 5 3 Q 0 . 0 ) \r Q U O T I
0024320 E N T D 1 \r ( L ( 1 Y 0
0024340 X ) ) \0 033 \0 \0 \0 002 @ d d 005 001
0024360 241 005 002 235 277 A d 005 001 241 005 002 223 @ A 333
0024400 020 @ A 353 020 \0 N I L \r N I L \r ( )
0024420 \r R E M A I N D E R D 1 \r ( L
0024440 ( 1 Y 0 X ) ) \0 035 \0 \0
0024460 \0 002 @ d d 005 001 241 005 002 235 277 A d 005 001
0024500 241 005 002 223 @ A 334 020 @ A \n \0 \0 020 \0 (
0024520 3 2 Q F R E M A I N D E R ) \r
0024540 N I L \r ( ) \r L E S S P D 1 \r
0024560 ( L ( 1 Y 0 X ) ) \0 033
0024600 \0 \0 \0 002 A d d 005 001 241 005 002 235 277 @ d
0024620 005 001 241 005 002 223 A @ 361 020 A @ 362 020 \0 N
0024640 I L \r N I L \r ( ) \r M I N U S
0024660 D 1 \r ( L ( 0 X ) ) \0 024 \0
0024700 \0 \0 001 @ d 005 001 241 005 002 223 j @ 331 020 o
0024720 \0 \0 \0 @ 351 020 \0 N I L \r N I L \r (
0024740 1 7 Q 0 . 0 ) \r T I M E S
0024760 D 1 \r ( L ( 0 N ) ) \0 5 003
0025000 \0 002 \0 e 021 001 \0 j 021 021 002 I H 360 263 '
0025020 I k 330 Y a d 005 001 241 005 002 233 J d 005 003
0025040 255 265 003 k I a 332 211 J 265 006 o \0 \0 \0 I
0025060 a 352 272 260 330 J 020 \0 N I L \r N I L \r
0025100 ( 5 3 Q 1 . 0 ) \r F M I N U
0025120 S D 1 \r ( L ( 0 X ) ) \0
0025140 \b \0 \0 \0 001 o \0 \0 \0 @ 351 020 \0 N I L
0025160 \r N I L \r ( 3 0 . 0 ) \r F R
0025200 E M A I N D E R D 1 \r ( L (
0025220 1 Y 0 X ) ) \0 \v \0 \0 \0 002
0025240 @ d A 353 j 330 A 352 351 020 \0 N I L \r N
0025260 I L \r ( ) \r R A N D S E T D 1
0025300 \r ( L ( 0 X ) ) \0 372 \v \0 \0
0025320 001 021 @ 003 @ 265 005 261 \0 266 i 360 231 \b \0 \0
0025340 271 \b \0 \0 Z 260 ` @ d 003 002 d 005 001 241 005
0025360 002 237 d 001 d 005 001 241 005 002 226 001 271 @ 002 Z
0025400 260 E \t \0 \0 l 7 360 262 5 @ 211 d 001 d 005
0025420 001 241 005 002 225 002 003 265 365 i 201 277 h 262 021
0025440 0 006 @ 260 023 d 001 j 330 274 M 265 \a L h 032
0025460 ^ 201 L & 275 002 003 265 356 N 022 260 ? o \0 \0
0025500 \0 @ \n \0 \0 277 021 0 006 o \0 \0 \0 260 ( d
0025520 001 273 I n 377 377 345 271 K I n M 235 332 I 330
0025540 n 377 377 345 J 271 Z 346 274 M 265 \a L h 032 ^
0025560 201 L & 275 002 003 265 331 N 022 X \t \0 \0 H 031
0025600 277 H d l 037 \n \0 \0 032 027 \0 \0 277 l 7 `
0025620 \0 \0 001 k 021 C \n M 003 265 005 O 016 020 001 _
0025640 024 277 N L 363 263 366 O 024 _ 022 277 O 020 265 024
0025660 O 022 h 032 _ 020 _ 016 277 M 002 275 N k 324 276
0025700 260 327 O 022 & _ 020 277 260 361 \0 ( 2 6 6 Q
0025720 F N T H 2 5 4 Q L A S T
0025740 1 6 3 Q E R R O R 6 3 Q L
0025760 E N G T H 2 2 Q I D A T E
0026000 1 6 Q C L O C K ) \r ( 3 0 0 Q
0026020 R A N D S T A T E 2 7 2 Q
0026040 R A N D S T A T E ) \r ( 1 7 3
0026060 Q ( 1 5 0 1 7 7 Q 1 3 4 5 0
0026100 6 Q 2 3 7 2 Q 1 5 4 6 2 6 Q
0026120 1 7 0 2 3 0 Q 6 6 1 1 3 Q
0026140 2 5 7 4 4 Q 4 0 6 7 0 Q 1 0
0026160 5 7 7 6 Q 1 7 1 5 2 1 Q 2 6
0026200 4 0 5 Q 1 1 1 6 7 6 Q 1 0 3
0026220 5 6 4 Q 1 5 1 Q 1 6 2 5 7 6
0026240 Q 6 6 1 5 7 Q 2 3 4 0 4 Q
0026260 1 0 1 7 1 Q 1 5 7 1 6 7 Q 7
0026300 3 1 2 4 Q 5 7 7 4 6 Q 2 5 6
0026320 5 Q 1 5 2 4 7 4 Q 1 5 1 7 7
0026340 0 Q 1 2 4 4 4 4 Q 7 4 2 6 Q
0026360 1 1 4 1 3 6 Q 2 6 1 7 2 Q
0026400 1 4 6 0 4 3 Q 2 0 3 7 Q 1 6
0026420 7 3 Q 3 7 7 0 0 Q 4 6 7 0 6
0026440 Q 1 6 2 1 4 6 Q 6 2 7 7 Q
0026460 1 7 6 2 2 1 Q 3 2 5 0 Q 4 1
0026500 7 3 5 Q 1 5 6 7 6 4 Q 4 1 5
0026520 4 7 Q 1 4 4 6 6 5 Q 1 3 5 5
0026540 3 2 Q 6 3 2 4 0 Q 1 0 5 6 0
0026560 Q 5 5 0 4 Q 1 4 5 0 7 5 Q
0026600 1 1 4 7 7 6 Q 1 7 6 5 0 3 Q
0026620 1 6 0 6 0 5 Q 1 0 4 1 4 7 Q
0026640 1 2 3 0 3 Q 2 7 5 1 6 Q 3 5
0026660 4 1 4 Q 2 3 6 2 5 Q 2 5 1 0
0026700 0 Q ) 1 5 7 Q " A R G N O
0026720 T P R E V I O U S V A L U E
0026740 O F R A N D S E T " ) \r R A
0026760 N D D 1 \r ( L ( 1 U P P E
0027000 R 0 L O W E R ) ) \0 261 002 \0
0027020 \0 002 021 001 ` \0 \0 003 265 \n i \t \0 \0 277
0027040 ` \0 \0 001 002 270 ` \0 \0 002 002 271 ` \0 \0 H
0027060 030 I 031 277 H d 001 I 001 331 n 377 377 345 030 023
0027100 A 263 ' @ 265 \b ` \0 \0 001 001 020 d 005 001 241
0027120 005 002 227 ` \0 \0 001 001 @ 334 020 @ ` \0 \0 001
0027140 001 o \0 \0 \0 353 352 020 @ d 005 001 241 005 002 262
0027160 B A d d 005 001 241 005 002 262 9 d @ 361 245 277
0027200 @ A b \0 277 @ 331 b 002 d n 377 377 361 262 027
0027220 ` \0 \0 001 001 ` \0 \0 001 002 001 365 A k 330 \n
0027240 \0 \0 @ 330 020 ` \0 \0 001 001 A k 330 334 @ 330
0027260 020 A @ 351 ` \0 \0 001 001 o \0 \0 \0 353 352 @
0027300 350 020 \0 ( 2 1 7 Q I M O D 1 4
0027320 Q R A N D S E T ) \r ( 2 4 4 Q
0027340 R A N D S T A T E 2 2 5 Q
0027360 R A N D S T A T E 2 0 5 Q R
0027400 A N D S T A T E 2 0 0 Q R A
0027420 N D S T A T E 1 1 4 Q R A N
0027440 D S T A T E 1 0 3 Q R A N D
0027460 S T A T E 6 6 Q R A N D S T
0027500 A T E 3 4 Q R A N D S T A T
0027520 E 2 6 Q R A N D S T A T E
0027540 2 0 Q R A N D S T A T E 5
0027560 R A N D S T A T E ) \r ( 2 5 2
0027600 Q 6 5 5 3 6 . 0 1 2 2 Q 6
0027620 5 5 3 6 . 0 ) \r E X P T D 1 \r
0027640 ( L ( 1 N 0 A ) ) \0 233
0027660 001 \0 \0 002 A d 005 001 241 005 002 262 025 @ d 005
0027700 001 241 005 002 262 9 A j 361 253 A j 360 221 k 020
0027720 @ A \n \0 \0 020 @ j 360 221 j 020 k 021 001 \0
0027740 A d k 345 j 360 245 277 @ H 326 270 A 342 b 002
0027760 j 360 221 H 020 @ d 326 b \0 277 260 345 o \0 \0
0030000 \0 @ 006 \0 \0 b \0 \n \0 \0 235 A j 360 224 o
0030020 \0 \0 \0 020 o \0 \0 \0 020 o \0 \0 \0 021 001 \0
0030040 j A 361 262 027 o \0 \0 \0 @ 353 b \0 277 j A
0030060 331 b 002 206 @ d 326 b \0 277 A k 345 j 360 243
0030100 @ H 326 270 A 342 b 002 j 360 262 352 H 020 \0 (
0030120 1 2 5 Q F E Q P 4 0 Q F E
0030140 X P T ) \r ( 1 2 0 Q F L O A T
0030160 P ) \r ( 1 6 4 Q 1 . 0 1 5
0030200 0 Q 1 . 0 1 4 3 Q 0 . 0
0030220 1 3 6 Q 1 . 0 1 1 4 Q 0 .
0030240 0 ) \r P u t U n b o x e d D 1
0030260 \r ( L ( 1 N U M 0 P T R
0030300 ) ) \0 \a \0 \0 \0 002 @ A \n \0 \0 020 \0
0030320 ( 4 \ P U T F I X P ) \r N I L
0030340 \r ( ) \r \ P U T F I X P D 1 \r
0030360 ( L ( 1 N U M 0 P T R )
0030400 ) \0 J 002 \0 \0 002 021 001 A 004 d l 002
0030420 360 231 277 A 310 \0 270 A 310 001 260 026 d k 360 262
0030440 034 277 j A 361 243 j 270 A 205 n 377 377 270 A 323
0030460 271 @ H 315 \0 @ I 315 001 A 020 l 003 360 227 A
0030500 \t \0 \0 b 002 260 307 A l \n \n \0 \0 b 002 260
0030520 275 \0 ( 1 0 4 Q \ L I S P E R R
0030540 O R 7 2 Q \ F I X P . F R O
0030560 M . F L O A T P ) \r N I L \r ( )
0030600 \r \ P U T S W A P P E D F I X P
0030620 D 1 \r ( L ( 1 N U M 0
0030640 P T R ) ) \0 J 002 \0 \0 002 021 001 A
0030660 004 d l 002 360 231 277 A 310 \0 270 A 310 001 260 026
0030700 d k 360 262 034 277 j A 361 243 j 270 A 205 n 377
0030720 377 270 A 323 271 @ H 315 001 @ I 315 \0 A 020 l
0030740 003 360 227 A \t \0 \0 b 002 260 307 A l \n \n \0
0030760 \0 b 002 260 275 \0 ( 1 0 4 Q \ L I S
0031000 P E R R O R 7 2 Q \ F I X P
0031020 . F R O M . F L O A T P ) \r N I
0031040 L \r ( ) \r \ H I N U M D 1 \r (
0031060 L ( 0 N U M ) ) \0 9 001 \0 \0
0031100 001 021 020 \0 @ 004 d l 002 360 224 277 @ 310 \0 020
0031120 d k 360 236 277 j @ 361 241 j 020 n 377 377 270 @
0031140 323 H 020 l 003 360 227 @ \t \0 \0 b \0 260 330 @
0031160 l \n \n \0 \0 b \0 260 316 \0 ( 6 3 Q \
0031200 L I S P E R R O R 5 1 Q \ F
0031220 I X P . F R O M . F L O A T P )
0031240 \r N I L \r ( ) \r \ L O N U M D
0031260 1 \r ( L ( 0 N U M ) ) \0 1
0031300 \0 \0 \0 001 @ 004 d l 002 360 224 277 @ 310 001 020
0031320 d k 360 231 277 j @ 361 241 @ 020 @ 323 020 l 003
0031340 360 227 @ \t \0 \0 b \0 260 335 @ l \n \n \0 \0
0031360 b \0 260 323 \0 ( 5 3 Q \ L I S P E
0031400 R R O R 4 1 Q \ F I X P . F
0031420 R O M . F L O A T P ) \r N I L \r
0031440 ( ) \r T R U N C A T E M U L T I
0031460 P L Y D 1 \r ( L ( 1 Y 0
0031500 X ) ) \0 # \0 \0 \0 002 A d j 360 221
0031520 j 020 k 345 k 360 231 @ d 340 A 342 \n \0 \0 330
0031540 020 @ 340 A 342 b 002 277 b \0 277 260 340 \0 ( 2
0031560 3 Q T R U N C A T E M U L T I
0031600 P L Y ) \r N I L \r ( ) \r ( P R E
0031620 T T Y C O M P R I N T L L A R
0031640 I T H C O M S ) \r ( R P A Q Q
0031660 L L A R I T H C O M S ( ( L O
0031700 C A L V A R S . T ) ( C O
0031720 M S ( * " O P C O D E S " )
0031740 ( F N S I D I F F E R E N C
0031760 E I G R E A T E R P I Q U O
0032000 T I E N T ) ( F N S \r \ S L
0032020 O W I P L U S 2 \ S L O W P L
0032040 U S 2 \ S L O W I D I F F E R
0032060 E N C E \ S L O W D I F F E R
0032100 E N C E \ S L O W I G R E A T
0032120 E R P \ S L O W L L S H 1 \
0032140 S L O W L L S H 8 \r \ S L O W
0032160 L O G A N D 2 \ S L O W L O G
0032200 O R 2 \ S L O W L O G X O R 2
0032220 \ S L O W L R S H 1 \ S L O
0032240 W L R S H 8 \ S L O W I T I M
0032260 E S 2 \ S L O W T I M E S 2
0032300 \ S L O W I Q U O T I E N T \r
0032320 \ S L O W Q U O T I E N T ) )
0032340 ( C O M S ( * " I P L U S
0032360 a n d I D I F F E R E N C E
0032400 t h a t s m a s h r e s u l
0032420 t i n t o t h e i r f i r
0032440 s t a r g " ) ( F N S \r \
0032460 B O X I P L U S \ B O X I D I
0032500 F F E R E N C E ) ) ( * " s
0032520 u b f u n c t i o n s " ) ( F
0032540 N S \ M A K E N U M B E R )
0032560 ( F N S O V E R F L O W ) (
0032600 I N I T V A R S ( \ O V E R F
0032620 L O W 0 \r ) ) ( E ( R E S
0032640 E T S A V E ( R A D I X 8 )
0032660 ) ) ( C O N S T A N T S ( M
0032700 A X . S M A L L P 6 5 5 3 5 )
0032720 ( M I N . S M A L L P - 6 5
0032740 5 3 6 ) ( M A X . F I X P 2
0032760 1 4 7 4 8 3 6 4 7 ) ( \r M I N
0033000 . F I X P - 2 1 4 7 4 8 3 6 4
0033020 8 ) ( \ S I G N B I T 3 2 7
0033040 6 8 ) ) ( C O M S ( * \r "
0033060 F o r C o m p a t i b i l i t
0033100 y . S o m e d a y t h e s e
0033120 t w o n a m e s s h o u l
0033140 d b e f l u s h e d - -
0033160 J o n L 7 / 2 5 / 8 3 " ) (
0033200 C O N S T A N T S ( \r M A X .
0033220 I N T E G E R 2 1 4 7 4 8 3 6
0033240 4 7 ) ( M I N . I N T E G E R
0033260 - 2 1 4 7 4 8 3 6 4 8 ) ) )
0033300 ( F N S \ G E T B A S E F I X
0033320 P \ P U T B A S E F I X P \
0033340 P U T B A S E F I X P . U F N )
0033360 ( \r E X P O R T ( D E C L A
0033400 R E : D O N T C O P Y ( R E
0033420 C O R D S F I X P ) ( C O N
0033440 S T A N T S ( M A X . S M A L
0033460 L . I N T E G E R 6 5 5 3 5 )
0033500 ( M A X . P O S . H I N U M
0033520 3 2 7 6 7 ) ) ( \r M A C R O S
0033540 . U N B O X . . N E G A T E
0033560 . . L L S H 1 . . L R S H 1
0033600 . . B O X I P L U S . ) ) )
0033620 ( F N S E Q P F I X I Q U
0033640 O T I E N T I R E M A I N D E
0033660 R L L S H L R S H L S H
0033700 \r R S H ) ( D E C L A R E :
0033720 E V A L @ C O M P I L E D O N
0033740 T C O P Y ( M A C R O S N B
0033760 I T S . O R . L E S S . S U B
0034000 S M A L L . \ I Q U O T R E M
0034020 ) ) ( * \r " M a c h i n e
0034040 i n d e p e n d e n t a r i t
0034060 h m e t i c f u n c t i o n s
0034100 " ) ( F N S M I N U S P I
0034120 L E S S P I M I N U S I P L
0034140 U S I T I M E S L O G A N D
0034160 L O G O R L O G X O R \r S
0034200 U B 1 Z E R O P A D D 1 G
0034220 C D I E Q P I N T E G E R L
0034240 E N G T H ) ( F N S A B S
0034260 D I F F E R E N C E G R E A T
0034300 E R P P L U S Q U O T I E N
0034320 T R E M A I N D E R L E S S
0034340 P \r M I N U S T I M E S )
0034360 ( F N S F M I N U S F R E M
0034400 A I N D E R ) ( F N S R A N
0034420 D S E T R A N D E X P T )
0034440 ( D E C L A R E : D O N T E V
0034460 A L @ L O A D D O C O P Y (
0034500 V A R S ( \r R A N D S T A T E
0034520 ) ( \ T O L 9 . 9 9 9 9 9 2
0034540 E - 6 ) ) ) ( G L O B A L V A
0034560 R S R A N D S T A T E \ T O
0034600 L ) ( C O M S ( F N S P u
0034620 t U n b o x e d \ P U T F I X
0034640 P \r \ P U T S W A P P E D F I
0034660 X P \ H I N U M \ L O N U M
0034700 T R U N C A T E M U L T I P L
0034720 Y ) ( E X P O R T ( D E C L
0034740 A R E : D O N T C O P Y ( M
0034760 A C R O S P u t U n b o x e d
0035000 ) ) ) ) ( \r D E C L A R E :
0035020 D O N T E V A L @ L O A D D O
0035040 E V A L @ C O M P I L E D O N
0035060 T C O P Y C O M P I L E R V A
0035100 R S ( A D D V A R S ( N L A
0035120 M A ) ( N L A M L ) ( L A M
0035140 A T I M E S P L U S \r L O
0035160 G X O R L O G O R L O G A N
0035200 D I T I M E S I P L U S ) )
0035220 ) ) ) \r ( R P A Q ? \ O V E R
0035240 F L O W 0 ) \r ( R P A Q Q M
0035260 A X . S M A L L P 6 5 5 3 5 )
0035300 \r ( R P A Q Q M I N . S M A L
0035320 L P - 6 5 5 3 6 ) \r ( R P A Q
0035340 Q M A X . F I X P 2 1 4 7 4
0035360 8 3 6 4 7 ) \r ( R P A Q Q M I
0035400 N . F I X P - 2 1 4 7 4 8 3 6
0035420 4 8 ) \r ( R P A Q Q \ S I G N
0035440 B I T 3 2 7 6 8 ) \r ( C O N S
0035460 T A N T S ( M A X . S M A L L
0035500 P 6 5 5 3 5 ) ( M I N . S M
0035520 A L L P - 6 5 5 3 6 ) ( M A
0035540 X . F I X P 2 1 4 7 4 8 3 6 4
0035560 7 ) ( M I N . F I X P - 2 1
0035600 4 7 4 8 3 6 4 8 ) ( \r \ S I G
0035620 N B I T 3 2 7 6 8 ) ) \r ( R P
0035640 A Q Q M A X . I N T E G E R
0035660 2 1 4 7 4 8 3 6 4 7 ) \r ( R P A
0035700 Q Q M I N . I N T E G E R -
0035720 2 1 4 7 4 8 3 6 4 8 ) \r ( C O N
0035740 S T A N T S ( M A X . I N T E
0035760 G E R 2 1 4 7 4 8 3 6 4 7 )
0036000 ( M I N . I N T E G E R - 2 1
0036020 4 7 4 8 3 6 4 8 ) ) \r ( R P A Q
0036040 Q R A N D S T A T E N I L )
0036060 \r ( R P A Q Q \ T O L 9 . 9
0036100 9 9 9 9 2 E - 6 ) \r ( P U T P R
0036120 O P S L L A R I T H C O P Y
0036140 R I G H T ( " X e r o x C o
0036160 r p o r a t i o n " T 1 9 8
0036200 2 1 9 8 3 1 9 8 4 1 9 8 5
0036220 ) ) \r N I L \r
0036227