-+-+-+-+-+-+-+-+ START OF PART 4 -+-+-+-+-+-+-+-+
X`0958(1X,I2,A1,I2)/' North Planetary Node',8(1X,I2,A1,I2)/
X`096' South Planetary Node',8(1X,I2,A1,I2))
XCCCCCCCCC
XC
XCCCCCCCCC
X`09W=(84038.55+5025.640*T+1.1118*T*T)/3600.
X`09WRITE(IOUT,38000)W
X38000`09FORMAT(/' To get sidereal longitudes subtract ',f8.4,
X`091' deg. from all longitudes')
XCCCCCCCCC
XC
XC     HOROSCOPE "WHEEL" OUTPUT ROUTINE
XC
XCCCCCCCCC
X`09NH=7
X`09DO 950 I=1,5
X`09IF(OPTION.NE.HOUSE5(I))GO TO 950
X`09NH=I+11
X950`09CONTINUE
X`09WRITE(IOUT,39000)HOUSE(1,NH-6),HOUSE(2,NH-6)
X39000`09FORMAT(//' Chart below uses tropical geocentric ',2a7,
X`091' house system',/,'1')
X`09P(NH,13)=P(NH,1)
XCCCCCCCCC
XC
XC     FOLLOWING PUTS SPOKES INTO WHEEL
XC
XCCCCCCCCC
X`09DO 960 I=1,6
X`09W=34.5*COS((I-1)*.5235988)
X`09WW=20.5*SIN((I-1)*.5235988)
X`09M=SQRT(W*W+WW*WW)+1.
X`09M2=M+M
X`09DO 960 II=1,M2
X`09J=W-W*II/M+35.6
X`09K=WW-WW*II/M+21.5
X960`09WHEEL(J,K)='.'
X`09WHEEL(35,21)='+'
XCCCCCCCCC
XC
XC     FOLLOWING PUTS PLANETS INTO WHEEL
XC
XCCCCCCCCC
X`09DO 1040 I=1,12
X`09J=1
X970`09W=ARG(P(20,I)-P(NH,J),1.)/ARG(P(NH,J+1)-P(NH,J),1.)
X`09IF(W-1.)990,980,980
X980`09J=J+1
X`09GO TO 970
X990`09PLACE(I)=(J+W+5.)*PI/6.
X`09IWX1(I)=32.*COS(PLACE(I))
X`09IWY1(I)=18.*SIN(PLACE(I))
X`09NDIF1=1.99*COS(PLACE(I))
X`09NDIF2=1.99*SIN(PLACE(I))
X`09IWX2(I)=IWX1(I)-NDIF1
X`09IWY2(I)=IWY1(I)-NDIF2
X`09GO TO 1010
X1000`09IWX1(I)=IWX1(I)-4.*COS(PLACE(I))
X`09IWY1(I)=IWY1(I)-3.*SIN(PLACE(I))
X`09IWX2(I)=IWX1(I)-NDIF1
X`09IWY2(I)=IWY1(I)-NDIF2
X1010`09J=IWX1(I)+35.5
X`09K=-IWY1(I)+21.5
X`09JJ=IWX2(I)+35.5
X`09KK=-IWY2(I)+21.5
X`09IF(((WHEEL(J,K).NE.'.').AND.(WHEEL(J,K).NE.' '))
X`091.OR.((WHEEL(JJ,KK).NE.'.').AND.(WHEEL(JJ,KK).NE.' ')))
X`092GO TO 1000
X`09IF(IWX1(I))1020,1020,1030
X1020`09WHEEL(J,K)=PLAN2(1,I)
X`09WHEEL(JJ,KK)=PLAN2(2,I)
X`09GO TO 1040
X1030`09WHEEL(J,K)=PLAN2(2,I)
X`09WHEEL(JJ,KK)=PLAN2(1,I)
X1040`09CONTINUE
XCCCCCCCCC
XC
XC     FOLLOWING PUTS ZODIACAL CUSPS INTO WHEEL
XC
XCCCCCCCCC
X`09DO 1080 I=13,24
X`09J=1
X1050`09W=ARG((I-1)/12.-P(NH,J),1.)/ARG(P(NH,J+1)-P(NH,J),1.)
X`09IF(W-1.)1070,1060,1060
X1060`09J=J+1
X`09GO TO 1050
X1070`09PLACE(I)=(J+W+5.)*PI/6.
X`09J=34.5*COS(PLACE(I))+35.5
X`09K=-20.5*SIN(PLACE(I))+21.5
X1080`09WHEEL(J,K)=ZOD1(I-12)
XCCCCCCCCC
XC
XCCCCCCCCC
X`09DO 1090 I=1,42
X1090`09WRITE(IOUT,40000),(WHEEL(J,I),J=1,70)
X40000`09FORMAT(' ',70A1)
XCCCCCCCCC
XC
XC     FOLLOWING DELETES PLANETS FROM WHEEL
XC
XCCCCCCCCC
X`09DO 1100 I=1,12
X`09J=IWX1(I)+35.5
X`09K=-IWY1(I)+21.5
X`09JJ=IWX2(I)+35.5
X`09KK=-IWY2(I)+21.5
X`09JJJ=34.5*COS(PLACE(I+12))+35.5
X`09KKK=-20.5*SIN(PLACE(I+12))+21.5
X`09WHEEL(JJJ,KKK)='.'
X`09WHEEL(J,K)=' '
X1100`09WHEEL(JJ,KK)=' '
XCCCCCCCCC
XC
XC     INTERCEPTED SIGNS
XC
XCCCCCCCCC
X`09WRITE(IOUT,41000)
X41000`09FORMAT(/' intercepted signs (if any) follow')
X`09DO 1120 I=13,18
X`09IF(INT(PLACE(I)*6/PI)-INT(PLACE(I+1)*6/PI))1120,1110,1120
X1110`09WRITE(IOUT,42000)ZOD(I-12),ZOD(I-6)
X42000`09FORMAT(6X,A10,4X,A10)
X1120`09CONTINUE
XCCCCCCCCC
XC
XC9999`09TYPE 97000
XC97000`09FORMAT(/////////' DO YOU WANT ANOTHER HOROSCOPE ? ',
XC`091'(TYPE YES OR NO) -----'/)
XC`09ACCEPT 98000,OPTION
XC98000`09FORMAT(A3)
XC`09IF(OPTION.EQ.'NO ')GO TO 9998
XC       CLOSE (UNIT=IOUT)
XC`09TYPE 99000
XC99000`09FORMAT(' ENTER ANOTHER SET OF BIRTH DATA ........'/)
XC`09GO TO 140
XC
XCCCCCCCCC
X9999`09IF(LINEP)9997,9997,9996
X9996`09TYPE 96000
X96000`09FORMAT(' DONE')
X9997`09END
$ CALL UNPACK PLANET.FOR;1 796837014
$ v=f$verify(v)
$ EXIT