From owner-freebsd-questions@FreeBSD.ORG  Mon Jun 17 19:03:48 2013
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
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 001E9282;
 Mon, 17 Jun 2013 19:03:47 +0000 (UTC)
 (envelope-from christopher.maness@gmail.com)
Received: from mail-ve0-x22b.google.com (mail-ve0-x22b.google.com
 [IPv6:2607:f8b0:400c:c01::22b])
 by mx1.freebsd.org (Postfix) with ESMTP id 9DCE5197D;
 Mon, 17 Jun 2013 19:03:47 +0000 (UTC)
Received: by mail-ve0-f171.google.com with SMTP id b10so2437237vea.16
 for <multiple recipients>; Mon, 17 Jun 2013 12:03:47 -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=fg1Q2fgSfi7VB1V3/VivjiUir7YWF9580+rHB1JZZC0=;
 b=ztotzuYdH8lLrrIk3Xa/CIR04mtRdn1clIP/uZDMj0Ke7O9FEZTBv0uPtAOHzGqkcf
 hEdOpX64sPXi8vUEokTg5R/yrC2+8RCUpQbs6o6iDJ9wtBsADVW1HRI3CkIdGQE2AW/k
 lTcleSWD+zF6xXP4xFCASNSLX1JQfFQQegR2eq/YJo1TSpCVkxEq+3A5AF9ssnsDtsGb
 6qHmc/54jkg97x6H9q6We3SxWMzMTOFOeq2MGbmzSZ58N7aURxUBFPWtPeTvZ/FyUvOb
 1bnTWfcjhwLoudI+z7zjyGDdjlmT4fMTzlwXFzTZxgdj8Msr/nJa5tqdHmLdTHnPumsY
 WDCw==
MIME-Version: 1.0
X-Received: by 10.58.46.48 with SMTP id s16mr5002090vem.52.1371495827141; Mon,
 17 Jun 2013 12:03:47 -0700 (PDT)
Sender: christopher.maness@gmail.com
Received: by 10.58.220.105 with HTTP; Mon, 17 Jun 2013 12:03:47 -0700 (PDT)
In-Reply-To: <CANnsUMGtYibAYkn-e2_83PMEvJ=p0JpPjchAkvVZhzBLT4pMkA@mail.gmail.com>
References: <CANnsUMG-2yaGgY-_aXtt2UTTRPCGFgFzhE0_sF74++saw5Uy1g@mail.gmail.com>
 <51BF4CF2.4060403@FreeBSD.org>
 <CANnsUMGtYibAYkn-e2_83PMEvJ=p0JpPjchAkvVZhzBLT4pMkA@mail.gmail.com>
Date: Mon, 17 Jun 2013 12:03:47 -0700
X-Google-Sender-Auth: E8lDyfrEpE65pygG3EVVKqpR1tE
Message-ID: <CANnsUME-1iYSMHSVyMZW2dpt-mzNbp6R-eBRFAM06duvg9FWkQ@mail.gmail.com>
Subject: Re: Any BASIC Gurus around?
From: Chris Maness <chris@chrismaness.com>
To: glarkin@freebsd.org, 
 "freebsd-questions@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 <freebsd-questions.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/options/freebsd-questions>, 
 <mailto:freebsd-questions-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-questions>
List-Post: <mailto:freebsd-questions@freebsd.org>
List-Help: <mailto:freebsd-questions-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
 <mailto:freebsd-questions-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Mon, 17 Jun 2013 19:03:48 -0000

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