NetNews Usenet Archive 1992 #16/NN_1992_16.iso/spool/comp/sources/hp48/231

Text File | 1992-07-28 | 23.9 KB | 860 lines

Newsgroups: comp.sources.hp48
Path: sparky!uunet!seq!spell
From: K. Sinenmaa <[e-mail]>
Subject:  v06i010:  nasir_ks - Nasir Astronomical time application v1.2, Part02/02
Message-ID: <[e-mail]>
Followup-To: comp.sys.hp48
Sender: [e-mail] (Chris Spell)
Organization: University of Helsinki
References: <cshp48-v06i009=[e-mail]>
Date: Wed, 29 Jul 1992 01:14:08 GMT
Approved: [e-mail]
Lines: 850

Checksum: 2935885697 (verify with brik -cv)
Submitted-by: K. Sinenmaa <[e-mail]>
Posting-number: Volume 6, Issue 10
Archive-name: nasir_ks/part02

BEGIN_RPL nasir.rpl
%%HP: T(3)A(D)F(.);
DIR
START.
\<< NOVA { { "SETUP"
  \<< CLEAR SETUP
  \>> } { "JULIA"
  \<< CLEAR 'DN'
PURGE
"Julian Day.fraction"
":JDAY:" INPUT OBJ\->
DUP DUP 'JD' STO FP
24 * 12 + TZ + DL +
F24 'LT' STO LT TZ
- DL - 24 / - 'JD0'
STO CHUT JD0 CADA
'DT' STO NOVA
  \>> } { "LT.ST"
  \<< CLEAR JD0 GWUT
LT TZ - DL -
1.00273790935 * +
F24 DUP \->HMS "GMST"
\->TAG SWAP \GlM 15 / +
F24 DUP \GD\165 \Ge COS *
15 / + \->HMS "AST"
\->TAG SWAP \->HMS
"MST" \->TAG
  \>> } { "ST.LT"
  \<< CLEAR JD0 GWUT
LT \GlM 15 / - F24
DUP \->HMS "GMST"
\->TAG SWAP ROT - F24
99726956633 * \->HMS
TZ + DL + F24 "LT"
\->TAG
  \>> } { "SUN"
  \<< CLEAR JD0 .5 +
EOFT 'ET' STO MISC
\GlS 0 CONV '\Gd' STO
'\Ga' STO AARS SDRV {
SE RI \Ga \Gd \GlS r \GD\Ge \GW
G4 G3 G2 GS LS L9 T
ST t C ET A a DN
PPAR } PURGE NOVA
  \>> } } TMENU
\>>
ASCAL
\<< -16 CF -19 SF
" Type MONTH and YEAR"
":MM YYYY:" INPUT
OBJ\-> \-> m y
  \<<
    IF m 0 == m 13
\>= OR
    THEN
"Are you an Alien ?"
DOERR
    END m 1 y JDAY
OVER 3 + 7 / FP 7 *
0 RND 1 + + 7 / 0
RND ERASE -1 39
XRNG 0 24 YRNG
CLLCD
"A calendar v1.0 by KS"
1 DISP (0,0) (0,21)
(3,0) (3,21) (8,0)
(8,3) (0,0) (13,0)
(8,0) (8,3) (13,0)
(13,3) 1 6
    FOR j LINE
    NEXT 1 7
    FOR j 38 j 3 *
\->V2 0 j 3 * \->V2
LINE 43 j 5 * - 3
\->V2 43 j 5 * - 21
\->V2 LINE
    NEXT PICT RCL 1
7
    FOR j -1.1 j 5
* + 20.3 \->V2 DAMO j
1 + GET 1 \->GROB GOR
    NEXT SWAP DUP
    IF 0 ==
    THEN 52
    ELSE DUP
    END 1 \->GROB ROT
(.5,17) ROT GOR
(7,23.5) JG DAMO m
8 + GET y \->STR + +
1 \->GROB GOR SWAP 1
+ DUP DUP DUP DUP 6
ROLL 0 4
    FOR j .5 14 j 3
* - \->V2 ROT j + 1
\->GROB GOR
    NEXT -42 CF
SWAP DUP 1 + 7 / FP
7 * 0 RND 'c' STO 1
'w' STO 1 m + 1 y
JDAY DROP SWAP -
    IF y 1991 \<= y
2099 \>= OR
    THEN 1 SWAP
"Alarm detect disabled"
1 DISP
    ELSE DUP y
1000000 / DUP .01 +
m + SWAP ROT 100 /
+ m + 23.5959 2
\->LIST FINDALARM
SWAP FINDALARM -
DUP
      IF 0 ==
      THEN DROP
SWAP (19,2) "No"
      ELSE ROT
(19,2) ROT ABS \->STR
      END
" alarms" + 1
\->GROB GOR 1 ROT
    END
    FOR j
      IF c 0 \=/ c 7
\=/ AND
      THEN c 5 *
1.3 - 20 w 3 * -
\->V2 j 1 \->GROB GOR c
1 + 'c' STO
      ELSE 33.7 20
w 3 * - \->V2 j 1
\->GROB GOR 1 'c' STO
w 1 + 'w' STO
      END
    NEXT PICT STO {
} PVIEW { w c PPAR
} PURGE
  \>>
\>>
GSTR
\<< STD \-> y
  \<< y 19 MOD y 100
MOD y 100 / IP DUP
DUP 4 MOD 2 * SWAP
4 / IP ROT DUP DUP
8 + 25 / IP - 1 + 3
/ IP SWAP ROT -
SWAP - 4 PICK 19 *
+ 15 + 30 MOD ROT
DUP 4 / IP 2 * SWAP
4 MOD SWAP 3 PICK -
SWAP - ROT + 32 + 7
MOD DUP 22 * 3 PICK
11 * + 4 ROLL + 451
/ IP 7 * ROT ROT +
SWAP - 114 + DUP 31
/ IP SWAP 31 MOD 1
+ \-> M D
    \<< { "March "
"April " } M 2 -
GET D y ABS 10 y
ABS \->STR SIZE DUP
FIX ^ / + y SIGN *
\->STR + STD M
      IF 4 <
      THEN D 22 -
DUP
        IF 0 ==
        THEN DROP
"April " 30
        ELSE "May "
SWAP
        END
      ELSE D 9 +
DUP
        IF 31 >
        THEN
