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