From: sinenmaa@cc.helsinki.fi (K. Sinenmaa)
Newsgroups: comp.sources.hp48
Subject: v03i032:  nasir_ks - nasir v1.1, Part01/01
Date: 16 Feb 92 21:28:09 GMT
Followup-To: comp.sys.hp48
Organization: University of Helsinki

Checksum: 1147924384 (verify with brik -cv)
Submitted-by: K. Sinenmaa <sinenmaa@cc.helsinki.fi>
Posting-number: Volume 3, Issue 32
Archive-name: nasir_ks/part01

BEGIN_RDME nasir.rdm
Hi,

I posted this program because there was so empty in this news group.
I changed this program to handle the same sub-programs as the TYKO v2.2
does. So I will try to post it also to this news group as soon as
possible -- maybe  later in the spring.
And if someone wants I can also join this program to the TYKO v2.2.
It requires only 670 bytes more memory than the pure TYKO.
Some features of TYKO;
      DATA output the same as TYKO v2.1
      Calendar selection, either Gregorian or Julian
      Date limitation is off
      The time zones of the north America
      Day light saving time
      Drawing the selected objects in the heliocentric coordinates
      with the Earth and also the Moon is drawing

Happy  graphing
kati
END_RDME



BEGIN_DOC nasir.doc

             &&&    &&         &&&          &&&&     &&   &&&&&
             && &   &&        && &&        &&  &&    &&   &&  &&
             && &&  &&       &&   &&        &&       &&   &&   &&
             &&  && &&      &&     &&        &&      &&   &&&&&
             &&   & &&     &&&&&&&&&&&        &&     &&   && &&
             &&    &&&    &&         &&    &&  &&    &&   &&  &&
             &&     &&   &&           &&    &&&&     &&   &&   &&
             *****************************************************

                           v1.1  1992  k. sinenmaa
                               February 1th 1992


    INTRODUCTION

       This program does the time changes both in the JULIAN Calendar
       and the GREGORIAN Calendar dates. The date have to be  later than
       March 1st 4712 BC. The Calendar must be selected before calculations
       from the SETUP menus.
       Also the Sun's data is available contains the equatorial and hori-
       zon coordinates, rising and setting times and its geocentric distance.

    EXECUTABLE FILES

       SETUP    put user's coordinates and times
       NASIR    main program
       JDAY     a fast way to get a julian day number
       CADA     a fast way to convert JDAY to calendar date
       NOVA     shows the previous settings ( or current if ESC pressed )

    POPUP picture <nova>. Note, this is NOT valid before pressing
                             the ESC key from the SETUP menu
     48SX
     ***************************
     * NASIR v1.1  1992 by ks  *
     * Calendar = GREGORIAN    *
     * DLST = OFF              *
     * Time Zone = User's      *
     * [[ 5 2 1992 ]           * [[ day  month  year ]
     *  [ 60 2 25 ]            *  [ latitude  zone  longitude ]
     *  [ 0 19.45 17.45 ]      *  [ DLST  time   time at zero longitude = UT ]
     ***************************

    SETUP: two pages

       DATE   form is DD MM YYYY, the preceding zeros are not essential
       TIME   must be entered in the 24-hour system
       LATIT  latitude is between -90 and +90 degrees, must be as decimals
       LONG   longitude range is 0 to 180, westerns are negatives, as decimals
       ZONE   gives to you a new temporary menu, below
       ESC    store the new values to the variables, must be done

       DL.ON  Day Ligth Saving Time ON  not automatic, user's take care of it
       DLOFF  Day Ligth Saving Time OFF
       JUL.C  the calendar selection, JULIAN is ON
       GRE.C  the calendar selection, GREGORIAN is ON

    SETUP >> ZONE: two pages, contains the time zones of the North America

       USER  an user can put his or her own time zones, westerns are negatives
       EST   Eastern Standard Time, zone= -5 , longitude about -75  degrees
       CST   Central                      -6                   -90
       MST   Mountain                     -7                   -105
       PST   Pasific                      -8                   -120
       BACK  back to the first temporary menu

       AST   Alaska                       -9                   -135
       HST   Havaii                       -10                  -140

            NOTE; if you change these variables you must also change the
                  LONG (longitude) variable. Press ESC when ready to leave
                  the SETUP menus

    NASIR; main program                        SETUP >> JUL.C or GRE.C

       JDAY  calendar date to Julian Day number: DATE TIME
       CONV  Julian Day number to calendar date: none, 1 number from the STACK
       CT.ST Civil Time to Sidereal Time       : DATE TIME LONG ZONE DLST
       ST.CT Sidereal Time to Civil Time       : DATE TIME LONG ZONE DLST
       CLEAR clears the stack                  : none
       SUN   calculates the SUN's position     : DATE TIME LATIT LONG ZONE DLST

       JDAY and CADA can be run also as the independent programs, take their
       variables from the stack.
       JDAY >> three values, DD MM YYYY. result is Julian Day number
       CADA >> one value, result is a string contains calendar date

    APPREVIATIONS of the main program

       GreCal:     Julian day number counted in the Gregorian calendar
       JulCal:                                      Julian calendar
       Jday: Julian day number and its fraction part, correspond to the UT
       " GREGORIAN" or " JULIAN"                          current calendar
       UT:         Julian day number's fractional part converted to the UT
       GW 0UT:     mean sidereal time at 0 UT at the longitude of GreenWich
       GWmST:      mean sidereal time at the defined time in GreenWich
       LMST:       local mean sidereal time at the defined time and longitude
       CT:         mean sidereal time converted to the civil time

         NOTE: if the GWmST = 0 then the CT: shows the Greenwich transit
               of the mean equinox.

    SUN's results

       greek letter Alfa= Right Ascension* = R.A.  hh.mmss      equatorial
                   Delta= Declination*             dd.mmss      coordinates
                     Azi= Azimuth   dd.mmss    horizon
                     Alt= Altitude  dd.mmss    coordinates
                    Rise= rising time
                     Set= setting time
                       R= geocentric distance
                      LT= civil time

            * apparent R.A. and apparent declination

       The reference point of the right ascension is the direction of
       the vernal equinoxes ( the first point of Aries ). This occurs when
       the Sun is in this direction ( about March 21st ). R.A. gets all
       values counterclockwise from zero to 360 degrees but usually the
       degrees are converted to the 24-hour system as this program does.
       The reference plane of the declination is the Earth's orbit plane.
       This number can get values (in the case of Sun) about -23 to 23

       This program counts the Azimuth  to the clockwise from the South
       on the northern hemisphere and from the North on the Southern hemis-
       phere and it gets all values between 0 and 360 degrees. E.g. if
       Azi= 90 deg. then the Sun is about in the West (if LATIT is positive).
       Altitude can have the values from -89.59... to 89.59... degrees
       where the zero plane is an observer's horizon plane.

       Distance unit is in the AU (=Astromical Unit = 1.49597870E11 meters ).

       The accuracy of the R.A. and Declination is few secons within
       about two decade from the present -- to the past and future.
       To the others the precision is not as good as this.


    REFERENCES

           Quarterly Journal of Royal Astronomical Society, 25(1),54(1984)
           The Astronomical Almanac 1991
           Practical Astronomy with Your Calculator, 3rd edition
           The Astrophysical Journal Supplement Series, 41:391-411,1979 Nov.

END_DOC



BEGIN_RPL nasir.rpl
%%HP: T(3)A(D)F(.);
DIR
  NASIR
\<< { { "JDAY"
  \<< DY M Y JDAY DUP
5 - LT 24 / +
"Jday" \->TAG
  \>> } { "CONV"
  \<< JG SWAP DUP FP
DUP
    IF .5 <
    THEN SWAP
    ELSE SWAP .5 +
    END SWAP 24 *
12 + F24 \->HMS "UT"
\->TAG SWAP CADA
  \>> } { "CT.ST"
  \<< DY M Y JDAY .5
- JUJU LT TZ - DL -
1.00273790935 * +
F24 DUP \->HMS
"GWmST" \->TAG SWAP
\GlM 15 / + F24 \->HMS
"LMST" \->TAG
  \>> } { "ST.CT"
  \<< DY M Y JDAY .5
- JUJU LT \GlM 15 / -
F24 DUP \->HMS
"GWmST" \->TAG SWAP
ROT - F24
99726956633 * \->HMS
"CT" \->TAG
  \>> } { "CLEAR"
  \<< CLEAR
  \>> } { "SUN"
  \<< MISC
NALT 5 FIX "\Ga= " \Ga
15 / \->HMS \->STR +
" " DT + + "
\Gd= " \Gd
\->HMS \->STR + +
"
Azi= " A \->HMS
\->STR + + "
Alt= " a
\->HMS \->STR + +
"
Rise= " RI \->STR +
+ "
Set= " SE \->STR
+ + "
R= " r \->STR +
+ " LT=" LT \->STR +
+ CLLCD 1 DISP 3
FREEZE STD { RI SE
A a \Gd \Ga \GlS r \Ge LM \GW
LS GS G2 G4 G5 T UT
ST t C DT JD }
PURGE
  \>> } } TMENU NOVA
\>>
JDAY
\<< STD \-> DY M Y
  \<<
    IF M 3 \>=
    THEN M 3 - Y
    ELSE M 9 + Y 1
-
    END DUP 4712 +
365.25 * IP ROT
30.6 * .5 + IP 59
DY + + + DUP ROT
100 / 49 + IP .75 *
IP 38 - - "GreCal"
\->TAG SWAP "JulCal"
\->TAG
    IF JG SIZE 7 ==
    THEN SWAP DROP
    ELSE DROP
    END
  \>>
\>>
CADA
\<< STD IP \-> J
  \<< J 1 + 7 / FP 7
* 0 RND 1 + {
"Sun " "Mon "
"Tue " "Wed "
"Thu " "Fri "
"Sat " } SWAP GET
    IF JG SIZE 10
==
    THEN J 4479.5 -
36524.25 / IP .75 *
5 + IP 37 - J +
    ELSE J
    END DUP 59.25 -
DUP 365.25 / IP
365.25 * - IP DUP
5 + DUP 30.6 / IP
30.6 * - IP 1 +
SWAP .5 + 30.6 / IP
2 + DUP 12 / IP 12
* - 1 + ROT 365.25
/ IP 4712 - DUP DUP
ABS 10 SWAP \->STR
SIZE DUP 2 + ROT
ROT ^ DUP 6 ROLL *
5 ROLL ABS + SWAP
100 * / 4 ROLL +
ROT
    IF 0 <
    THEN NEG
    END SWAP FIX
\->STR + STD
  \>>
\>>
SETUP
\<< -42 SF { { "DATE"
  \<<
"DATE-form DD MM YYYY"
":DATE:" INPUT OBJ\->
LIST { 1 3 } ROT
PUT { 1 2 } ROT PUT
{ 1 1 } ROT PUT
'LIST' STO NOVA
  \>> } { "TIME"
  \<<
"TIME-format HH.MMSS"
":TIME:" INPUT OBJ\->
LIST { 3 2 } ROT
PUT 'LIST' STO NOVA
  \>> } { "LATIT"
  \<<
"Latitude in decimals"
"
-90  < \O/ <  90
"
+ ":\O/:" INPUT OBJ\->
LIST { 2 1 } ROT
PUT 'LIST' STO NOVA
  \>> } { "LONG"
  \<<
"Longitude in decimals"
"
West=neg
" +
":\Gl:" INPUT OBJ\->
LIST { 2 3 } ROT
PUT 'LIST' STO NOVA
  \>> } { "ZONE"
  \<< { { "USER"
    \<<
"Integer  -12  to  12"
"
West=neg
" +
":Time Zone:" INPUT
OBJ\-> LIST { 2 2 }
ROT PUT 'LIST' STO
" User's" 'DZ' STO
NOVA
    \>> } { "EST"
    \<< LIST { 2 2 }
-5 PUT 'LIST' STO
" EST" 'DZ' STO
NOVA
    \>> } { "CST"
    \<< LIST { 2 2 }
-6 PUT 'LIST' STO
" CST" 'DZ' STO
NOVA
    \>> } { "MST"
    \<< LIST { 2 2 }
-7 PUT 'LIST' STO
" MST" 'DZ' STO
NOVA
    \>> } { "PST"
    \<< LIST { 2 2 }
-8 PUT 'LIST' STO
" PST" 'DZ' STO
NOVA
    \>> } { "BACK"
    \<< 0 MENU NOVA
    \>> } { "AST"
    \<< LIST { 2 2 }
-9 PUT 'LIST' STO
" AST" 'DZ' STO
NOVA
    \>> } { "HST"
    \<< LIST { 2 2 }
-10 PUT 'LIST' STO
" HST" 'DZ' STO
NOVA
    \>> } } TMENU
NOVA
  \>> } { "ESC"
  \<< { LT DL \GlM TZ \O/
Y M DY } \-> i
    \<< LIST OBJ\->
DROP2 HMS\-> 1 8
      FOR j i j GET
STO LIST { 3 3 } LT
\->HMS TZ - DL - F24
PUT 'LIST' STO
      NEXT
    \>> 2 MENU
  \>> } { "DL.ON"
  \<< " ON" 'DLST'
STO LIST { 3 1 } 1
PUT 'LIST' STO NOVA
  \>> } { "DLOFF"
  \<< " OFF" 'DLST'
STO LIST { 3 1 } 0
PUT 'LIST' STO NOVA
  \>> } { "JUL.C"
  \<< " JULIAN" 'JG'
STO NOVA
  \>> } { "GRE.C"
  \<< " GREGORIAN"
'JG' STO NOVA
  \>> } } TMENU NOVA
\>>
NOVA
\<< STD
"NASIR v1.1  1992 by KS"
"
Calendar =" JG +
+ "
DLST =" DLST +
+ "
Time Zone =" DZ
+ + "
" + LIST \->STR
+ CLLCD 1 DISP 3
FREEZE
\>>
MISC
\<< CLLCD "WAIT ..."
1 DISP DY M Y JDAY
5 - DUP LT TZ - DL
- F24 24 / + 'JD'
STO 1.5 + 7 / FP 7
* 0 RND 1 + {
"Sun " "Mon "
"Tue " "Wed "
"Thu " "Fri "
"Sat " } SWAP GET Y
ABS \->STR SIZE DUP 2
+ 10 ROT ^ DUP M *
Y ABS + SWAP 100 *
/ DY +
  IF Y 0 <
  THEN NEG
  END SWAP FIX \->STR
+ 'DT' STO STD JD
2451545 - DUP 'C'
STO 36525 / 't' STO
JD JUJU LT TZ - DL
- 1.00273790935 * +
\GlM 15 / + F24 'ST'
STO HMS\-> 'UT' STO t
1 + 'T' STO .606434
03660110129 C * +
347343
00014709391 C * -
779072
00273790931 C * +
993126 .0027377785
C * + .140023
00445036173 C * +
053856
00145561327 C * +
056531
00023080893 C * +
{ G5 G4 G2 GS LS \GW
LM } DEG \-> i
  \<< 1 7
    FOR j FP 360 *
i j GET STO
    NEXT 84428 47 T
* - 9 \GW COS * +
3600 / '\Ge' STO CASU
OBJ\-> DROP EVAL SWAP
EVAL ROT EVAL \-> W U
V
    \<< W U V 2 ^ - \v/
/ ASIN LS + F36 '\Ga'
STO V U \v/ / ASIN
'\Gd' STO 1.000215 U
\v/ * 'r' STO -16 CF
\Gd COS \Ga COS * \Gd
SIN \Ge SIN * \Gd COS
\Ge COS \Ga SIN * * +
\->V2 -16 SF V\-> F36
'\GlS' STO DROP
    \>>
  \>>
\>>
CASU
{ '.39785*SIN(LS)-
01*SIN(LS-GS)+
00333*SIN(LS+GS)-
00021*T*SIN(LS)+
00004*SIN(LS+2*GS)
-.00004*COS(LS)-
00004*SIN(\GW-LS)+
00003*T*SIN(LS-GS)
' '1-.03349*COS(GS)
-.00014*COS(2*GS)+
00008*T*COS(GS)-
00003*SIN(GS-G5)' 
'-.04129*SIN(2*LS)+
03211*SIN(GS)+
00104*SIN(2*LS-GS)
-.00035*SIN(2*LS+GS
)-.0001-.00008*T*
SIN(GS)-.00008*SIN(
\GW)+.00007*SIN(2*GS)
+.00005*T*SIN(2*LS)
+.00003*SIN(LM-LS)-
00002*COS(GS-G5)+
00002*SIN(4*GS-8*
G4+3*G5)-.00002*SIN
(GS-G2)-.00002*COS(
2*GS-2*G2)' }
DLST
" OFF"
F36
\<< DUP 360 / IP 360
* -
  IF DUP 0 <
  THEN 360 +
  END
\>>
F24
\<< DUP 24 / IP 24 *
-
  IF DUP 0 <
  THEN 24 +
  END
\>>
JUJU
\<< 2451545 - 36525 /
DUP DUP 3 ^
-.0000062 * .093104
ROT 2 ^ * +
8640184.81287 ROT *
+ 24110.54841 +
3600 / F24 DUP \->HMS
"GW 0UT" \->TAG SWAP
\>>
LIST
[[ 15 12 1990 ]
 [ 60 0 0 ]
 [ 0 0 0 ]]
NALT
\<< -16 CF ST 15 * \Ga
- \-> h
  \<< h COS \Gd COS \O/
COS * * \Gd SIN \O/ SIN
* + ASIN 'a' STO h
COS \Gd COS \O/ SIN * *
\Gd SIN \O/ COS * - h
SIN \Gd COS * \->V2 -16
SF V\-> F36 'A' STO
DROP \Gd TAN \O/ TAN *
DUP
    IF ABS 1 >
    THEN DROP
      IF a 0 >
      THEN
"Continuous"
      ELSE "    No"
      END
"phenomenon"
    ELSE NEG ACOS \Ga
OVER - 15 / UT -
SWAP \Ga + 15 / UT -
\Gd ABS
      IF \O/ 0 >
      THEN \O/ + 9.4
/ SIN DUP ROT + ROT
ROT -
      ELSE \O/ NEG +
9.3 / SIN DUP ROT +
ROT ROT -
      END TZ 15 *
\GlM - 15 / DUP ROT +
DL + F24 \->HMS SWAP
ROT + DL + F24 \->HMS
    END 'SE' STO
'RI' STO -16 CF
  \>>
\>>
JG
" GREGORIAN"
DY
31
M
2
Y
1992
\O/
60
TZ
2
\GlM
25
DL
0
LT
23.59
DZ
" User's"
END_RPL

BEGIN_ASC nasir.asc
%%HP: T(3)A(D)F(.);
"69A20FF74EF20000002044A520C2A2031000025537562772370200020C445203
39201000000000095320D10002044C420339200000000000000000D10002069D
420339201000000000000520D10002045A520339200000000000000020D10001
08D10339201000000000000060B1000109510339203000000000029910B10001
0D410339200000000000000020B100020449520339201000000000000130D100
020A47420C2A20910000274255474F4259414E46200040E414C44540D9D20E16
323392010000000000006195D2C184E20203545339201000000000000510EEDA
184E2010C890DA11C432D6E201086E1632D6E201086505B184E201029505B184
E20108D505B1EEDA1EEDA184E201029CA4B184E20108DCA4B1EEDA176BA14A6B
14563284E20101697632DCC02D6E201086505B184E201029505B184E20108DCA
4B1EEDA1EEDA184E201029CA4B184E20108D505B1EEDA190DA1D6E201086CA4B
184E201029505B1EEDA166ED1339201000000000000619472C160DD184E20306
433634563284E20101497632DCC028DBF184E201029E55B184E20108DE55B1EE
DA178BF13CE22F1AA19C2A2D5CE1AFE22D9D208DBF13CE2284E2010164B2A2D5
CE1AFE22C2A209100034F6E64796E657F657375BF22C2A201100002020202E4F
65DF22C2A2091000078656E6F6D656E6F6E6B21305BF22D9D20599A1F27B184E
2010C892CF190DA133920100000000000051050FA184E2020554590DA1DBBF18
4E2010C876BA133920100000000000051050FA184E2020554590DA184E201029
F1AA13CE2284E20108D4B2A2D5CE1AFE22D9D2084E20108D76BA133920000000
000000049050FA1CA4B178BF1E0CF176BA1E0CF1E0CF190DA1B21305BF22D9D2
084E20108D599A176BA133920000000000000039050FA1CA4B178BF1E0CF176B
A1E0CF1E0CF190DA1B21305DF2284E202045A5339201000000000000510EEDA1
84E202069D490DA133920100000000000051050FA178BF1E0CF176BA184E2020
44C476BA184E2030642343E1FB1DBBF1E0CF176BA184E202044C476BA184E203
0642343E1FB1B21305DF224563284E2020355497632DCC024563284E20202594
97632DCC023392010000000000006195D2C1EF53293632B21307050040C49435
45408E9209A00033920200003000030000100000000000051010000000000002
1030000000000099101000000000000060000000000000000000000000000000
00000000000000000000000000000000000000000000000000AB00040A455A45
540D9D20E163233920600000005451542090DA133920400000000052563050FA
178BF178BF13F2A2D20B1339204990000000000269EEDA133920899000000040
1390E0CF1ED2A2D20B1EEDA176BA1339206007821848104680E0CF1EEDA176BA
133920400001484501142076BA133920300000000000063050FA184E20306423
4378BF1E1FB1C2A2011000747502035545EB522DBBF193632B2130F310030642
34330D9D20E163278BF133920100000000000042050FA1D6BB13392010000000
00000420EEDA190DA13CE2278BF14B2A2EBBE1AFE22D9D203392010000000000
0042076BA1B21305DF2293632B21303A0003064336330D9D20E163278BF13392
0200000000000063050FA1D6BB1339202000000000000630EEDA190DA13CE227
8BF14B2A2EBBE1AFE22D9D2033920200000000000063076BA1B21305DF229363
2B21303A0004044C4354540C2A20D000002F46464E100040341435554047A208
BA2033920999000000058793084E2020C435CA4B1EEDA19C2A284E2020C43584
E2020743590DA1CA4B1EEDA190DA133920200000000000333084E2020C43584E
2020743576BA1CA4B1EEDA176BA133920100000000000012084E201045EEDA18
4E2020C435CA4B1EEDA190DA1803A284E2020C435ED2A284E20207435EEDA176
BA1CA4B1EEDA176BA133920599000000000004084E2020C435505B1EEDA190DA
1803A284E2010D984E2020C43590DA1CA4B1EEDA190DA13F2A284E201045EEDA
184E2020C43584E2020743590DA1CA4B1EEDA176BA1B21308BA209C2A2339208
99000000009433084E20207435505B1EEDA190DA1339206990000000000410ED
2A284E20207435EEDA1505B1EEDA190DA1C53A284E201045EEDA184E20207435
505B1EEDA176BA13F2A284E2020743584E2020745390DA1CA4B1EEDA190DA1B2
1308BA20339208990000000092149ED2A284E2020C435EEDA1CA4B1EEDA13392
0300000000001123084E20207435CA4B1EEDA176BA1339202000000000004010
ED2A284E2020C435EEDA184E2020743590DA1CA4B1EEDA176BA1339206990000
000000530ED2A284E2020C435EEDA184E2020743576BA1CA4B1EEDA190DA1339
20699000000000001090DA133920599000000000008084E201045EEDA184E202
07435CA4B1EEDA190DA133920599000000000008084E2010D9CA4B1EEDA190DA
1339205990000000000070ED2A284E20207435EEDA1CA4B1EEDA176BA1339205
99000000000005084E201045EEDA1ED2A284E2020C435EEDA1CA4B1EEDA176BA
133920599000000000003084E2020C4D484E2020C43590DA1CA4B1EEDA176BA1
ED2A284E2020743584E2020745390DA1505B1EEDA190DA1ED2A2803A284E2020
7435EEDA1C53A284E20207443EEDA190DA13F2A284E20207453EEDA176BA1CA4
B1EEDA176BA133920599000000000002084E2020743584E2020742390DA1CA4B
1EEDA190DA1339205990000000000020ED2A284E20207435EEDA1ED2A284E202
07423EEDA190DA1505B1EEDA190DA1B2130B2130AF50040D494353440D9D20E1
632858A1C2A20510007514944502E2E2E29C2A2485A184E2020449584E2010D4
84E20109584E2040A4441495D13A290DA178BF184E2020C44584E202045A590D
A184E202044C490DA184E203064234333920100000000000042050FA176BA145
63284E2020A44497632DCC0233920000000000000051076BA1743A250FA13ABB
1743A2EEDA14B2A255DB19C2A276BA147A20C2A20D00003557E602C2A20D0000
D4F6E602C2A20D000045575602C2A20D000075564602C2A20D000045865702C2
A20D000064279602C2A20D000035164702B2130DBBF16C7D184E201095F1AA1B
0BC18B9C178BF1ED2A276BA1339201000000000000010E0CF1D20B178BF184E2
010D4EEDA184E201095F1AA176BA1DBBF1339202000000000000010EEDA150FA
184E2020449576BA13CE2284E2010954B2A2EBBE1AFE22599A15DF22DBBF1AE3
C1B0BC176BA14563284E2020444597632DCC02684C184E2020A4443392060000
0005451542090DA178BF14563284E20103497632DCC023392040000000005256
3050FA14563284E20104797632DCC0284E2020A44484E2040A455A45584E2020
C44584E202045A590DA184E202044C490DA1339200005390973720010EEDA176
BA184E202069D433920100000000000051050FA176BA184E2030642343456328
4E2020354597632DCC02E3FB14563284E2020554597632DCC0284E2010479C2A
276BA14563284E20104597632DCC023392099900000043460603392090000921
0110663084E201034EEDA176BA13392050000000034374303392070000001939
0741084E201034EEDA190DA13392050000000027097703392080000013909737
2084E201034EEDA176BA13392050000000062139903392079900005877737208
4E201034EEDA176BA133920999000000320041033920800000371630544084E2
01034EEDA176BA133920400000000065835033920800000723165541084E2010
34EEDA176BA133920400000000013565033920700000039808032084E201034E
EDA176BA147A2084E2020745384E2020744384E2020742384E2020743584E202
0C43584E2010D984E2020C4D4B2130993C11C432D6E201096E16329C2A2743A2
0A132D6E2010A63ABB1339202000000000000630EEDA1D6E201096D6E2010A66
C7D1DCC02C423233920400000000082448033920100000000000074084E20104
5EEDA190DA1173A284E2010D9505B1EEDA176BA133920300000000000063050F
A14563284E20103997632DCC0284E204034143555B7FC18DBF1EB3A1DBBF1EB3
A1E0CF1EB3A11C432D6E201075D6E201055D6E201065E1632D6E201075D6E201
055D6E201065ED2A2D20B190DA1473B150FA14A6B184E2020C43576BA184E203
06433634563284E2010C897632DCC02D6E201065D6E201055473B150FA14A6B1
4563284E20102997632DCC02339200000000051200010D6E201055473B1EEDA1
4563284E20102797632DCC023392010000000000006195D2C184E201029505B1
84E2010C8505B1EEDA184E201029CA4B184E201039CA4B1EEDA184E201029505
B184E201039505B184E2010C8CA4B1EEDA1EEDA176BA166ED133920100000000
0000619472C160DD184E20306433634563284E2020693597632DCC028DBF1EF5
32EF53293632B21304690040E4F4651440D9D20E1632684C1C2A2013000E4143
59425026713E21302021393932302269702B435C2A20B1000A03416C656E6461
62702D384E2020A47476BA176BA1C2A2031000A044C4354502D384E204044C43
54576BA176BA1C2A20D1000A04596D65602A5F6E65602D384E202044A576BA17
6BA1C2A2070000A076BA184E2040C4943545B0BC176BA1858A19C2A2485A13F2
A24A5A193632B2130B310050355445550550D9D20E1632339201000000000000
249472C147A2047A20C2A20D000044144554D9D20E1632C2A20D200044144554
D266F627D602444402D4D40295959595C2A2011000A344144554A3AC422B7FC1
84E2040C494354547A209C2A23F2A2B2130E0CF1704D147A209C2A2ED2A2B213
0E0CF1704D147A209C2A29C2A2B2130E0CF1704D14563284E2040C4943545976
32DCC0284E2040E4F4651493632B2130B213047A20C2A20D00004594D454D9D2
0E1632C2A20B20004594D454D266F627D61647028484E2D4D43535C2A2011000
A34594D454A3AC422B7FC184E2040C494354547A203F2A2ED2A2B2130E0CF170
4D14563284E2040C494354597632DCC0284E2040E4F4651493632B2130B21304
7A20C2A20F0000C414459445D9D20E1632C2A20D2000C4164796475746560296
E60246563696D616C637C2A2052000A0D293030202C3028D02C302029303A076
BA1C2A20B0000A38DA3AC422B7FC184E2040C494354547A20ED2A29C2A2B2130
E0CF1704D14563284E2040C494354597632DCC0284E2040E4F4651493632B213
0B213047A20C2A20D0000C4F4E474D9D20E1632C2A20F2000C4F6E6769647574
6560296E60246563696D616C637C2A2091000A075563747D3E65676A076BA1C2
A20B0000A369A3AC422B7FC184E2040C494354547A20ED2A23F2A2B2130E0CF1
704D14563284E2040C494354597632DCC0284E2040E4F4651493632B2130B213
047A20C2A20D0000A5F4E454D9D20E163247A2047A20C2A20D000055355425D9
D20E1632C2A20D200094E647567656270202D21323020247F602021323C2A209
1000A075563747D3E65676A076BA1C2A20B1000A34596D65602A5F6E656A3AC4
22B7FC184E2040C494354547A20ED2A2ED2A2B2130E0CF1704D14563284E2040
C494354597632DCC02C2A2031000025537562772374563284E202044A597632D
CC0284E2040E4F4651493632B2130B213047A20C2A20B0000543545D9D20E163
284E2040C494354547A20ED2A2ED2A2B2130AD3A2704D14563284E2040C49435
4597632DCC02C2A20D0000025435454563284E202044A597632DCC0284E2040E
4F4651493632B2130B213047A20C2A20B0000343545D9D20E163284E2040C494
354547A20ED2A2ED2A2B2130FE3A2704D14563284E2040C494354597632DCC02
C2A20D0000023435454563284E202044A597632DCC0284E2040E4F4651493632
B2130B213047A20C2A20B0000D43545D9D20E163284E2040C494354547A20ED2
A2ED2A2B2130404A2704D14563284E2040C494354597632DCC02C2A20D000002
D435454563284E202044A597632DCC0284E2040E4F4651493632B2130B213047
A20C2A20B0000053545D9D20E163284E2040C494354547A20ED2A2ED2A2B2130
914A2704D14563284E2040C494354597632DCC02C2A20D000002053545456328
4E202044A597632DCC0284E2040E4F4651493632B2130B213047A20C2A20D000
0241434B4D9D20E16324B2A26911284E2040E4F4651493632B2130B213047A20
C2A20B0000143545D9D20E163284E2040C494354547A20ED2A2ED2A2B2130E24
A2704D14563284E2040C494354597632DCC02C2A20D0000021435454563284E2
02044A597632DCC0284E2040E4F4651493632B2130B213047A20C2A20B000084
3545D9D20E163284E2040C494354547A20ED2A2ED2A2B2130339201000000000
000019704D14563284E2040C494354597632DCC02C2A20D00000284354545632
84E202044A597632DCC0284E2040E4F4651493632B2130B2130B2130D511284E
2040E4F4651493632B2130B213047A20C2A20B0000543534D9D20E163247A208
4E2020C44584E202044C484E202069D484E202045A584E20108D84E20109584E
2010D484E20204495B21301C432D6E201096E163284E2040C4943545B7FC13FB
F1E3FB19C2A2C53A20A132D6E2010A6D6E201096D6E2010A66C7D1DCC0284E20
40C494354547A203F2A23F2A2B213084E2020C445E1FB184E202045A590DA184
E202044C490DA184E2030642343704D14563284E2040C494354597632DCC02C4
232EF532ED2A26911293632B2130B213047A20C2A20F000044C4E2F4E4D9D20E
1632C2A20B000002F4E44563284E204044C4354597632DCC0284E2040C494354
547A203F2A29C2A2B21309C2A2704D14563284E2040C494354597632DCC0284E
2040E4F4651493632B2130B213047A20C2A20F000044C4F46464D9D20E1632C2
A20D000002F464644563284E204044C4354597632DCC0284E2040C494354547A
203F2A29C2A2B21304B2A2704D14563284E2040C494354597632DCC0284E2040
E4F4651493632B2130B213047A20C2A20F0000A455C4E234D9D20E1632C2A203
100002A455C49414E44563284E2020A47497632DCC0284E2040E4F4651493632
B2130B213047A20C2A20F0000742554E234D9D20E1632C2A2091000027425547
4F4259414E44563284E2020A47497632DCC0284E2040E4F4651493632B2130B2
130B2130D511284E2040E4F4651493632B213005E00403414441440D9D20E163
2684C1D6BB11C432D6E2010A4E1632D6E2010A49C2A276BA1743A250FA13ABB1
743A2EEDA14B2A255DB19C2A276BA147A20C2A20D00003557E602C2A20D0000D
4F6E602C2A20D000045575602C2A20D000075564602C2A20D000045865702C2A
20D000064279602C2A20D000035164702B2130DBBF16C7D13CE2284E2020A474
8B9C1339201000000000000010279E1AFE22D9D20D6E2010A433920300000000
059744090DA133920400000005242563050FA1D6BB1339209990000000000570
EEDA1D13A276BA1D6BB133920100000000000073090DA1D6E2010A476BA1B213
05BF22D6E2010A45DF2278BF133920100000000005295090DA178BF133920200
000000052563050FA1D6BB1339202000000000525630EEDA190DA1D6BB178BF1
D13A276BA178BF133920100000000000603050FA1D6BB1339201000000000006
030EEDA190DA1D6BB19C2A276BA1DBBF133920999000000000005076BA133920
100000000000603050FA1D6BB1ED2A276BA178BF133920100000000000021050
FA1D6BB1339201000000000000210EEDA190DA19C2A276BA1E0CF13392020000
0000052563050FA1D6BB133920300000000002174090DA178BF178BF1F1AA133
9201000000000000010DBBF1B0BC18B9C178BF1ED2A276BA1E0CF1E0CF1D20B1
78BF1233A25BCF1EEDA1D13A25BCF1F1AA176BA1DBBF13392020000000000000
10EEDA150FA1803A25BCF176BA1E0CF13CE224B2A2EBBE1AFE22599A15DF22DB
BF1AE3C1B0BC176BA1684C1EF53293632B2130B740040A444149540D9D20E163
2684C11C432D6E20204495D6E2010D4D6E201095E16323CE22D6E2010D43F2A2
B9DE1AFE22D9D20D6E2010D43F2A290DA1D6E201095B21305BF22D9D20D6E201
0D4173A276BA1D6E2010959C2A290DA1B21305DF2278BF133920300000000002
174076BA1339202000000000525630EEDA1D6BB1E0CF13392010000000000060
30EEDA133920999000000000005076BA1D6BB1339201000000000000950D6E20
20449576BA176BA176BA178BF1E0CF133920200000000000001050FA13392010
0000000000094076BA1D6BB1339209990000000000570EEDA1D6BB1339201000
00000000083090DA190DA1C2A20110007427563416C6EB522DBBF1C2A2011000
A457C63416C6EB5223CE2284E2020A4748B9C1743A2279E1AFE22D9D20DBBF18
DBF1B21305BF228DBF15DF22EF53293632B2130C720050E41435942550D9D20E
163247A2047A20C2A20D0000A4441495D9D20E163284E2020449584E2010D484
E20109584E2040A444149578BF1D13A290DA184E2020C4453392010000000000
0042050FA176BA1C2A20D0000A4461697EB52293632B2130B213047A20C2A20D
000034F4E465D9D20E163284E2020A474DBBF178BF13ABB178BF13CE22339209
990000000000050EBBE1AFE22DBBF15BF22D9D20DBBF13392099900000000000
5076BA1B21305DF22DBBF1339201000000000000420EEDA13392010000000000
0021076BA184E2030642343E1FB1C2A20900005545EB522DBBF184E204034144
41493632B2130B213047A20C2A20F00003445E23545D9D20E163284E20204495
84E2010D484E20109584E2040A444149533920999000000000005090DA184E20
40A455A45584E2020C44584E202045A590DA184E202044C490DA133920000539
0973720010EEDA176BA184E203064234378BF1E1FB1C2A20F00007475D63545E
B522DBBF184E202069D433920100000000000051050FA176BA184E2030642343
E1FB1C2A20D0000C4D43545EB52293632B2130B213047A20C2A20F00003545E2
3445D9D20E163284E2020449584E2010D484E20109584E2040A4441495339209
99000000000005090DA184E2040A455A45584E2020C44584E202069D43392010
0000000000051050FA190DA184E203064234378BF1E1FB1C2A20F00007475D63
545EB522DBBF1E0CF190DA184E2030642343339200100336659627990EEDA1E1
FB1C2A20900003445EB52293632B2130B213047A20C2A20F000034C4541425D9
D20E1632BECF193632B2130B213047A20C2A20B00003555E4D9D20E163284E20
40D494353484E2040E414C445D13A2AE3C1C2A20B0000C8D30284E2010C83392
0100000000000051050FA1E1FB1B0BC176BA1C2A20700000284E2020444576BA
176BA1C2A20D0000A029D30284E201029E1FB1B0BC176BA176BA1C2A2011000A
014A796D30284E201014E1FB1B0BC176BA176BA1C2A2011000A014C647D30284
E201016E1FB1B0BC176BA176BA1C2A2031000A025963756D30284E20202594B0
BC176BA176BA1C2A2011000A0355647D30284E20203554B0BC176BA176BA1C2A
20D0000A025D30284E201027B0BC176BA176BA1C2A20D000002C445D384E2020
C445B0BC176BA176BA1858A19C2A2485A13F2A24A5A1684C147A2084E2020259
484E2020355484E20101484E20101684E20102984E2010C884E2020693584E20
102784E20103984E2020C4D484E2010D984E2020C43584E2020743584E202074
2384E2020744384E2020745384E20104584E2020554584E2020354584E201047
84E20103484E2020444584E2020A444B2130EFE0293632B2130B2130B2130D51
1284E2040E4F4651493632B213028B7"
END_ASC

BYTES: #7B82h 7159

BEGIN_UU nasir.uue
begin 644 nasir
M2%!(4#0X+466*O!_Y"\````"1%H"+"HP`0`@57-E<B=S(``@P$0E,),"`0``!
M``"0-0(=`"!`Q"0PDP(``````````!T`(&#9)#"3`@$``````%`"'0`@0*4E;
M,),"``````````(=`!"`'3"3`@$````````&&P`0D!4PDP(#`````""9`1L`,
M$-`4,),"``````````(;`"!`E"4PDP(!```````0`QT`(*!T),"B`AD``'(DC
M573T))44Y&0"``1.04Q4!)TMX&$C,RD0````````%EDM'$@N(#!%-9,"`0``Q
M````4`'NK8'D`@&,":T13"-M+A"`YF$C;2X0@%90&T@N$"!94!M(+A"`75`;W
M[JWAWAI(+A`@R4H;2"X0@,U*&^ZM<;8:I+9!92-(+A`0EF<CS0S2Y@(!:`6U9
M@>0"`9(%M8'D`@'8K+3AWAKNK8'D`@&2K+2!Y`(!V`6UX=X:":W1Y@(!:*RTI
M@>0"`9(%M>'>&F;>,9,"`0``````8)%TPF'0'4@N,&`T8T-E(T@N$!"49R/-.
M#(*]'T@N$"#I51M(+A"`[54;[JUQN!_#+O*A&LFBTL4>^B[2V0+8^S'L(D@NV
M$!!&*RI=[*'O(BPJD`$`0V]N=&EN=6]U<[4OPJ("$0```@("XO16_2(L*I`!$
M`'!H96YO;65N;VXK,5#[(ITM4)D:+[>!Y`(!C"G\D=`:,RD0````````%5#P$
M&D@N(%!%E=`:O?N!Y`(!C&>K,9,"`0``````4`$%KX'D`@)55`FM@>0"`9(?\
MJC'L(D@N$(!-*RI=[*'O(ITM@.0"`=AGJS&3`@```````$`)!:_!2AN'^^'`Q
M'V>KX<`?#OR1T!HK,5#[(ITM@.0"`=B5J7&V&C,I`````````)-0\!JLM'&X!
M'P[\<;8:#OSAP!\)K;$2`]4O@N0"`E1:,RD0````````%>#>&D@N(&#9E-`:#
M,RD0````````%5#P&H?[X<`?9ZN!Y`("1$QGJX'D`@-&,C0>O]&['P[\<;8:-
M2"X@0,1TMAI(+C!@)$/C\1LK,5#](E0V@N0"`E-%>3;2S"!4-H+D`@)227DVS
MTLP@,RD0````````%EDM'/XUDF,C*S%P4``$3$E35`3H*9`*`#,I(````P`P/
M```!``````!0`0$``````"`!`P``````F0$!````````!@``````````````U
M``````````````````````````````````````"Z`$"@5*541=#9`AXV,I,"&
M!@```$4510()K3&3`@0`````)64#!:]QN!^'^S$O*BVP,9,"E`D`````();N&
MK3&3`I@)````!#$)#OSA+2HML.'>&F>K,9,"!G`H@80!9`@._.'>&F>K,9,"S
M!``0A%0000)GJS&3`@,``````&`#!:^!Y`(#1C(TA_OA\1LL*A`!`$=7(#!5Z
M5+XETKL?.3:R$@,_`3!@)$,ST-D"'C9RN!\S*1`````````D4/`:;;LQDP(!I
M``````!``NZMD=`:PRYRN!^THN*['OHNTMD",RD0````````)'"V&BLQ4/TB%
M.3:R$@.C`#!@-&,ST-D"'C9RN!\S*2`````````V4/`:;;LQDP("``````!@3
M`^ZMD=`:PRYRN!^THN*['OHNTMD",RD@````````-G"V&BLQ4/TB.3:R$@.C*
M`$!`Q#1%1<"B`@T``/)D9.0!``1#05-5!'0J@*L",RF0F0```%!X.8#D`@),'
M4ZRTX=X:R:*"Y`("3%-(+B!P-)70&JRTX=X:":TQDP("```````S`T@N(,`T7
MA>0"`D=39ZO!2AONK7&V&C,I$````````"&`Y`(!5.ZM@>0"`DQ3K+3AWAH)7
MK8$P*D@N(,`TY2TJ2"X@<#3EWAIGJ\%*&^ZM<;8:,RE0F0``````0(#D`@),U
M4P6UX=X:":V!,"I(+A#0B>0"`DQ3":W!2AONK9'0&O.B@N0"`53NK8'D`@),^
M4T@N('`TE=`:K+3AWAIGJ[$2`[@JD"PJ,RF`F0````!),X#D`@)'4P6UX=X:\
M":TQDP*6"0````!``=ZB@N0"`D=3[JU14!ONK9'0&ERC@N0"`53NK8'D`@)'!
M4P6UX=X:9ZLQ+RI(+B!P-(7D`@)'-0FMP4H;[JV1T!HK,8"K`C,I@)D`````3
M*4'I+2I(+B#`-.7>&JRTX=X:,RDP```````1,H#D`@)'4ZRTX=X:9ZLQDP("P
M```````$`=ZB@N0"`DQ3[JV!Y`("1U,)K<%*&^ZM<;8:,RE@F0``````->`MZ
M*D@N(,`TY=X:2"X@<#1UMAJLM.'>&@FM,9,"E@D```````$)K3&3`I4)`````
M```(2"X00.7>&D@N('`TQ4H;[JV1T!HS*5"9``````"`@.0"`9VLM.'>&@FM&
M,9,"E0D```````?>HH+D`@)'4^ZMP4H;[JUQMAHS*5"9``````!0@.0"`53N-
MK>$M*D@N(,`TY=X:K+3AWAIGJS&3`I4)```````#2"X@P-2$Y`("3%,)K<%*\
M&^ZM<;8:WJ*"Y`("1U-(+B!P5)/0&@6UX=X:":WA+2H(HX+D`@)'4^ZMP34J,
M2"X@<$3CWAH)K3$O*D@N('!4X]X:9ZO!2AONK7&V&C,I4)D``````""`Y`(":
M1U-(+B!P))/0&JRTX=X:":TQDP*5"0```````MZB@N0"`D=3[JWA+2I(+B!P3
M)./>&@FM45`;[JV1T!HK,;`2`_H%0-"4-#5$T-D"'C:"A1HL*E`!`%=!250@3
M+BXNR:)"6!I(+B!`E(7D`@%-2"X0D(7D`@1*1$%9':.2T!J'^X'D`@),5$@N/
M($"EE=`:2"X@0,24T!I(+C!@)$,SDP(!``````!``@6O<;8:5#:"Y`("2D1YA
M-M+,(#,I`````````!5PMAI'HU+P&J.[<30J[JU!*RI5O9$L*F>K0:<"+"K0E
M``!3=6X@+"K0``!-;VX@+"K0``!4=64@+"K0``!7960@+"K0``!4:'4@+"K0;
M``!&<FD@+"K0``!3870@*S'0NQ_&UX'D`@%9'ZJQL!RXR7&X']ZB<K8:,RD0;
M````````$.#`'RVP<;@?2"X0T.3>&D@N$)#UH1IGJ]&['S,I(````````!#@"
MWAH%KX'D`@)$66>K,>PB2"X0D$4K*K[KH>\BE:E1_2*]^Z$^'`O+<;8:5#:"8
MY`("1%1Y-M+,((;$@>0"`DI$,RE@````4%11))#0&H?[064C2"X0,)1G(\T,Y
M,I,"!``````E90,%KT%E(T@N$$"79R/-#(+D`@)*1$@N0*!4I52%Y`("3%1(&
M+B!`I970&D@N($#$E-`:,RD``#4)>7,"$.#>&F>K@>0"`I9-,RD0````````L
M%5#P&F>K@>0"`T8R-%0V@N0"`E-4>3;2S"`^OT%E(T@N(%!%E6<CS0R"Y`(!\
M=,FB<K8:5#:"Y`(!5'DVTLP@,RF0F0```#1D8#"3`@D`D!(0`68#2"X0,.3>Q
M&F>K,9,"!0```#`T1P,S*7````"1DW`4@.0"`4/NK9'0&C,I4`````!RD'<P;
MDP((```Q"7ES`D@N$##DWAIGJS&3`@4```!@$I,),REPF0``A7<W)X#D`@%#_
M[JUQMAHS*9"9````(P`4,),""```<V$#101(+A`PY-X:9ZLQDP($`````%8X/
M!3,I@```<#)A512`Y`(!0^ZM<;8:,RE``````!!35C"3`@<``#")@#`"2"X0:
M,.3>&F>K0:<"2"X@<%2#Y`("1S1(+B!P)(/D`@)'4T@N(,`TA>0"`9U(+B#`1
MU+02`YG#$4PC;2X0D.9A(\FB<C0JH#'2Y@(!:J.[,9,"`@``````8`/NK='FF
M`@%I;2X0H&9\'<T,PB0C,RE``````(!"A#"3`@$``````'`$2"X00.7>&@FML
M$3<J2"X0T%E0&^ZM<;8:,RDP````````-E#P&E0V@N0"`9-Y-M+,($@N0#`4T
M-%6U]QS8^^$[&KW[X3L:#OSA.QK!--+F`@%7;2X04-7F`@%6'C;2Y@(!5VTNQ
M$%#5Y@(!5MZBT@(;":U!-QL%KT%J&T@N(,`T=;8:2"XP8#1C0V4C2"X0P)AG&
M(\T,TN8"`59M+A!013<;!:]!:AM4-H+D`@&2>3;2S"`S*0````!0(0`0T.8"9
M`55TL^'>&E0V@N0"`7)Y-M+,(#,I$````````!99+1Q(+A`@65`;2"X0P%A0(
M&^ZM@>0"`9*LM('D`@&3K+3AWAI(+A`@65`;2"X0,%E0&T@N$,#(2AONK>'>K
M&F>K8>8=,RD0````````%DDG'`;=@>0"`T8S-E0V@N0"`I93>3;2S"#8^^%?/
M(_XUDF,C*S%`E@`$3D]6002=+>!A(X;$P:(",0#@%#25)`5B%^,2`P(2DY,CT
M`R*6![(TQ:("&P"@,!3&5N9&%B8'TH/D`@)*1V>K<;8:+"HP`0`*1$Q35"`]L
M2"Y`0,0T176V&F>KP:("'0"@0)765@:B]>96!M*#Y`("1%IGJW&V&BPJ<```#
M"F>K@>0"!$Q)4U0+RW&V&EBHD2PJA*4Q+RJDI9%C(RLQL!,`!5-%5%50!9TME
MX&$C,RD0````````0DDG''0J0*<"+"K0``!$051%G2W@82,L*M`"`$1!5$4MY
M9F]R;2!$1"!-32!965E9+"H0`0`Z1$%413K*)++W'$@N0,"4-$5%IP+)HC(OZ
M*BLQX,`?!]1!IP+)HN(M*BLQX,`?!]1!IP+)HI(L*BLQX,`?!]1!92-(+D#`0
ME#1%E6<CS0R"Y`($3D]603DVLA(#*S%`IP(L*M```%1)346=+>!A(RPJL`(`E
M5$E-12UF;W)M870@2$@N34U34RPJ$`$`.E1)344ZRB2R]QQ(+D#`E#1%1:<"E
M\Z+B+2HK,>#`'P?4064C2"Y`P)0T195G(\T,@N0"!$Y/5D$Y-K(2`RLQ0*<"W
M+"KP``!,051)5)TMX&$C+"K0`@!,871I='5D92!I;B!D96-I;6%L<RPJ4`(`5
M"BTY,"`@/"#8(#P@(#DP"F>KP:(""P"@@ZVC3")[SX'D`@1,25-4="K@+2K)@
MHK(2`P[\<4`=5#:"Y`($3$E35'DVTLP@2"Y`X/1D%91C(RLQL!(#="K`H@(-@
M`,#TY'34V0(>-L*B`B\`P/3F=I9&5T=6!I+F!D)6-I;6%L8VQZ("&0"@<%4V/
M1]?C5G:F<+8:+"JP```ZECK*)++W'$@N0,"4-$5%IP+>HC(O*BLQX,`?!]1!/
M92-(+D#`E#1%E6<CS0R"Y`($3D]603DVLA(#*S%`IP(L*M```%I/3D6=+>!A]
M(W0J0*<"+"K0``!54T52G2W@82,L*M`"`$EN=&5G97(@("TQ,B`@=&\@(#$RT
M+"J0`0`*5V5S=#UN96<*9ZO!H@(;`*!#E=96!J+UYE:FHTPB>\^!Y`($3$E3=
M5'0JX"TJWJ*R$@,._'%`'50V@N0"!$Q)4U1Y-M+,("PJ,`$`(%5S97(G<U0VX
M@N0"`D1:>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B`@L`4#1%U=D"'C:"Y`($-
M3$E35'0JX"TJWJ*R$@/:HW)`'50V@N0"!$Q)4U1Y-M+,("PJT```($535%0V@
M@N0"`D1:>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B`@L`,#1%U=D"'C:"Y`($%
M3$E35'0JX"TJWJ*R$@/OHW)`'50V@N0"!$Q)4U1Y-M+,("PJT```($-35%0VM
M@N0"`D1:>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B`@L`T#1%U=D"'C:"Y`($M
M3$E35'0JX"TJWJ*R$@,$I')`'50V@N0"!$Q)4U1Y-M+,("PJT```($U35%0VX
M@N0"`D1:>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B`@L``#5%U=D"'C:"Y`($]
M3$E35'0JX"TJWJ*R$@,9I')`'50V@N0"!$Q)4U1Y-M+,("PJT```(%!35%0V:
M@N0"`D1:>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B`@T`(!0TM-39`AXV0BLJO
MEA&"Y`($3D]603DVLA(#*S%`IP(L*K```$%35)TMX&$C2"Y`P)0T146G`MZBK
MXBTJ*S'@0BH'U$%E(T@N0,"4-$659R/-#,*B`@T``!(T145E(T@N($"DE6<C@
MS0R"Y`($3D]603DVLA(#*S%`IP(L*K```$A35)TMX&$C2"Y`P)0T146G`MZBP
MXBTJ*S$PDP(!````````D0?4064C2"Y`P)0T195G(\T,PJ("#0``@C1%164CL
M2"X@0*259R/-#(+D`@1.3U9!.3:R$@,K,;`2`UT1@N0"!$Y/5D$Y-K(2`RLQN
M0*<"+"JP``!%4T.=+>!A(W0J@.0"`DQ42"X@0,2$Y`("EDU(+B!`I87D`@'85
M2"X0D(7D`@%-2"X@0)2U$@/!--+F`@%I'C:"Y`($3$E35'O/,;\?/K^1+"I<?
MHP(:(VTN$*#6Y@(!:6TN$*!F?!W-#(+D`@1,25-4="HP+RKSHK(2`T@N(,!$G
MY?$;2"X@0*65T!I(+B!`Q)30&D@N,&`D0W-`'50V@N0"!$Q)4U1Y-M+,($PRN
MXE\CWJ)B&2$Y-K(2`RLQ0*<"+"KP``!$3"Y/3ITMX&$C+"JP```@3TY4-H+D!
M`@1$3%-4>3;2S"!(+D#`E#1%1:<"\Z*2+"HK,9`L*@?4064C2"Y`P)0T195GP
M(\T,@N0"!$Y/5D$Y-K(2`RLQ0*<"+"KP``!$3$]&1ITMX&$C+"K0```@3T9&5
M5#:"Y`($1$Q35'DVTLP@2"Y`P)0T146G`O.BDBPJ*S%`*RH'U$%E(T@N0,"4O
M-$659R/-#(+D`@1.3U9!.3:R$@,K,4"G`BPJ\```2E5,+D.=+>!A(RPJ,`$`H
M($I53$E!3E0V@N0"`DI'>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B`@\`<"15[
MY#+4V0(>-L*B`AD``'(D573T))44Y$1E(T@N(*!TE&<CS0R"Y`($3D]603DV"
MLA(#*S&P$@-=$8+D`@1.3U9!.3:R$@-0#D`P%$041-#9`AXV8D@<;;L13"-MZ
M+A"@Y&$C;2X0H)0L*F>K<30J!:\QNAM'H^+>&K2B4M4;R:)RMAIT*L"B`@T`'
M,%7G!L*B`@T`T/3F!L*B`@T`0%57!L*B`@T`<%5&!L*B`@T`0(56!\*B`@T`\
M8"27!L*B`@T`,!5&![(2`[W[87P=PRZ"Y`("2D>XR3&3`@$````````!<NFA8
M[R*=+=#F`@%*,RDP`````%!Y1)#0&C,I0````%!"4C90\!IMNS&3`ID)````+
M`%`'[JW1,2IGJ]&V&S,I$````````#>0T!IM+A"@=+8:*S%0^R)M+A"@5/TB@
MA_LQDP(!`````%"2!0FM<;@?,RD@`````%!2-E#P&FV[,9,"`@`````E90/N'
MK9'0&FV[<;@?':-RMAJ'^S&3`@$```````8#!:_1MALS*1```````&`PX-X:6
M":W1MAO)HG*V&KW[,9,"F0D```````5GJS&3`@$```````8#!:_1MAO>HG*VO
M&H?[,9,"`0``````(`$%K]&V&S,I$````````!+@WAH)K9$L*F>KX<`?,RD@)
M`````%!2-E#P&FV[,9,"`P`````@<00)K7&X'X?[\:$:,RD0````````$-"[O
M'PO+@9L<A_OA+2IGJ^'`'P[\T0(;A_LA,RJU_.'>&AVC4LL?'ZIQMAJ]^S&3T
M`@(````````![JU1\!H(HU++'V>KX<`?PRY"*RJ^ZZ'O(I6I4?TBO?NA/AP+9
MRW&V&H;$X5\C.3:R$@-[!$"@1!241=#9`AXV8D@<P332Y@("1%EM+A#0U.8"V
M`5D>-C+L(FTN$-`T+RJ;[:'O(ITMT.8"`4WSHI+0&FTN$)"U$@.U+]+9`FTNE
M$-`4-RIGJ]'F`@%9R:*2T!HK,5#](H?[,9,"`P`````@<01GJS&3`@(`````F
M)64#[JW1MAL._#&3`@$```````8#[JTQDP*9"0``````!6>KT;8;,RD0````L
M````6=#F`@)$66>K<;8:9ZMQN!\._#&3`@(````````!!:\QDP(!``````"0,
M!&>KT;8;,RF0F0``````=>#>&FV[,9,"`0``````@`,)K9'0&BPJ$`$`1W)E(
M0V%LOB72NQ\L*A`!`$IU;$-A;+XE,NPB2"X@H'2$FQQ'HR*7'OHNTMD"O?N!M
MO1\K,5#[(MC[4?TB_C628R,K,<`G``5.05-)4@6=+>!A(W0J0*<"+"K0``!*0
M1$%9G2W@82-(+B!`E(7D`@%-2"X0D(7D`@1*1$%9A_O1,2H)K8'D`@),5#,I:
M$````````"10\!IGJ\&B`@T`H$06EN=;(CDVLA(#*S%`IP(L*M```$-/3E:=E
M+>!A(T@N(*!TU+L?A_LQNAN'^S'L(C,ID)D``````%#@NQ[Z+M*['[4OTMD""
MO?LQDP*9"0``````!6>KL1(#U2_2NQ\S*1`````````DX-X:,RD0````````*
M$G"V&D@N,&`D0^/Q&RPJD```552^)=*['T@N0#`41!248R,K,;`2`W0JP*("1
M#P`P1.4R1=79`AXV@N0"`D192"X0T(3D`@%92"Y`H$04E#63`ID)```````%Y
M":V!Y`($2E5*54@N(,!$A>0"`E1:":V!Y`("1$P)K3&3`@!0DY`W)P`![JUQD
MMAI(+C!@)$-SN!\>O\&B`@\`<'35-D7E6R*]^X'D`@*633,I$````````!50`
M\!IGJX'D`@-&,C0>O\&B`@T`P-0T1>5;(CDVLA(#*S%`IP(L*O```%-4+D-4,
MG2W@82-(+B!`E(7D`@%-2"X0D(7D`@1*1$%9,RF0F0``````4)#0&D@N0*!4)
MI52%Y`("3%1(+B!@V323`@$``````%`!!:^1T!I(+C!@)$-SN!\>O\&B`@\`3
M<'35-D7E6R*]^^'`'PFM@>0"`T8R-#,I``$P8U9I<IG@WAH>O\&B`@D`,$3ES
M6R(Y-K(2`RLQ0*<"+"KP``!#3$5!4ITMX&$CZ_R18R,K,;`2`W0JP*(""P`P+
M5>74V0(>-H+D`@1-25-#2"Y`X!3$1-4Q*NK#P:(""P#`V`."Y`(!C#,I$```Y
M`````!50\!H>O[&P'&>KP:("!P``@N0"`D149ZMQMAHL*M````J2/2!(+A`@)
MZ?$;"\MQMAIGJ\&B`A$`H!"DE]8#@N0"`4$>O[&P'&>K<;8:+"H0`0`*06QT0
M/2!(+A`0YO$;"\MQMAIGJ\&B`A,`H""5-E?6`X+D`@)220O+<;8:9ZO!H@(15
M`*`P54;7`X+D`@)310O+<;8:9ZO!H@(-`*`@U0."Y`(!<@O+<;8:9ZO!H@(-<
M``#"1-6#Y`("3%0+RW&V&F>K@84:R:)"6!KSHD):&H;$0:<"2"X@()6$Y`("<
M4T5(+A`0A.0"`6%(+A`@B>0"`8Q(+B!@.87D`@%R2"X0,(GD`@),34@N$-")[
MY`("3%-(+B!P-(7D`@)',D@N('!$@^0"`D<U2"X00(7D`@)55$@N(#!%A>0"[
M`71(+A`PA.0"`D142"X@H$2T$@/^#I)C(RLQL!(#*S'0%2%(+D#@]&05E&,C8
#*S$`!
``
end
END_UU