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