Skip site navigation (1)Skip section navigation (2)
Date:      Mon, 17 Jun 2013 15:40:18 -0400
From:      Greg Larkin <glarkin@FreeBSD.org>
To:        Chris Maness <chris@chrismaness.com>
Cc:        "freebsd-questions@freebsd.org" <freebsd-questions@freebsd.org>
Subject:   Re: Any BASIC Gurus around?
Message-ID:  <51BF6622.7050209@FreeBSD.org>
In-Reply-To: <CANnsUME-1iYSMHSVyMZW2dpt-mzNbp6R-eBRFAM06duvg9FWkQ@mail.gmail.com>
References:  <CANnsUMG-2yaGgY-_aXtt2UTTRPCGFgFzhE0_sF74++saw5Uy1g@mail.gmail.com> <51BF4CF2.4060403@FreeBSD.org> <CANnsUMGtYibAYkn-e2_83PMEvJ=p0JpPjchAkvVZhzBLT4pMkA@mail.gmail.com> <CANnsUME-1iYSMHSVyMZW2dpt-mzNbp6R-eBRFAM06duvg9FWkQ@mail.gmail.com>

Next in thread | Previous in thread | Raw E-Mail | Index | Archive | Help
-----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-----



Want to link to this message? Use this URL: <http://docs.FreeBSD.org/cgi/mid.cgi?51BF6622.7050209>