--- prog.bas.orig	2013-06-17 13:34:36.000000000 -0400
+++ prog.bas	2013-06-17 13:44:42.000000000 -0400
@@ -1,6 +1,6 @@
 10 DEF FNARCOS(ARG)=1.570796-ATN(ARG/SQR(1.-ARG*ARG))
 20 DEF FNARCSIN(ARG)=ATN(ARG/SQR(1.-ARG*ARG))
-30 DEF FNDEG(ARG)=INT(ARG)+((ARG-INT(ARG))*1O.)/6.
+30 DEF FNDEG(ARG)=INT(ARG)+((ARG-INT(ARG))*10.)/6.
 40 DEF FNDMS(ARG)=INT(ARG)+6. * (ARG - INT(ARG)) / 10!
 50 RD=57.29578
 60 DR=1./RD
@@ -53,9 +53,9 @@
 530 M=M-U+DT
 540 IF L<4 THEN LET K=K+1
 550 ON K GOTO 600,560,600,580,600,620
-560 IF M>=O. AND M<1. THEN GOTO 620
+560 IF M>=0. AND M<1. THEN GOTO 620
 570 GOTO 590
-580 IF M>=O. THEN GOTO 620
+580 IF M>=0. THEN GOTO 620
 590 M=M-SGN(M)
 600 K=K+1
 610 GOTO 390
@@ -75,17 +75,19 @@
 750 B(I)=B(I)+K*H-U+DT
 760 IF L<4 THEN LET N=N+1
 770 ON N GOTO 820,780,820,800,820,830
-780 IF B(I)>=O. AND B(I)<1. THEN GOTO 830
+780 IF B(I)>=0. AND B(I)<1. THEN GOTO 830
 790 GOTO 810
-800 IF B(I)>=O. THEN GOTO 830
+800 IF B(I)>=0. THEN GOTO 830
 810 B(I)=B(I)-SGN(B(I))
 820 NEXT N
 830 NEXT I
 840 ON L GOSUB 1350,1400,1400,1610
 850 NEXT L
 860 GOTO 150
-870 INPUT"SKY CONDITION = 1,2,3,10,";SK
-880 PRINT"DATA FOR ";IY;", MONTH ";IM;", DAY ";ID;", AT ";H;" HOURS"
+870 INPUT "SKY CONDITION = 1,2,3,10,"; SK
+880 PRINT "DATA FOR ";IY;", MONTH ";IM;", DAY ";ID;", AT ";H;" HOURS"
+881 PRINT "DT = "; DT
+882 PRINT "LO = "; LO
 890 E=FNDEG(H/100.)/24.-DT-LO/360.
 900 D#=ZO#+E
 910 N=1
@@ -101,9 +103,9 @@
 1010 HA=INT(ABS(HA)+.5)*SGN(HA)
 1020 ON N GOTO 1030, 1090
 1030 IS=133775.*M/SK
-1040 PRINT"SUN AZIMUTH (DEG.) ";AZ
-1050 PRINT"SUN ALTITUDE (DOG.) ";HA
-1060 PRINT"SUN ILLUMINANCE (LUX) ";IS
+1040 PRINT "SUN AZIMUTH (DEG.) ";AZ
+1050 PRINT "SUN ALTITUDE (DOG.) ";HA
+1060 PRINT "SUN ILLUMINANCE (LUX) ";IS
 1070 N=2
 1080 GOTO 940
 1090 E=FNARCOS(COS(V-LS)*CB)
@@ -111,67 +113,67 @@
 1110 P=.418*P/(1.-.005*COS(E)-.03*SIN(Z))
 1120 IL=P*M/SK
 1130 IS=IS+IL+.0005/SK
