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