Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50345/astro.sav
There are no other files named astro.sav in the archive.
h '
HF Q- J!x -
@Sx . } h /+ :4 0 AQ * F Z F \ G G,!p -\ N|4 G @ O-\ N4 G O!8 AX8 *8 F G-|p + R4 ; HQ * M Z M \ N N,!p ,!p N O D P-\ Pq4 P @ P-\ Pn4 P O N @ Q-\ Pq4 P @ Q-\ Pn4 Q O N"@ R-\ Q4 G4 R @ R-\ Pq4 R @ S-\ Pn4 S O Q" !8 HX8 *8 M N-|p @@ l@@ m G D m H H D n F n n n < I, Pd D o F o o o D p : Z p : Z q $ #$ . p J F<S1: 9 ] p1: #9 \ : Z p D M J D S-\ N|4 S
T-\ Ps4 T @ q D M J4D S-\ N4 S \ $ , @ T-\ Ps4 T-@ q4$ #$ q. q$ K.F<S1: n9 c : $Z p.$ . -\ Pn4 K.@ S-\ N|4 S $ @q. q hH4 F<T.: 1z + s : Z p : Z q $ <$ . p@@p1: 9 p1: <9 " b + =(' SAMPLE INPUT (GREGORIAN DATE,TIME,','CONVERSION TO GMT,LATITUDE,LONGITUDE)'//' 1899/12/31 23:59 +08:00 34N59 122W59 COMMENTS,NAMES'//' TYPE "TYPE ASTRO.HLP" FOR DETAILED EXPLANATIONS'/////' A=ARIES C=CANCER ==LIBRA K=CAPRICORN N=NORTH'/' T=TAURUS L=LEO S=SCORPIO Q=AQUARIUS S=SOUTH'/' G=GEMINI V=VIRGO /=SAGITTARIUS P=PISCES'//////////' ENTER BIRTH DATA -------'//) $ D r " HB~ r s s t t u u v v w w x x y y$ I4 + N(I4,A1,4(I2,1X),I3,2(1X,I2),A1,I2,1X,I3,A1,I2,1X,A5,5X,5A5) L2D y+ n L3D l+ S-\ KZ4 M4
MO@ l $
D r $ D m I D y rX@ X " ab r s s t t u u v v w w x x y$ I4 + n('1'//' ---DATE--- -TIME -ZONE- -LAT- -LONG- ','COMMENTS--------'/I5,A1,I2,'/',I2,I3,':',I2,I4,':',I2,I3,A1,I2,I4,A1,I2,1X,5A5) -\ Pn4 v @ S-\ Pn4 u @ T-\ Q4 S4 T @ T-\ Pn4 u T"$ . t. u$$ @ U-\ Pn4 U N @ z@B z"$ }%. t & `. r"( . s H S&( . $& Z7 .& (. ", .
s . $ /
$, 7 N T&, . 0 . r. &0 2$0 7 .0 (/ -\ P4 < z, P, @ { B { O2D s+ > r"` r O3D sg O O3F sg O A 4$ # P. t & `. r"( . s H S&( . $& Z7 .& (. ", .
s . $ /
$, 7 N T&, . -\ P4 < z, P, @ { B { P Q < {, P' < Q, Pd$ D | F | $ D } R3D yg O S3F yg O A 4$ / $ 2 D } : Z q"$ . -\ P4 < Q, P\ < |, P, @ } B ~ S T < Q, Pd < }, P2 D ~ } ~ D : Z p hDh? DhV } ~ ( < ", PI < I, Pd-\ P4 @ } ~ ( < ", PI (hHXH H-\ P4 H < , P, @ S B T-\ P4 < I, P? < S, P$ < o, P? "@hz1: 9 ; | D } D T ~ U p D D F "F S U p "F T-\ N4 T V V ~ W @ T!*
S
W ~ X p
L U-\ N4 U T @ U!(@ !*0
p "H V-\ N4 V X U @ V
Y
p D W-\ N4 W Y V
Z
~ @ W Z p N X-\ N4 X W @ X!*@
S [ p
J Y-\ N4 Y [ X @ Y" \ p P Z-\ N4 Z \ Y ] ] p@ |!$ F ^ ~ ^ p D S-\ N4 S _ @ T H
_
p H T-\ N4 T ` T @ U
J "
` p
L U-\ N4 U a U a ~ @ V!0n p P V-\ N4 V V @ W!.@ b p N W-\ N4 W b W @ X
!2 p
J X-\ N4 X c X @ Y!2@ !2@ c p "F Y-\ N4 Y d Y @ Z!4 V d e p T Z-\ N4 Z e Z @ [ f p R [-\ N4 [ f [ g ] p@ } g ] pD } h pD ~"` ~ : Z p $hzXD E-\ N4 E hV hz @ S-\ N4 S hV hz @ T-\ N4 T hV hz @ T-\ N4 T hV hz @ U-\ N4 U hV hz @h~ h~D D S-\ 04 S @ T!& hV!( hV H T-\ MC4 T T @ U-\ M(4 U@ hQhM p &&
&* / @ U-\ Pn4 h ] p U @h1: 9 C i i p D j j!& n p F T-\ N4 T n T!( X @ U H "
|
o
p
J U-\ N|4 U o U @ V
|L p p H V-\ N|4 V p V @ W
!. $ p
L W-\ N|4 W q W @ X" | q p N X-\ N|4 X r X ] p@ r s p D s t p D t u p D t u p D v v p D D F S-\ N4 S w @ T-\ N|4 S w T @ T!(@ "
J U-\ N|4 U x T @ U-\ N4 U x U @ V
L V-\ N4 V y V @ W-\ N|4 V y W @ W N X-\ N|4 X z W @ X-\ N4 X z X @ Y P R "R Y "R Z-\ N|4 Z { Y @ Z-\ N4 Z { Z @ [!4@ !6@ "V [ "V \-\ N4 \ | @ \-\ N|4 \ | \ @ ]-\ N|4 } ] [ @ ]-\ N4 \ } @ ^-\ N|4 \ } ^ @ ^-\ N4 } ^ ] @ _ X _-\ N|4 _ ~ _ @ `-\ N4 _ ~ ` @ `-\ N|4 \ ` @ a-\ N4 \ a ] p@ -\ N4 } @ S-\ N|4 } S @ T }F F T-\ N4 T T @ U p"H U-\ N4 U U ] p@ -\ N|4 ~ @ S p D T-\ N4 T S @ T p F U-\ N4 U T!( T
@ U-\ N4 ~ U ] p@ : Z p hhhc p D : Z q p&$ -\ Pn4
p&( @ S-\ Pn4
S
p&, @ T-\ Pn4 T ] ~ p "@ !$ pV!( V H S-\ MC4 S @ T"$ . -\ Pn4 m
Q
M
p @ @ T-\ 04 T T @ U-\ M(4 U@ @ U-\ N|4 U V u"@q"$ . -\ Pn4 m @ S-\ N|4 S p q p( . @J
"$ . -\ Pn4 m @ S-\ N4 S p q p( . @J1: 9 p p l D S-\ N|4 S @ T" H T-\ N4 T T @ U-\ N|4 T @ U-\ M4 U4 U
p&* p&. /
@ V-\ Pn4 ~ ] p V @Z" p D S-\ N4 S @ T p l H T-\ N4 T T @ U-\ L{4 U @_ p $~XD a-\ N|4 a V u"@q p1: 9
p D S-\ N4 S
~ ] p@ a4 S F U p D S-\ N|4 S @ T!& !(@ p F T-\ N|4 T T ~ @ U
p
J U-\ N|4 U U!, , M\ L s D F p D S-\ N|4 S @ T" p F T-\ N|4 T T ~ @ U!*
p
J U-\ N|4 U U @ V H !,0
p H V-\ N|4 V V!, , M\ L t : Z p $h_XD -\ N|4 hq @ S $hZXD #-\ N|4 # S @h $h_XD &-\ N|4 & hq @ S $hZXD )-\ N4 ) S @h $h_XD ,-\ N4 , hq @h
1: 9 : Z p : Z q" p( . D J
" p( . D J p( . $ JXD ; $ J
XD <-\ M4 ;4 < @ S-\ ;4 S4 $ <$ p. @x1: 9 0 p D" p D p
D p1: 9 /" D " D "
D p"D S-\ N4 S "@ : Z p $hXD T $hXD U-\ M4 T4 U H @ S-\ ;4 S4 $ <$ . q @y"$ . q5D p D S-\ MC4 S @ p D S-\ L{4 S p & <$ p @p p"F S-\ N|4 S p @ H & <$ p z D S-\ N4 S @ T p p H T-\ N|4 T T @ U-\ N4 U @ U-\ N|4 @ V-\ N4 T V U @ V-\ L{4 V p @q p Z H D S-\ ;4 S4 & <$ p @s p _ p & <$ p Dq p $ZXD -\ N4 @ S $_XD
-\ N|4
S @ T-\ N4 T @ T-\ N|4 @ U $_XD -\ N4 U T @ U-\ L{4 U p $ <$ p @r p1: 9 Q P Q < {, P'-\ P4 q < , P$ < , P$ @ B < , PI < , P2 D F < , PI < , P2 D F
< , PI < , P2 D
F < , PI < , P2 D F
! < , PI < !, P'$ D
-F 4
P@ S-\ P4 S < , P$ < n, P? "@
@ S-\ P4 S < , P$ < n, P? "@ -\ P4
@ S-\ P4 S <
, P$ < n, P? "@ -\ P4
@ S-\ P4 S < , P$ < n, P? "@ -\ P4
@ S-\ P4 S <
, P$ < n, P? "@ S " F T-\ N4 T # S @ T H U-\ N4 U # T @ U
J V-\ N4 V $ U @ V-\ N4 ' V @ W
L W-\ N4 W N W @ X" V N X-\ N4 X T X @ Y " R Y-\ N4 Y N Y @ Z T Z-\ N4 Z @ Z @ [ V [-\ N4 [ % [ @ \ X \-\ N4 \ \ @ ]-\ N4 z ] @ ] P ^-\ N4 ^ \ ] @ ^" W X -\ N4
b J d-\ N4 d x d @ e" \ X e-\ N4 e ` e @ f X f f X g-\ N4 g @ f @ g D h-\ N4 h g @ h-\ N4 f h @ i \ X i-\ N4 i p i @ j-\ N4 b ` j @ j V X k-\ N4 k ` j @ k" c X l-\ N4 l P k"@ & < , P2-\ P4
@ S-\ P4 S < , P$ $ & < , P$ @ T B T-\ ;4
T4 q @ QN HD S-\ ;4 S4 qN@ T | S @ T" F U-\ N4 U z T @ U H "H V-\ N4 V U @ V"
T
J W-\ N4 W ' V @ W
U
L X-\ N4 X G W @ X N Y-\ N4 Y j X @ Y R Z-\ N4 Z X ^-\ N4 ^@ ] @ ^ T X -\ N4 p ^ @ " X `-\ N4 ` @ @ `" X a-\ N4 a ` ] @ H H R D S-\ N4 S @ T p H F T-\ N|4 T T @ U-\ N4 U @ U-\ N|4 @ V-\ N4 T V U @ V-\ L{4 V p @ I q3: }9 / % & < |, PI < &, P' '
( < |, PR < (, P) < o, PR( H S J T-\ O54
S < ), P? < , P$
p . < , P? @ : Z p * DhI] & <$ "zz D S-\ ;4 S4 4` ; p + FI] p1: 9 3-\ Pn4 y + @ S-\ Pn4 x S I @ -\ Pn4 w + @ S-\ Pn4 v S p @ ,3D w+ G"` ,3D x+ I"` -\ P4
z @ S-\ ;4 S4 @ $ - - < |, PI .
. < |, PR H S J T-\ P4
S @ T-\ P4 Th< , P$ "@ / $ D S-\ ;4 S4 @ %" $ D S-\ ;4 S4 @ %" % D S-\ ;4 S4 @ & : Z p!$ @ h$ / D -\ Ps4 @h h -\ Pn4
6 rX@ w " ~b : Z p : Z q ( . p 1: 9 y p1: 9 x +
(/' GMT=',I2,2(':',I2),' GST=',I2,2(':',I2),' LMT=',I2,2(':',I2),' LST=',I2,2(':',I2))-\ P4 { @ -\ P4 < {, P$ "@ !$@ F S-\ Pq4 S . "* .
@ T-\ Pq4 S.
&* $* / H p 0 0 < {, P' < 1, Pd < 2, P' 3
3 < |, PR < |, PR < , P2$ D F -\ P4 @ -\ P4 < , P$ "@ rX@
& "
+b p(
7
> +
6(' DAY OF THE WEEK (FROM LMT) IS ',A9,' (RULED BY ',A8/' JD=',I7,F7.6,7X,' BESSELIAN YEAR = ',I5,F10.9) v&$ ( . H H & D : Z $ . -\ Pn4 H 4 @ -\ N|4 @ S-\ N4 S @ T-\ N|4 @ T-\ N|4 T @ U-\ N4 U T @ U-\ N|4 @ V-\ N|4 V @ V-\ N|4 @ W-\ N4 W @ W-\ N4 W V @ X-\ N|4 X @ X-\ N4 @ Y-\ N4 Y @ Y-\ N4 Y X"@ Z-\ M4 U4 Z H @ Z-\ ;4 Z4 $ <$ @s-\ N|4 @ S D T-\ N4 T S @ T-\ N|4 T @ U-\ M4 T4 U H @ U-\ ;4 U4 & <$ @t D S-\ N4 S @ T-\ N|4 S @ T-\ N|4 T @ U-\ N|4 @ U" F M& F V-\ P4 V @ 4 @ V-\ 04 @ W-\ 04 W @ W-\ L{4 W V"@ X-\ N4 X U U"@ X-\ M4 T4 X m@ @ Y-\ ;4 Y4 ( <$ @ t : Z q H & <$ t D pD D : Z q-\ N4 @ S $hXD -\ N4 S @ T-\ L{4 T @ T-\ 04 T @ U-\ 04 U @ U-\ L{4 U @ mD-\ N|4 @ S &hXF -\ N4 S @ T &hXF -\ N|4 @ T-\ M4 T4 T "& . @ U-\ Pn4 m 5 U"@ U-\ ;4 U4 m @ -\ Pn4 4 @h1: 9 " F I $ <$ Ft"`t q3: 9 D S-\ N4 S @ T-\ N|4 S @ T-\ N|4 T @ U-\ 04 @ U-\ N4 U @ V-\ N4 V U"@ V-\ M4 T4 V H @ W-\ ;4 W4 & <$ @u"$ . -\ Pn4 4 / @ S-\ ;4 S4 & <$ @v 1: 9
: : Z "$ . -\ Pn4 4 / @ S F M&` F T-\ P4 T @"@ T-\ P4 T @ @ U" / c H U-\ ;4 U4 U 4 S"@ V-\ ;4 V4 * <$
@(u"$ . -\ Pn4 4 c @ S-\ ;4 S4 & <$ @v1: 9 M-\ N4 @ S-\ N|4 S @ T H c D T-\ N4 T T"@ U-\ MC4 U @ U-\ N4 T @ V-\ N4 V @ V-\ M4 U4 V @ W-\ ;4 W4 m 4 @ : Z "$ . -\ Pn4 F S @ T-\ N|4 S @ T-\ N|4 @ U-\ N4 S U @ U-\ 04 @ V-\ N4 V U"@ V-\ M4 T4 V H @ W-\ ;4 W4 ( <$ @ w1: 9 y-\ N|4 @ S H / D T-\ N4 T S @ T-\ N|4 T @ U-\ M4 T4 U @ U-\ ;4 U4 m 4 @ : Z "$ . -\ Pn4 F S @ T-\ N4 S @ T-\ N|4 @ U-\ N|4 S U @ U-\ M4 T4 U H @ V-\ ;4 V4 ( <$ @ w1: 9
: Z q : Z !$ & <$ q. p D S-\ ;4 S4 @ X1: 9
, q1: 9
+ R 6 1 D S-\ ;4 S4 @ J : Z p & <$ z 6 1 D S-\ ;4 S4 @x1: 9
9 : Z p : Z q $ <$ . p , F5 & <$ . p p5$
I $ <$ q. p 5 F5 & <$ q. p $pXD
L-\ P4
L 6-@ 4$ <$ q. p-\ Ps4 @!8 $ <$ q p. !8-\ Pn4
A p1: 9
@"$ . }4D : 1Z p9: Z q!$ @ & <$ . p p 6 D $ <$ . p-\ Ps4 @.H!$ -\ Ps4 @ $ <$ . p & F5 $ <$ . p .H-\ Pn4 p"@ $ <$ . p-\ Ps4 @!8 $ <$ p. !8-\ Pn4
^ p3: 9
\ S2D y+
} "
~b ' + SSED (GEOCENTRIC) LONGITUDES'//' YEAR SUN MERC VENUS MARS JUPIT SATUR ',' URAN NEPT PLUTO MOON NODE') :
Z p"$
. D rX@ q $ <$ p. !8 $ <$ p. 5 $ <$ . p ( 1: 9
+ ',I3,1X,11(1X,I2,A1,I2)) ',+ "' R2D y+ 'DATE SUN MERC VENUS MARS JUPIT SATUR URAN',' NEPT PLUTO MOON NODE'/I6) $ . s&$ r. H $ `. $$ Z7 .$ ("& (. ( . $( Z7 .( (/ F J O3D s+
&* 2$* 7 .* (
. H J :
JZ p rX@ J tA: )Z q:$ <$ p. !8$ <$ p. 5 $ <$ . p ( 1: 9
1: 9 9: ,Z pC: IZ qA$ <$ I p. !8,$ <$ D p. 5'$ <$ . p ( U q1: 9 UPIT SATUR URAN NEPT PLUTO MOON NODE P.F.'/1X,12(I3,A1,I2)/7X,8(1X,A5)/1X,10(I3,A1,I2)/1X,10(I3,A1,I2)//) rX@ " )b : Z p : Z q $ <$ p. !8 $ <$ p. 5 $ <$ p. ( 1: 9 p1: 9 : Z q $ <$ !; $ <$ 5 $ <$ ( q.: 1z + " + Q(24X,'HOUSE CUSPS IN SYSTEMS OF'/' CAMPANUS,MORINUS,PLACIDUS,REGIOMONTANUS,PORPHYRY,','EQUAL,ZARIEL,ALCIBITIUS'/' 1 2 3 ',' 4 5 6 7 8 9 10 11 12'/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/' RISING',14X,'I.C.',13X,'DESC.',14X,'M.C.'/1X,4(I3,A1,I2,12X)///////) $ . / D p $ . / D q p Iq D p q Iq D q U V D F
@@ q : Z !$@ & <$ z / D S-\ ;4 S4 @ T-\ P4 T 75` f: q q( ( E
F H J 1: 9 Z"$ . q-\ Pn4 @ S-\ Pn4 q 7 @ T-\ Pn4 q 8 T S @ T-\ Ps4 T @ q rX@ r " zb p(
E q(
E : Z (
3: q9 v + (' RULING PLANET IS ',A8/' SIGNIFICATOR (PLANET RULING THE RISING SIGN) IS ',A8/' RISING PLANETS :',6(1X,A8)/17X,6(1X,A8)) / D 4^ 3# D 5 / D ! K D !B rX@
" + (/' DISTRIBUTION OF ELEMENTS IS AS FOLLOWS:'//8X,'.-----CARDINAL------.-------FIXED-------.','------MUTABLE------.') : Z p : Z q : Z q $ $ & $ q. p. J HHt1: 9 q1: 9 p1: 9 @@ : Z p $ & <$ ..R .R7 .( (( / D q $ & <$ ..R .R&( $( / D : Z q J & $ ( $ . q. 2DHt+ @ $ $ & $ . q.
p(
(HK HHt $ $ & $ . q.
p(
(HLHH{+ D.: 1z + 1 qD $ D q+ 0 p1: 9 & : Z p rX@ H " Rb hIX : Z q : Z q $ $ & $ q. p. Ht1: 9 K q1: 9 J p + Y(1X,A5,' .',6(1X,2A1),' .',6(1X,2A1),' .',6(1X,2A1),' .') " p. 5D e rX@ \ " Rb IZ : Z q : Z q $ $ & $ q. Hv1: 9 ^ q1: 9 ] p1: 9 F rX@ h " ib + q(8X,'.-------------------.-------------------','.-------------------.') : Z p : Z q & <$ p z & <$ z D S-\ P4 S "@ T-\ P4 T 4 & $ . p"@ T-\ Ps4 T @<
b 9: Z q1: 9Z p$ $ q. <LANETARY ANGLES ARE TABULATED BELOW'//5X,'SUN MER VEN MAR JUP SAT URA NEP PLU MOO NOD PF. AS','C MC.'/' SUN',14I4/' MER',14I4/' VEN',14I4/' MAR',14I4/' JUP',14I4/' SAT',14I4/' URA',14I4/' NEP',14I4/' PLU',14I4/' MOO',14I4/' NOD',14I4/' PF.',14I4/' ASC',14I4/' MC.',14I4/) rX@ ( " )b + <(' IMPORTANT ASPECTS ARE AS FOLLOWS ("EXACT" ','ORBS PERTAIN TO THE '/' TRUE ANGLE BETWEEN OBJECTS ',' #1 AND #2)'//' OBJECT#1 OBJECT#2 ASPECT (DEG) ORB(EXACT)',' APPLYING/WANING'/) : Z p $ . D Z q & <$ p z & <$ z D S-\ P4 S "@ T-\ P4 T 4"@ !$ -\ Ps4 @ 4D 9 D q q r-\ Pn4 "@ S-\ P4 S @ p & <$ q p D S-\ N|4 S @ T p * <$
p (p H T-\ N|4 T T @ U
(z
z
H L U-\ N|4 U U @ V-\ N4 S @ V-\ N4 T V V @ W-\ Ld4 W p @ W-\ ;4 W4 8 @ q r-\ Pn4 "@ S-\ P4 S @ J D p&$ q&( . 4d p&$ q&( / 4D )5d |!$ & <$ pzz D S-\ ;4 S4 @ T-\ P4 T 9 & <$ q z @z+ !$ & <$ qzz D S-\ ;4 S4 @ T-\ P4 T 9 & <$ p z @z 9 D q r-\ Pn4 I @ S * <$
p (z , <$
q0z H T-\ ;4 T4 S @ T (z0z N U-\ ;4 U4 S T @ & <$ p z & <$ qz D S-\ ;4 S4 4` ' q r-\ Pn4 I @ S * <$
q (z , <$
p0z H T-\ ;4 T4 S @ T (z0z N U-\ ;4 U4 S T @ " 5$ ) , D rX@ + " 3b p(
E q(
E q(
U q r + 9(1X,2(A8,2X),A8,'(',I3,')',F7.2,'(',F5.2,')',5X,A1) q1: 9 ? p1: 9 = rX@ = " >b + D(/' PARALLEL ASPECTS (IF ANY) ARE AS FOLLOWS:'/) : Z p $ . D Z q & <$ $qXD J-\ P4 J @ S & <$ p $qXD M-\ P4 M S @ T-\ P4 T
E q(
E $ <$ p !95 ( $ <$ q !95 ( + e(6X,A8,' PARALLEL ',A8,' WITHIN ',F4.1,3H' (,I2,A1,I2,' & ',I2,A1,I2,')') q1: 9 G p1: 9 D rX@ j " kb + p(/' ESSENTIAL DIGNITIES (IF ANY) FOLLOW :'/) : Z p $ & <$ ..R D & $ . w4D & $ . p w D q rX@ z " b p(
E q( D S(
]
^ (
j + (6X,A8,' IS ',2A6,' IN ',A10) "$ & $ . p.w5$ p w & <$ p/!B5D rX@
" b p w + ('+',43X,' (BY EXACT DEGREE , ',I2,')') p1: 9 p rX@ " b + (/' MUTUAL RECEPTIONS (IF ANY) FOLLOW :'/) : Z p $ & <$ ..R D $ . D Z q $ & <$ ..R D & $ . w & $ . p$w-\ Pn4 5@ 7 rX@ + " /b p(
E q(
E + 6(6X,A8,'AND ',A8,'ARE MUTUALLY RECEPTIVE BY ','EXALTED SIGNS') + L $ $ . p w-\ Pn4 $ $ . q @ S w-\ Pn4 S 5@ L rX@ A " Eb p(
E q(
E + L(6X,A8,'AND ',A8,'ARE MUTUALLY RECEPTIVE BY ','NATURAL SIGNS') q1: 9 ! p1: 9 rX@ Q " Rb + Y(/' DISPOSITORSHIPS FOLLOW ("D" MEANS "IS THE ','DISPOSITOR OF")'/) : Z p@@h8 $ & <$ ..R D Iq DhIb ( T
U H J 1: 9 Z $ D ? $ D p@@ p Ib D q : Z q q Ib D q1: 9 h $ D q q D Ij q & F8 4d { rX@ p " b : Z Iw (
3: 9 q : Z ( T
U H J 1: 9 w@@ q( E F D F
J D Iw: q q p FIi q Ii D Ib q/Ii4D q: Ii"$ q.Ii5D > q"$ . q5D : p"$ p.84$ e4D
+ 1 & F8 q/ 5d ) rX@ " b : Z Iw (
3: 9 + (3X,12(A2,A8)) q( D F : Z ( T
U H J J DhIw1: 9 @@ ( E F3D 2F + )" q. 4D + q( ( E
F H J q D q : FIw" q. 4D + " q. 4D : rX@ 4 " b : Z Iw (
3: 9 5 rX@ ; " [b : Z q $ <$ !; $ <$ 5 $ <$ (1: 9 < : Z p : Z q $ <$ p. !8 $ <$ p. 5 $ <$ p. ( q1: 9 D p1: 9 C : Z p : Z q $ <$ p. !8 $ <$ p. 5 $ <$ . p ( q1: 9 P p1: 9 O + {(//23X,'MERC VENUS MARS JUPIT SATUR URAN NEPT',' PLUTO'/' HELIOCENTRIC--------'/' LONGITUDE',11X,8(1X,I2,A1,I2)/' LATITUDE',12X,8(1X,I2,A1,I2)/' DECLINATION',9X,8(1X,I2,A1,I2)/' GEOCENTRIC----------'/' PARTS',15X,8(1X,I2,A1,I2)/' NORTH PLANETARY NODE',8(1X,I2,A1,I2)/' SOUTH PLANETARY NODE',8(1X,I2,A1,I2)) : ; < |, PI < ;, P2 <
= < |, PR < |, PR < , P2 < =, Pd D rX@ " b + (/' TO GET SIDEREAL LONGITUDES SUBTRACT ',F8.4,' DEG. FROM ALL LONGITUDES') $ D t : Z p y2DhIZ+ $ . D t1: 9 rX@ " b t( D S(
i
j + "(//' CHART BELOW USES TROPICAL GEOCENTRIC ',2A7,' HOUSE SYSTEM',/,'1') t , F | : Z p"$ . -\ Pn4 > @ S-\ N|4 S
@ "$ . -\ Pn4 > @ S-\ N4 S $ @ D S-\ MC4 S @ T-\ Ps4 T @ . D : Z ? -\ Pn4 F M -\ Ps4 @ q!$ , -\ Pn4 F M -\ Ps4 @ q $ #$ q. q K F<S3: 9 7 p1: 9 $ ? D BC : Z p $ D q & <$ q t. " p , D S-\ ;4 S4 @ T , <$
p
0z
p J T-\ ;4 T4 T@ " 4$ X: q+ K-\ Pn4 q m 5 p @Hr p $HrXD ^-\ N|4 ^@ @ S-\ Ps4 S @HZ p $HrXD c-\ N4 c @ S-\ Ps4 S @Hf p $HrXD h-\ N|4 h @ @ S-\ Ps4 S @ p $HrXD m-\ N4 m @ @ S-\ Ps4 S @ !" p.HZ DH`" ! p.Hf DHl+ p $HrXD w-\ N|4 w@ @ S HZ-\ Pn4 S @ T-\ Ps4 T @HZ p $HrXD ~-\ N4 ~ @ @ S Hf-\ Pn4 S @ T-\ Ps4 T @Hf" p.HZ DH`" ! p.Hf DHl p HZ-\ Pn4
K3J <Sg
O
A J * #$
q
q.
3H0<Sg O K3N0<Sg O A G 4$ u p HZ5d 1 $ #$ q. q p( HK F<S $ #$ ". ! p( HL F<S+ 8 $ #$ q. q p( HL F<S $ #$ ". ! p( HK F<S p1: 9 J : Z p $ D q & <$ q t. " p , D S-\ ;4 S4 @ T"* .
p-\ Pn4 4 p @ T-\ ;4 T4 T @ " 4$ I: q+ ;-\ Pn4 q m 5 p @Hr p $HrXD O-\ N|4 O
S-\ Ps4 S @ q p $HrXD U-\ N4 U $ ,"@ S-\ Ps4 S @ q $ #$ q. q p F<S p1:
9 :S: sZ pS rX@ Hf" fb : ,Z qS$ #$ p. <S1: #9 ` p 1: 9 ]+ g(' ',70A1) : Z p hHZ-\ Pn4
S-\ Ps4 S @ " $hHxXD -\ N4 $ ,"@ S-\ Ps4 S @ # $ #$ #. " K F<S $ #$ q. q J F<S $ #$ ". ! J F<S1: 9 h rX@
" + (/' INTERCEPTED SIGNS (IF ANY) FOLLOW') : Z p!$@ hHr m D S-\ Pq4 S @ T!&@ hHr m F T-\ Pq4 T/ T5@ ! rX@ " b p(
^
d + !(6X,A10,4X,A10) p1: 9 " $b + ,(/////////' DO YOU WANT ANOTHER HOROSCOPE ? ','(TYPE YES OR NO) -----'/) " .B~ y + /(A3) @3D y+ 8 " 2b + 7(' ENTER ANOTHER SET OF BIRTH DATA ........'/) + = m4d E " :b + E(' AFTER EXIT TYPE "Q CHART.DATA/DISPOSE:RENAME"'/' TO LINEPRINT HOROSCOPES WITH OPTION "LINEPRINT" ') -\ Q + 0 Y~j y~jZ"6@ @I }FS. P`THLINEP
CHARTXN"v@ B3 Jx 63G%R65@xQ$jh hREPHEMPROGR#qj` wHT":cxx"B[ "5L hmb s
!lf3 qW9F!sf3 q
8w"2Y9# !RRx" qa#!8J`"1+."v[Rx"VpQ"\."QnFI!~&3 qe0 q !{Lf3 ^;2!p:y"YLf \EPr"4
"Df3!5o Y"~3!0=8!w%q!QF3!
v"|":c}y!rMF!rJ \"'<5!TUY "o!3A !rv3!yILf!X'oN!5(zp!;o>;!3o Y!<e@A!zp!2/.
!hzp!YLf!08(z!2JpQ!/
7 8h9, ADM!q
lE!8I] z5a# z \!=8(z!6N
!49Lf!P~O"_04"O:/ QzV6!2Fd-# %q""h + !Qj? _.
# 4Lf">hf3#G@ #3Q3!7O.
!R8\!
f3!tL
e="3 r@ {an@" 63"1*3 Vz !syLf 8e4D 2IMA 0+ y~j 0 "~ $-"08( q+h ZS!79r2 zy0 } ^X%<C+>x%2GF! 6s{|Fg<Mn)Y0 0 4#sNViS5 [vL/ (QFjw`fUD+S N #j9&(a w $Out#v X(zp$4B F3M 1d{Yl+5# X> `TH!Qf3+ ?kBGNO ~p#$Ix2 <5 $R A z?-X$ I.7 *` b#rX=^
r ":dQYj6"';|7U"7:$-Jup8MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY SATURDAY SUNDAY MOON) MARS) MERCURY) JUPITER) VENUS) SATURN) SUN) SUN MERCURY VENUS MARS JUPITER SATURN URANUS NEPTUNE PLUTO MOON MOONNODE PARS F. ASCEND. M.C. NONE CONJUNCT SEMISEX. SEMISQ. SEXTILE QUINTILE SQUARE TRINE INCONJ. OPPOSED EXALTE D FALLEN NATURA L DETRIM ENTAL HARMON IOUS INHARM ONIOUS ARIES TAURUS GEMINI CANCER LEO VIRGO LIBRA SCORPIO SAGITARIUSCAPRICORN AQUARIUS PISCES ...CAMP ANUS... ...MORI NUS.... ...PLAC IDUS... REGIOMO NTANUS ...PORP HYRY... ....EQU AL..... ....ZAR IEL.... ..ALCIB ITUS... .....KO CH..... X 0$ 0, 03 09 0B 0Q 0` Po ~hs $ - < K Z
p} p~ x ` ` x p h
x X p x p p x p p p x ` `# x& p' h* x, X- p0 x2 p3 p5 x6 x7 ? qKh Z(d ;x ` 7qVU Z.0 YS
8 Q<}\ _Ooc*
l] 5:
c&| B xX~PH"63g!yHx,"IS3"3| " R"|%!rJO!TQ" p]!y'D!r|e""OC"4qG8!h&3!vCFJ"cr!Up-{"Y=1;@o4|8qR [ o =M=X 4~^ Sz
r \k4 <;u$!1 8u 0 xc& b 80Ab tgjq! xh!38~!> r!Skw &A T G C L V = S / K Q P { H4 I I I I I I I V V V I V I I V I I I I X X X I X I I S U M E V E M A J U S A U R N E P L M O M N P F A S M C IXFIRE EARTHAIR WATER MORINPLACIREGIOPORPHEQUALZARIEALCIB Iq JJA FE MR AP MY JN JL AU SE OC NO DE 0J }XJ! \ K @ K< K0< 0| + 1\ + J/,>pJ Z pJ + p @ hJR@ pJR@(Jl@0Jv@ xJY@ JY@8Jx@(Jf@ PJp@ PJq@ hJR@J7@ J7@JR@JR ,PJe[ (/< 0"` S<p X< 0 p 3@ K+ J6*| J2-< K wxJ4Z` J!+ Je! @w+ J3< K p 7 p + JR,> ,> ,> &w p , JM,& .< 7@p + JK p , JM" K J~.< p ` K w,& ,& 5 J=.< p d K: ." Q ,& p ,& >` 9 JH.< 9 J=@@ ,^ ,^ ,^ + JRd @ @ & 0b ." ." )B}5@ JN,~ m< !< P\ K< K p [ p l< 0@X + JXZ p .< / p Q \ K+ J[@@ K!< P\ K7@ K+ J^ < K \ K@@ K!< P\ KX X\ K K7@ KD<7@ KA< \ K < K[`x K, x ,^x K+ J! J!Q< \ K: J! \ K< K pJ~| K < \ K@@ K+ Jb@@ K Q< \ K< K pJ~| K+ Jb7 K K \ K @ JuX Q< \ K K \ K+ Jb~xJu[`x K, x + J}Z \ K@@ K@@ K< K \ K+ Jb7 K KX\ J!@@ K@@ K+ JdPJ ~0K>x ! Z @
& KU` eB + K
" + K
& K+ L 6$ 1 ,> Q. @
p .4 6$ /8J|.
.4 K. KSEQIN}8K @ KSEQOUT @ K@ Ju
%5 Source level error at user's loc
` Z (X^ . > R.~ (3~ + K ~ + K+Z . \x <x *<x .ez+ K'!" b + " K( b + Z . h + gg M?} K+
& K- b + K ,
?NO CORE AVAILABLE - CAN NOT PROCEED
}HK1!* KO** ,^ ,~ * x ,> J KR * KO** KR p Z@ KE`|+ K:P w,~ "p h a`~ + K?h ``~ + K@$ L!KAd L/"+ K:P ,~ @ @ @ @ @0 @x @@ @` yPKRedX91 ,> Q, K4!" QB KE < KE, + K2SMI 1 ,> Q, K4 L+ K\_MI 1 ,> Q, K4 L B KF p d"~ l"
B KF!" GB KE+ KrI5R1 ,> Q, K4 & L B KF*\ Kq p d"~ l" B KF*\ Kq p .& d"~ l" $ B KG*\ Kq p .& d"~ l"
B KG*\ Kq.& Sp *\ KqXp B KN@@ KO L B KH(F QF KE < KE, + K2EV4i91 ,> Q+ KS ,i@1 ,> Q+ K_ ,i@1 ,> Q+ KK>2 1 ,> Q+ KK>40 1 ,> Q+ K[<I71 ,> Q
& L
w @ )@ .
" 5B L
& L,~ .
.4 SEQINvxL ^ LSEQOUT ^ LRANDOM ^ L KN
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> QO@ LN+ LgR~@1 ,> Q@@ LN,> ,> @ 6 w+ L!" LO0B + L !"A`X#p 5@ L/#p !" X#p + L!\p + L!a.9'1 ,> Q,> ,> O@ LN+ L!,>
6 + _ 4` L*"` Q@ ,> < LP, ,^ ,> < LS,
,^ *b L'+ L4,> < LT, ,^ 7@ LN+ L/,> < LW,
,^ + L1,> < LY,
,^ Z 5" L4,> < LZ,
,^ , 7@ LN,
,> < L\, ,^ , ,> < L_, ,^ ,> < Lb,
,^ (@qd 1@ ,,
1@ #+ LC0@ *+ L5,> < Lc, ,^ + L5,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP hLN.p X `LQ LK p pLSX `LU LL p LMpLXp LNpLYp pL[X `L] LE X ~PL` LJ p x }hLcC~0 1 ,> Q#p 2` Lt+ Lr4@ Lq + "` Lt @ Lu,> < Lv, MC,^ p + @ Lu,> < Lv, M(,^ 7!p Lu,~ Lt,~ +P K-0Lw@ ,~ 0 9~j Y~j@Lux LuACOS OF ARG > 1.0 IN MAGNITUDE~ LzCNM` 1 ,> Q#p 2b M + M"p p + M 4@ M @ M
,> < M
, MC,^ p B M
,> < M
, M(,^ ,~ M 7ap "` ,~ +P K-0M
9~j 0 x M
ASIN OF,ARG>1.0#IN MAGNITUDE}8MCR +2 M+@ M&,> !< M', M(,^ 6D M%,~ 5B M M$,~ M$,~ +`` + M 4@ M M$7 M%"` ,~ 4" M"+D K-0M!`F ,~ 7 M$7 M%"` ,~ Y~j,9~j|`M&x M&CRG ZCv\ 7f ]V#QI+0`}}PMA 9~jgG@ 1 ,> Q7cp + MQ )@ / @( X@ MN(B{4 MOB ? B MU "P" MU B MU @ ,~ B @ B MU ""X+ MJ4B MT+P K-0
MU#p + ME ,~ uMUattempt to take SQRT of negative arg Kc3@ p p + MeKc3K , Me
,~ Kc3J , Me ,~ Kc3I , Me ,~ Kc3H4B M{5@ Mh5" Mz+D K-0
MgU,~ ,> ,> # $ )D /$ @,> 4d MrX $ (F) + Mr5F Mr5" Mp"` , N + My# ,> < M|, NW,^ @ ,> < M}, N2,^ 5& My" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + N Kc#K , N @ ,~ Kc#J , N @ ,~ Kc#I , N @ ,~ Kc#H4B N.5@ N
N
U ,~ D N.!$ @ N- B N-5" N#` + N*, N!" B ,~ + N(BdB + N5B N N.,~ +7` N-+ N `d +D K-0N+D K-0
NU `d @ 6 N-+ N N-`B "` + N/ N/id + N"+D K-0N# N-,> < N0, NW,^ @ ,> < N1, Pn,^ @ ,> < N0, N2,^ + N U", N N-+ N+ N| N.! ,~ x x N-Kc 1 ,> Q p 3" NN+ N83b NM+ N:+D K-0
N7U ,~ +D K-0N9 ,~ D NN F NO@@ NO%" j" % NL)/;` : XD NH5f NAaF + NA.& @(|h& f NO NK NL NK NO NJ D NM@ NN NO,~ !t0 _' "S'qf!um. .#Y% !v yO^ RXNOC2|t(1 ,> Q p 4@ Ng @ NV,> < Np, NW,^ NV,~ {e^b}NVC2|p 1 ,> Q p 5` N[4@ Ng+P K-0Np#p 3@ Nj+ Ni) r. !@ Nn! n@ Nn(|h" Nk Nk B No Nl Nl Nm No Nn Nm,~ +D K-0
Nh Nn,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ 8Nox NVATTEMPT TO TAKE LOGBOFNEGATIVEOARG{`NtG? @ 1 ,> Q p O O+O + Og&t@ 1 ,> Q*p O+L + OG? 1 ,> QRp O+ Og&p 1 ,> Q p B O#` 3b O+ O D O O3b O+ O %" (D?d$ " @($ )B
&1ahfc"j9~c B=!Z w6 ?c1f
nS *v eWxtj[3 : hP@be|/y?fb $} z'i QD"hD" *U**U*U`*U*Uu*U* p 8O)Fo]o%g+&o}o%g + O@INM` 1 ,> Q O/* O3 #p 4@ Ot@l O05 OBO@ O0 @ O4 B O4 O/+0 OH" O0+ O/+ 2 P+ Ow2 P , O4 O4`L L@ O04L OR`L ., 0O) 0O)+0 OP 7 @ O4 B O4d
~ZL O13` P+ Ou @ O4+ O4+ + O4+0 OY 0O 0O ,0O F
+ + + & +0 O` & 0 &0 +0 Oc & ., 1l O)+ O[ @ + + + +0 Oj O. O.+0 Ol 6@ O1+ Os @ O4+ O4+ + O4+0 Os 6@ O0 !
O/*, ,~ 4L Os O. O.+ Os , P(B d ~ )@7?, P3& P+ OJd ~ @ A(B{B 3 @ O0+ O/+ + O/+0 P @ O4 B O4+ OK 0 sL#B6 0
p Iex:1 ,> Q p + PS5 1 ,> Q+ PIO 1 ,> Q+ PSMm 1 ,> Q #p + P I
dP 1 ,> Q p " ,~ g:=@ 1 ,> Q #p + PmIad _ P @ M7 8B P B V ,~ S1d ,> _ ( {5 P h d ~ (B ) w27 "` ,^ ,~ Id , P, ,~ Id@$ , P2$ ,~ Ie ( , P9( ,~ I d ,> ,>p ,>p x +0 P0 / P1,^ ,~ I d@,> ,>p ,>p x $+0 P6 $ / P8,^ ,~ I e ,> ,>p ,>p
x (+0 P=
( / P>,^ ,~ Iid ,> ,>p ,>p @ x + + + +0 PF / PH,^ ,~ Iid@,> ,>p ,>p D x + + + $+0 PP $ / PQ,^ ,~ Iie ,> ,>p ,>p H
x +
+
+ (+0 PY
( / P[,^ ,~ I!d ,> ,>p ,>p p +0 Pb" x + + / Pc,^ ,~ I!d@,> ,>p ,>p $p +0 Pj" x + + $ / Pl,^ ,~ g:9d ,~ M2| 1 ,> Q p + PuS; 1 ,> Q+ PtSO 1 ,> Q p + PzM3!d _ P @ M7 8B PyB V ,~ SAd % * 5" P|h"` ( .7 "` ,~ C 1 ,> Q#p ,~ S0 1 ,> Q#p +" Q,~ U ,~ g&=` 1 ,> Q#p 7!p "` ,~ SNL{@1 ,> Q p Fp 4 Q
p ,~ "p +" Q,~ U ,~ KbN@ 1 ,> Q,
,~ QY\ QQ< X\ Q* xQ+ + F