bwBASIC/B15B/chart.bas

100 REM	   CHART NUMBER	PROGRAM
110 REM
120 PRINT
130 PRINT "Enter 2000.0	position"
140 PRINT
150 INPUT "R.A.	hrs.";H
160 IF H<0 OR H>=24 THEN 150
170 INPUT "R.A.	min.";M
180 IF M<0 OR M>=60 THEN 170
190 H=H+M/60
200 PRINT
210 INPUT "  + or - ";D$
220 IF LEN(D$)>1 THEN 210
230 INPUT "DEC.	degrees";D
240 IF D<0 OR D>90 THEN	230
250 INPUT "DEC.	min.   ";M
260 IF M<0 OR M>=60 THEN 250
270 D=D+M/60
280 IF D$="-" THEN D=-D
290 REM
300 REM
310 REM	   SKY ATLAS 2000.0
320 REM
330 IF ABS(D)>=18.5 THEN 370
340 S=9+INT(H/3+1/1.2)
350 IF S=9 THEN	S=17
360 GOTO 460
370 IF ABS(D)>=52 THEN 410
380 S=4+INT(H/4)
390 IF D<0 THEN	S=S+14
400 GOTO 460
410 S=1+INT(H/8)
420 IF D<0 THEN	S=S+23
430 REM
440 REM	 URANOMETRIA 2000.0
450 REM
460 IF ABS(D)>=5.5 THEN	510
470 U=215+INT(H*1.875+.5)
480 IF U=260 THEN U=215
490 V$="Volume I & II"
500 GOTO 900
510 IF D>0 THEN	V$="Volume I"
520 IF D<0 THEN	V$="Volume II"
530 IF ABS(D)>=50 THEN 730
540 IF ABS(D)>=28 THEN 640
550 IF ABS(D)>=17 THEN 600
560 U=170+INT(H*1.875+.5):
570 IF U=215 THEN U=170
580 IF D<0 THEN	U=U+90
590 GOTO 900
600 U=125+INT(H*1.875+.5)
610 IF U=170 THEN U=125
620 IF D<0 THEN	U=U+180
630 GOTO 900
640 IF ABS(D)>=39 THEN 690
650 U=89+INT(H*1.5+.5)
660 IF U=125 THEN U=89
670 IF D<0 THEN	U=U+261
680 GOTO 900
690 U=59+INT(H/.8+.5)
700 IF U=89 THEN U=59
710 IF D<0 THEN	U=U+327
720 GOTO 900
730 IF ABS(D)>=72.5 THEN 830
740 IF ABS(D)>=61 THEN 790
750 U=35+INT(H+.5)
760 IF U=59 THEN U=35
770 IF D<0 THEN	U=U+381
780 GOTO 900
790 U=15+INT(H/1.2+.5)
800 IF U=35 THEN U=15
810 IF D<0 THEN	U=U+425
820 GOTO 900
830 IF ABS(D)>=84.5 THEN 880
840 U=3+INT(H/2+1/2.4)
850 IF U=15 THEN U=3
860 IF D<0 THEN	U=U+457
870 GOTO 900
880 U=1+INT(H/12)
890 IF D<0 THEN	U=474-U
900 PRINT: PRINT
910 PRINT "SKY ATLAS 2000.0 --"
920 PRINT "  Chart ";S
930 PRINT
940 PRINT "URANOMETRIA 2000.0 --"
950 PRINT "  Chart ";U;" in ";V$
960 PRINT
970 REM ************************
975 REM  FROM SKY & TELESCOPE'S
980 REM  ASTRONOMICAL COMPUTING
985 REM  FOR APRIL, 1989, P. 420
990 REM ************************
995 END