"June " SWAP 31 -
        ELSE "May "
SWAP
        END
      END \->STR +
"Ascension Day"
\->TAG
    \>>
  \>>
\>>
JSTR
\<< STD \-> y
  \<< y 4 MOD 2 * y 7
MOD 4 * + y 19 MOD
19 * 15 + 30 MOD
SWAP OVER - 34 + 7
MOD 114 + + DUP 31
/ IP { "March "
"April " } SWAP 2 -
GET SWAP 31 MOD 1 +
y ABS 10 y ABS \->STR
SIZE DUP FIX ^ / +
y SIGN * \->STR + STD
"Julian Easter"
\->TAG
  \>>
\>>
JDAY
\<< STD \-> m D V
  \<< D m
    IF 3 \>=
    THEN m 3 - V
    ELSE m 9 + V 1
-
    END DUP 4712 +
365.25 * IP SWAP
100 / 49 + IP .75 *
IP 38 - V \-> D m y g
W
    \<< y m 30.6 * .5
+ IP 59 D + + + DUP
g - "GreCal" \->TAG
SWAP "JulCal" \->TAG
      IF JG SIZE 10
<
      THEN SWAP
DROP DUP 0
      ELSE DROP DUP
W 1 - 100 / 49 + IP
75 * IP 38 -
      END W 1 -
4712 + 365.25 * IP
365 + SWAP - -
"DayNum" \->TAG
    \>>
  \>>
\>>
CADA
\<< STD 0 RND \-> J
  \<< J 1 + 7 / FP 7
* 0 RND 1 + DAMO
SWAP GET
    IF JG SIZE 10
==
    THEN J 4479.5 -
36524.25 / IP .75 *
5 + IP 37 - J +
    ELSE J
    END DUP 59.25 -
365.25 MOD IP DUP
5 + 30.6 / IP 2 +
12 MOD 9 + DAMO
SWAP GET SWAP .5 +
30.6 MOD IP 1 + ROT
365.25 / IP 4712 -
DUP ABS DUP 10 SWAP
\->STR SIZE DUP FIX ^
/ ROT + SWAP SIGN *
\->STR + + STD
  \>>
\>>
EOFT
\<< 2451545 -
00273790931 *
779072 + FP 360 *
F36 \-> L
  \<< '-106.2*SIN(L)+
596.2*SIN(2*L)+4.4*
SIN(3*L)-12.7*SIN(4
*L)-428.9*COS(L)-
2.1*COS(2*L)+19.3*
COS(3*L)' EVAL 3600
/ 12 SWAP - TZ \GlM
15 / - + DL +
  \>>
\>>
GWUT
\<< 2451545 - 36525 /
DUP DUP 3 ^
-.0000062 * .093104
ROT 2 ^ * +
8640184.81287 ROT *
+ 24110.54841 +
3600 / F24 DUP \->HMS
"GMST0" \->TAG SWAP
\>>
EQSO
\<<
"Equinox and Solstice"
":MM YYYY:" INPUT
OBJ\-> \-> M Y
  \<< M 3 / FP
    IF 0 ==
    THEN Y 2000 -
1000 / 'P' STO DAES
M 3 / GET EVAL 'P'
PURGE DUP FP 24 *
12 + TZ + DL + F24
DUP \->HMS "LT" \->TAG
ROT ROT TZ - DL -
24 / - CADA
    END
  \>>
\>>
CONV
\<< -16 CF \-> l b
  \<< l COS l SIN \Ge
COS * b TAN \Ge SIN *
- \->V2 -16 SF V\-> F36
SWAP DROP "RA" \->TAG
b SIN \Ge COS * b COS
\Ge SIN l SIN * * +
ASIN "DECL" \->TAG
-16 CF
  \>>
\>>
NOVA
\<< STD JG "  DST= "
DST + + "
TZ= " TZ
+ "  LT= " LT \->HMS
+ + + "
JD0 = " JD0
+ + "
JD  = " JD +
+ "
UT= " UT + +
"
" DT "  " DN + +
+ + "
\Gl: " \GlM + +
"  \O/: " \O/ + + CLLCD
1 DISP 3 FREEZE
\>>
CHUT
\<< LT TZ - DL - \-> U
  \<< U F24 \->HMS
    IF U 0 < U 24 \>=
OR
    THEN {
" yesterday" ""
" tomorrow" } U
SIGN 2 + GET
    ELSE " today"
    END + 'UT' STO
  \>>
\>>
SETUP
\<< { { "DATE"
  \<<
"DATE-form MM DD YYYY"
":DATE:" INPUT OBJ\->
JDAY 'DN' STO .5 -
'JD0' STO JD0 LT TZ
- DL - 24 / + 'JD'
STO JD0 CADA 'DT'
STO NOVA
  \>> } { "TIME"
  \<<
"TIME-format HH.MMSS"
":L/ST:" INPUT OBJ\->
HMS\-> DUP TZ - DL -
24 / JD0 + 'JD' STO
'LT' STO CHUT NOVA
  \>> } { "LONG"
  \<<
"Longitude in decimals"
"
West negative
" +
":\Gl:" INPUT OBJ\->
'\GlM' STO NOVA
  \>> } { "LATIT"
  \<<
"Latitude in decimals"
"
-90 < \O/ < 90
" +
":\O/:" INPUT OBJ\->
'\O/' STO NOVA
  \>> } { "ZONE"
  \<<
"Integer  -12  to  12"
"
West=neg
" +
":Time Zone:" INPUT
OBJ\-> 'TZ' STO JD0
LT TZ - DL - 24 / +
'JD' STO NOVA
  \>> } { "BACK"
  \<< 0 MENU NOVA
  \>> } { "DL.ON"
  \<< "ON" 'DST' STO
1 'DL' STO NOVA
  \>> } { "DLOFF"
  \<< "OFF" 'DST' STO
0 'DL' STO NOVA
  \>> } { "JUL.C"
  \<< " Julian " 'JG'
STO NOVA
  \>> } { "GRE.C"
  \<< "Gregorian "
'JG' STO NOVA
  \>> } } TMENU NOVA
