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