$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>UNBOXEDOPS!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 7 - D e c - 8
0000140 6 1 7 : 2 6 : 2 3 " 006 004 { E
0000160 R I S } < L I S P U S E R S > L
0000200 I S P C O R E > U N B O X E D O
0000220 P S . ; 7 006 001 1 2 9 0 6 \r
0000240 \r c h a n g e s t
0000260 o % : ( O P T I M I Z E R S
0000300 U F R E M A I N D E R 2 U F
0000320 R E M A I N D E R ) \r
0000340 (
0000360 F N S U F R E M A I N D E R )
0000400 \r
0000420 ( V A R S U N B O X
0000440 E D O P S C O M S ) \r \r
0000460 p r e v i o u s d a t e %
0000500 : " 3 - N o v - 8 6 2 0 :
0000520 3 0 : 2 4 " { E R I S } < L I
0000540 S P U S E R S > L I S P C O R E
0000560 > U N B O X E D O P S . ; 6 ) \r
0000600 \r \r ( * " \r C o p y r i g h t
0000620 ( c ) 1 9 8 6 b y X e r
0000640 o x C o r p o r a t i o n .
0000660 A l l r i g h t s r e s e
0000700 r v e d . \r " ) \r \r ( P R E T T
0000720 Y C O M P R I N T U N B O X E
0000740 D O P S C O M S ) \r \r ( R P A Q
0000760 Q 006 002 U N B O X E D O P S C O
0001000 M S 006 001 \r [ ( F
0001020 N S U F A B S U F E Q P U
0001040 F G E Q U F G R E A T E R P
0001060 U F I X U F L E Q U F L E S
0001100 S P U F M A X U F M I N U
0001120 F M I N U S U F R E M A I N D
0001140 E R ) \r ( O P T
0001160 I M I Z E R S U F A B S U F
0001200 A B S 1 U F E Q P U F E Q P
0001220 2 U F G E Q U F G E Q 2 U
0001240 F G R E A T E R P U F G R E A
0001260 T E R P 2 U F I X U F I X 1
0001300 U F L E Q \r
0001320 U F L E Q 2 U F
0001340 L E S S P U F L E S S P 2 U
0001360 F M A X U F M A X 2 U F M I
0001400 N U F M I N 2 U F M I N U S
0001420 U F M I N U S 1 U F R E M A
0001440 I N D E R ) \r (
0001460 P R O P F I L E T Y P E U N
0001500 B O X E D O P S ) \r
0001520 ( D E C L A R E % : D O N
0001540 T E V A L @ L O A D D O E V A
0001560 L @ C O M P I L E D O N T C O
0001600 P Y ( L O C A L V A R S .
0001620 T ) ) \r ( D E C
0001640 L A R E % : D O N T E V A L @
0001660 L O A D D O E V A L @ C O M P
0001700 I L E D O N T C O P Y C O M
0001720 P I L E R V A R S ( A D D V A
0001740 R S ( N L A M A ) \r
0001760
*
0002060 ( N L A M L ) \r
0002100
*
0002200 ( L A
0002220 M A U F M I N U F M A X ] )
0002240 \r ( D E F I N E Q \r \r ( 006 004 U F
0002260 A B S 006 001 \r [ L A M B D A
0002300 ( X ) 006 006 006 001
0002320
*
0002360 006 006 ( * j o p %
0002400 : " 3 0 - J a n - 8 6 1 5 :
0002420 1 0 " ) 006 001 \r ( F A B S
0002440 X ] ) \r \r ( 006 004 U F E Q P 006 001
0002460 \r [ L A M B D A ( X Y )
0002500 006 006 006 001
0002520
*
0002560 006 006 ( * j o p % : " 3 1
0002600 - J a n - 8 6 1 2 : 3 5 " ) 006
0002620 001 \r ( F E Q P X Y ]
0002640 ) \r \r ( 006 004 U F G E Q 006 001 \r
0002660 [ L A M B D A ( X Y ) 006 006 006
0002700 001
0002720
0002740 006
0002760 006 ( * j o p % : " 2 - F e
0003000 b - 8 6 1 2 : 3 6 " ) 006 001 \r
0003020 ( G E Q X Y ] ) \r \r (
0003040 006 004 U F G R E A T E R P 006 001 \r
0003060 [ L A M B D A ( X Y ) 006 006
0003100 006 001
0003120
*
0003160 006 006 ( * j o p % : " 3 0 - J
0003200 a n - 8 6 1 5 : 1 1 " ) 006 001 \r
0003220 ( F G R E A T E R P X
0003240 Y ] ) \r \r ( 006 004 U F I X 006 001 \r
0003260 [ L A M B D A ( X ) 006 006 006
0003300 001
0003320
*
0003360 006 006 ( * j o p % : " 3 0 -
0003400 J a n - 8 6 1 5 : 1 1 " ) 006 001
0003420 \r ( F I X X ] ) \r \r (
0003440 006 004 U F L E Q 006 001 \r [ L A M
0003460 B D A ( X Y ) 006 006 006 001
0003500
*
0003540 006 006 ( *
0003560 j o p % : " 2 - F e b - 8 6
0003600 1 2 : 3 7 " ) 006 001 \r (
0003620 L E Q X Y ] ) \r \r ( 006 004 U F
0003640 L E S S P 006 001 \r [ L A M B D
0003660 A ( X Y ) 006 006 006 001
0003700
*
0003740 006 006 ( * j o
0003760 p % : " 3 1 - J a n - 8 6 1
0004000 2 : 2 0 " ) 006 001 \r ( F L
0004020 E S S P X Y ] ) \r \r ( 006 004 U
0004040 F M A X 006 001 \r [ L A M B D A
0004060 A R G S 006 006 006 001
0004100
*
0004140 006 006 ( * j o p
0004160 % : " 3 0 - J a n - 8 6 1 5
0004200 : 1 2 " ) 006 001 \r ( 006 002 b
0004220 i n d 006 001 ( M A X _ M I N
0004240 . F L O A T ) 006 002 f o r 006 001
0004260 I 006 002 f r o m 006 001 1 006 002 t
0004300 o 006 001 A R G S 006 002 d o 006 001
0004320 ( 006 002 i f 006 001 ( F G R E A T E
0004340 R P ( A R G A R G S I ) \r
0004360
*
0004440 M
0004460 A X ) \r
0004500
*
0004540 006 002 t h
0004560 e n 006 001 ( S E T Q M A X (
0004600 A R G A R G S I ) ) ) \r
0004620 006 002 f i n a l l y 006 001
0004640 ( R E T U R N M A X ] ) \r \r
0004660 ( 006 004 U F M I N 006 001 \r [ L A
0004700 M B D A A R G S 006 006 006 001
0004720
*
0004760 006 006 ( *
0005000 j o p % : " 3 0 - J a n - 8
0005020 6 1 5 : 1 3 " ) 006 001 \r
0005040 ( 006 002 b i n d 006 001 ( M I N _
0005060 M A X . F L O A T ) 006 002 f o
0005100 r 006 001 I 006 002 f r o m 006 001 1
0005120 006 002 t o 006 001 A R G S 006 002 d
0005140 o 006 001 ( 006 002 i f 006 001 ( F L E
0005160 S S P ( A R G A R G S I )
0005200 \r
0005220
*
0005300 M I N ) \r
0005320
*
0005360 006 002 t
0005400 h e n 006 001 ( S E T Q M I N
0005420 ( A R G A R G S I ) ) ) \r
0005440 006 002 f i n a l l y 006
0005460 001 ( R E T U R N M I N ] ) \r
0005500 \r ( 006 004 U F M I N U S 006 001 \r
0005520 [ L A M B D A ( X ) 006 006 006 001
0005540
*
0005600 006
0005620 006 ( * j o p % : " 3 0 - J a
0005640 n - 8 6 1 5 : 1 4 " ) 006 001 \r
0005660 ( F M I N U S X ] ) \r \r
0005700 ( 006 004 U F R E M A I N D E R 006 001
0005720 \r [ L A M B D A ( X Y )
0005740 006 006 006 001
0005760
*
0006020 006 006 ( * ; " E d i t e d
0006040 7 - D e c - 8 6 1 7 : 2 1
0006060 b y j o p : " ) 006 001 \r
0006100 ( L E T ( ( F X ( F L O A
0006120 T X ) ) \r
0006140 ( F Y ( F L O A T Y ) ) \r
0006160 R E S U L T )
0006200 \r ( 006 002 D E C
0006220 L A R E 006 001 ( T Y P E F L O
0006240 A T P F X F Y R E S U L T
0006260 ) ) \r ( S E T
0006300 Q R E S U L T ( F D I F F E
0006320 R E N C E F X ( F T I M E S
0006340 ( F L O A T ( 006 002 U F I X 006
0006360 001 ( F Q U O T I E N T F X
0006400 F Y ) ) ) \r
0006420
*
0006460 F Y ] ) \r ) \r \r ( D E F O
0006500 P T I M I Z E R 006 002 U F A B S
0006520 006 001 ( & O P T I O N A L ( A
0006540 R G 1 N I L A R G 1 G I V E
0006560 N ) \r
0006600 & R
0006620 E S T R E S T A R G S & W H
0006640 O L E O R I G I N A L ) ( 006
0006660 002 i f 006 001 ( O R ( N O T A
0006700 R G 1 G I V E N ) \r
0006720
*
0007000 R E S
0007020 T A R G S ) \r
0007040
*
0007120 006 002 t h e n 006 001 (
0007140 P R I N T O U T T " * * * *
0007160 * * * * * * * * " T ) \r
0007200
*
0007300 ( P R I N T O U T T \r
0007320
*
0007420 " I l l e g a
0007440 l a r g s t o U F A B S "
0007460 % , \r
0007500
*
0007600 % , O R I G I N A L T ) \r
0007620
*
0007720 ( P R I N T O U T T "
0007740 * * * * * * * * * * * * " T )
0007760 ) \r
0010000
*
0010040 ( L I
0010060 S T ' U F A B S 1 A R G 1 )
0010100 ) \r \r \r ( D E F O P T I M I Z E
0010120 R 006 002 U F A B S 1 006 001 ( X )
0010140 ` [ \ F L O A T B O X ( ( O
0010160 P C O D E S U B F L O A T 1
0010200 2 ) \r
0010220
0010240 ( \ F L O A T
0010260 U N B O X , X ] ) \r \r \r ( D E
0010300 F O P T I M I Z E R 006 002 U F E
0010320 Q P 006 001 ( & W H O L E O R I
0010340 G I N A L & O P T I O N A L
0010360 ( A R G 1 N I L A R G 1 G I
0010400 V E N ) \r
0010420
0010440 ( A R G 2 N I L A R G 2 G I
0010460 V E N ) \r
0010500
0010520 & R E S T R E S T A R G S )
0010540 ( 006 002 i f 006 001 ( O R ( N O T
0010560 A R G 1 G I V E N ) \r
0010600
*
0010640 (
0010660 N O T A R G 2 G I V E N ) \r
0010700
*
0010760 R E S T A R G S ) \r
0011000
*
0011040 006 002 t h e
0011060 n 006 001 ( P R I N T O U T T
0011100 " * * * * * * * * * * * * " T
0011120 ) \r
0011140
*
0011200 ( P R I N T O U T
0011220 T " I l l e g a l a r g s
0011240 t o U F E Q P " % , % ,
0011260 \r
0011300
*
0011340 O R I G
0011360 I N A L T ) \r
0011400
*
0011440 ( P R I
0011460 N T O U T T " * * * * * * *
0011500 * * * * * " T ) ) \r
0011520
*
0011560 ( L I S T ' U F E
0011600 Q P 2 A R G 1 A R G 2 ) ) \r
0011620 \r \r ( D E F O P T I M I Z E R
0011640 006 002 U F E Q P 2 006 001 ( X Y )
0011660 ` ( E Q ( \ F L O A T U N B
0011700 O X ( F D I F F E R E N C E
0011720 , X , Y ) ) \r
0011740
0011760 N I L ) ) \r \r \r
0012000 ( D E F O P T I M I Z E R 006 002
0012020 U F G E Q 006 001 ( & W H O L E
0012040 O R I G I N A L & O P T I O N
0012060 A L ( A R G 1 N I L A R G
0012100 1 G I V E N ) \r
0012120
0012140 ( A R G 2 N I L A R G
0012160 2 G I V E N ) \r
0012200
0012220 & R E S T R E S T A R G
0012240 S ) ( 006 002 i f 006 001 ( O R (
0012260 N O T A R G 1 G I V E N ) \r
0012300
*
0012360 ( N O T A R G 2 G I V E N
0012400 ) \r
0012420
*
0012460 R E S T A R G S ) \r
0012500
*
0012540 006 002
0012560 t h e n 006 001 ( P R I N T O U T
0012600 T " * * * * * * * * * * * *
0012620 " T ) \r
0012640
*
0012700 ( P R I N T O
0012720 U T T " I l l e g a l a r
0012740 g s t o U F G E Q " % ,
0012760 % , \r
0013000
*
0013040 O
0013060 R I G I N A L T ) \r
0013100
*
0013140 (
0013160 P R I N T O U T T " * * * *
0013200 * * * * * * * * " T ) ) \r
0013220
*
0013260 ( L I S T '
0013300 U F G E Q 2 A R G 1 A R G 2
0013320 ) ) \r \r \r ( D E F O P T I M I Z
0013340 E R 006 002 U F G E Q 2 006 001 ( X
0013360 Y ) ` [ N O T ( ( O P C O
0013400 D E S S W A P U B F L O A T
0013420 2 5 ) \r
0013440
0013460 ( \ F L O A T U N
0013500 B O X , X ) \r
0013520
0013540 ( \ F L O A
0013560 T U N B O X , Y ] ) \r \r \r ( D
0013600 E F O P T I M I Z E R 006 002 U F
0013620 G R E A T E R P 006 001 ( & W H O
0013640 L E O R I G I N A L & O P T
0013660 I O N A L ( A R G 1 N I L
0013700 A R G 1 G I V E N ) \r
0013720
0013740 ( A R G 2
0013760 N I L A R G 2 G I V E N ) \r
0014000
*
0014040 & R E S T R E S T A R G S )
0014060 ( 006 002 i f 006 001 ( O R ( N O T
0014100 A R G 1 G I V E N ) \r
0014120
*
0014200 ( N O T A R G 2 G I V
0014220 E N ) \r
0014240
*
0014300 R E S T
0014320 A R G S ) \r
0014340
*
0014400 006 002 t h e n
0014420 006 001 ( P R I N T O U T T "
0014440 * * * * * * * * * * * * " T )
0014460 \r
0014500
*
0014540 ( P R I N T
0014560 O U T T " I l l e g a l a
0014600 r g s t o U F G R E A T E R
0014620 P " % , \r
0014640
*
0014720 % , O R I G I N
0014740 A L T ) \r
0014760
*
0015020 (
0015040 P R I N T O U T T " * * * *
0015060 * * * * * * * * " T ) ) \r
0015100
*
0015140 ( L
0015160 I S T ' U F G R E A T E R P 2
0015200 A R G 1 A R G 2 ) ) \r \r \r (
0015220 D E F O P T I M I Z E R 006 002 U
0015240 F G R E A T E R P 2 006 001 ( X
0015260 Y ) ` ( ( O P C O D E S U B
0015300 F L O A T 2 5 ) \r
0015320
0015340 ( \ F L
0015360 O A T U N B O X , X ) \r
0015400
0015420 (
0015440 \ F L O A T U N B O X , Y ) )
0015460 ) \r \r \r ( D E F O P T I M I Z E
0015500 R 006 002 U F I X 006 001 ( & W H O
0015520 L E O R I G I N A L & O P T
0015540 I O N A L ( A R G 1 N I L
0015560 A R G 1 G I V E N ) \r
0015600
0015620 & R E S T R E S T A
0015640 R G S ) ( 006 002 i f 006 001 ( O R
0015660 ( N O T A R G 1 G I V E N )
0015700 \r
0015720
*
0015760 R E S T A R G S ) \r
0016000
*
0016040 006 002 t h e
0016060 n 006 001 ( P R I N T O U T T
0016100 " * * * * * * * * * * * * " T
0016120 ) \r
0016140
*
0016200 ( P R I N T O U T T
0016220 " I l l e g a l a r g s t
0016240 o U F I X " % , % , O R
0016260 I G I N A L \r
0016300
*
0016360 T ) \r
0016400
*
0016440 ( P R I N T O U
0016460 T T " * * * * * * * * * * *
0016500 * " T ) ) \r
0016520
*
0016560 ( L I S T ' U F I X 1 A R
0016600 G 1 ) ) \r \r \r ( D E F O P T I M
0016620 I Z E R 006 002 U F I X 1 006 001 (
0016640 X ) ` ( ( O P C O D E S U B
0016660 F L O A T 1 4 ) \r
0016700
0016720 ( \ F L O A T U N B O X
0016740 , X ) ) ) \r \r \r ( D E F O P T
0016760 I M I Z E R 006 002 U F L E Q 006 001
0017000 ( & W H O L E O R I G I N A
0017020 L & O P T I O N A L ( A R G
0017040 1 N I L A R G 1 G I V E N )
0017060 \r
0017100 ( A R G
0017120 2 N I L A R G 2 G I V E N )
0017140 \r
0017160 & R E S
0017200 T R E S T A R G S ) ( 006 002 i
0017220 f 006 001 ( O R ( N O T A R G
0017240 1 G I V E N ) \r
0017260
*
0017320 ( N O T
0017340 A R G 2 G I V E N ) \r
0017360
*
0017420 R E
0017440 S T A R G S ) \r
0017460
*
0017520 006 002 t h e n 006 001
0017540 ( P R I N T O U T T " * * *
0017560 * * * * * * * * * " T ) \r
0017600
*
0017660 ( P R I N T O U T T " I
0017700 l l e g a l a r g s t o U
0017720 F L E Q " % , % , \r
0017740
*
0020020 O R I G I N A L
0020040 T ) \r
0020060
*
0020120 ( P R I N T O U
0020140 T T " * * * * * * * * * * *
0020160 * " T ) ) \r
0020200
*
0020240 ( L I S T ' U F L E Q 2
0020260 A R G 1 A R G 2 ) ) \r \r \r ( D
0020300 E F O P T I M I Z E R 006 002 U F
0020320 L E Q 2 006 001 ( X Y ) ` [ N
0020340 O T ( ( O P C O D E S U B F
0020360 L O A T 2 5 ) \r
0020400
0020420 ( \ F L O
0020440 A T U N B O X , X ) \r
0020460
0020500 ( \
0020520 F L O A T U N B O X , Y ] ) \r
0020540 \r \r ( D E F O P T I M I Z E R
0020560 006 002 U F L E S S P 006 001 ( & W H
0020600 O L E O R I G I N A L & O P
0020620 T I O N A L ( A R G 1 N I L
0020640 A R G 1 G I V E N ) \r
0020660
0020700 ( A R G 2 N
0020720 I L A R G 2 G I V E N ) \r
0020740
0020760 & R E S T
0021000 R E S T A R G S ) ( 006 002 i f
0021020 006 001 ( O R ( N O T A R G 1
0021040 G I V E N ) \r
0021060
*
0021120 ( N O T
0021140 A R G 2 G I V E N ) \r
0021160
*
0021240 R E S T A R G S ) \r
0021260
*
0021320 006 002 t h
0021340 e n 006 001 ( P R I N T O U T T
0021360 " * * * * * * * * * * * * "
0021400 T ) \r
0021420
*
0021460 ( P R I N T O
0021500 U T T " I l l e g a l a r
0021520 g s t o U F L E S S P " %
0021540 , % , \r
0021560
*
0021640 O R I G I N A L T ) \r
0021660
*
0021740 ( P R I N T O U T T
0021760 " * * * * * * * * * * * * "
0022000 T ) ) \r
0022020
*
0022060 ( L I S T ' U F L E S S P 2
0022100 A R G 1 A R G 2 ) ) \r \r \r (
0022120 D E F O P T I M I Z E R 006 002 U
0022140 F L E S S P 2 006 001 ( X Y )
0022160 ` ( ( O P C O D E S S W A P
0022200 U B F L O A T 2 5 ) \r
0022220
0022240 ( \ F L O
0022260 A T U N B O X , X ) \r
0022300
0022320 ( \ F L O
0022340 A T U N B O X , Y ) ) ) \r \r \r
0022360 ( D E F O P T I M I Z E R 006 002
0022400 U F M A X 006 001 ( & O P T I O N
0022420 A L ( A R G 1 N I L A R G
0022440 1 G I V E N ) \r
0022460
0022500 ( A R G 2 N I L A R G
0022520 2 G I V E N ) \r
0022540
0022560 & R E S T R E S T A R G
0022600 S ) ( 006 002 i f 006 001 ( N O T
0022620 A R G 1 G I V E N ) \r
0022640
*
0022700 006 002 t h e n
0022720 006 001 ' M I N . F L O A T \r
0022740
*
0023000 006 002 e l s
0023020 e i f 006 001 ( N O T A R G 2 G
0023040 I V E N ) \r
0023060
*
0023120 006 002 t h e n 006 001 ` (
0023140 F L O A T % , A R G 1 ) \r
0023160
*
0023220 006 002 e l
0023240 s e i f 006 001 R E S T A R G S \r
0023260
*
0023320 006
0023340 002 t h e n 006 001 ` ( U F M A X
0023360 ( U F M A X 2 % , A R G 1
0023400 % , A R G 2 ) \r
0023420
*
0023500 . , R E S T A R G S
0023520 ) \r
0023540
0023560 006
0023600 002 e l s e 006 001 ( L I S T ' U
0023620 F M A X 2 A R G 1 A R G 2 )
0023640 ) ) \r \r \r ( D E F O P T I M I Z
0023660 E R 006 002 U F M A X 2 006 001 ( X
0023700 Y ) ` [ \ F L O A T B O X
0023720 ( ( O P C O D E S U B F L O A
0023740 T 2 6 ) \r
0023760
0024000 ( \
0024020 F L O A T U N B O X , X ) \r
0024040
*
0024100 ( \ F L O A T U N
0024120 B O X , Y ] ) \r \r \r ( D E F O
0024140 P T I M I Z E R 006 002 U F M I N
0024160 006 001 ( & O P T I O N A L ( A
0024200 R G 1 N I L A R G 1 G I V E
0024220 N ) \r
0024240 ( A
0024260 R G 2 N I L A R G 2 G I V E
0024300 N ) \r
0024320 & R
0024340 E S T R E S T A R G S ) ( 006
0024360 002 i f 006 001 ( N O T A R G 1 G
0024400 I V E N ) \r
0024420
*
0024460 006 002 t h e n 006 001 ' M
0024500 A X . F L O A T \r
0024520
*
0024560 006 002 e l s e i f 006 001
0024600 ( N O T A R G 2 G I V E N )
0024620 \r
0024640
*
0024700 006 002 t h e n 006 001 ` ( F L O A T
0024720 % , A R G 1 ) \r
0024740
*
0025000 006 002 e l s e i f 006
0025020 001 R E S T A R G S \r
0025040
*
0025100 006 002 t h e n
0025120 006 001 ` ( U F M I N ( U F M I
0025140 N 2 % , A R G 1 % , A R
0025160 G 2 ) \r
0025200
*
0025260 . , R E S T A R G S ) \r
0025300
*
0025340 006 002 e l s e
0025360 006 001 ( L I S T ' U F M I N 2
0025400 A R G 1 A R G 2 ) ) ) \r \r \r
0025420 ( D E F O P T I M I Z E R 006 002
0025440 U F M I N 2 006 001 ( X Y ) `
0025460 [ \ F L O A T B O X ( ( O P C
0025500 O D E S U B F L O A T 2 7 )
0025520 \r
0025540
0025560 ( \ F L O A T
0025600 U N B O X , X ) \r
0025620
*
0025660 ( \ F L O A T U N B O X ,
0025700 Y ] ) \r \r \r ( D E F O P T I M I
0025720 Z E R 006 002 U F M I N U S 006 001
0025740 ( & W H O L E O R I G I N A L
0025760 & O P T I O N A L ( A R G 1
0026000 N I L A R G 1 G I V E N ) \r
0026020
0026040 & R E
0026060 S T R E S T A R G S ) ( 006 002
0026100 i f 006 001 ( O R ( N O T A R
0026120 G 1 G I V E N ) \r
0026140
*
0026200 R E
0026220 S T A R G S ) \r
0026240
*
0026300 006 002 t h e n 006
0026320 001 ( P R I N T O U T T " *
0026340 * * * * * * * * * * * " T ) \r
0026360
*
0026440 ( P R I N T O U T
0026460 T " I l l e g a l a r g s
0026500 t o U F M I N U S " % , %
0026520 , \r
0026540
*
0026620 O R I G I N A L T ) \r
0026640
*
0026720 ( P R I N T O U T T " *
0026740 * * * * * * * * * * * " T ) )
0026760 \r
0027000
0027020 ( L
0027040 I S T ' U F M I N U S 1 A R
0027060 G 1 ) ) \r \r \r ( D E F O P T I M
0027100 I Z E R 006 002 U F M I N U S 1 006
0027120 001 ( X ) ` [ \ F L O A T B O
0027140 X ( ( O P C O D E S U B F L
0027160 O A T 1 3 ) \r
0027200
*
0027240 ( \ F L O A T U N B O X , X ]
0027260 ) \r \r \r ( D E F O P T I M I Z E
0027300 R 006 002 U F R E M A I N D E R 006
0027320 001 ( X Y ) ( C L : I F (
0027340 A N D ( O R ( C L : C O N S
0027360 T A N T P X ) \r
0027400
*
0027440 ( C L : S Y M
0027460 B O L P X ) ) \r
0027500
*
0027540 ( O R ( C L : C O N
0027560 S T A N T P Y ) \r
0027600
*
0027640 ( C L : S Y
0027660 M B O L P Y ) ) ) \r
0027700
*
0027740 ` ( F D I F F E R E N C E
0027760 , X ( F T I M E S [ F L O A
0030000 T ( U F I X ( F Q U O T I E
0030020 N T , X \r
0030040
*
0030140 , Y ] \r
0030160
*
0030240 , Y )
0030260 ) \r
0030300
0030320 ' C O M P I L
0030340 E R : P A S S ) ) \r \r \r ( P U T
0030360 P R O P S 006 002 U N B O X E D O
0030400 P S F I L E T Y P E 006 001 C L
0030420 : C O M P I L E - F I L E ) \r (
0030440 D E C L A R E % : D O N T E V
0030460 A L @ L O A D D O E V A L @ C
0030500 O M P I L E D O N T C O P Y
0030520 \r ( D E C L A R E % : D O E V
0030540 A L @ C O M P I L E D O N T C
0030560 O P Y \r \r ( L O C A L V A R S
0030600 . T ) \r ) \r ) \r ( D E C L A R
0030620 E % : D O N T E V A L @ L O A
0030640 D D O E V A L @ C O M P I L E
0030660 D O N T C O P Y C O M P I L
0030700 E R V A R S \r \r ( A D D T O V
0030720 A R 006 002 N L A M A 006 001 ) \r \r
0030740 ( A D D T O V A R 006 002 N L A M
0030760 L 006 001 ) \r \r ( A D D T O V A R
0031000 006 002 L A M A 006 001 U F M I N
0031020 U F M A X ) \r ) \r ( P U T P R O
0031040 P S U N B O X E D O P S C O
0031060 P Y R I G H T ( " X e r o x
0031100 C o r p o r a t i o n " 1 9 8
0031120 6 ) ) \r ( D E C L A R E % : D
0031140 O N T C O P Y \r ( F I L E M
0031160 A P ( N I L ( 1 1 8 5 3 3
0031200 8 5 ( U F A B S 1 1 9 5 .
0031220 1 3 1 6 ) ( U F E Q P 1 3
0031240 1 8 . 1 4 4 1 ) ( U F G E
0031260 Q 1 4 4 3 . 1 5 6 5 ) (
0031300 U F G R E A T E R P 1 5 6 7 \r
0031320 . 1 7 0 0 ) ( U F I X 1
0031340 7 0 2 . 1 8 2 1 ) ( U F L
0031360 E Q 1 8 2 3 . 1 9 4 5 )
0031400 ( U F L E S S P 1 9 4 7 .
0031420 2 0 7 4 ) ( U F M A X 2 0 7
0031440 6 . 2 4 7 8 ) ( U F M I N
0031460 2 4 8 0 \r . 2 8 7 9 ) (
0031500 U F M I N U S 2 8 8 1 . 3
0031520 0 0 6 ) ( U F R E M A I N D E
0031540 R 3 0 0 8 . 3 3 8 3 ) ) )
0031560 ) ) \r S T O P \r
0031570