Any BASIC Gurus around?

Chris Maness chris at chrismaness.com
Mon Jun 17 19:03:48 UTC 2013


Oops, here is another patch that includes a correction for the missing
parenthesis that Michael Ross pointed out:

--- sun.bas.orig 2013-06-17 11:51:00.000000000 -0700
+++ sun.bas 2013-06-17 11:57:55.000000000 -0700
@@ -104,7 +104,7 @@
 1020 ON N GOTO 1030, 1090
 1030 IS=133775.*M/SK
 1040 PRINT "SUN AZIMUTH (DEG.) ";AZ
-1050 PRINT "SUN ALTITUDE (DOG.) ";HA
+1050 PRINT "SUN ALTITUDE (DEG.) ";HA
 1060 PRINT "SUN ILLUMINANCE (LUX) ";IS
 1070 N=2
 1080 GOTO 940
@@ -200,7 +200,7 @@
 1980 DS=FNARCSIN(SD)
 1990 RETURN
 2000 H=(A(L)-SI*SD)/(CI*COS(D))S
-2010 IF ABS(H>1. THEN GOTO 2040
+2010 IF ABS(H)>1. THEN GOTO 2040
 2020 H=FNARCOS(H)*RD/C
 2030 RETURN
 2040 H=1.5

Thanks, guys.  It will be cool if I can figure out why the interpreter is
core dumping.

Chris Maness


More information about the freebsd-questions mailing list