bwBASIC/SKYTEL/addmag.bas

10 REM  ADDING MAGNITUDES
15 REM
20 B=100^.2: N=2: C=LOG(10)
25 INPUT "1ST STAR MAG";M1
30 INPUT "2ND STAR MAG";M2
35 M = B^(-M1) + B^(-M2)
40 M = -2.5*LOG(M)/C
45 PRINT "TOTAL MAG:   ";M
50 M1=M: N=N+1: PRINT
55 INPUT "ANOTHER STAR";M$
60 IF M$="X" THEN 75
70 M2=VAL(M$): GOTO 35
75 PRINT "STAR COUNT:  ";N-1
80 END
81 REM  ------------------------
82 REM  APPEARED IN ASTRONOMICAL
83 REM  COMPUTING, SKY & TELE-
84 REM  SCOPE, APRIL, 1984
85 REM  ------------------------