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