5 rem by Stephen Waits
10HOME:? "     WEATHER FORECASTER":FOR i=1 TO 900:NEXT i
20GOTO 1500
30HOME:? "Barometric conditions:":?:?:?
40? "1. 30.1 or more and steady":? "2. 30.1-30.2 rising      rapid ly"
50? "3. 30.1 or more falling slowly":? "4. 30.1 or more      falli ng rpdly"
55? "5. 30.0 or less falling slowly":? "6. 30.0 or less      falli ng rpdly"
60? "7. 30.0 or less rising slowly":? "8. 29.8 or less       rising  rapidly":? "9. 29.8 or less falling rpdly"
70?:? "A 'rapid' change is considered to be anything over    .06 '/hour":?:?:?:?
80INPUT "WHICH ONE? "; bar
90ON bar GOTO 100, 200, 300, 400, 500, 600, 700, 800, 900
100HOME
110? "Wind Changes":?:?
120? "1- NW to SW"
130?:?:INPUT "WHICH ONE? "; a
140ON a GOTO 1020
200HOME
210? "Wind Changes":?:?
220? "1- NW to SW"
230?:?:INPUT "WHICH ONE? "; a
240ON a GOTO 1010
300HOME
310? "Wind Changes":?:?
320? "1- S to SE":? "2- NE to SE":? "3- N to E":? "4- NW to  SW"
330?:?:INPUT "WHICH ONE? "; a
340ON a GOTO 1040, 1060, 1080, 1030
400HOME
410? "Wind Changes":?:?
420? "1- S to SE":? "2- NE to SE":? "3- N to E"
430?:?:INPUT "WHICH ONE? "; a
440ON a GOTO 1050, 1070, 1000
500HOME
510? "Wind Changes":?:?
520? "1- NE to SE"
530?:?:INPUT "WHICH ONE? "; a
540ON a GOTO 1090
600HOME
610? "Wind Changes":?:?
620? "1- NE to SE"
630?:?:INPUT "WHICH ONE? "; a
640ON a GOTO 1100
700HOME
710? "Wind Changes":?:?
720? "1- S to SW":? "2- NW to SW"
730?:?:INPUT "WHICH ONE? "; a
740ON a GOTO 1110, 1110
800HOME
810? "Wind Changes":?:?
820? "1- to the WEST"
830?:?:INPUT "WHICH ONE? "; a
840ON a GOTO 1140
900HOME
910? "Wind Changes":?:?
920? "1- S to SE":? "2- NE to SE":? "2- N to E"
930?:?:INPUT "WHICH ONE? "; a
940ON a GOTO 1120, 1120, 1130
1000HOME:?:?:?
1001? "  Summer - Rain probable/12 to 24 hours."
1002? "  Winter - Rain or snow, in-   creasing wind; often   sets in   when barometer begins to fall"
1003? "and winds set in from NE."
1008?:?:?:?:? "PRESS ANY KEY":GET c$
1009GOTO 10
1010HOME:?:?:?
1011? "  Fair, followed within two    days of rain."
1018?:?:?:?:? "PRESS ANY KEY":GET c$
1019GOTO 10
1020HOME:?:?:?
1021? "  Continued fair, no decided   temp. change."
1028?:?:?:?:? "PRESS ANY KEY":GET c$
1029GOTO 10
1030HOME:?:?:?
1031? "  Fair for two days with slowly  rising temperature."
1038?:?:?:?:? "PRESS ANY KEY":GET c$
1039GOTO 10
1040HOME:?:?:?
1041? "  Rain within 24 hours."
1048?:?:?:?:? "PRESS ANY KEY":GET c$
1049GOTO 10
1050HOME:?:?:?
1051? "  Wind increasing, rain within 24 hours."
1058?:?:?:?:? "PRESS ANY KEY":GET c$
1059GOTO 10
1060HOME:?:?:?
1061? "  Rain within 12-18 hours."
1068?:?:?:?:? "PRESS ANY KEY":GET c$
1069GOTO 10
1070HOME:?:?:?
1071? "  Wind increasing, rain within 12 hours."
1078?:?:?:?:? "PRESS ANY KEY":GET c$
1079GOTO 10
1080HOME:?:?:?
1081? "  Summer - Light winds, rain   may not fall for       several days."
1082? "  Winter - Rain within 24      hours."
1088?:?:?:?:? "PRESS ANY KEY":GET c$
1089GOTO 10
1090HOME:?:?:?
1091? "  Rain will continue for 1-2   days."
1098?:?:?:?:? "PRESS ANY KEY":GET c$
1099GOTO 10
1100HOME:?:?:?
1101? "  Rain, with high wind, fol-   lowed within 36 hours  by       clearing, and in winter by     colder."
1108?:?:?:?:? "PRESS ANY KEY":GET c$
1109GOTO 10
1110HOME:?:?:?
1111? "  Clearing within a few hours, fair for several       days."
1118?:?:?:?:? "PRESS ANY KEY":GET c$
1119GOTO 10
1120HOME:?:?:?
1121? "  Severe storm imminent, fol-  lowed within 24 hours  by       clearing, and winter by col-   der."
1128?:?:?:?:? "PRESS ANY KEY":GET c$
1129GOTO 10
1130HOME:?:?:?
1131? "  Severe northeast gale and    heavy precipitation.   In winter heavy snow followed by a cold  wave."
1138?:?:?:?:? "PRESS ANY KEY":GET c$
1139GOTO 10
1140HOME:?:?:?
1141? "  Clearing and colder."
1148?:?:?:?:? "PRESS ANY KEY":GET c$
1149GOTO 10
1500?:?:?:?
1510? "1- Forecast Weather":? "2- Heat Index"
1520? "3- Print Weather Chart"
1540?:?:?:INPUT "WHICH ONE? "; b
1550ON b GOTO 30, 1600, 1800
1600HOME:?:?:?:?:?:?
1610INPUT "What is the relative humidity?              "; h
1620IF h>94 THEN  a=0
1625IF h>89 AND h<95 THEN  a=2
1630IF h>79 AND h<90 THEN  a=4
1635IF h>69 AND h<80 THEN  a=6
1640IF h>59 AND h<70 THEN  a=10
1645IF h<60 THEN  a=14
1646HOME
1650INPUT "What is the temperature(in F)?               "; t
1660 th=.8*t+15-a
1670? "The heat index is "; th; "."
1680?:?:?:? "PRESS ANY KEY":GET k$
1690GOTO 10
1700HOME:?:?:?:?
1705INPUT "What is the temperature(in F)             "; tf
1710 t1=tf-32: tc=t1*.555555555
1715INPUT "What is the wind speed(miles/  hour)?             "; sp1
1720 sp2=INT(sp1/60): sp=sp2/60
1725 ch=(.14+.47)*SQR(sp)*(36.5-tc)
1730? ch
1800HOME
1810?:?:?:?:INPUT "Date: "; d$
1820?:?:INPUT "Time: "; t$
1830?:?:INPUT "Temperature: "; tem$
1840?:?:INPUT "Humidity: "; h$
1850?:?:INPUT "Wind direction: "; wd$
1860?:?:INPUT "Wind speed: "; ws$
1870?:?:INPUT "Rainfall: "; r$
1875?:?:INPUT "Barometric presure: "; bar$
1877?:?:INPUT "Forecast: "; f$
1880?:? "PRESS ANY KEY TO PRINT":GET u$
1890PR #1
1900?:?:? d$:?:? t$:?:?
1910? "Temperature: "; tem$
1920? "Humidity: "; h$
1930? "Wind direction: "; wd$
1940? "Wind speed: "; ws$
1950? "Rainfall: "; r$
1955? "Barometric pressure: "; bar$
1957? "Forecast: "; f$
1960PR #0:GOTO 10
EOF
