10 REM WETHR.ECB
  100 REM .....LAST CHANGE     6-01-78   R.E.H.
  110 DIM S$(10)
  120 PRINT "THIS PROGRAM WILL ATTEMPT TO PREDICT TOMORROWS WEATHER IF"
  130 PRINT "GIVEN THE WEATHER STATISTICS FROM THE PAST TWO DAYS."
  140 PRINT TAB(5);"SEASON"
  150 INPUT S$(1)
  160 GOSUB 1510
  170 GOTO 140
  180 PRINT "AFTER THE FOLLOWING QUESTION MARKS YOU WILL BE REQUIRED"
  190 PRINT "TO INPUT TWO VALUES, ONE FOR YESTERDAY'S READING AND ONE"
  200 PRINT "FOR TODAY'S READING.  SEPERATE THESE READINGS BY A COMMA."
  210 PRINT TAB(5);"TEMPERATURE"
  220 INPUT T1,T2
  230 GOSUB 1580
  240 GOTO 210
  250 PRINT TAB(5);"BAROMETER"
  260 INPUT B1,B2
  270 GOSUB 1650
  280 GOTO 250
  290 PRINT TAB(5);"BAROMETER TENDENCY(1=RISING,2=FALLING,3=STEADY):"
  300 INPUT T3,T4
  310 GOSUB 1720
  320 GOTO 290
  330 PRINT TAB(5);"RELATIVE HUMIDITY"
  340 INPUT H1,H2
  350 GOSUB 1790
  360 GOTO 330
  370 PRINT TAB(5);"CLOUDS(1=STRATUS,2=CUMULUS,3=CIRRUS)"
  380 INPUT C1,C2
  390 GOSUB 1860
  400 GOTO 370
  410 PRINT TAB(5);"CLOUD COVER(PERCENTAGE)"
  420 INPUT C4,C5
  430 GOSUB 1930
  440 GOTO 410
  450 PRINT TAB(5);"WIND DIRECTION (1=NORTH,2=SOUTH,3=EAST,4=WEST)"
  460 INPUT D1,D2
  470 GOSUB 2000
  480 GOTO 450
  490 PRINT TAB(5);"WIND SPEED"
  500 INPUT S2,S3
  510 GOSUB 2070
  520 GOTO 490
  530 PRINT
  540 PRINT
  550 PRINT
  560 PRINT "------------------------------------------------------"
  570 PRINT "PRESENT SEASON IS ";S$(1)
  580 PRINT
  590 PRINT "FORECAST FOR TOMORROW:"
  600 PRINT
  610 PRINT
  620 PRINT "TEMPERATURES:"
  630 LET T7=((T1+T2)/2)-30
  640 LET T6=T7+10
  650 PRINT "LOWS TONIGHT BETWEEN ";T7;" AND ";T6;" DEGREES"
  660 LET T9=((T1+T2)/2)+5
  670 LET T8=T9-5
  680 PRINT "HIGHS TOMORROW NIGHT BETWEEN ";T8;" AND ";T9;" DEGREES"
  690 LET T0=T7-5
  700 PRINT "LOWS TOMORROW NIGHT BETWEEN ";T0;" AND ";T7;" DEGREES"
  710 LET B4=(B1+B2)/2
  720 LET B0=INT(ABS(B1-B2))
  730 LET T9=(T3+T4)/2
  740 LET T9=INT(T9)
  750 IF T9=2 THEN 790
  760 IF T9=3 THEN 810
  770 PRINT "BAROMETER ";B4;" AND RISING."
  780 GOTO 820
  790 PRINT "BAROMETER ";B4;" AND FALLING."
  800 GOTO 820
  810 PRINT "BAROMETER ";B4;" AND STEADY."
  820 LET H3=((H1+H2)/2)+5
  830 LET H4=H3-5
  840 PRINT "HUMIDITY BETWEEN ";H4;" AND ";H3;" PERCENT"
  850 LET C3=(C1+C2)/2
  860 LET C3=INT(C3)
  870 LET C9=((C4+C5)/2)+5
  880 LET C8=C9-5
  890 PRINT "CLOUD COVER BETWEEN ";C8;" AND ";C9;" PERCENT"
  900 IF C3=2 THEN 950
  910 IF C3=3 THEN 980
  920 PRINT "CLOUD HEIGHT BETWEEN  500 TO  580 FEET."
  930 PRINT "MAJOR CLOUD TYPE WILL BE STRATUS."
  940 GOTO 1000
  950 PRINT "CLOUD HEIGHT BETWEEN  1550 TO  1800 FEET."
  960 PRINT "MAJOR CLOUD TYPE WILL BE CUMULUS."
  970 GOTO 1000
  980 PRINT "CLOUD HEIGHT BETWEEN  16500 TO 17000 FEET."
  990 PRINT "MAJOR CLOUD TYPE WILL BE CIRRUS."
 1000 LET D5=(D1+D2)/2
 1010 LET D5=INT(D5)
 1020 LET S5=((S2+S3)/2)+5
 1030 LET S6=S5-5
 1040 IF D5=2 THEN 1090
 1050 IF D5=3 THEN 1110
 1060 IF D5=4 THEN 1130
 1070 PRINT "WIND FROM THE NORTH FROM ";S6;" TO ";S5;" MPH."
 1080 GOTO 1140
 1090 PRINT "WIND FROM THE SOUTH FROM ";S6;" TO ";S5;" MPH."
 1100 GOTO 1140
 1110 PRINT "WIND FORM THE EAST FROM ";S6;" TO ";S5;" MPH."
 1120 GOTO 1140
 1130 PRINT "WIND FROM THE WEST FROM ";S6;" TO ";S5;" MPH."
 1140 PRINT "CHANCE OF PRECIPITATION:"
 1150 LET P1=INT((((C5/2)+B2)+C2)/.5)
 1160 IF P1>100 THEN 2180
 1170 PRINT "TONIGHT ";P1;"%"
 1180 LET P2=INT(((C9/2)+B4)+C3)
 1190 IF P2>100 THEN 2200
 1200 PRINT "TOMORROW ";P2;"%"
 1210 IF P3>100 THEN 2220
 1220 PRINT "TOMORROW NIGHT ";P3;"%"
 1230 PRINT
 1240 IF C2=2 THEN 1350
 1250 IF C2=3 THEN 1430
 1260 PRINT "FORECAST FOR TOMORROWS WEATHER:"
 1270 PRINT
 1280 PRINT "IT SHOULD BE FAIR TOMORROW."
 1290 IF S$(1)="SPRING" THEN 1330
 1300 IF S$(1)="SUMMER" THEN 1330
 1310 PRINT "IT SHOULD BE COOLER TOMORROW WITH NO PRECIPITATION LIKELY."
 1320 GOTO 1500
 1330 PRINT "IT SHOULD BE WARMER TOMORROW WITH NO PRECIPITATION LIKELY."
 1340 GOTO 1500
 1350 PRINT "FORECAST FOR TOMORROWS WEATHER."
 1360 PRINT
 1370 IF S$(1)="SUMMER" THEN 1400
 1380 PRINT "IT SHOULD BE FAIR TOMORROW."
 1390 GOTO 1290
 1400 PRINT "IF THEY ARE HEAVY CLOUDS--BE READY FOR RAIN."
 1410 PRINT "IF THE CLOUDS ARE LIGHT--IT WILL BE FAIR."
 1420 GOTO 1500
 1430 IF S$(1)="FALL" THEN 1500
 1440 PRINT
 1450 IF S$(1)="SPRING" THEN 1490
 1460 IF S$(1)="SUMMER" THEN 1490
 1470 PRINT "TOMORROW,EXPECT SNOW TO FALL FOLLOWED BY HIGHER TEMPERATURES."
 1480 GOTO 1500
 1490 PRINT "TOMORROW,EXPECT RAIN TO FALL FOLLOWED BY HIGHER TEMPERATURES."
 1500 GOTO 2140
 1510 IF S$(1)="WINTER" THEN 180
 1520 IF S$(1)="FALL" THEN 180
 1530 IF S$(1)="SPRING" THEN 180
 1540 IF S$(1)="SUMMER" THEN 180
 1550 PRINT TAB(5);"LET'S TRY THAT ONE AGAIN(SEASONS:WINTER,SPRING";
 1560 PRINT "FALL,SUMMER)..."
 1570 RETURN
 1580 IF T1>135 THEN 1630
 1590 IF T1<-80 THEN 1630
 1600 IF T2>135 THEN 1630
 1610 IF T2<-80 THEN 1630
 1620 GOTO 250
 1630 PRINT TAB(5);"LET'S TRY THAT ONE AGAIN(NORMALS-80-135)..."
 1640 RETURN
 1650 IF B1>31.5 THEN 1700
 1660 IF B1<28.5 THEN 1700
 1670 IF B2>31.5 THEN 1700
 1680 IF B2<28.5 THEN 1700
 1690 GOTO 290
 1700 PRINT TAB(5);"LET'S TRY THAT ONE AGAIN(NORMALS:28.5-31.5)..."
 1710 RETURN
 1720 IF T3<1 THEN 1770
 1730 IF T3>3 THEN 1770
 1740 IF T4<1 THEN 1770
 1750 IF T4>3 THEN 1770
 1760 GOTO 330
 1770 PRINT TAB(5);"LET'S TRY THAT ONE AGAIN..."
 1780 RETURN
 1790 IF H1<0 THEN 1840
 1800 IF H1>100 THEN 1840
 1810 IF H2<0 THEN 1840
 1820 IF H2>100 THEN 1840
 1830 GOTO 370
 1840 PRINT TAB(5);"LET'S TRY THAT ONE AGAIN(HUMIDITY:0-100)..."
 1850 RETURN
 1860 IF C1<1 THEN 1910
 1870 IF C1>3 THEN 1910
 1880 IF C2<1 THEN 1910
 1890 IF C2>3 THEN 1910
 1900 GOTO 410
 1910 PRINT TAB(5);"LET'S TRY THAT ONE AGAIN..."
 1920 RETURN
 1930 IF C4<0 THEN 1980
 1940 IF C4>100 THEN 1980
 1950 IF C5<0 THEN 1980
 1960 IF C5>100 THEN 1980
 1970 GOTO 450
 1980 PRINT TAB(5);"LET'S TRY THAT ONE AGAIN(COVER:0-100)..."
 1990 RETURN
 2000 IF D1<1 THEN 2050
 2010 IF D1>4 THEN 2050
 2020 IF D2<1 THEN 2050
 2030 IF D2>4 THEN 2050
 2040 GOTO 490
 2050 PRINT TAB(5);"LET'S TRY THAT ONE AGAIN..."
 2060 RETURN
 2070 IF S2<0 THEN 2120
 2080 IF S2>75 THEN 2120
 2090 IF S3<0 THEN 2120
 2100 IF S3>75 THEN 2120
 2110 GOTO 530
 2120 PRINT TAB(5);"LET'S TRY THAT ON E AGAIN(NORMAL:0-75)..."
 2130 RETURN
 2140 GOSUB 2240
 2150 PRINT "THE END"
 2160 PRINT "---------------------------------------------------"
 2170 STOP
 2180 LET P1=100
 2190 GOTO 1170
 2200 LET P2=100
 2210 GOTO 1200
 2220 LET P3=100
 2230 GOTO 1220
 2240 IF D2=2 THEN 2400
 2250 IF D2=3 THEN 2490
 2260 IF D2=1 THEN 2590
 2270 IF B2>=30.2 THEN 2350
 2280 IF B2>=30.1 THEN 2310
 2290 PRINT "IT WILL BE CLEARING AND COLDER TOMORROW."
 2300 GOTO 2630
 2310 IF T2=3 THEN 2340
 2320 PRINT "IT WILL BE FAIR TOMORROW, FOLLOWED BY WINDS AND PRECIPITATION."
 2330 GOTO 2630
 2340 PRINT "IT WILL BE FAIR TOMORROW, WITH LITTLE TEMPERATURE CHANGE."
 2350 IF T2=3 THEN 2380
 2360 PRINT "IT WILL BE FAIR TOMORROW WITH SLOWLY RISING TEMPERATURES."
 2370 GOTO 2630
 2380 PRINT "IT WILL BE CONTINUED FAIR TOMORROW."
 2390 GOTO 2630
 2400 IF B2<=29.8 THEN 2460
 2410 IF B2<=30.0 THEN 2440
 2420 PRINT "IT WILL BE WINDY WITH RAIN IN 12-24 HOURS."
 2430 GOTO 2630
 2440 PRINT "IT WILL BE CLEARING AND FAIR FOR SEVERAL DAYS FOLLOWING."
 2450 GOTO 2630
 2460 PRINT "THERE WILL BE A SEVERE STORM IN 24 HOURS FOLLOWED BY ";
 2470 PRINT "CLEARING."
 2480 GOTO 2630
 2490 IF B2<=29.8 THEN 2540
 2500 IF B2>=30.1 THEN 2560
 2510 PRINT "IN WINTER, EXPECT SNOW WITH WINDS."
 2520 PRINT "IN SUMMER, EXPECT A LONG DRY SPELL."
 2530 GOTO 2630
 2540 PRINT "THERE WILL BE A NORTHEAST WIND WITH HEAVY PRECIPITATION."
 2550 GOTO 2630
 2560 PRINT "IN WINTER, EXPECT SNOW IN 24 HOURS."
 2570 PRINT "IN SUMMER, EXPECT A DRY SPELL."
 2580 GOTO 2630
 2590 IF B2<=30.0 THEN 2620
 2600 PRINT "RAIN WILL CONTINUE WITH WINDS FOR 36 HOURS, THEN CLEARING."
 2610 GOTO 2630
 2620 PRINT "RAIN WILL FALL IN 12 TO 18 HOURS."
 2630 RETURN
 2640 END