Any BASIC Gurus around?

[Chris Maness]

On closer inspection it looks like the moons in the right spot, but the Sun
is in the wrong spot.  I will take a look and see if there is no error in
the lines that deal with the Sun's Az/El.  I have the original code that
was scanned from a USNO document.  The OCR was rather sloppy.  I will post
the original in a minute and send the link.

Thanks, again
Chris Maness


On Mon, Jun 17, 2013 at 1:24 PM, Chris Maness <chris at chrismaness.com> wrote:

> Thanks a ton Greg, it works great.  The only thing I that seems to be an
> issue of I use Zulu time.  According to the ephemeris the time seems to be
> wrong when I use Zulu time.  I would have never been able to fix that
> program.  Thanks again.  I am going to load it on my NEC 8201A and see if
> it will run there :D
>
> Thanks,
> Chris Maness
>
>
> On Mon, Jun 17, 2013 at 12:40 PM, Greg Larkin <glarkin at freebsd.org> wrote:
>
>> -----BEGIN PGP SIGNED MESSAGE-----
>> Hash: SHA1
>>
>> On 6/17/13 3:03 PM, Chris Maness wrote:
>> > Oops, here is another patch that includes a correction for the
>> > missing parenthesis that Michael Ross pointed out:
>> >
>> > --- sun.bas.orig2013-06-17 11:51:00.000000000 -0700 +++
>> > sun.bas2013-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
>>
>> Hi Chris,
>>
>> I prepared a new patch that incorporates my fixes, yours and
>> Michael's.  I found the coredump - multiple missing right parens on
>> line 1170.  Then I ran into another problem on line 430 and made an
>> educated guess with the fix.
>>
>> The new patch is here, and you'll need to apply it to the original
>> version of the program:
>> http://people.freebsd.org/~glarkin/diffs/prog.bas.2.diff
>>
>> Hope that works,
>> Greg
>>
>> - --
>> Greg Larkin
>>
>> http://www.FreeBSD.org/           - The Power To Serve
>> http://www.sourcehosting.net/     - Ready. Set. Code.
>> http://twitter.com/cpucycle/      - Follow you, follow me
>> -----BEGIN PGP SIGNATURE-----
>> Version: GnuPG v1.4.13 (Darwin)
>> Comment: Using GnuPG with Thunderbird - http://www.enigmail.net/
>>
>> iEYEARECAAYFAlG/ZiIACgkQ0sRouByUApAjVQCfYAWvfi7sJwa6+og+jcJDsrno
>> jaYAn1vqRecRUn8e1dqU9uI+TMlvjU3Q
>> =9Tnl
>> -----END PGP SIGNATURE-----
>>
>
>