$ od -c -N 50000 [eris]<Lisp>Carol>SOURCES>LLFLOAT.DCOM!1
0000000 ( F I L E C R E A T E D " 1 6
0000020 - O C T - 8 2 2 3 : 4 3 : 5 4
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P C
0000100 O R E > S O U R C E S > L L F L
0000120 O A T . ; 9 ) \r " 1 0 - O C T
0000140 - 8 2 1 6 : 1 5 : 3 5 " r e
0000160 c o m p i l e d e x p r s :
0000200 n o t h i n g i n W O R K
0000220 d a t e d " 1 0 - O C T - 8 2
0000240 1 6 : 2 2 : 5 2 " ) \r ( F I L
0000260 E C R E A T E D " 1 6 - O C T
0000300 - 8 2 2 3 : 4 3 : 2 5 " { P
0000320 H Y L U M } < L I S P C O R E >
0000340 S O U R C E S > L L F L O A T .
0000360 ; 9 4 4 4 9 2 c h a n g e s
0000400 t o : ( M A C R O S \r . F
0000420 L O A T U N B O X . ) p r e v
0000440 i o u s d a t e : " 1 3 - O
0000460 C T - 8 2 1 6 : 3 9 : 3 5 "
0000500 { P H Y L U M } < L I S P C O R
0000520 E > S O U R C E S > L L F L O A
0000540 T . ; 8 ) \r F D I F F E R E N C
0000560 E D 1 \r ( L ( 1 Y 0 X
0000600 ) ) \0 \b \0 \0 \0 002 @ A i \v \0 \0 020
0000620 \0 ( 5 \ B O X F P L U S D I F
0000640 ) \r N I L \r N I L \r F E Q P D
0000660 1 \r ( L ( 1 Y 0 X ) )
0000700 002 o \b \0 \0 002 @ 005 003 262 034 A 005 003 262 027
0000720 @ 310 \0 A 310 \0 360 264 003 202 261 002 N @ 310 001
0000740 A 310 001 360 020 021 200 \a @ 005 003 222 261 \0 320 @
0000760 004 d l 002 360 262 8 277 @ 310 \0 272 @ 310 001 273
0001000 J n 177 377 361 262 $ K j 360 235 J j 360 263 031
0001020 n 377 377 J 331 k 330 272 215 n 377 377 J 331 272 n
0001040 377 377 K 331 k 330 273 k 200 j 270 260 ' k 360 262
0001060 5 j 272 @ 322 l 016 360 224 j 270 @ 260 025 k 270
0001100 @ 323 j 360 223 k 272 j 207 n 377 377 @ 323 331 k
0001120 330 273 J d j 360 262 035 277 K d j 360 236 277 j
0001140 271 261 \0 212 @ \t \0 \0 b \0 261 377 177 272 j 273
0001160 l 216 215 l 377 361 227 @ \t \0 \0 b \0 260 @ l
0001200 236 271 J d l 377 361 263 023 341 K 343 330 272 K l
0001220 377 345 341 273 I l \b 331 271 J n 200 \0 345 j 360
0001240 262 K J 340 272 K d n 177 377 361 231 277 J k 330
0001260 272 K n 177 377 345 340 273 I k 260 335 @ 312 \0 \0
0001300 270 @ 310 001 273 @ 312 \0 226 272 @ 312 \0 027 Y d
0001320 j 360 262 O 277 J j 360 223 K j 360 241 k 271 J
0001340 341 K 343 330 272 K l 377 345 341 273 A 005 003 222 261
0001360 \0 360 A 004 d l 002 360 262 K 277 A 310 \0 276 A
0001400 310 001 _ 016 277 N n 177 377 361 262 5 O 016 j 360
0001420 262 034 N j 360 263 ( n 377 377 N 331 k 330 276 260
0001440 036 l 377 360 263 273 J l 200 330 260 266 n 377 377 N
0001460 331 276 n 377 377 O 016 331 k 330 _ 016 277 k 200 j
0001500 274 260 ) k 360 262 8 j 276 A 322 l 016 360 224 j
0001520 274 A 260 025 k 274 A 323 j 360 223 k 276 j 207 n
0001540 377 377 A 323 331 k 330 _ 016 277 N d j 360 262
0001560 277 O 016 d j 360 236 277 j 275 261 \0 233 A \t \0
0001600 \0 b 002 261 377 i 276 j _ 016 277 l 216 215 l 377
0001620 361 227 A \t \0 \0 b 002 260 H l 236 275 N d l
0001640 377 361 263 027 341 O 016 343 330 276 O 016 l 377 345 341
0001660 _ 016 277 M l \b 331 275 N n 200 \0 345 j 360 262
0001700 V N 340 276 O 016 d n 177 377 361 232 277 N k 330
0001720 276 O 016 n 177 377 345 340 _ 016 277 M k 260 331 A
0001740 312 \0 \0 274 A 310 001 _ 016 277 A 312 \0 226 276 A
0001760 312 \0 027 ] d j 360 262 2 277 N j 360 224 O 016
0002000 j 360 241 k 275 N 341 O 016 343 330 276 O 016 l 377
0002020 345 341 _ 016 277 J N 360 264 020 K O 016 360 264 \n
0002040 I M 360 264 005 H L 360 020 l 377 360 263 331 N l
0002060 200 330 260 324 \0 ( 7 1 7 Q F L O A T
0002100 6 7 2 Q F L O A T 2 6 4 Q
0002120 F L O A T 2 4 1 Q F L O A
0002140 T ) \r N I L \r N I L \r F G R E A
0002160 T E R P D 1 \r ( L ( 1 Y
0002200 0 X ) ) 002 311 \b \0 \0 002 @ 005 003 262
0002220 X A 005 003 262 S @ 310 \0 A 310 \0 021 002 001 H
0002240 n 200 \0 345 d I n 200 \0 345 360 242 261 002 b j
0002260 360 262 034 H I 361 265 003 202 261 002 232 H I 360 264
0002300 003 202 261 002 221 @ 310 001 A 310 001 361 020 I H 361
0002320 265 003 202 261 002 200 H I 360 264 003 202 261 002 w A
0002340 310 001 @ 310 001 361 020 021 200 \a @ 005 003 222 261 \0
0002360 320 @ 004 d l 002 360 262 8 277 @ 310 \0 270 @ 310
0002400 001 271 H n 177 377 361 262 $ I j 360 235 H j 360
0002420 263 031 n 377 377 H 331 k 330 270 215 n 377 377 H 331
0002440 270 n 377 377 I 331 k 330 271 k 200 j 272 260 ' k
0002460 360 262 5 j 270 @ 322 l 016 360 224 j 272 @ 260 025
0002500 k 272 @ 323 j 360 223 k 270 j 207 n 377 377 @ 323
0002520 331 k 330 271 H d j 360 262 035 277 I d j 360 236
0002540 277 j 273 261 \0 212 @ \t \0 \0 b \0 261 377 177 270
0002560 j 271 l 216 215 l 377 361 227 @ \t \0 \0 b \0 260
0002600 @ l 236 273 H d l 377 361 263 023 341 I 343 330 270
0002620 I l 377 345 341 271 K l \b 331 273 H n 200 \0 345
0002640 j 360 262 K H 340 270 I d n 177 377 361 231 277 H
0002660 k 330 270 I n 177 377 345 340 271 K k 260 335 @ 312
0002700 \0 \0 272 @ 310 001 271 @ 312 \0 226 270 @ 312 \0 027
0002720 [ d j 360 262 L 277 H j 360 223 I j 360 241 k
0002740 273 H 341 I 343 330 270 I l 377 345 341 271 A 005 003
0002760 222 261 \0 346 A 004 d l 002 360 262 E 277 A 310 \0
0003000 274 A 310 001 275 L n 177 377 361 262 1 M j 360 262
0003020 034 L j 360 263 % n 377 377 L 331 k 330 274 260 033
0003040 l 377 360 263 276 H l 200 330 260 271 n 377 377 L 331
0003060 274 n 377 377 M 331 k 330 275 k 200 j 276 260 ' k
0003100 360 262 8 j 274 A 322 l 016 360 224 j 276 A 260 025
0003120 k 276 A 323 j 360 223 k 274 j 207 n 377 377 A 323
0003140 331 k 330 275 L d j 360 262 277 M d j 360 262
0003160 023 277 j _ 016 277 261 \0 223 A \t \0 \0 b 002 261
0003200 377 o 274 j 275 l 216 215 l 377 361 227 A \t \0 \0
0003220 b 002 260 F l 236 _ 016 277 L d l 377 361 263 026
0003240 341 M 343 330 274 M l 377 345 341 275 O 016 l \b 331
0003260 _ 016 277 L n 200 \0 345 j 360 262 O L 340 274 M
0003300 d n 177 377 361 231 277 L k 330 274 M n 177 377 345
0003320 340 275 O 016 k 260 332 A 312 \0 \0 276 A 310 001 275
0003340 A 312 \0 226 274 A 312 \0 027 _ 016 d j 360 262 #
0003360 277 L j 360 223 M j 360 243 k _ 016 277 L 341 M
0003400 343 330 274 M l 377 345 341 275 J d N 360 255 j 360
0003420 020 l 377 360 263 351 L l 200 330 260 344 j 360 262 034
0003440 K O 016 361 265 / K O 016 360 264 ) H L 361 265
0003460 $ H L 360 264 037 I M 361 020 O 016 K 361 265 025
0003500 O 016 K 360 264 017 L H 361 265 \n L H 360 264 005
0003520 M I 361 020 \0 ( 1 0 0 3 Q F L O A
0003540 T 7 6 0 Q F L O A T 3 6 0
0003560 Q F L O A T 3 3 5 Q F L O
0003600 A T ) \r N I L \r N I L \r F L O A
0003620 T D 1 \r ( L ( 0 X ) ) \0
0003640 ~ 003 \0 \0 001 @ 005 003 265 n j 021 ! 002 @ 004
0003660 d l 002 360 262 5 277 @ 310 \0 271 @ 310 001 272 I
0003700 n 177 377 361 262 H J j 360 235 I j 360 263 031 n
0003720 377 377 I 331 k 330 271 215 n 377 377 I 331 271 n 377
0003740 377 J 331 k 330 272 k 260 & k 360 262 , j 271 @
0003760 322 l 016 360 222 @ 260 025 k 270 @ 323 j 360 223 k
0004000 271 j 207 n 377 377 @ 323 331 k 330 272 H l 236 I
0004020 J i \r 005 \0 \0 020 @ l \n i \v \0 \0 b \0
0004040 260 217 \0 ( 1 7 0 Q \ L I S P E R
0004060 R O R 1 6 0 Q \ M A K E F L
0004100 O A T ) \r N I L \r N I L \r F P L
0004120 U S 2 D 1 \r ( L ( 1 Y 0
0004140 X ) ) \0 \a \0 \0 \0 002 @ A \n \0 \0
0004160 020 \0 ( 4 \ B O X F P L U S D I
0004200 F ) \r N I L \r N I L \r F Q U O T
0004220 I E N T D 1 \r ( L ( 1 Y
0004240 0 X ) ) \0 \a \0 \0 \0 002 @ A \n \0
0004260 \0 020 \0 ( 4 \ B O X F Q U O T I
0004300 E N T ) \r N I L \r N I L \r F T I
0004320 M E S 2 D 1 \r ( L ( 1 Y
0004340 0 X ) ) \0 \a \0 \0 \0 002 @ A \n \0
0004360 \0 020 \0 ( 4 \ B O X F T I M E S
0004400 2 ) \r N I L \r N I L \r \ F I X P
0004420 . F R O M . F L O A T P D 1 \r
0004440 ( L ( 0 X ) F 4 \ O V
0004460 E R F L O W ) 001 263 004 001 \0 001 021 @
0004500 003 @ 005 003 222 261 \0 313 @ 004 d l 002 360 262 8
0004520 277 @ 310 \0 272 @ 310 001 273 J n 177 377 361 262 $
0004540 K j 360 235 J j 360 263 031 n 377 377 J 331 k 330
0004560 272 215 n 377 377 J 331 272 n 377 377 K 331 k 330 273
0004600 k 200 j 270 260 ' k 360 262 1 j 272 @ 322 l 016
0004620 360 224 j 270 @ 260 025 k 270 @ 323 j 360 223 k 272
0004640 j 207 n 377 377 @ 323 331 k 330 273 J d j 360 262
0004660 030 277 K d j 360 231 j 020 @ \t \0 \0 b \0 260
0004700 203 272 j 273 l 216 215 l 377 361 227 @ \t \0 \0 b
0004720 \0 260 @ l 236 271 J d l 377 361 263 023 341 K 343
0004740 330 272 K l 377 345 341 273 I l \b 331 271 J n 200
0004760 \0 345 j 360 262 L J 340 272 K d n 177 377 361 231
0005000 277 J k 330 272 K n 177 377 345 340 273 I k 260 335
0005020 @ 312 \0 \0 270 @ 310 001 273 @ 312 \0 226 272 @ 312
0005040 \0 027 Y d j 360 262 N 277 J j 360 224 K j 360
0005060 263 207 k 271 J 341 K 343 330 272 K l 377 345 341 273
0005100 I l ~ 331 271 j I 361 222 261 377 n I l 361
0005120 263 027 I l 360 262 7 H j 360 252 J n 200 \0
0005140 360 224 K j 360 263 ( T i 360 262 025 @ l 2 i
0005160 \v \0 \0 020 l 377 360 263 275 J l 200 330 260 270 H
0005200 j 360 224 o \0 \0 \0 020 o \0 \0 \0 020 l I
0005220 331 Y d l 020 375 361 263 . 277 J I l 020 331 \n
0005240 \0 \0 273 j Z 277 H k 360 262 C K j 360 262 0
0005260 J d j 360 263 9 277 n 377 377 J 331 k 330 260 /
0005300 J 342 272 k 331 d j 361 262 335 K 342 273 J d k
0005320 345 j 360 263 356 277 K n 200 \0 330 273 260 344 n 377
0005340 377 J 331 272 n 377 377 K 331 k 330 273 J K 365 020
0005360 \0 ( 5 4 3 Q L R S H 4 6 4 Q
0005400 \ L I S P E R R O R 2 2 0 Q
0005420 F L O A T 1 7 6 Q F L O A
0005440 T ) \r N I L \r ( 5 1 5 Q - 2 0
0005460 0 0 0 0 0 0 0 0 0 Q 5 1 0 Q
0005500 1 7 7 7 7 7 7 7 7 7 7 Q ) \r F I
0005520 X R D 1 \r ( L ( 0 X ) F
0005540 5 \ O V E R F L O W ) 002 '
0005560 005 001 \0 001 @ d 005 001 241 005 002 265 | 021 P 004
0005600 @ 005 003 222 261 \0 313 @ 004 d l 002 360 262 8 277
0005620 @ 310 \0 272 @ 310 001 273 J n 177 377 361 262 $ K
0005640 j 360 235 J j 360 263 031 n 377 377 J 331 k 330 272
0005660 215 n 377 377 J 331 272 n 377 377 K 331 k 330 273 k
0005700 200 j 270 260 ' k 360 262 1 j 272 @ 322 l 016 360
0005720 224 j 270 @ 260 025 k 270 @ 323 j 360 223 k 272 j
0005740 207 n 377 377 @ 323 331 k 330 273 J d j 360 262 030
0005760 277 K d j 360 231 j 020 @ \t \0 \0 b \0 260 203
0006000 272 j 273 l 216 215 l 377 361 227 @ \t \0 \0 b \0
0006020 260 @ l 236 271 J d l 377 361 263 023 341 K 343 330
0006040 272 K l 377 345 341 273 I l \b 331 271 J n 200 \0
0006060 345 j 360 262 L J 340 272 K d n 177 377 361 231 277
0006100 J k 330 272 K n 177 377 345 340 273 I k 260 335 @
0006120 312 \0 \0 270 @ 310 001 273 @ 312 \0 226 272 @ 312 \0
0006140 027 Y d j 360 262 N 277 J j 360 224 K j 360 263
0006160 207 k 271 J 341 K 343 330 272 K l 377 345 341 273 I
0006200 l ~ 331 271 j I 361 222 261 377 n I l 361 263
0006220 027 I l 360 262 7 H j 360 252 J n 200 \0 360
0006240 224 K j 360 263 ( U i 360 262 025 @ l 2 i \v
0006260 \0 \0 020 l 377 360 263 275 J l 200 330 260 270 H j
0006300 360 224 o \0 \0 \0 020 o \0 \0 \0 020 l 030 I 361
0006320 263 $ l I 331 d j 361 242 261 \0 225 K 342 273
0006340 J d k 345 j 360 247 277 K n 200 \0 330 273 J 342
0006360 272 k 260 343 l 030 I 331 Y d l 020 375 361 263 Q
0006400 277 J K j 360 221 j 201 l 177 344 I l 020 331 \n
0006420 \0 \0 273 j Z 277 K l 377 345 274 K 343 J l 377
0006440 345 341 330 273 J 343 272 L l 200 361 254 L l 200 360
0006460 262 @ K k 345 j 360 263 9 K d n 377 377 360 262
0006500 - 277 j 273 J k 330 Z 260 ' J 342 272 k 331 d
0006520 j 361 262 303 K 342 K k 345 344 273 J d k 345 j
0006540 360 263 352 277 K n 200 \0 330 273 260 340 k 330 [ 277
0006560 H k 360 262 # K j 360 236 J d j 360 263 032 277
0006600 n 377 377 J 331 k 330 216 n 377 377 J 331 272 n 377
0006620 377 K 331 k 330 273 J K 365 020 \0 ( 6 3 5 Q
0006640 L R S H 4 7 5 Q \ L I S P
0006660 E R R O R 2 3 1 Q F L O A T
0006700 2 0 7 Q F L O A T ) \r N I L
0006720 \r ( 5 2 6 Q - 2 0 0 0 0 0 0 0
0006740 0 0 0 Q 5 2 1 Q 1 7 7 7 7 7
0006760 7 7 7 7 7 Q ) \r \ B O X F P L U
0007000 S D I F D 1 \r ( L ( 3 B O
0007020 X 2 S U B T R A C T 1 Y
0007040 0 X ) ) 003 254 \v \0 \0 004 021 260 \n
0007060 A 005 003 222 261 \0 344 A 004 d l 002 360 262 ? 277
0007100 A 310 \0 276 A 310 001 _ 016 277 N n 177 377 361 262
0007120 ) O 016 j 360 236 N j 360 263 035 n 377 377 N 331
0007140 k 330 276 260 023 n 377 377 N 331 276 n 377 377 O 016
0007160 331 k 330 _ 016 277 k 200 j 274 260 ) k 360 262 8
0007200 j 276 A 322 l 016 360 224 j 274 A 260 025 k 274 A
0007220 323 j 360 223 k 276 j 207 n 377 377 A 323 331 k 330
0007240 _ 016 277 N d j 360 262 277 O 016 d j 360 236
0007260 277 j 275 261 \0 233 A \t \0 \0 b 002 261 377 u 276
0007300 j _ 016 277 l 216 215 l 377 361 227 A \t \0 \0 b
0007320 002 260 H l 236 275 N d l 377 361 263 027 341 O 016
0007340 343 330 276 O 016 l 377 345 341 _ 016 277 M l \b 331
0007360 275 N n 200 \0 345 j 360 262 V N 340 276 O 016 d
0007400 n 177 377 361 232 277 N k 330 276 O 016 n 177 377 345
0007420 340 _ 016 277 M k 260 331 A 312 \0 \0 274 A 310 001
0007440 _ 016 277 A 312 \0 226 276 A 312 \0 027 ] d j 360
0007460 262 W 277 N j 360 224 O 016 j 360 241 k 275 N 341
0007500 O 016 343 330 276 O 016 l 377 345 341 _ 016 277 B 223
0007520 k L 331 274 @ 005 003 222 261 \0 345 @ 004 d l 002
0007540 360 262 E 277 @ 310 \0 272 @ 310 001 273 J n 177 377
0007560 361 262 1 K j 360 262 034 J j 360 263 % n 377 377
0007600 J 331 k 330 272 260 033 l 377 360 263 264 N l 200 330
0007620 260 257 n 377 377 J 331 272 n 377 377 K 331 k 330 273
0007640 k 200 j 270 260 ' k 360 262 = j 272 @ 322 l 016
0007660 360 224 j 270 @ 260 025 k 270 @ 323 j 360 223 k 272
0007700 j 207 n 377 377 @ 323 331 k 330 273 J d j 360 262
0007720 % 277 K d j 360 262 030 277 L M N O 016 h C
0007740 \r 006 \0 \0 020 @ \t \0 \0 b \0 261 377 j 272 j
0007760 273 l 216 215 l 377 361 227 @ \t \0 \0 b \0 260 @
0010000 l 236 271 J d l 377 361 263 023 341 K 343 330 272 K
0010020 l 377 345 341 273 I l \b 331 271 J n 200 \0 345 j
0010040 360 262 N J 340 272 K d n 177 377 361 231 277 J k
0010060 330 272 K n 177 377 345 340 273 I k 260 335 @ 312 \0
0010100 \0 270 @ 310 001 273 @ 312 \0 226 272 @ 312 \0 027 Y
0010120 d j 360 262 4 277 J j 360 226 K j 360 222 261 377
0010140 { k 271 J 341 K 343 330 272 K l 377 345 341 273 N
0010160 j 360 227 O 016 j 360 222 261 001 T I l 377 360 262
0010200 023 H C \n \0 \0 020 l 377 360 263 331 J l 200 330
0010220 260 324 M l 377 360 225 L C \n \0 \0 020 I M 331
0010240 _ 020 d j 361 262 3 d l 037 361 227 261 001 037 N
0010260 342 276 k 331 d j 361 262 U O 016 342 O 016 k 345
0010300 344 _ 016 277 N d k 345 j 360 263 346 277 O 016 n
0010320 200 \0 330 _ 016 277 260 331 j 360 263 3 m 341 O 020
0010340 361 222 261 376 367 j O 020 331 d j 361 262 035 K 342
0010360 K k 345 344 273 J d k 345 j 360 247 277 K n 200
0010400 \0 330 273 J 342 272 k 260 341 277 M Y 277 H L 360
0010420 262 s K d n 377 377 O 016 331 361 233 n 377 377 O
0010440 016 k 331 331 331 273 k 204 O 016 330 273 j _ 024 277
0010460 J d n 377 377 N 331 O 024 331 361 262 033 n 377 377
0010500 N d j 360 226 277 O 024 j _ 024 277 k 331 331 O
0010520 024 331 331 272 k 206 N O 024 330 330 272 j k 360 262
0010540 m K 342 K k 345 344 273 J d k 345 j 360 247 277
0010560 K n 200 \0 330 273 J 342 n 200 \0 330 272 I k 330
0010600 Y 260 J N d J 361 255 277 J d N 360 262 026 277
0010620 O 016 K 361 234 N J 276 272 O 016 K _ 016 277 273
0010640 L 270 J n 200 \0 345 j 360 h 360 _ 022 277 J N
0010660 331 O 016 K 361 246 K O 016 331 273 j 213 n 377 377
0010700 O 016 K 331 331 k 330 273 k 331 Z 277 H I J K
0010720 O 022 C \r 006 \0 \0 020 \0 ( 1 6 5 1 Q
0010740 \ M A K E F L O A T 1 1 5 6 Q
0010760 \ I N F I N I T Y 1 1 3 0 Q
0011000 \ I N F I N I T Y 7 1 6 Q
0011020 F L O A T 6 7 3 Q F L O A T
0011040 6 6 6 Q \ M A K E F L O A T
0011060 2 4 1 Q F L O A T 2 1 4 Q
0011100 F L O A T ) \r N I L \r N I L \r
0011120 \ B O X F Q U O T I E N T D 1
0011140 \r ( L ( 2 B O X 1 Y 0
0011160 X ) F 1 2 Q \ O V E R F
0011200 L O W ) 003 211 \n 001 \0 003 j d d d 021
0011220 d \t @ 005 003 222 261 \0 344 @ 004 d l 002 360 262
0011240 ? 277 @ 310 \0 276 @ 310 001 _ 016 277 N n 177 377
0011260 361 262 ) O 016 j 360 236 N j 360 263 035 n 377 377
0011300 N 331 k 330 276 260 023 n 377 377 N 331 276 n 377 377
0011320 O 016 331 k 330 _ 016 277 k 200 j 274 260 ) k 360
0011340 262 8 j 276 @ 322 l 016 360 224 j 274 @ 260 025 k
0011360 274 @ 323 j 360 223 k 276 j 207 n 377 377 @ 323 331
0011400 k 330 _ 016 277 N d j 360 262 277 O 016 d j
0011420 360 236 277 j 275 261 002 354 @ \t \0 \0 b \0 261 377
0011440 u 276 j _ 016 277 l 216 215 l 377 361 227 @ \t \0
0011460 \0 b \0 260 H l 236 275 N d l 377 361 263 027 341
0011500 O 016 343 330 276 O 016 l 377 345 341 _ 016 277 M l
0011520 \b 331 275 N n 200 \0 345 j 360 262 Y N 340 276 O
0011540 016 d n 177 377 361 232 277 N k 330 276 O 016 n 177
0011560 377 345 340 _ 016 277 M k 260 331 @ 312 \0 \0 274 @
0011600 310 001 _ 016 277 @ 312 \0 226 276 @ 312 \0 027 ] d
0011620 j 360 262 ^ 277 N j 360 227 O 016 j 360 222 261 002
0011640 c k 275 N 341 O 016 343 330 276 O 016 l 377 345 341
0011660 _ 016 277 A 005 003 222 261 001 030 A 004 d l 002 360
0011700 262 U 277 A 310 \0 _ 020 277 A 310 001 _ 022 277 O
0011720 020 n 177 377 361 262 < O 022 j 360 262 O 020 j
0011740 360 263 . n 377 377 O 020 331 k 330 _ 020 277 260 !
0011760 l 377 360 263 260 N l 200 330 260 253 n 377 377 O 020
0012000 331 _ 020 277 n 377 377 O 022 331 k 330 _ 022 277 k
0012020 200 j 270 260 - k 360 262 J j _ 020 277 A 322 l
0012040 016 360 224 j 270 A 260 027 k 270 A 323 j 360 225 k
0012060 _ 020 277 j 207 n 377 377 A 323 331 k 330 _ 022 277
0012100 O 020 d j 360 262 / 277 O 022 d j 360 262 035 277
0012120 W 024 i 360 242 261 \0 277 o \0 \0 \0 A \n \0 \0
0012140 020 A \t \0 \0 b 002 261 377 M _ 020 277 j _ 022
0012160 277 l 216 215 l 377 361 227 A \t \0 \0 b 002 260 R
0012200 l 236 271 O 020 d l 377 361 263 032 341 O 022 343 330
0012220 _ 020 277 O 022 l 377 345 341 _ 022 277 I l \b 331
0012240 271 O 020 n 200 \0 345 j 360 262 e O 020 340 _ 020
0012260 277 O 022 d n 177 377 361 235 277 O 020 k 330 _ 020
0012300 277 O 022 n 177 377 345 340 _ 022 277 I k 260 322 A
0012320 312 \0 \0 270 A 310 001 _ 022 277 A 312 \0 226 _ 020
0012340 277 A 312 \0 027 Y d j 360 262 1 277 O 020 j 360
0012360 227 O 022 j 360 222 261 377 Z k 271 O 020 341 O 022
0012400 343 330 _ 020 277 O 022 l 377 345 341 _ 022 277 M l
0012420 377 360 262 024 L B \n \0 \0 020 l 377 360 263 336 O
0012440 020 l 200 330 260 331 I l 377 360 222 261 \0 326 O 016
0012460 342 _ 016 277 N d k 345 j 360 252 277 O 016 n 200
0012500 \0 330 _ 016 277 N 342 276 O 022 342 _ 022 277 O 020
0012520 d k 345 j 360 253 277 O 022 n 200 \0 330 _ 022 277
0012540 O 020 342 _ 020 277 l 037 d j 361 262 r J 340 272
0012560 K d n 177 377 361 231 277 J k 330 272 K n 177 377
0012600 345 340 273 N d O 020 360 227 277 O 022 O 016 361 225
0012620 N O 020 361 262 + N O 020 331 O 022 O 016 361 251
0012640 O 016 O 022 331 _ 016 277 j 216 n 377 377 O 022 O
0012660 016 331 331 k 330 _ 016 277 k 331 276 K k 330 273 N
0012700 340 276 O 016 d n 177 377 361 232 277 N k 330 276 O
0012720 016 n 177 377 345 340 _ 016 277 k 331 260 215 277 J 340
0012740 272 K d n 177 377 361 231 277 J k 330 272 K n 177
0012760 377 345 340 273 N j 360 224 O 016 j 360 243 K k 344
0013000 273 L H 346 M I 331 l 177 330 J K i B \r 006
0013020 \0 \0 020 \0 ( 1 6 0 6 Q \ M A K E
0013040 F L O A T 1 2 1 5 Q \ I N F
0013060 I N I T Y 7 6 0 Q F L O A T
0013100 7 3 1 Q F L O A T 7 2 4 Q
0013120 E R R O R 2 4 5 Q F L O A
0013140 T 2 2 0 Q F L O A T ) \r N I
0013160 L \r ( 7 2 0 Q " F L O A T I N
0013200 G D I V I D E B Y Z E R O
0013220 " ) \r \ B O X F T I M E S 2 D
0013240 1 \r ( L ( 2 B O X 1 Y
0013260 0 X ) ) 004 022 017 \0 \0 003 j d d d
0013300 d d 021 226 016 @ 005 003 222 261 001 033 @ 004 d l
0013320 002 360 262 J 277 @ 310 \0 _ 020 277 @ 310 001 _ 022
0013340 277 O 020 n 177 377 361 262 1 O 022 j 360 262 025 O
0013360 020 j 360 263 # n 377 377 O 020 331 k 330 _ 020 277
0013400 260 026 n 377 377 O 020 331 _ 020 277 n 377 377 O 022
0013420 331 k 330 _ 022 277 k 200 j 276 260 - k 360 262 @
0013440 j _ 020 277 @ 322 l 016 360 224 j 276 @ 260 027 k
0013460 276 @ 323 j 360 225 k _ 020 277 j 207 n 377 377 @
0013500 323 331 k 330 _ 022 277 O 020 d j 360 262 % 277 O
0013520 022 d j 360 262 023 277 j _ 016 277 261 001 Y @ \t
0013540 \0 \0 b \0 261 377 b _ 020 277 j _ 022 277 l 216
0013560 215 l 377 361 227 @ \t \0 \0 b \0 260 j l 236 _
0013600 016 277 O 020 d l 377 361 263 035 341 O 022 343 330 _
0013620 020 277 O 022 l 377 345 341 _ 022 277 O 016 l \b 331
0013640 _ 016 277 O 020 n 200 \0 345 j 360 262 ' O 020 340
0013660 _ 020 277 O 022 d n 177 377 361 235 277 O 020 k 330
0013700 _ 020 277 O 022 n 177 377 345 340 _ 022 277 O 016 k
0013720 260 317 O 022 343 O 020 l 377 345 341 330 _ 022 277 O
0013740 020 343 260 ; @ 312 \0 \0 276 @ 310 001 _ 022 277 @
0013760 312 \0 226 _ 020 277 @ 312 \0 027 _ 016 d j 360 262
0014000 025 277 O 020 j 360 227 O 022 j 360 222 261 \0 250 k
0014020 _ 016 277 213 l 377 360 247 O 020 l 200 330 _ 020 277
0014040 A 005 003 222 261 001 # A 004 d l 002 360 262 J 277
0014060 A 310 \0 _ 024 277 A 310 001 _ 026 277 O 024 n 177
0014100 377 361 262 1 O 026 j 360 262 025 O 024 j 360 263 #
0014120 n 377 377 O 024 331 k 330 _ 024 277 260 026 n 377 377
0014140 O 024 331 _ 024 277 n 377 377 O 026 331 k 330 _ 026
0014160 277 k 200 j 270 260 - k 360 262 N j _ 024 277 A
0014200 322 l 016 360 224 j 270 A 260 027 k 270 A 323 j 360
0014220 225 k _ 024 277 j 207 n 377 377 A 323 331 k 330 _
0014240 026 277 O 024 d j 360 262 3 277 O 026 d j 360 262
0014260 ! 277 j 271 N H 346 O 016 I l ~ 331 330 K L
0014300 i B \r 006 \0 \0 020 A \t \0 \0 b 002 261 377 T
0014320 _ 024 277 j _ 026 277 l 216 215 l 377 361 227 A \t
0014340 \0 \0 b 002 260 d l 236 271 O 024 d l 377 361 263
0014360 032 341 O 026 343 330 _ 024 277 O 026 l 377 345 341 _
0014400 026 277 I l \b 331 271 O 024 n 200 \0 345 j 360 262
0014420 & O 024 340 _ 024 277 O 026 d n 177 377 361 235 277
0014440 O 024 k 330 _ 024 277 O 026 n 177 377 345 340 _ 026
0014460 277 I k 260 322 O 026 343 O 024 l 377 345 341 330 _
0014500 026 277 O 024 343 260 8 A 312 \0 \0 270 A 310 001 _
0014520 026 277 A 312 \0 226 _ 024 277 A 312 \0 027 Y d j
0014540 360 262 023 277 O 024 j 360 227 O 026 j 360 222 261 377
0014560 F k 271 213 l 377 360 247 O 024 l 200 330 _ 024 277
0014600 O 016 l 377 360 225 N B \n \0 \0 020 I l 377 360
0014620 225 H B \n \0 \0 020 O 022 j 360 222 261 001 017 O
0014640 026 j 360 262 031 O 024 O 020 _ 024 277 _ 020 277 O
0014660 026 O 022 _ 026 277 _ 022 277 261 \0 362 O 024 _ 030
0014700 277 O 026 _ 032 277 O 022 d k 345 j 360 263 ] 277
0014720 M d n 377 377 O 026 331 361 233 n 377 377 O 026 k
0014740 331 331 331 275 k 204 O 026 330 275 j _ 034 277 L d
0014760 n 377 377 O 024 331 O 034 331 361 262 034 n 377 377 O
0015000 024 d j 360 226 277 O 034 j _ 034 277 k 331 331 O
0015020 034 331 331 274 k 207 O 024 O 034 330 330 274 j _ 034
0015040 277 K J O 034 330 330 273 O 022 342 _ 022 j 360 230
0015060 O 030 _ 024 277 O 032 260 q J 340 272 O 024 d n
0015100 177 377 361 232 277 J k 330 272 O 024 n 177 377 345 340
0015120 _ 024 277 O 026 d n 177 377 361 235 277 O 024 k 330
0015140 _ 024 277 O 026 n 177 377 345 340 _ 026 277 261 377 Y
0015160 O 026 330 274 j _ 034 277 K O 024 O 034 330 330 273
0015200 O 020 342 _ 020 j 360 222 261 376 , O 024 340 _ 024
0015220 277 O 026 d n 177 377 361 235 277 O 024 k 330 _ 024
0015240 277 O 026 n 177 377 345 340 _ 026 277 O 020 d k 345
0015260 j 360 263 320 277 L d n 377 377 O 026 331 361 262 262
0015300 n 377 377 O 026 k 331 331 331 274 k 260 252 \0 ( 1
0015320 3 3 1 Q \ I N F I N I T Y 1
0015340 3 1 6 Q \ I N F I N I T Y 1
0015360 0 4 5 Q F L O A T 1 0 1 6 Q
0015400 F L O A T 1 0 1 1 Q \ M A
0015420 K E F L O A T 2 7 4 Q F L O
0015440 A T 2 4 5 Q F L O A T ) \r N
0015460 I L \r N I L \r \ I N F I N I T Y
0015500 D 1 \r ( L ( 1 B O X 0
0015520 S I G N ) ) \0 # \0 \0 \0 002 A 005 003
0015540 265 \a l 003 037 b 002 @ 317 \0 \0 A l 376 317 \0
0015560 027 A l 177 317 \0 226 A n 377 377 315 001 A 020 \0
0015600 N I L \r N I L \r N I L \r \ M A K
0015620 E F L O A T D 1 \r ( L ( 5
0015640 B O X 4 N O R M A L I Z E
0015660 3 L O 2 H I 1 E X P
0015700 0 S I G N ) F 1 \ U N D
0015720 E R F L O W F 2 \ O V E R
0015740 F L O W ) 001 R 001 002 \0 006 021 020 \0 E
0015760 005 003 245 l 003 037 b \n 277 B j 360 236 C j 360
0016000 232 E d j 315 001 277 j 315 \0 E 020 D 262 A B
0016020 d j 360 262 023 277 C b 004 277 j b 006 277 A l
0016040 020 331 b 002 277 B n 200 \0 345 j 360 262 " B 340
0016060 b 004 277 C d n 177 377 361 233 277 B k 330 b 004
0016100 277 C n 177 377 345 340 b 006 277 A k 260 325 A j
0016120 361 263 U Q i 360 262 026 @ A l 177 330 B C h
0016140 E \r 006 \0 \0 l 0 i \v \0 \0 020 m 350 A 361
0016160 226 j b 006 b 004 260 204 k A 331 d j 361 262 #
0016200 C 342 C k 345 344 b 006 277 B d k 345 j 360 251
0016220 277 C n 200 \0 330 b 006 277 B 342 b 004 277 k 260
0016240 333 277 j b 002 277 C l 377 345 270 C 343 B l 377
0016260 345 341 330 b 006 277 B 343 b 004 277 H l 200 361 254
0016300 H l 200 360 262 1 C k 345 j 360 263 * C d n
0016320 377 377 360 262 035 277 j b 006 277 B k 330 b 004 d
0016340 l 377 361 262 023 342 b 004 277 A k 330 b 002 277 204
0016360 k 330 b 006 277 B j 360 226 C j 360 222 261 376 374
0016400 l 377 A 361 263 ! R i 360 262 026 @ A l 177 331
0016420 B C h E \r 006 \0 \0 l 1 i \v \0 \0 020 @
0016440 E \n \0 \0 020 E @ 317 \0 \0 277 E A 317 \0 027
0016460 277 E B 317 \0 226 277 E C 315 001 E 020 \0 ( 4
0016500 6 7 Q \ I N F I N I T Y 4 6
0016520 1 Q \ L I S P E R R O R 4 5
0016540 3 Q \ M A K E F L O A T 1 7
0016560 6 Q \ L I S P E R R O R 1 7
0016600 0 Q \ M A K E F L O A T ) \r N
0016620 I L \r N I L \r M A K E F L O A T
0016640 N U M B E R D 1 \r ( L ( 1
0016660 N 1 0 N 0 ) ) \0 023 001 \0 \0 002
0016700 021 020 \0 l 003 037 X d @ 315 \0 277 H A 315 001
0016720 277 020 \0 N I L \r N I L \r N I L \r P
0016740 u t F l o a t D 1 \r ( L ( 1
0016760 N 0 P T R ) ) \0 024 \0 \0 \0
0017000 002 @ A \t \0 \0 b 002 310 \0 315 \0 @ A 310 001
0017020 315 001 A 020 \0 ( 4 F L O A T ) \r N
0017040 I L \r N I L \r M A K E R A T I O
0017060 N A L D 1 \r ( L ( 0 X )
0017100 F 4 \ O V E R F L O W ) 001
0017120 M 004 001 \0 001 @ d 005 001 241 005 002 265 025 021 @
0017140 003 @ d 005 003 257 l \n i \v \0 \0 b \0 023 260
0017160 346 j 330 k 032 020 312 \0 \0 270 @ 310 001 273 @ 312
0017200 \0 226 272 @ 312 \0 027 Y d j 360 235 277 J j 360
0017220 226 K j 360 222 261 001 \b k 211 l 377 360 244 J l
0017240 200 330 272 I l ~ 331 Y l 361 263 026 I l
0017260 360 262 , H j 360 251 J l 200 360 224 K j 360 263
0017300 036 T i 360 227 @ l 2 i \v \0 \0 214 H j 360
0017320 224 o \0 \0 \0 203 o \0 \0 \0 k 032 020 m 372 I
0017340 361 262 ' m 372 I 331 d j 361 262 031 K 342 273 J
0017360 d k 345 j 360 247 277 K n 200 \0 330 273 J 342 272
0017400 k 260 345 277 m 372 Y 200 I l 030 361 262 @ j I
0017420 331 d j 361 262 033 J 340 272 K d n 177 377 361 231
0017440 277 J k 330 272 K n 177 377 345 340 273 k 260 343 277
0017460 j 271 H k 360 262 N K j 360 262 ; J d j 360
0017500 263 D 277 n 377 377 J 331 k 330 260 : l 030 I 331
0017520 271 K k 345 j 360 262 334 I j 360 263 327 K 342 273
0017540 J d k 345 j 360 247 277 K n 200 \0 330 273 J 342
0017560 272 I k 260 334 n 377 377 J 331 272 n 377 377 K 331
0017600 k 330 273 J K 365 l 020 I 361 225 k I \n \0 \0
0017620 211 k I l 020 331 \n \0 \0 341 341 032 020 j k 032
0017640 020 \0 ( 5 0 3 Q L L S H 4 7 2
0017660 Q L L S H 1 6 6 Q \ L I S
0017700 P E R R O R 2 6 Q \ L I S P
0017720 E R R O R ) \r N I L \r ( 2 0 4 Q
0017740 - 2 0 0 0 0 0 0 0 0 0 0 Q 1
0017760 7 7 Q 1 7 7 7 7 7 7 7 7 7 7 Q
0020000 ) \r \ F L O A T I N G S C A L E
0020020 D 1 \r ( L ( 2 B O X 1
0020040 E X P 1 0 0 X ) ) \0 222 \0 \0
0020060 \0 003 @ 005 003 256 @ \t \0 \0 b \0 277 B 005 003
0020100 243 @ b 004 277 A d j 360 262 034 277 B 005 003 265
0020120 004 @ 020 @ 360 263 374 B @ 310 \0 315 \0 B @ 310
0020140 001 315 001 B 020 j 361 262 . A l 035 361 262 032 @
0020160 ` \0 \0 l ; ( B \v \0 \0 b 004 A l 035 331
0020200 b 002 277 b \0 260 256 @ ` \0 \0 A l 036 330 (
0020220 B \v \0 \0 020 m 343 A 361 262 032 @ ` \0 \0 l
0020240 ; ( B \v \0 \0 b 004 A l 035 330 b 002 277 b
0020260 \0 260 202 @ ` \0 \0 j A 331 l 036 330 ( B \v
0020300 \0 \0 020 \0 ( 2 1 7 Q \ B O X F Q
0020320 U O T I E N T 1 6 3 Q \ B O
0020340 X F Q U O T I E N T 1 4 1 Q
0020360 \ B O X F T I M E S 2 1 0 7 Q
0020400 \ B O X F T I M E S 2 7 F
0020420 L O A T ) \r ( 2 0 4 Q \ P O W
0020440 E R S . O F . T E N 1 5 4 Q
0020460 \ P O W E R S . O F . T E N 1
0020500 3 0 Q \ P O W E R S . O F . T
0020520 E N 1 0 0 Q \ P O W E R S .
0020540 O F . T E N ) \r N I L \r \ I N I
0020560 T . P O W E R S . O F . T E N
0020600 D 1 \r N I L \0 L 003 \0 \0 \0 l ; g
0020620 \0 \0 \n \0 \0 027 \0 \0 d l 036 o \0 \0 \0 *
0020640 l 035 k o \0 \0 \0 021 003 002 I H 361 263 ' `
0020660 \0 \0 I l 036 330 J o \0 \0 \0 352 Z * 277 `
0020700 \0 \0 l 036 I 331 o \0 \0 \0 J 353 * 277 I k
0020720 330 Y 260 331 ` \0 \0 020 \0 ( 7 A R R A
0020740 Y ) \r ( 1 1 1 Q \ P O W E R S
0020760 . O F . T E N 6 4 Q \ P O W
0021000 E R S . O F . T E N 4 4 Q \
0021020 P O W E R S . O F . T E N 1 2
0021040 Q \ P O W E R S . O F . T E N
0021060 4 P O I N T E R ) \r ( 7 4 Q
0021100 1 . 0 5 5 Q 1 0 . 0 3 1
0021120 Q 1 . 0 2 1 Q 1 . 0 ) \r \
0021140 C O N V E R T . F L O A T I N G
0021160 . N U M B E R D 1 \r ( L ( 3
0021200 F O R M A T 2 S T R P T R
0021220 ) P 4 P O W T E N P 1
0021240 C N T I 1 S T R I 0
0021260 X F 1 5 Q \ F L O A T F
0021300 O R M A T ) 003 w \r 001 \0 004 @ 312 \0
0021320 \0 j A 310 002 021 243 \f C 265 \t W 032 b 006 262
0021340 B C i 360 263 = C 002 b 006 001 _ 030 265 W C
0021360 002 002 002 002 001 _ 022 277 C 002 002 001 _ 026 265 :
0021400 C 002 001 _ 024 262 034 O 024 d l 024 361 224 277 l
0021420 024 _ 024 234 O 026 231 O 022 246 O 024 k 330 _ 022
0021440 277 @ o \0 \0 \0 \n \0 \0 262 1 j b \0 277 k
0021460 273 O 026 _ 020 261 001 244 d j 360 262 023 277 h _
0021500 026 277 260 276 J 361 262 251 J _ 030 277 260 243 l 006
0021520 361 262 257 l 006 _ 026 277 260 250 H k 360 230 o \0
0021540 \0 \0 @ 351 b \0 275 O 022 265 \b l \a _ 022 260
0021560 026 l \t 361 224 l \t _ 022 212 k O 022 361 223 k
0021600 _ 022 201 O 022 273 @ 312 \0 027 l 177 331 l 003 332
0021620 l i 330 l \n 333 l \t 331 ^ l 031 361 262 034 @
0021640 ` \0 \0 l 7 ( M \v \0 \0 ] b \0 277 K l
0021660 031 330 273 N l 031 331 260 m 347 N 361 262 033 @
0021700 ` \0 \0 l 7 ( M \v \0 \0 ] b \0 277 K l
0021720 031 331 273 N l 031 330 276 ` \0 \0 N l 036 330 (
0021740 @ 362 263 024 N k 330 276 ` \0 \0 N l 036 330 (
0021760 @ 362 263 027 260 360 ` \0 \0 N k 331 l 036 330 (
0022000 @ 362 225 N k 331 276 260 357 K N O 022 331 _ 016
0022020 330 273 O 026 265 + O 024 253 K l \b 361 265 " m
0022040 374 K 361 260 034 K O 030 265 003 J O 024 H k 360
0022060 222 l 002 200 k 330 331 361 264 \a h _ 024 277 i _
0022100 020 277 O 016 j 360 263 8 O 024 262 " O 020 263 036
0022120 O 024 j O 016 331 375 361 262 024 O 022 O 016 O 024
0022140 330 330 _ 022 277 j O 024 331 _ 016 201 O 016 j 360
0022160 254 @ j O 016 331 M \v \0 \0 ] b \0 200 @ o
0022200 \0 \0 \0 h M \f \0 \0 b \0 277 ` \0 \0 O 022
0022220 l 036 330 ( @ 362 263 033 @ o \0 \0 \0 h @ \f
0022240 \0 \0 o \0 \0 \0 @ \v \0 \0 b \0 277 K k 330
0022260 273 @ j 330 b \0 277 o \0 \0 \0 l \n O 022 331
0022300 \n \0 \0 274 H k 360 236 A 311 \0 A 310 003 k Y
0022320 d 331 330 l - 307 277 O 020 242 261 \0 354 \b \0 \0
0022340 277 K k 331 273 A 311 \0 A 310 003 I k 330 Y k
0022360 331 330 l . 307 277 O 024 237 O 024 k 331 _ 024 j
0022400 375 361 256 \b \0 \0 277 260 362 \b \0 \0 277 @ j 360
0022420 262 371 A 311 \0 A 310 003 I k 330 Y k 331 330 l
0022440 E 307 277 j K 361 262 035 A 311 \0 A 310 003 I k
0022460 330 Y k 331 330 l - 307 277 j K 331 273 O 026 262
0022500 Q 260 O 026 262 K O 026 d l 003 361 262 032 277
0022520 A 311 \0 A 310 003 I k 330 Y k 331 330 l + 307
0022540 277 O 026 k 331 _ 026 262 ) O 026 l \n K 361 222
0022560 l 002 201 l 003 331 d j 361 262 026 A 311 \0 A 310
0022600 003 I k 330 Y k 331 330 l 0 307 277 k 260 350 277
0022620 l \n K 361 263 035 A 311 \0 A 310 003 I k 330 Y
0022640 k 331 330 K l \n 333 l 0 330 307 277 K l \n 334
0022660 273 A 311 \0 A 310 003 I k 330 Y k 331 330 K l
0022700 0 330 307 277 260 w K d j 361 227 \b \0 \0 277 k
0022720 331 260 366 277 A 311 \0 A 310 003 I k 330 Y k 331
0022740 330 l . 307 277 j K 361 262 7 O 024 262 026 K j
0022760 O 024 331 375 361 224 j b \0 273 206 O 024 K 330 _
0023000 024 277 j K 331 d j 361 262 026 A 311 \0 A 310 003
0023020 I k 330 Y k 331 330 l 0 307 277 k 260 350 277 O
0023040 024 237 O 024 k 331 _ 024 j 375 361 256 \b \0 \0 277
0023060 260 362 \b \0 \0 277 @ j 360 262 371 A k I B \f
0023100 \0 \0 020 \0 ( 1 5 6 4 Q S U B S T
0023120 R I N G 1 5 4 7 Q \ P R O D
0023140 U C E . F D I G I T 1 5 4 1 Q
0023160 \ P R O D U C E . F D I G I T
0023200 1 4 0 0 Q \ P R O D U C E .
0023220 F D I G I T 1 0 7 6 Q \ P R
0023240 O D U C E . F D I G I T 1 0 7
0023260 0 Q \ P R O D U C E . F D I G
0023300 I T 1 0 2 2 Q \ P R O D U C
0023320 E . F D I G I T 7 6 5 Q N T
0023340 H 7 3 4 Q \ B O X F Q U O T
0023360 I E N T 7 2 4 Q \ B O X F P
0023400 L U S D I F 6 7 2 Q \ B O X
0023420 F P L U S D I F 6 5 4 Q \ F
0023440 L O A T I N G S C A L E 3 7 4
0023460 Q \ B O X F T I M E S 2 3 3
0023500 4 Q \ B O X F Q U O T I E N T
0023520 1 3 3 Q F E Q P ) \r ( 7 0 0
0023540 Q \ P O W E R S . O F . T E N
0023560 4 5 3 Q \ P O W E R S . O F
0023600 . T E N 4 3 5 Q \ P O W E R
0023620 S . O F . T E N 4 1 5 Q \ P
0023640 O W E R S . O F . T E N 3 6 5
0023660 Q \ P O W E R S . O F . T E N
0023700 3 2 5 Q \ P O W E R S . O F
0023720 . T E N ) \r ( 7 5 5 Q ( 5 7 5
0023740 3 6 0 4 0 0 Q 4 6 1 1 3 2 0 0
0023760 Q 3 6 4 1 1 0 0 Q 3 0 3 2 4
0024000 0 Q 2 3 4 2 0 Q 1 7 5 0 Q
0024020 1 4 4 Q 1 2 Q 1 ) 7 3 0 Q
0024040 1 0 . 0 7 1 7 Q 4 . 5 6
0024060 6 5 Q . 5 2 2 4 Q 0 . 0
0024100 1 3 0 Q 0 . 0 ) \r \ P R O D U
0024120 C E . F D I G I T D 1 \r ( F
0024140 0 X F 1 S T R F 2
0024160 C N T F 3 P O W T E N )
0024200 \0 9 \0 004 \0 \0 P j 360 262 024 Q 311 \0 Q 310
0024220 003 R k 330 c 004 k 331 330 l 0 307 020 Q 311 \0
0024240 Q 310 003 R k 330 c 004 k 331 330 P S 001 333 l
0024260 0 330 307 P S 001 334 c \0 S 002 c 006 020 \0 N
0024300 I L \r N I L \r N I L \r F L O A T
0024320 P . T O . B C P L D 1 \r ( L
0024340 ( 0 F L O N U M ) ) \0 e 004 \0
0024360 \0 001 @ d 005 003 244 \t \0 \0 b \0 312 \0 027 l
0024400 002 330 021 1 003 @ o \0 \0 \0 \n \0 \0 221 j 020
0024420 H l 377 361 227 l 377 270 o \0 \0 \0 210 @ 312 \0
0024440 226 @ 310 001 365 342 272 l 002 037 [ d H 317 \0 027
0024460 277 K k 317 \0 220 277 K J 343 343 317 \0 245 277 K
0024500 J n 377 377 345 315 001 277 Y @ 312 \0 \0 k 360 223
0024520 j I 331 020 I 020 \0 ( 3 2 Q F E Q P
0024540 7 F L O A T ) \r N I L \r ( 5
0024560 1 Q 1 7 7 7 7 7 7 7 Q 2 7 Q
0024600 0 . 0 ) \r B C P L . T O . F L
0024620 O A T P D 1 \r ( L ( 0 B C
0024640 P L N U M ) ) \0 p 004 \0 \0 001 021 @
0024660 003 j @ 361 227 j @ 331 b \0 277 k 213 @ j 330
0024700 j 360 224 o \0 \0 \0 020 j 270 @ 005 001 250 @ d
0024720 312 \0 220 k 360 252 277 o \0 \0 \0 @ \n \0 \0 277
0024740 @ 312 \0 027 l 002 331 Y j 375 361 224 o \0 \0 \0
0024760 020 @ 312 \0 245 @ 310 001 365 340 Z l 003 037 [ d
0025000 H 317 \0 \0 277 K I 317 \0 027 277 K J 343 343 317
0025020 \0 226 277 K J n 377 377 345 315 001 277 020 \0 ( 6
0025040 0 Q E R R O R ) \r N I L \r ( 1
0025060 0 1 Q 0 . 0 5 4 Q " N o t
0025100 a v a l i d B C P L f l
0025120 o n u m " 3 0 Q 0 . 0 ) \r (
0025140 P R E T T Y C O M P R I N T L
0025160 L F L O A T C O M S ) \r ( R P A
0025200 Q Q L L F L O A T C O M S (
0025220 ( C O M S ( F N S F D I F F
0025240 E R E N C E F E Q P F G R E
0025260 A T E R P F L O A T F P L U
0025300 S 2 F Q U O T I E N T F T I
0025320 M E S 2 \r \ F I X P . F R O M
0025340 . F L O A T P F I X R \ B O
0025360 X F P L U S D I F \ B O X F Q
0025400 U O T I E N T \ B O X F T I M
0025420 E S 2 \ I N F I N I T Y \ M
0025440 A K E F L O A T M A K E F L O
0025460 A T N U M B E R \r P u t F l o
0025500 a t M A K E R A T I O N A L )
0025520 ( D E C L A R E : E V A L @
0025540 C O M P I L E D O N T C O P Y
0025560 ( E X P O R T ( R E C O R D
0025600 S F L O A T P ) ( C O N S T
0025620 A N T S ( \r M A X . D I G I T
0025640 S . A C C U R A C Y 9 ) ) )
0025660 ( C O N S T A N T S ( \ 8 B I
0025700 T S 2 5 5 ) ( \ M A X . H I
0025720 . F R A C 1 2 7 ) ( \ S I G
0025740 N B I T 3 2 7 6 8 ) ( \ E X
0025760 P O N E N T . B I A S \r 1 2 7
0026000 ) ( \ H I D D E N B I T 1 2
0026020 8 ) ( \ M A X . E X P O N E N
0026040 T 2 5 5 ) ) ( M A C R O S
0026060 . F L O A T U N B O X . . L L
0026100 S H 1 . . L L S H 8 . . L R
0026120 S H 1 . . L R S H 8 . \r . L
0026140 R S H S T I C K Y . . A D D S
0026160 M A L L 2 . . A D D S M A L L
0026200 3 . . S U B S M A L L . . P
0026220 O W E R O F 2 . ) ( L O C A L
0026240 V A R S . T ) ) ( D E C L
0026260 A R E : D O N T E V A L @ L O
0026300 A D \r D O C O P Y ( V A R S
0026320 ( \ U N D E R F L O W ) ( M
0026340 A X . F L O A T ( \ I N F I N
0026360 I T Y 0 ) ) ( M I N . F L O
0026400 A T ( \ I N F I N I T Y 1 )
0026420 ) ) ( P ( M O V D ? ( Q U
0026440 O T E \r F G R E A T E R P )
0026460 ( Q U O T E F G T P ) ) ) ) )
0026500 ( C O M S ( F N S \ F L O
0026520 A T I N G S C A L E \ I N I T
0026540 . P O W E R S . O F . T E N \
0026560 C O N V E R T . F L O A T I N G
0026600 . N U M B E R \r \ P R O D U C
0026620 E . F D I G I T ) ( D E C L A
0026640 R E : D O N T C O P Y ( G L
0026660 O B A L V A R S \ P O W E R S
0026700 . O F . T E N ) ( M A C R O S
0026720 \ P O W E R . O F . T E N ) )
0026740 ( D E C L A R E : \r D O N T
0026760 E V A L @ L O A D D O C O P Y
0027000 ( P ( \ I N I T . P O W E R
0027020 S . O F . T E N ) ) ) ) ( C O
0027040 M S ( F N S F L O A T P . T
0027060 O . B C P L B C P L . T O . F
0027100 L O A T P ) ( D E C L A R E :
0027120 \r E V A L @ C O M P I L E D
0027140 O N T C O P Y ( R E C O R D S
0027160 B C P L N U M ) ) ) ) ) \r ( R
0027200 P A Q Q \ U N D E R F L O W
0027220 N I L ) \r ( R P A Q M A X . F
0027240 L O A T ( \ I N F I N I T Y
0027260 0 ) ) \r ( R P A Q M I N . F L
0027300 O A T ( \ I N F I N I T Y 1
0027320 ) ) \r ( M O V D ? ( Q U O T E
0027340 F G R E A T E R P ) ( Q U O
0027360 T E F G T P ) ) \r ( \ I N I T
0027400 . P O W E R S . O F . T E N ) \r
0027420 N I L \r
0027424