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