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