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)