\>>
MISC
\<< STD CLLCD
"Wait ..." 1 DISP
JD0 GWUT LT TZ - DL
- 1.00273790935 * +
\GlM 15 / + F24 'ST'
STO DROP JD 2451545
- DUP 'C' STO 36525
/ 't' STO t 1 + 'T'
STO .606434
03660110129 C * +
779072
00273790931 C * +
993126 .0027377785
C * + .140023
00445036173 C * +
053856
00145561327 C * +
056531
00023080893 C * +
{ G4 G3 G2 GS LS L9
} DEG \-> i
  \<< 1 6
    FOR j FP 360 *
i j GET STO
    NEXT 125.044555
1934.1361849 t * -
0020762 t 2 ^ * +
t 3 ^ 467410 / + t
4 ^ 60616000 / +
'\GW' STO -.00172 \GW
SIN * .000132 2 LS
* SIN * - .000023 2
L9 * SIN * -
000021 2 \GW * SIN *
+ HMS\-> '\GD\165' STO
23.2621448 .0046815
t * - .000000059 t
2 ^ * - .0000001813
t 3 ^ * + HMS\->
00092 \GW COS *
000057 2 LS * COS
* + .00001 2 L9 *
COS * + .000009 2 \GW
* COS * - HMS\-> DUP
'\GD\Ge' STO + '\Ge' STO
CALS OBJ\-> DROP EVAL
'r' STO EVAL 3600 /
LS + F36 \GD\165 .0052 r
/ - + '\GlS' STO
  \>>
\>>
SDRV
\<< -16 CF 6 FIX
"\Gl = " \GlS \->HMS +
"  \Gb = 0.0000" +
"\Ga =  " \Ga 15 / \->HMS
+ "  \Gd = " \Gd \->HMS +
+ "AZI = " A +
"  ALT = " a + +
"RISE = " RI +
" SET = " SE + +
"R = " r +
"      SD = " 15.99
r / \->HMS + +
"EPH.T = " ET \->HMS
+ "   \Ge = " \Ge \->HMS
+ + "\GD\165 = " \GD\165 \->HMS
+ "  \GD\Ge = " \GD\Ge \->HMS
+ + ERASE -6.7 6.5
XRNG -1 8.5 YRNG
"SUN: " DT +
" LT = " LT \->HMS +
+ STD 1 \->GROB PICT
STO PICT RCL 1 7
  FOR j -6.5 j \->V2
ROT 1 \->GROB GOR
  NEXT PICT STO { }
PVIEW
\>>
AARS
\<< -16 CF ST 15 * \Ga
- \-> h
  \<< h COS \Gd COS \O/
SIN * * \Gd SIN \O/ COS
* - h SIN \Gd COS *
\->V2 -16 SF V\-> F36
\->HMS 'A' STO DROP h
COS \Gd COS \O/ COS * *
\O/ SIN \Gd SIN * +
ASIN \->HMS 'a' STO
-.8333 SIN \Gd COS \O/
COS * / \Gd TAN \O/ TAN
* - DUP -16 CF
    IF ABS 1 >
    THEN DROP
      IF a 0 >
      THEN
"Continuous"
      ELSE "No"
      END
"phenomenon"
    ELSE ACOS 15 /
ET OVER - F24 \->HMS
SWAP ET + F24 \->HMS
    END 'SE' STO
'RI' STO
  \>>
