$! ------------------ CUT HERE ----------------------- $ v='f$verify(f$trnlnm("SHARE_VERIFY"))' $! $! This archive created by VMS_SHARE Version 7.2-007 22-FEB-1990 $! On 18-JUN-1993 06:09:20.97 By user MASMUMMY $! $! This VMS_SHARE Written by: $! Andy Harper, Kings College London UK $! $! Acknowledgements to: $! James Gray - Original VMS_SHARE $! Michael Bednarek - Original Concept and implementation $! $!+ THIS PACKAGE DISTRIBUTED IN 4 PARTS, TO KEEP EACH PART $! BELOW 30 BLOCKS $! $! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER $! AND EXECUTE AS A COMMAND PROCEDURE ( @name ) $! $! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING: $! 1. PLANET.DOC;1 $! 2. PLANET.FOR;1 $! $set="set" $set symbol/scope=(nolocal,noglobal) $f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID")) $e="write sys$error ""%UNPACK"", " $w="write sys$output ""%UNPACK"", " $ if f$trnlnm("SHARE_LOG") then $ w = "!" $ ve=f$getsyi("version") $ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto START $ e "-E-OLDVER, Must run at least VMS 4.4" $ v=f$verify(v) $ exit 44 $UNPACK: SUBROUTINE ! P1=filename, P2=checksum $ if f$search(P1) .eqs. "" then $ goto file_absent $ e "-W-EXISTS, File ''P1' exists. Skipped." $ delete 'f'* $ exit $file_absent: $ if f$parse(P1) .nes. "" then $ goto dirok $ dn=f$parse(P1,,,"DIRECTORY") $ w "-I-CREDIR, Creating directory ''dn'." $ create/dir 'dn' $ if $status then $ goto dirok $ e "-E-CREDIRFAIL, Unable to create ''dn'. File skipped." $ delete 'f'* $ exit $dirok: $ w "-I-PROCESS, Processing file ''P1'." $ if .not. f$verify() then $ define/user sys$output nl: $ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='P1' PROCEDURE Unpacker ON_ERROR ENDON_ERROR;SET(FACILITY_NAME,"UNPACK");SET( SUCCESS,OFF);SET(INFORMATIONAL,OFF);f:=GET_INFO(COMMAND_LINE,"file_name");b:= CREATE_BUFFER(f,f);p:=SPAN(" ")@r&LINE_END;POSITION(BEGINNING_OF(b)); LOOP EXITIF SEARCH(p,FORWARD)=0;POSITION(r);ERASE(r);ENDLOOP;POSITION( BEGINNING_OF(b));g:=0;LOOP EXITIF MARK(NONE)=END_OF(b);x:=ERASE_CHARACTER(1); IF g=0 THEN IF x="X" THEN MOVE_VERTICAL(1);ENDIF;IF x="V" THEN APPEND_LINE; MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);ENDIF;IF x="+" THEN g:=1; ERASE_LINE;ENDIF;ELSE IF x="-" THEN IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+")= 1 THEN g:=0;ENDIF;ENDIF;ERASE_LINE;ENDIF;ENDLOOP;t:="0123456789ABCDEF"; POSITION(BEGINNING_OF(b));LOOP r:=SEARCH("`",FORWARD);EXITIF r=0;POSITION(r); ERASE(r);x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,ERASE_CHARACTER(1))-1; COPY_TEXT(ASCII(16*x1+x2));ENDLOOP;WRITE_FILE(b,GET_INFO(COMMAND_LINE, "output_file"));ENDPROCEDURE;Unpacker;QUIT; $ delete/nolog 'f'* $ CHECKSUM 'P1' $ IF CHECKSUM$CHECKSUM .eqs. P2 THEN $ EXIT $ e "-E-CHKSMFAIL, Checksum of ''P1' failed." $ ENDSUBROUTINE $START: $ create 'f' X`0C`0D`0A`0D`0A`0D`0A`0D`0A`0D`0AH O W T O R E A D Y O U R H O R O S V C O P E C H A R T`0D`0A`0D`0AThe X accompanying computer print-out is an accurate represen-`0D`0Atation of th Ve relati Xve positions of the planets at the time`0D`0Aof your birth. The information V fed int Xo the computer in-`0D`0Acluded your birthdate, birth time, and location V (in lon Xgi-`0D`0Atude and latitude) on Earth. Unless noted otherwise, the`0D`0Af Vollowing as Xsumption was made -- if you were born between`0D`0AOctober 26 and April 26 V, you `20 Xwere considered being born`0D`0Aunder standard time for your birth locati Von's tim Xe zone. If`0D`0Ayou were born between April 27 and October 27, you were con V-`0D`0Asider Xed being born under daylight savings time for the zone.`0D`0AIf you were bor Vn before X World War II, or around the change`0D`0Afrom standard to daylight time V, or in`20 Xa weird county that`0D`0Adoesn't observe daylight savings time, you should V find ou Xt`0D`0Ayour correct birth time.`0D`0A`0D`0AREADING YOUR CHART`0D`0A`0D`0AOka Vy, let's take it from th Xe top. The first line repeats`0D`0Athe data input to the computer -- V DATE --`20 XTIME -- ZONE --`0D`0ALAT(itude) -- LONG(itude). Then the following transl Vation`0D`0Ao Xf that information is given as follows:`0D`0A`0D`0AGMT - Birth Time in Green Vwich Mean Ti Xme`0D`0AGST - Birth Time in Greenwich Standard Time`0D`0ALMT - Birth Time in V Lunar Mean`20 XTime`0D`0ALST - Birth Time in Lunar Standard Time`0D`0A`0D`0AThe Day of the V Week is the day`20 Xyou were born.`0D`0A`0D`0AJD - Birth Time in Julian Calendar`0D`0A`0D`0ABess Velian Year - The per Xcentage of the year completed when`0D`0Ayou were born. For example, if y Vou were`20 Xborn at the end of`0D`0AAugust in 1951, you would be born about 65% of V the way X`0D`0Athrough the year, and thus your Besselian Year would be`0D`0A1951 V.65`0D`0A`0D`0AGEOCE XNTRIC PLANET POSITIONS`0D`0A`0D`0AThis part of the chart shows the locations V of the plan Xets in`0D`0Athe constellations along the ecliptic (the path that the sun`0D` V0Aand the pl Xanets follow through the Zodiac) Each position is`0D`0Agiven in degrees and V minutes X. There are 60 minutes in a de-`0D`0Agree. There are 30 degrees in a const Vellation X. There are`0D`0Atwelve constellations in the Zodiac.`0D`0A`0D`0AThe posi Vtion of each pla Xnet is given as follows: location`0D`0Ain degrees, the constellation i Vn which`20 Xit is located, and`0D`0Athen the minutes. The following abbreviations are u Vsed for X`0D`0Athe zodiacal signs:`0D`0A`0D`0A`0C`0D`0A V `20 X PAGE 2`0D`0A`0D`0A`0D`0A`0D`0AA - Aries L - Leo / - Sagitari Vus`0D`0AT - Taurus `20 XV - Virgo K - Capricorn`0D`0AG - Gemini = - Libra Q - Aquar Vius`0D`0AC - X Cancer S - Scorpio P - Pisces`0D`0A`0D`0AFor example, If your sun V is 2 degrees X 33 minutes of Virgo,`0D`0Ait would be shown as 2V33.`0D`0A`0D`0AEach plan Vet's position is X shown in order from the Sun to`0D`0APluto, followed by the Moon, the Mo Von's Nod Xe, and P.F, (part`0D`0Aof fortune). The motion of the planets is shown d Virectly`0D X`0Aunderneath this information. RETR means the planet is re-`0D`0Atrograd Ve (moving`20 Xbackward with respect to Earth) and DIR`0D`0Ameans the planet is moving V forward`20 Xwith respect to Earth.`0D`0A`0D`0AHOUSE CUSPS`0D`0A`0D`0AThe House Cusps in V this program have be Xen calculated for the`0D`0Avarious system that are presently in use. Since V each sys Xtem`0D`0Aof interpretation uses houses of different sizes, it is im-`0D`0Ap Vortant to m Xatch the system used with that of the interpre-`0D`0Atation. For example, i Vf you ar Xe using a book for interpre-`0D`0Atation and it uses the Campanus system, V you shou Xld refer to`0D`0Athe Campanus values for determining where one house ends an Vd`0D`0Athe n Xext begins.`0D`0A`0D`0AThere are 12 houses in any astrological system, a Vnd the`0D`0Ahou Xse sizes vary because of the different latitudes of the`0D`0Aobserver. (f Vor examp Xle, if you are born at a high latitude`0D`0Aaway from the equator (which th Ve sun an Xd the planets direct-`0D`0Aly pass over) your view of the constellations nea Vr the ho Xri-`0D`0Azon appears to be squeezed while the ones overhead become`0D`0As Vtretched out X. Most American astrologers use either the`0D`0ACampanus or the Placi Vdus syst Xems, which are represented on`0D`0Athe print out in the first and third row Vs acros Xs in this`0D`0Asection. Each cusp (starting point) for each of the twelv Ve`0D`0Ahouse Xs is shown.`0D`0A`0D`0ADirectly below the positions of the house cusps, are V the po-`0D`0Asit Xions of the rising sign, the nadir, the descendant, and`0D`0Athe midheaven V.`0D`0A`0D`0AAll X of the positions of these points are shown in the same`0D`0Anotation as d Vescribed X above in Geocentric Planet Positions.`0D`0A`0D`0APLANETARY DATA`0D`0A`0D`0A VThe Ruling Planet is X the Planet ruling the Sun Sign and fig-`0D`0Aures prominenently in the inte Vrpretati Xon.`0D`0A`0D`0AThe Significator Planet is the planet ruling the rising sign` V0D`0Aand also is X of significant importance.`0D`0A`0D`0A`0C`0D`0A V `20 X PAGE 3`0D`0A`0D`0A`0D`0A`0D`0ARising Planets includes any planets th Vat are rising at t Xhe`0D`0Amoment of birth.`0D`0A`0D`0ADISTRIBUTION OF ELEMENTS `0D`0A`0D`0AThe V graph in this section s Xhows the location of the planets`0D`0Ain their respective zodiacal signs V represen Xted by the four`0D`0Aelements and the three types of signs. This can be e Vxpla-`0D`0Ai Xned as follows: Out of the twelve zodiacal signs, there`0D`0Aare 3 fire V signs, 3 X earth signs, 3 air signs, and 3 water`0D`0Asigns. Out of each group of V 3, ther Xe is one cardinal sign,`0D`0Aone fixed sign, and one mutable sign. Therefor Ve, each`20 X con-`0D`0Astellation in the zodiac is either a fire, earth, air, or`0D`0 VAwater sign, X and is either cardinal, fixed, or mutable. This`0D`0Ameans that there i Vs only`20 X only one cardinal fire sign -`0D`0A(Aries), one fixed fire sign - (Leo), a Vnd so o Xn. You can`0D`0Aread about the characterisitics of fire signs, and cardi Vnal`0D`0Asig Xns, etc. in an astrology book. You should also be able`0D`0Ato correlate V the c Xharacteristics of each planet with the`0D`0Acharacteristics of the sign in V which i Xt appears, although`0D`0Asome books do this automatically for you.`0D`0A`0 VD`0APLANETARY AN XGLES`0D`0A`0D`0AThis section deals with the relationship between any two po- V`0D`0Aints plot Xted and shown earlier. These points can be planet`0D`0Apositions, the risin Vg point, X the mid-heaven, part of for-`0D`0Atune, the moon's node, etc. In most V astrolo Xgical systems,`0D`0Athe angle between any two points takes on a signific Vance`0D`0Aba Xsed on the type of angle it is. There are two types of`0D`0Aangles:`0D`0 VA`0D`0A o A sq Xuare angle or fraction thereof is any angle that`0D`0A forms a 0, 45 V, 90, or X 180 degree angle between two po-`0D`0A ints. The square angles are con Vsidered`20 Xby most astro-`0D`0A logers to be a sign of an obstacle to be over Vcome.`0D`0A`20 X While this may appear to be unfavorable, it may also be`0D`0A looked V at as`20 Xsomething to change which will give you a`0D`0A better life. `0D`0A`0D` V0A o A trine a Xngle or fraction thereof is any angle that`0D`0A forms a 30, 60, or V 120 degr Xee angle between two points.`0D`0A The trine angles are considered by mo Vst astro Xlogers to`0D`0A be a sign of a favorable aspect which enhances your V`0D`0A l Xife.`0D`0A`0D`0AAll angles or aspects between planets and other points are V`0D`0Aprinted i Xn this section. If the angle is within 5 degrees,`0D`0Ait is printed, with V the diff Xerence shown in the column ti-`0D`0Atled ORB (EXACT) The closer an a Vngle is`20 Xto being exact`0D`0A(0.0), the larger an effect it is likely to have. Most V as-`0D`0Atr Xological books give an interpretation of each type of`0D`0Amajor angle V -- these X normally include the squares (90 de-`0D`0A`0C`0D`0A V `20 X PAGE 4`0D`0A`0D`0A`0D`0A`0D`0Agree), the conjunctions ( V0 degree angles), th Xe oppositions`0D`0A(180 degree angles), the trines (120 angles), and the s Vex-`0D`0Atil Xes (60 angles). It is more difficult to get interpreta-`0D`0Ations for t Vhe min Xor angles of semi-squares (45),`0D`0Asemi-sextiles (30), etc. It V is also`20 Xdifficult to find in-`0D`0Aterpretations for aspects involving P.F. (pars f Vortuna). X`0D`0A`0D`0APARALLEL ASPECTS`0D`0A`0D`0AI don't know much about parallel asp Vects`0D`0A`0D`0AESSENTIAL DI XGNITIES`0D`0A`0D`0AEach planet has a sign in which it is most compatible, le Vast`0D`0Acompati Xble and a few in between. If a planet is in its na-`0D`0Atural sign (for e Vxample,`20 XPluto in Leo) than it is said to be`0D`0Aexalted. If a planet is in the sig Vn that i Xt is least compa-`0D`0Atible to (for example Venus in Virgo) it is said to b Ve fal-`0D X`0Alen. There are a number of degrees of exaltation between`0D`0Athese t Vwo extreme Xs. They are:`0D`0A`0D`0AEXALTED`0D`0ANATURAL`0D`0AHARMONIOUS`0D`0AINHARMONI VOUS`0D`0ADETRIMENTAL `0D`0AFALLE XN`0D`0A`0D`0AIf a planet is exalted, its effect can be considered pro-`0D V`0Anounced. If X a planet is fallen, it is not harmonious with`0D`0Aits Zodiacal constellat Vion, and X may also be afflicted.`0D`0A`0D`0ADISPOSITORSHIPS`0D`0A`0D`0AI don't unders Vtand dispositorships X at all.`0D`0A`0D`0ATHE WHEEL`0D`0A`0D`0AThe usual natal chart that an astro Vloger draws up is `20 Xshown`0D`0Ain the wheel diagram at the bottom of the chart. In it each`0D`0 VAof the hous Xes are shown with the planets (abbreviated using`0D`0Athe symbols below) i Vn their`20 Xrespective positions. The ris-`0D`0Aing sign is always shown as the line de Vlineatin Xg the twelfth`0D`0Afrom the first house. All houses are shown by Roman num Ver-`0D`0Aals X. The zodiacal constellations are represented by their`0D`0Asingle letter V symbols X.`0D`0A`0D`0A SU=SUN A=ARIES`0D`0A ME=MER=ME VRC=MERCURY `20 X T=TAURUS`0D`0A VE=VEN=VENUS G=GEMINI`0D`0A V MA=MAR=MA XRS C=CANCER`0D`0A JU=JUP=JUPIT=JUPITER V L=LEO`0D X`0A SA=SAT=SATUR=SATURN V=VIRGO`0D`0A`0C`0D`0A V `20 X PAGE 5`0D`0A`0D`0A`0D`0A`0D`0A UR=URA=URAN=URANUS V ==L XIBRA`0D`0A NE=NEP=NEPT=NEPTUNE S=SCORPIO`0D`0A PL=PLU=PLU VTO `20 X /=SAGITTARIUS`0D`0A MO=MOO=MOON K=CAPR VICORN`0D`0A`20 X MN=NOD=NODE=MOON'S NORTH NODE Q=AQUARIUS`0D`0A PF=PF.=P.F.=PARS F.= VPARS FOR XTUNA P=PISCES`0D`0A AS=ASC=RISING=ASCEND.=ASCENDANT `0D`0A MC=MC.=M V.C.=MID-HEAV XEN DEG.=DEGREES`0D`0A DESC.=DESCENDANT `0D`0 VA I.C.=INF XIMUM COELI N=NORTH`0D`0A V S=SOUT XH`0D`0A GMT=GREENWICH MEAN TIME `0D`0A GST=GREENWICH SIDEREAL TI VME RE XTRO=RETROGRADE`0D`0A LMT=LOCAL MEAN TIME DIR=DIRECT MOTION` V0D`0A LST= XLOCAL SIDEREAL TIME`0D`0A JD=JULIAN DAY NUMBER`0D`0A`0C`0D`0A $ CALL UNPACK PLANET.DOC;1 845165693 $ create 'f' XCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC XC XC Program PLANET XC +-+-+-+-+-+-+-+- END OF PART 1 +-+-+-+-+-+-+-+-