From owner-freebsd-questions@FreeBSD.ORG Mon Jun 17 20:40:20 2013 Return-Path: Delivered-To: freebsd-questions@freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [8.8.178.115]) by hub.freebsd.org (Postfix) with ESMTP id 001716B1; Mon, 17 Jun 2013 20:40:19 +0000 (UTC) (envelope-from christopher.maness@gmail.com) Received: from mail-vc0-f178.google.com (mail-vc0-f178.google.com [209.85.220.178]) by mx1.freebsd.org (Postfix) with ESMTP id A29691E62; Mon, 17 Jun 2013 20:40:19 +0000 (UTC) Received: by mail-vc0-f178.google.com with SMTP id m17so2387646vca.9 for ; Mon, 17 Jun 2013 13:40:12 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:sender:in-reply-to:references:date :x-google-sender-auth:message-id:subject:from:to:content-type; bh=u7BiZR/0qGQRaGk4wuxFGfi4IC8yKfuRXS7ni5IKidk=; b=iC5eorpbvQ7QBZPc2taDPVzzYmSoPI8wastJ4vSkz3WJ44/g4uD/niT/mmOWXb4Qjn SJpvD7svAb5WyGR7cdEnPFE0R/akwPOdCVO6rjPp7x6BC5+8Q5gyS8iv12q5xbuB1UrL b2l1qmA8po7PR+c84xnyXjmITgDNv4fMf8LlYoRNjy9IXHHA7cyHUhxnbO0OB9VT1MEz pKyoJkR09qKEvW+UuEB81GjgMh34o+rPkS/6R8T7nE/kzpSBcldc5yi/npvgltB5kule ChBNKAmWLs3uYHrUDHLb2CgrUuvwsW/j2F2788ou3kz/BFk4qCwICXcJHpW/+BBae6pY OZfA== MIME-Version: 1.0 X-Received: by 10.52.25.42 with SMTP id z10mr682980vdf.79.1371501612783; Mon, 17 Jun 2013 13:40:12 -0700 (PDT) Sender: christopher.maness@gmail.com Received: by 10.58.220.105 with HTTP; Mon, 17 Jun 2013 13:40:12 -0700 (PDT) In-Reply-To: References: <51BF4CF2.4060403@FreeBSD.org> <51BF6622.7050209@FreeBSD.org> Date: Mon, 17 Jun 2013 13:40:12 -0700 X-Google-Sender-Auth: Oa8GgX7JjlkOv85fI3cVnxb-A0M Message-ID: Subject: Re: Any BASIC Gurus around? From: Chris Maness To: glarkin@freebsd.org, "freebsd-questions@freebsd.org" Content-Type: text/plain; charset=ISO-8859-1 X-Content-Filtered-By: Mailman/MimeDel 2.1.14 X-BeenThere: freebsd-questions@freebsd.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: User questions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 17 Jun 2013 20:40:20 -0000 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 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 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----- >> > >