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