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