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