WINDCHIL.BAS - Part II

 BBS: Inland Empire Archive
Date: 02-25-93 (12:54)             Number: 327
From: RICHARD BASH                 Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: WINDCHIL.BAS - Part II         Conf: (2) Quik_Bas
AskAgain:

LOCATE 15, 1: PRINT SPACE$(80): LOCATE 15, 2: COLOR 14, 4

INPUT "Would you like me to calculate another windchill
temperature for you (Y/N)? ", ANSWER$

'          ENDING ROUTINE

IF ANSWER$ = "N" OR ANSWER$ = "n" OR ANSWER$ = "NO" OR ANSWER$ =
"No" OR ANSWER$ = "nO" THEN LOCATE 5, 1: PRINT SPACE$(80): FOR Z%
= 1 TO 10: LOCATE Z% + 5, 1: PRINT SPACE$(80): NEXT Z%: LOCATE 8,
30: COLOR 15, 4

IF ANSWER$ = "N" OR ANSWER$ = "n" OR ANSWER$ = "NO" OR ANSWER$ =
"No" OR ANSWER$ = "nO" THEN GOTO ByeScreen

IF ANSWER$ <> "Y" AND ANSWER$ <> "y" THEN LOCATE 15, 1: PRINT
SPACE$(80): GOTO AskAgain

'         USER WANTS TO RUN ANOTHER WIND CHILL CALCULATION

CLS : GOTO StartHere

'         SUBROUTINE TO CONVERT TIME TO 12 HOUR CLOCK FORMAT

TimeConvert:

IF LEFT$(TIME$, 2) > "12" THEN T7$ = STR$(VAL(LEFT$(TIME$, 2)) -
12): SHIFT$ = " p.m.": T7$ = T7$ + RIGHT$(TIME$, 6) + SHIFT$

IF LEFT$(TIME$, 2) < "12" THEN T7$ = STR$(VAL(LEFT$(TIME$, 2))):
SHIFT$ = " a.m.": T7$ = T7$ + RIGHT$(TIME$, 6) + SHIFT$

IF LEFT$(TIME$, 2) = "00" THEN T7$ = "12": SHIFT$ = " a.m.": T7$
= T7$ + RIGHT$(TIME$, 6) + SHIFT$

IF LEFT$(TIME$, 2) = "12" THEN T7$ = "12": SHIFT$ = " p.m.": T7$
= T7$ + RIGHT$(TIME$, 6) + SHIFT$

RETURN

'         ENDING SCREEN

ByeScreen:

COLOR 15, 13: CLS
LOCATE 1, Q1: PRINT Q1$: LOCATE 2, Q2: PRINT Q2$
?
? "     旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴"
? "             THIS PUBLIC DOMAIN PROGRAM WAS WRITTEN BY    "
? "                                                          "
? "                     Richard M. Bash                      "
? "                 c/o Combat Arms BBS                      "
? "                     P.O. Box 913                         "
? "                     Portland, Oregon 97207-0913          "
? "                     Voice telephone: (503) 223-3160      "
? "                                                          "
? "        24 HOUR SUBSCRIPTION BULLETIN BOARD IN OPERATION  "
? "                                                          "
? "                 Combat Arms BBS                          "
? "           300/1200/2400/4800/7200/9600/12000/14400 bps   "
? "                 Firearms, math, science, & law files     "
? "                 BBS telephone: (503) 221-1777            "
? "                 FidoNet 1:105/68                         "
? "                                                          "
? "                                                          "
? "      This program last revised February 25, 1993         "
? "     읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴"
END


      -= THIS CONCLUDES THE PRESENTATION OF WINDCHIL.BAS =-


--- WM v2.04/91-0172
 * Origin: Combat Arms BBS - Portland, OR - (503) 221-1777 (1:105/68)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET