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