Listing of file='VENUS.BAS;01' on disk='vmedia/nsw_ug_1-sideB-sector.ccvf'
10 REM ASTRONOMY DEMO PROGRAM-CAL. POSITION OF VENUS 11 REM FOR GIVEN DATE (RELATIVE TO POSITION OF THE EARTH 30 INPUT "ENTER THE DATE: (MONTH, DAY, YEAR)";M,D,Y 40 X= 364* INT ((Y- 49)/ 4)+ 365* ((Y- 49)- INT ((Y- 49)/ 4)) 50 PI= 3.14592:A= PI/ 180:B= 180/ PI:D= 99.21* A:E= D+ C* X 55 IF E< PI* 2THEN 70 60 E= E- PI* 2:GOTO 55 70 A= SIN (E- A* 105)* 1.98* A+ A:G= A* 80.851:F= A* 1.6021:H= G+ F* X 80 IF H< PITHEN 100 90 H= H- PI* 2:GOTO 80 100 H= H+ SIN (H- A* 135)* .81* A 110 J= SIN (H- A* 232)* .0055+ .72331 120 PRINT "THE REALTIVE LOCATION OF VENUS IN DEGREES IS=";M* J 130 PRINT "IN HOURS FROM THE SUN,VENUS IS";M* 12/ PI;" HOURS." 140 END