-1140 PRINT"MOON AZIMUTH (DEG.) ";AZ
-1150 PRINT"MOON ALTITUDE (DEG.) ";HA
-1160 PRINT"MOON ILLUMINANCE (LUX) ";IL
-1170 IL=INT(50.*(1.-COS(E»+.5)
-1180 PRINT" (";IL;"% OF MOON ILLUMINATED)"
-1190 PRINT"TOTAL ILLUMINANCE (LUX) ";IS
+1140 PRINT "MOON AZIMUTH (DEG.) ";AZ
+1150 PRINT "MOON ALTITUDE (DEG.) ";HA
+1160 PRINT "MOON ILLUMINANCE (LUX) ";IL
+1170 IL=INT(50.*(1.-COS(E+.5)
+1180 PRINT " (";IL;"% OF MOON ILLUMINATED)"
+1190 PRINT "TOTAL ILLUMINANCE (LUX) ";IS
 1200 GOTO 300
 1210 END
 1220 TD#=280.46#+.98565#*D#
 1230 T=TD#-INT(TD#/360#)*360#
-1240 IF T<O. THEN LET T=T+360.
+1240 IF T<0. THEN LET T=T+360.
 1250 TD#=357.5#+.9856#*D#
 1260 G=(TD#-INT(TD#/360#)*360#)*DR
 1270 LS=(T+1.91*SIN(G))*DR
 1280 AS=ATN(CE*TAN(LS))*RD
 1290 Y=COS(LS)
-1300 IF Y<O. THEN LET AS=AS+180.
+1300 IF Y<0. THEN LET AS=AS+180.
 1310 SD=SE*SIN(LS)
 1320 DS=FNARCSIN(SD)
 1330 T=T-180.
 1340 RETURN
 1350 R=M
 1360 GOSUB 1700
-1370 PRINT"SUN MERIDIAN PASSAGE AT ";R
+1370 PRINT "SUN MERIDIAN PASSAGE AT ";R
 1380 HA=INT(ABS(HA)+.5)*SGN(HA)
-1390 PRINT"ALTITUDE AT MER. PASS. ";HA
+1390 PRINT "ALTITUDE AT MER. PASS. ";HA
 1400 FOR 1=1 TO 2
 1410 R=B(I)
 1420 GOSUB 1700
-1430 IF R>=4800. OR R<O. THEN GOTO 1680
+1430 IF R>=4800. OR R<0. THEN GOTO 1680
 1440 ON 2*(L-1)+I GOTO 1450,1470,1530,1550,1570,1590,1650,1670
-1450 PRINT"TIME OF SUNRISE ";R
+1450 PRINT "TIME OF SUNRISE ";R
 1460 GOTO 1680
-1470 PRINT"TIME OF SUNSET ";R
+1470 PRINT "TIME OF SUNSET ";R
 1480 R=B(2)-B(1)
-1490 IF R<O. THEN LET R=R+1.
+1490 IF R<0. THEN LET R=R+1.
 1500 GOSUB 1700
-1510 PRINT"TOTAL DAYLIGHT ";R
+1510 PRINT "TOTAL DAYLIGHT ";R
 1520 GOTO 1680
-1530 PRINT"BEGIN CIVIL TWILIGHT AT ";R
+1530 PRINT "BEGIN CIVIL TWILIGHT AT ";R
 1540 GOTO 1680
-1550 PRINT"END CIVIL TWILIGHT AT ";R
+1550 PRINT "END CIVIL TWILIGHT AT ";R
 1560 GOTO 1680
-1570 PRINT"BEGIN NAUTICAL TWILIGHT ";R
+1570 PRINT "BEGIN NAUTICAL TWILIGHT ";R
 1580 GOTO 1680
-1590 PRINT"END NAUTICAL TWILIGHT ";R
+1590 PRINT "END NAUTICAL TWILIGHT ";R
 1600 GOTO 1680
 1610 R=M
 1620 GOSUB 1700
-1630 PRINT"MOON MERIDIAN PASSAGE AT";R
+1630 PRINT "MOON MERIDIAN PASSAGE AT";R
 1640 GOTO 1380
-1650 PRINT"TIME OF MOONRISE        ";R
+1650 PRINT "TIME OF MOONRISE        ";R
 1660 GOTO 1680
-1670 PRINT"TIME OF MOONSET         ";R
+1670 PRINT "TIME OF MOONSET         ";R
 1680 NEXT I
 1690 RETURN
 1700 R=INT(100.*FNDMS(R*24.)+.5)
 1710 RETURN
 1720 TD#=218.32#+13.1764#*D#
 1730 V=TD#-INT(TD#/360#)*360#
-1740 IF V<O. THEN LET V=V+360.
+1740 IF V<0. THEN LET V=V+360.
 1750 TD#=134.96#+13.06499#*D#
 1760 Y=(TD#-INT(TD#/360#)*360#)*DR
 1770 TD#=93.27#+13.22935#*D#
@@ -194,7 +196,7 @@
 1940 P=CE*SV*CB-SE*SB
 1950 SD=SE*SV*CB+CE*SB
 1960 AS=ATN(P/Q)*RD
-1970 IF Q<O. THEN LET AS=AS+180.
+1970 IF Q<0. THEN LET AS=AS+180.
 1980 DS=FNARCSIN(SD)
 1990 RETURN
 2000 H=(A(L)-SI*SD)/(CI*COS(D))S
@@ -208,8 +210,8 @@
 2080 Q=SD*CI-CD*SI*CS
 2090 P=-CD*SIN(H*DR)
 2100 AZ=ATN(P/Q)*RD
-2110 IF Q<O. THEN LET AZ=AZ+180.
-2120 IF AZ<O. THEN LET AZ=AZ+360.
+2110 IF Q<0. THEN LET AZ=AZ+180.
+2120 IF AZ<0. THEN LET AZ=AZ+360.
 2130 AZ=INT(AZ+.5)
 2140 H=FNARCSIN(SO*SI+CD*CI*CS)*RD
 2150 RETURN