\>>
CALS
{ '6910*SIN(GS)+72*
SIN(2*GS)-17*T*SIN(
GS)-7*COS(GS-G4)+6*
SIN(L9-LS)+5*SIN(4*
GS-8*G3+3*G4)-5*COS
(2*GS-2*G2)-4*SIN(
GS-G2)+4*COS(4*GS-8
*G3+3*G4)+3*SIN(2*
GS-2*G2)-3*SIN(G4)-
3*SIN(2*GS-2*G4)' '
1.00014-.01675*COS(
GS)-.00014*COS(2*GS
)' }
DAMO
{ "Sun " "Mon "
"Tue " "Wed "
"Thu " "Fri "
"Sat " "Sun" "Jan "
"Feb " "Mar "
"Apr " "May "
"Jun " "Jul "
"Aug " "Sep "
"Oct " "Nov "
"Dec " }
DAES
\<< { '2451623.80984+
365242.37404*P+
05169*P^2-.00411*P
^3-.00057*P^4' '
2451716.56767+
365241.62603*P+
00325*P^2+.00888*P
^3-.0003*P^4' '
2451810.21715+
365242.01767*P-
11575*P^2+.00337*P
^3+.00078*P^4' '
2451900.05952+
365242.74049*P-
06223*P^2-.00823*P
^3+.00032*P^4' }
\>>
F36
\<< DUP 360 / IP 360
* -
  IF DUP 0 <
  THEN 360 +
  END
\>>
F24
\<< DUP 24 / IP 24 *
-
  IF DUP 0 <
  THEN 24 +
  END
\>>
UT
"Nasir v1.2 1992"
DT
"    by Kati Sinenmaa "
LT
13
DST
"Pals"
JG
"Greetings !"
TZ
2
DL
1
JD0
1234567
JD
7654321
\GD\165
004
\Ge
23.40
\GlM
25
\O/
60
END_RPL

BYTES: #7B38h 10605

BEGIN_UU nasir.uue
begin 644 nasir
M2%!(4#0X+466*O!_BDL````!V`$S*1````````!@L`$``I9-`C,I$```````
M`"70`0`!DP$S*1```````$`CL`$``INE`C,I`````````$#0`0`"2D0",RE@
M````$#)4=M`!``-*1#`#,RE@````<%8T$O`!``)$3`(S*0`````````0T`$`
M`E1:`C,I`````````"#0`0`"2D<"+"JP`0!'<F5E=&EN9W,@(2@`,$`T137`
MH@(-```5QC;'`0`"3%0",RD0````````$]`!``)$5`(L*O`"`"`@("!B>2!+
M871I(%-I;F5N;6%A(#P`(%!%)<"B`B,`X!0VER8'8A?C(@,2DY,C`P,``T8R
M-`.=+>!A(X?[,9,"`0``````0`(%K]&V&S,I$````````"3@WAH)K3'L(H?[
M02LJONNA[R*=+3"3`@$``````$`"9ZNQ$@/5+Y)C(RLQ,`H``T8S-@.=+>!A
M(X?[,9,"`@``````8`,%K]&V&S,I(````````#;@WAH)K3'L(H?[02LJONNA
M[R*=+3"3`@(``````&`#9ZNQ$@/5+Y)C(RLQ,`H`!$1!15,$G2W@82-T*H"K
M`C,I8`"$"3AB420PDP(%``1T(R1E`T@N$`#EWAIGJS&3`@,`````D!8%2"X0
M`.4M*BVPX=X:9ZLQDP*7"0`````1!$@N$``U+RHML.'>&@FM,9,"E@D`````
M<`5(+A``A3`J+;#AWAH)K;$2`[@J,),"!G!V5A8710(S*5``,&!B05(V@.0"
M`5#NK7&V&C,I(```````4#*`Y`(!4-ZBT@(;[JUQMAHS*7"9`````("(@.0"
M`5#SHM("&^ZM<;8:,RE@F0``````,(#D`@%0"*/2`AONK9'0&BLQ@*L",RE@
M`!47`H%1)#"3`@4`9Q<@)&4#2"X0`.7>&F>K,9,"!`````!U%0%(+A``Y2TJ
M+;#AWAH)K3&3`I<)`````#<#2"X0`#4O*BVPX=X:9ZLQDP*6"0````"`!T@N
M$`"%,"HML.'>&F>KL1(#N"HPDP(&()4%`!E%`C,I4`"0!'1"4C:`Y`(!4.ZM
M<;8:,RDP```````C8H#D`@%0WJ+2`AONK9'0&C,I<)D`````,(*`Y`(!4/.B
MT@(;[JV1T!HS*6"9```````R@.0"`5`(H]("&^ZM<;8:*S&P$@,Y-K(2`YX#
M0$`4U/1$0*<"+"K0``!3=6X@+"K0``!-;VX@+"K0``!4=64@+"K0``!7960@
M+"K0``!4:'4@+"K0``!&<FD@+"K0``!3870@+"JP``!3=6XL*M```$IA;B`L
M*M```$9E8B`L*M```$UA<B`L*M```$%P<B`L*M```$UA>2`L*M```$IU;B`L
M*M```$IU;"`L*M```$%U9R`L*M```%-E<"`L*M```$]C="`L*M```$YO=B`L
M*M```$1E8R`K,<`7``1#04Q3!'0J@*L",RDP```````0:8#D`@)'4ZRTX=X:
M,RD0````````<N`M*D@N('`TY=X:K+3AWAIGJS&3`@$``````'`!2"X00.7>
M&D@N('`TQ4H;[JV1T!I'HX+D`@)'4T@N('!$D]`:!;7AWAH)K2$S*D@N(,"4
M@^0"`DQ3":W!2AONK7&V&AVC@C`J2"X@<#3EWAI<HX+D`@)',^ZMD=`:\Z*"
MY`("1S3NK7&V&JRTX=X:9ZO1,2K>HH+D`@)'4^ZMX2TJ2"X@<"3CWAH)K5%0
M&^ZMD=`:"*."Y`("1U-(+B!P))/0&JRTX=X:":V!,"H(HX+D`@)'4^ZMP34J
M2"X@<#3CWAH)K3$O*D@N('!$X]X:9ZM14!ONK7&V&O.BXBTJ2"X@<#3EWAK>
MHH+D`@)',NZMD=`:K+3AWAIGJS$O*D@N('!$PTH;[JV1T!KSHN(M*D@N('`T
MY=X:WJ*"Y`("1S3NK9'0&JRTX=X:":VQ$@.X*C"3`@````!``0`!,RF`F0``
M``!U%H#D`@)'4P6UX=X:":TQDP*6"0````!``=ZB@N0"`D=3[JU14!ONK9'0
M&BLQL!(#=@-`$!0D-470V0(>-C*3`@$``````&"1U<*!Y`("4U0S*1``````
M```5X-X:2"X0P)C0&L$TTN8"`6@>-M+F`@%H!;6!Y`(!D@6U@>0"`=BLM.'>
M&NZM@>0"`9*LM('D`@'8!;7AWAH)K='F`@%HK+2!Y`(!D@6UX=X:9MXQDP(!
M``````!@D73"8=`=2"XP8#1CX_$;5#:"Y`(!07DVTLP@V/O1Y@(!:`6U@>0"
M`9(%M8'D`@'8!;7AWAKNK8'D`@'8K+2!Y`(!DJRTX=X:9ZM!:AL>OT%E(T@N
M$!"69R/-##*3`ID)````,#.8K+2!Y`(!D@6U@>0"`=@%M>'>&@6O@>0"`9)>
MM8'D`@'87K7AWAH)K7&X'S,I$````````!99+1S#+O*A&LFBTL4>^B[2V0+8
M^S'L(D@N$!!&*RI=[*'O(BPJD`$`0V]N=&EN=6]U<[4OPJ(""0#@]%;](BPJ
MD`$`<&AE;F]M96YO;BLQ4/LBG2WP<ALS*1`````````54/`:2"X@4$25PA\)
MK8'D`@-&,C0>O]&['T@N(%!$=;8:2"XP8"1#X_$;*S%0_2)4-H+D`@)317DV
MTLP@5#:"Y`("4DEY-M+,(/XUDF,C*S$@.@`$4T125@2=+>!A(S,I$```````
M`!99+1PRHZ(^'"PJT```EB`]($@N(&`YY?$;9ZO!H@(=```"\@W2`P+C`@,#
M`W.V&BPJ\```C"`]("!(+A#`.),"`0``````4`$%K^'Q&V>KP:("$0```B()
MT@."Y`(!DAZ_<;8:9ZO!H@(1`!"DE032`X+D`@%!9ZO!H@(5```"$L1$!=(#
M@N0"`6%GJW&V&BPJ,`$`4DE312`]($@N(""5=+8:+"HP`0`@4T54(#T@2"X@
M,%5TMAIGJ\&B`@T`(`72`X+D`@%R9ZO!H@(;```"`@("`C)%!-(#,I,"`0``
M``"060%(+A`@5_`:'K]QMAIGJ\&B`A4`4`2%Y$(%T@."Y`("150>OW&V&BPJ
M,`$`("`@DR`]($@N$##I\1MGJW&V&BPJ\```FZ4@/2!(+B"P6>KQ&V>KP:("
M$P```K(Y"=(#@N0"`IN3'K]QMAIGJ_$E'C,I`````````&<YDP(```````!0
M!B'F83@J,RD`````````A1!D'BPJ\```4U5..B!(+B!`1'6V&BPJ$`$`($Q4
M(#T@2"X@P$3E\1MGJW&V&H;$D2PJK>5A0Q[-#&)#'D`+DBPJ1Z,"&B-M+A"@
M-I,"````````4)9M+A"@9N8=#OR1+"JMY6%%'DPR8D,>S0Q"IP(K,0`O'CDV
MLA(#"@1`T)0T-430V0(>-F)('%BHP:("%0!P%99&!^+BXI(L*H2E@>0"`TI$
M,$@N0'!T546%Y`("3%1(+B!`I970&D@N($#$E-`:,RD``#4)>7,"$.#>&F>K
M@>0"`I9-,RD0````````%5#P&F>K@>0"`T8R-%0V@N0"`E-4>3;2S"#8^X'D
M`@)*1#,I8````%!44220T!J'^T%E(T@N$#"49R/-##*3`@0`````)64#!:]!
M92-(+A!`EV<CS0R"Y`(!=,FB<K8:5#:"Y`(!5'DVTLP@,RF0F0```#1D8#"3
M`@D`D!(0`68#2"X0,.3>&F>K,9,"!0```"`'>0<S*8```!"3D#<G@.0"`4/N
MK7&V&C,I4``````F,9DPDP*7"0!0>'=S`D@N$##DWAIGJS&3`ID)```P`D`!
M,RF````P%S901(#D`@%#[JUQMAHS*4``````8(53,),""```)Q-610%(+A`P
MY-X:9ZLQDP($`````#%E!3,I<````),("".`Y`(!0^ZM<;8:="J`Y`("1S1(
M+B!P-(/D`@)',D@N('`TA>0"`DQ32"X@P)2S$@.9PQ%,(VTN$)#F82/)HB(S
M*J`QTN8"`6JCNS&3`@(``````&`#[JW1Y@(!:6TN$*!F?!W-#,(D(S,I(```
M4%5$4!(PDP(#`$D8-D&3`4@N$$#GWAH)K3&3`@0`````8@<"2"X00.<M*BVP
MX=X:9ZN!Y`(!=/.BT@(;,RE0`````!!T1E#P&F>K@>0"`70(H]("&S,I<```
M``!@86!0\!IGJT%E(T@N$-"99R/-##*3`I<)`````'*12"X0T,E*&^ZM,9,"
ME@D`````,@'>HH+D`@),4^ZMP4H;[JV1T!HS*5"9```````CX"TJ2"X@P)3C
MWAJLM.'>&@FM,9,"`0``````$`+>HH+D`@&=[JW!2AONK7&V&CZ_064C2"X@
ML%F:9R/-##*3`@$``$@48C(",REPF0```%"!1H#D`@%T[JV1T!HS*2"9````
M``!9@.0"`73>HM("&^ZMD=`:,RDPF0`````3&(#D`@%T\Z+2`AONK7&V&CZ_
M,9,"`0``````(`E(+A#065`;[JTQDP(!``````!P!=ZB@N0"`DQ3[JU14!ON
MK7&V&C,I4)D``````!#@+2I(+B#`E./>&@6UX=X:9ZLQDP*4"0``````"=ZB
M@N0"`9WNK5%0&^ZMD=`:/K]QN!]4-H+D`@*;DWDVTLP@9ZM!92-(+A`PF6<C
MS0R"Y`($0T%,4WO/@;T?OJ-!92-(+A`@EV<CS0SB.QHS*3`````````V4/`:
M2"X@P#1UMAI(+C!@-&.#Y`("FZ4S*7"9``````!2@.0"`7(%KY'0&F>K064C
M2"X@8#F59R/-#.)?(SDVLA(#+PA0,%5$5055T-D"'C9"IP)T*L"B`@T`0!1$
M5=39`AXVPJ("+0!`%$15U&+V)M<&TM0$0D0$DI65E<6B`A$`H$,41%6DHTPB
M>\^!Y`($2D1!650V@N0"`D1.>3;2S"`S*9"9``````!0D-`:5#:"Y`(#2D0P
M>3;2S"!(+C"@1`2#Y`("3%1(+B!`I970&D@N($#$E-`:,RD0````````)%#P
M&F>K064C2"X@H$249R/-#(+D`@-*1#!(+D`P%$041&4C2"X@0$259R/-#(+D
M`@1.3U9!.3:R$@,K,4"G`BPJT```5$E-19TMX&$C+"JP`@!424U%+69O<FUA
M="!(2"Y-35-3+"H0`0`Z3"]35#K*)++W'#Z_<;@?2"X@0*65T!I(+B!`Q)30
M&C,I$````````"10\!I(+C"@1`1SMAI4-H+D`@)*1'DVTLP@5#:"Y`("3%1Y
M-M+,($@N0#"$5$6%Y`($3D]603DVLA(#*S%`IP(L*M```$Q/3D>=+>!A(RPJ
M\`(`3&]N9VET=61E(&EN(&1E8VEM86QS+"HP`@`*5V5S="!N96=A=&EV90IG
MJ\&B`@L`H&.IHTPB>\]!92-(+B!@V91G(\T,@N0"!$Y/5D$Y-K(2`RLQ0*<"
M+"KP``!,051)5)TMX&$C+"K0`@!,871I='5D92!I;B!D96-I;6%L<RPJ$`(`
M"BTY,"`\(-@@/"`Y,`IGJ\&B`@L`H(.MHTPB>\]!92-(+A"`G6<CS0R"Y`($
M3D]603DVLA(#*S%`IP(L*M```%I/3D6=+>!A(RPJT`(`26YT96=E<B`@+3$R
M("!T;R`@,3(L*I`!``I797-T/6YE9PIGJ\&B`AL`H$.5UE8&HO7F5J:C3")[
MST%E(T@N($"EE6<CS0R"Y`(#2D0P2"X@P$2%Y`("5%H)K8'D`@)$3`FM,9,"
M`0``````0`(%KW&V&E0V@N0"`DI$>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B
M`@T`(!0TM-39`AXV0BLJEA&"Y`($3D]603DVLA(#*S%`IP(L*O```$1,+D].
MG2W@82,L*I```$].5#:"Y`(#1%-4>3;2S"#)HD)E(T@N($#$E&<CS0R"Y`($
M3D]603DVLA(#*S%`IP(L*O```$1,3T9&G2W@82,L*K```$]&1E0V@N0"`T13
M5'DVTLP@M*)"92-(+B!`Q)1G(\T,@N0"!$Y/5D$Y-K(2`RLQ0*<"+"KP``!*
M54PN0YTMX&$C+"I0`0`@2G5L:6%N(%0V@N0"`DI'>3;2S"!(+D#@]&05E&,C
M*S&P$@-T*L"B`@\`<"15Y#+4V0(>-L*B`AD`<"17=O8FEQ;F!D)E(T@N(*!T
ME&<CS0R"Y`($3D]603DVLA(#*S&P$@-=$8+D`@1.3U9!.3:R$@,Y"$`PA%1%
M1=#9`AXV@N0"`DQ42"X@0*65T!I(+B!`Q)30&L$TTN8"`54>-M+F`@%52"XP
M8"1#X_$;PR[2Y@(!5;2BXKL>;2X04#63`@$``````$`"F^V1@![Z+M+9`G0J
MP*("&0``DE<V1U<F1Q:6QZ("!0#`H@(7``!"]];V)B?W=K<2`VTN$%"E,AO>
MHG*V&L;7L1(#M2_"H@(1``!"]T86EE?](F>K064C2"X@4$659R/-#.)?(SDV
MLA(#=P%`X/1D%430V0(>-F)('$@N(*!TQ*("$P```D(T1=4#@N0"`T135&>K
M<;8:+"KP```*5%H]($@N($"E=;8:+"H0`0`@($Q4/2!(+B#`1.7Q&V>K<;8:
M9ZO!H@(3`*"@1`0#T@."Y`(#2D0P9ZMQMAHL*C`!``I*1"`@/2!(+B"@1'2V
M&F>KP:("#P"@4$75`X+D`@)55&>K<;8:+"IP```*2"X@0$3%H@()```"@N0"
M`D1.9ZMQMAIGJW&V&BPJT```"I8Z($@N(	=+8:9ZO!H@(/```"@JT#@N0"
M`=AGJW&V&EBHD2PJA*4Q+RJDI9%C(RLQ@!X`!$-/3E8$G2W@82,S*1``````
M```662T<P332Y@(!;&TN$"#F82-M+A#`5E`;;2X0P,9*&T@N$#!94!ONK='F
M`@%B7K6!Y`(!DZRTX=X:":UAYATS*1`````````622<<!MV!Y`(#1C,VO?N!
MO1\L*I```%)!OB72Y@(!8JRT@>0"`9,%M>'>&FTN$"!64!M(+A`PR4H;;2X0
MP,9*&^ZMX=X:9ZM!:ALL*M```$1%0TR^)3*3`@$``````&"1U<+A7R,Y-K(2
M`XX!0%`4-?5$T-D"'C;"H@(M`%`45Y?F]H8'$N9&!C+UQC9'ES96QJ("%P"@
MT]0$DI65E:6C3")[SQ%,(VTN$-#4Y@(!61XVTN8"`4WSHE+P&J.[,>PBM*(B
MEQ[Z+M+9`FTN$)`UDP(#`````````@FM,9,"`P````````$%KT%E(T@N$`"5
M9R/-#(+D`@1$0453;2X0T#0O*@6O87P=OJ-!92-(+A``E6<C_@YRN!^CNS&3
M`@$``````$`"[JTQDP(!```````@`6>K@>0"`E1:9ZN!Y`("1$QGJX'D`@-&
M,C2'^^'Q&RPJD```3%2^)>+`'P[\@>0"`E1:":V!Y`("1$P)K3&3`@$`````
M`$`"!:^1T!I(+D`P%$04M!(#U2_B7R,Y-K(2`TT"0'!T545%T-D"'C8RDP(&
M````115%`@FM,9,"!``````E90,%KW&X'X?[,2\J+;`QDP*4"0`````@ENZM
M,9,"F`D````$,0D._.$M*BVPX=X:9ZLQDP(&<"B!A`%D"`[\X=X:9ZLQDP($
M`!"$5!!!`F>K,9,"`P``````8`,%KX'D`@-&,C2'^^'Q&RPJ\```1TU35#"^
M)=*['SDVLA(#/0%`4/1D1$70V0(>-C*3`@8```!%%44"":TQDP((```Q"7ES
M`NZM,9,"!0```"`'>0=GJS&Z&S,I(````````#;@WAI(+C!@-&,33"-M+A#`
MY&$CN"HPDP("`````"`&D6TN$,#$2AONK3&3`@(`````()8%WJ+2Y@(!3.ZM
MP4H;[JUQMAHS*0````````!$,"\J;2X0P.3>&JRTX=X:9ZLQDP(!```````G
M`0BCTN8"`4SNK<%*&^ZMD=`:,RD@``````")0M#F`@%,!;7AWAH)K3&3`@``
M`````!`"WJ+2Y@(!3.ZM45`;[JV1T!HS*1```````#`9,"\J;2X0P.3>&@6U
MX=X:9ZNQ$@.^HS&3`@,``````&`#!:\QDP(!```````@`;W[D=`:2"X@0*6%
MY`("EDTS*1`````````54/`:":UQMAI(+B!`Q'2V&OXUDF,C*S'`*@`$0T%$
M002=+>!A(X;$02LJ5;T13"-M+A"@Y&$C;2X0H)0L*F>K<30J!:\QNAM'H^+>
M&K2B4M4;R:)RMAI(+D!`%-3TU+L?QM<Q[")(+B"@=(2;'#,I$````````!`@
MEQ[Z+M+9`FTN$*`TDP(#`````)5'!`FM,9,"!````"4D90,%K]&V&S,ID)D`
M`````'7@WAH=HW*V&FV[,9,"`0``````<`,)K='F`@%*9ZNQ$@.U+]+F`@%*
MU2]RN!\S*1```````"59D-`:,RD@`````%!2-M#D&VV[<;@?':-RMAHS*1``
M`````&`P4/`:;;OA+2IGJS&3`@$``````"`!3;X1-RIGJX'D`@1$04U/O?MA
M?!V]^S&3`ID)```````%9ZLQDP(!```````&`TV^T;8;R:)RMAH._#&3`@(`
M````)64#!:_1MALS*3```````!)'D-`:A_OQH1J'^S&3`@$````````!O?NQ
ML!RXR7&X'^K#T0(;!:_AP!]GJ]&['RJSX=X:"\MQMAIGJV%('/XUDF,C*S$0
M,P`$2D1!602=+>!A(X;$$4PC;2X0T-;F`@%$;2X08.5A(VTN$$#4Y@(!;<,N
M,B\JF^VA[R*=+=#F`@%M\Z*2T!IM+A!@M1(#M2_2V0)M+A#0%C<J9ZO1Y@(!
M5LFBDM`:*S%0_2*'^S&3`@,`````('$$9ZLQDP("`````"5E`^ZMT;8;O?LQ
MDP("`````````06O,9,"`0``````D`1GJ]&V&S,ID)D``````'7@WAIMNS&3
M`@$``````(`#":W1Y@(!5L$TTN8"`41M+A#0UN8"`7EM+A!PUN8"`5<>-M+F
M`@%Y;2X0T#:3`@$```````8#[JTQDP*9"0``````!6>KT;8;,RD0````````
M6=#F`@%$9ZMQMAIGJW&X'VTN$'"6T!HL*A`!`$=R94-A;+XETKL?+"H0`0!*
M=6Q#86R^)3+L(D@N(*!TA)L<,RD0````````$."['OHNTMD"O?N!O1^'^T$K
M*BLQ4/LBG2V`O1^'^]'F`@%7R:*2T!HS*2`````````04/`:,RD0````````
M27"V&FV[,9,"`0``````4`?NK=&V&S,I$````````#B0T!HK,5#](FTN$'"5
M+"H)K3&3`@,`````('$$9ZLQDP("`````"5E`^ZMT;8;,RD@``````!0-G"V
M&KW[D=`:":W!H@(1`$`4EN=4U^9;(OXUXE\C.3:R$@,:!$"@-$4E1=#9`AXV
M8D@<P332Y@(!>1XVTN8"`7D(H]+D&]ZBXMX:;2X0D'<T*DV^@3`J[JUQMAIM
M+A"0-Y,"`0``````D`%-OC&3`@$``````)`![JTQDP(!``````!0`6>K,9,"
M`0````````--OM&['RG\D=`:,RD0````````-'"V&D>CTN0;,RD@``````!`
M$7"V&F>K<;@?,RD0````````,5#P&FV[0:<"+"H0`0!-87)C:"`L*A`!`$%P
M<FEL("LQT+L?WJ*2T!K&U]&['S,I$````````#'0Y!O)HG*V&FTN$)#WH1HS
M*1`````````0T.8"`7D?JK&P'+C)<;@?ZL/1`AL%KW&V&FTN$)"G,AONK;&P
M'&>K84@<+"KP`0!*=6QI86X@16%S=&5ROB7B7R,Y-K(2`W4"0'`T125%T-D"
M'C9B2!S!--+F`@%Y'C;2Y@(!>3,I$````````!G0Y!MM+A"0-Y,"`@``````
M``%-OM'F`@%Y,RD@````````$%#P&FV[<;@?A_N!,"I-ON$M*NZMT;L?"*-2
M\!IMN^'`'X?[<;@?7*-RMAHS*1`````````E4/`:;;N1T!K)HG*V&O.B4O`:
M;;O1NQ\._)'0&KW[D=`:"*.BR1\S*1`````````9X-X:9ZLQDP(!``````!0
M`6>K,9,"`0````````--ON'`'X?[@3`J!:_1MAO>HN+>&KW[@3`J3;[1NQ_S
MHJ+)'PFMT;L?":WAP!]GJS&3`@$``````"`#9ZMQ-"I-OG&X'S,I$```````
M`"+@WAKSHJ+)'S,I$````````!'@WAIGJX$P*K7\<;8:,RD@```````015#P
M&FV[<30J[JWAP!\._'&V&KW[D=`:,RD@``````!`$7"V&H?[,9,"`0``````
M$`,%K]&V&[W[,9,"`0``````$`--OI$L*F>K$4PC;2X0T-3F`@%$'C9"IP(L
M*A`!`$UA<F-H("PJ$`$`07!R:6P@*S'0Y@(!3=ZBDM`:QM?1Y@(!1&TN$)#W
MH1HS*1`````````0T.8"`7D?JK&P'+C)<;@?ZL/1`AL%KW&V&FTN$)"G,AON
MK;&P'&>K84@<;2X0T#3L(@BCXKL>^B[2V0)M+A!`-),"`0``````(`()K7&X
M'\,N0BLJ<NFA[R*=+8"]'RPJ$`$`07!R:6P@,RD0````````,+`2`[4OTMD"
M+"K0``!-87D@O?NQ$@/5+[(2`[4OTMD";2X00!0W*F>K<;@?PRXRDP(!````
M```0`UWLH>\BG2W`H@(/`*!4YU8&TKL?,RD0````````,9#0&BLQ4/LBG2W`
MH@(-`-`4E@?2NQ\K,5#](BLQ4/TB"\MQMAHL*O`!`$%S8V5N<VEO;B!$87F^
M)>)?(_XUDF,C*S&`7``%05-#04P%G2W@82,S*1`````````662T<,RD0````
M````&4DG'"PJT`(`(%1Y<&4@34].5$@@86YD(%E%05(L*G`!`#I-32!965E9
M.LHDLO<<P332Y@(!;6TN$)#G82/#+M+F`@%MM*(BEQYM+A#0-I,"`0``````
M,`&;[9&`'OHNTMD"+"J0`@!!<F4@>6]U(&%N($%L:65N(#\YH[$2`]4OTN8"
M`6W)HM+F`@%Y2"Y`H$04E)7"'_.B<K8:1Z-2\!JCNW$T*NZM02LJ5;V1+"IG
MJW&V&D>C4O`:M*)2U1M?XF$X*C,I$````````#D08AZTHC*3`@$``````$`"
M0>:!A1HL*O`"`$$@8V%L96YD87(@=C$N,"!B>2!+4\FB0E@:=RD`````````
M````````````<)<"```````````!```````0`G<I`````````#``````````
M`'"7`@`````````#`0``````$`)W*0````````"```````````!PEP(`````
M````"``````````#=RD`````````````````````<)<"`0``````,`$`````
M`````'<I`````````(```````````'"7`@`````````(``````````-W*1``
M```````3``````````!PEP(!```````P`0`````````#R:(B,RJ@,=+F`@%J
MF./!)"/)HG(T*J`QTN8"`6HS*1`````````XT.8"`6KSHN+>&F;>02LJ;2X0
MH#8O*NZM8>8=F.,QDP(!```````P!&TN$*#6,2KNK9'0&O.B8N8=,RD0````
M````0]#F`@%J':/BWAH)K3&3`@$``````!`"9MZ!.1Y,,F)#'D`+DBPJ1Z,"
M&B-M+A"@-I,"````````$)%M+A"@UC$J[JUQMAHS*1```````#`@8.8=2"Y`
M0!34]-3F`@%JR:)RMAK&UY$L*JWE844>3#+2NQ^'^S'L(K2B(I<>^BXRDP(!
M```````@!;4O<K@?U2^2+"JMY>'`'W<ID)D``````%`0````````%^#`'U;D
M<9<"``````````<!```````U`D@N(*!TA.0"!$1!34]M+A#0QC4J9ZMA?!UM
M+A"0M[`<9ZMQMAK)HM):'E;DT;L?R:)RMAJ'^W&X'X?[<;@?,J-2RQ^THH(P
M*J`QTN8"`6HS*9"9``````!0,),"`0``````0`%M+A"@-B\J[JV1T!IFWN'`
M'VTN$*!VMAK)HM):'E;DP20C,RD0````````0EDM'+W[<;@?R:)RMAI'HU+P
M&J.[<30J[JU!*RI5O4%E(T@N$#"69R/-#)(L*E0V@N0"`7=Y-M+,(,FBTN8"
M`6UGJY$L*FTN$)"'Y`($2D1!6=C[T;L?":TQ[")M+A"0-Y,"`P`````0F0'\
M[-'F`@%Y,RDP``````"9(+#9'@GHH>\BG2V0+"J]^\&B`B\`$,06)M<&0E9&
M5S9&!T*6-A<FQE9&EBPJA*6Q$@.U+]+9`H?[T>8"`7DS*6`````````04/`:
MA_LQDP*8"0```````6>KT>8"`6UGJ]&['P[\,9,"`@````````$%KW&V&FTN
M$-!VMAHS*1``````65DCX"TJ@\>!E!F]^X&4&0FM<;@?PRY"*RIRZ:'O(ITM
M@+T?O?MQEP(!``````"0`0`````````"+"J0``!.;RLQ4/LBG2W@P!]W*1``
M```````9`````````"#@P!\?JK&P'"LQ4/TB+"HP`0`@86QA<FUS9ZN1+"JM
MY6%%'LFBXL`?*S%0_2*@,=+F`@%JPRZ"Y`(!8[2BTJD>2"X0,'8T*IWJ,7@>
M^B[2V0)(+A`PUC$J[JTQDP(````````P`0FM,9,"`0````````)(+A!P-R\J
M[JV1T!IFWM'F`@%JR:+26AY6Y('D`@%CR:)RMAI4-H+D`@%C>3;2S"`K,5#[
M(ITM,),"`0``````-P,S*1`````````@@.0"`7?SHN+>&@FM8>8=;2X0H)8L
M*JWE844>R:)"92-(+A`PEF<CS0R"Y`(!=\FB<K8:5#:"Y`(!=WDVTLP@*S%0
M_2),,F)#'LT,0J<"*S$`+QYT*H#D`@%W2"X0,(;D`@104$%2*S'@[R#^-9)C
M(RLQ,,D`!E-405)4+@:=+>!A(T@N0.#T9!5$IP)T*L"B`@\`,%5$5075V0(>
M-K+.'T@N4#!51%4%E6,C*S&P$@-T*L"B`@\`H%3%E!34V0(>-K+.'U0V@N0"
M`D1.>3;B[R`L*K`"`$IU;&EA;B!$87DN9G)A8W1I;VXL*A`!`#I*1$%9.LHD
MLO<<A_MQN!]4-H+D`@)*1'DVTLP@H[LQDP(!``````!``NZM,9,"`0``````
M(`%GJX'D`@)46F>K@>0"`D1,9ZN!Y`(#1C(T5#:"Y`("3%1Y-M+,($@N(,!$
MA>0"`E1:":V!Y`("1$P)K3&3`@$``````$`"!:^1T!I4-H+D`@-*1#!Y-M+,
M($@N0#"$5$6%Y`(#2D0P2"Y`,!1$%$1E(T@N($!$E6<CS0R"Y`($3D]603DV
MLA(#*S%`IP(L*O```$Q4+E-4G2W@82/K_('D`@-*1#!(+D!P=%5%A>0"`DQ4
M2"X@0*65T!I(+B!`Q)30&C,I```U"7ES`A#@WAIGJX'D`@-&,C2'^^'Q&RPJ
MT```1TU35+XETKL?2"X@8-DTDP(!``````!0`06O<;8:2"XP8"1#<[@?2"X@
ML%F*Y`(!DP6UX=X:,RD0````````%5#P&F>KX?$;+"JP``!!4U2^)=*['QZ_
MP:(""P#0-$7E6R(Y-K(2`RLQ0*<"+"KP``!35"Y,5)TMX&$CZ_R!Y`(#2D0P
M2"Y`<'15187D`@),5$@N(	-),"`0``````4`$%KY'0&D@N,&`D0W.X'QZ_
MP:("#0!PU#1%Y5LBO?OAP!\)K8'D`@-&,C0S*0`!,&-6:7*9X-X:'K^!Y`("
M5%IGJX'D`@)$3&>K@>0"`T8R-"PJD```3%2^)9)C(RLQL!(#="K`H@(+`#!5
MY=39`AXVLLX?2"XPH$0$,Y,"F0D```````5GJX'D`@1%3T945#:"Y`("151Y
M-M+,($@N0-"4-#6$Y`("EE.THH+D`@1#3TY65#:"Y`(!DGDVTLP@5#:"Y`(!
MC'DVTLP@2"Y`$!0D-87D`@131%)6="J`Y`("4T5(+B`@E83D`@&,2"X0((GD
M`@*64T@N$""'Y`("FY-(+A#0B>0"`D<T2"X@<#2#Y`("1S)(+B!P-(7D`@),
M4T@N(,"4@^0"`51(+B`P187D`@%T2"X0,(3D`@)%5$@N$!"$Y`(!84@N($#D
FA.0"!%!005(K,>#O($@N0.#T9!648R,K,;`2`RLQT!4A.3:R$@.R
`
end
sum -r/size 8756/14646 section (from "begin" to "end")
sum -r/size 55472/10613 entire input file
END_UU