3  REM REVISED 12-29-72,MICHAEL ROY BARNES
4  REM FORCST, HP 36750A, 6/74
10  PRINT "THIS IS THE HEWLETT-PACKARD WEATHER FORECASTER"
20  PRINT "DO YOU WANT INSTRUCTIONS (1=YES,0=NO)";
30  INPUT A1
40  IF A1=1 THEN 60
50  IF A1#1 THEN 70
60  GOSUB 870
70  PRINT 
80  PRINT "WHAT IS THE BAROMETRIC PRESSURE TO THE NEAREST TENTH"
90  PRINT "EXAMPLE(30.01=30.0)";
100  INPUT A2
110  PRINT "WHAT IS THE TEMPERATURE IN DEGREES F";
120  INPUT A3
130  PRINT "WHAT IS THE WIND DIRECTION(SEE WIND CODE BELOW)"
140  PRINT "N=1,NE=2,E=3,SE=4,S=5,SW=6,W=7,NW=8";
150  INPUT A4
160  PRINT "WHAT IS THE WIND SPEED";
170  INPUT A5
180  PRINT "WHAT IS THE DEWPOINT";
190  INPUT A6
200  PRINT 
210  PRINT 
220  DIM M$[10]
230  IF A4=1 THEN 310
240  IF A4=2 THEN 330
250  IF A4=3 THEN 350
260  IF A4=4 THEN 370
270  IF A4=5 THEN 390
280  IF A4=6 THEN 410
290  IF A4=7 THEN 430
300  IF A4=8 THEN 450
310  M$="NORTH"
320  GOTO 460
330  M$="NORTHEAST"
340  GOTO 460
350  M$="EAST"
360  GOTO 460
370  M$="SOUTHEAST"
380  GOTO 460
390  M$="SOUTH"
400  GOTO 460
410  M$="SOUTHWEST"
420  GOTO 460
430  M$="WEST"
440  GOTO 460
450  M$="NORTHWEST"
460  PRINT "                PRESENT WEATHER"
470  PRINT 
480  PRINT "  WIND "M$" AT"A5"MPH"
490  PRINT 
500  PRINT "  TEMPERATURE"A3"DEWPOINT"A6
510  Q4=A3-A5
520  PRINT 
530  PRINT "  WIND CHILL FACTOR IS"Q4"DEGREES"
535  PRINT 
540  PRINT "  BAROMETRIC PRESSURE"A2
550  PRINT 
560  PRINT "HEIGHT     TEMPERATURE"
570  LET A7=1000
580  DEF FNA()=A3-3.5
590  LET V1=FNA(B)
600  FOR C=1000 TO 10000 STEP 1000
610  PRINT A7,V1
620  LET A7=A7+1000
630  LET V1=V1-3.5
640  IF C=10000 THEN 660
650  NEXT C
660  PRINT 
670  A8=((A3-A6)/4.5)*1000
680  A9=ABS(A8)
690  PRINT "CUMULUS CLOUDS COULD FORM AT"A9"FEET"
700  PRINT 
710  PRINT 
720  PRINT "               FORECAST"
730  PRINT 
740  IF A2>30.3 THEN 810
750  IF A2 >= 30 AND A2 <= 30.3 THEN 830
790  IF A2<30 THEN 850
800  STOP 
810  GOSUB 950
820  GOTO 1360
830  GOSUB 1000
840  GOTO 1360
850  GOSUB 1210
860  GOTO 1360
870  PRINT "THIS FORECAST INFORMATION DEPENDS ON VARIOUS"
880  PRINT "FACTORS,AMONG THE MAIN FACTORS ARE BAROMETRIC"
890  PRINT "PRESSURE AND WIND DIRECTION. YOU WILL BE ASKED"
900  PRINT "TO INPUT THE ABOVE,AND WIND SPEED,DEWPOINT,AND"
910  PRINT "TEMPERATURE.THESE HAVE TO DO WITH OTHER FEATURES"
920  PRINT "OF THIS FORECAST.THIS FORECAST IS 77% ACCURATE."
930  RETURN 
940  STOP 
950  PRINT "FAIR,SLIGHT POSSIBILITY OF RAIN IN 2 DAYS IF "
960  PRINT "BAROMETER IS RISING RAPIDLY.OTHERWISE FAIR WITH"
970  PRINT "SLIGHTLY RISING TEMPERATURE."
980  RETURN 
990  STOP 
1000  IF A4 >= 3 AND A4 <= 4 THEN 1120
1040  IF A4=6 OR A4=7 THEN 1090
1060  IF A4=1 OR A4=8 THEN 1150
1080  GOTO 1190
1090  PRINT "FAIR WITH SLIGHT TEMPERATURE CHANGES FOR 1 TO 2"
1100  PRINT "DAYS."
1110  GOTO 1190
1120  PRINT "GOOD CHANCE OF RAIN WITH WIND INCREASING IN FORCE"
1130  PRINT "HOWEVER RAIN MAY NOT FALL,OR NOT FALL FOR SEVERAL DAYS"
1140  GOTO 1190
1150  PRINT "SUMMER;LIGHT TO MODERATE WINDS,GOOD CHANCE OF RAIN."
1160  PRINT "WINTER;RAIN OR SNOW,WITH INCREASING WINDS,OFTEN WILL"
1170  PRINT "SET IN WHEN BAROMETER BEGINS TO FALL AND THE WIND SETS"
1180  PRINT "IN FROM THE N OR NE"
1190  RETURN 
1200  STOP 
1210  IF A4 >= 1 AND A4 <= 4 THEN 1300
1250  IF A4 >= 5 AND A4 <= 8 THEN 1330
1290  GOTO 1340
1300  PRINT "RAIN WITH HIGH WINDS,FOLLOWED WITHIN 1 DAY BY "
1310  PRINT "CLEARING,AND IN WINTER COLDER."
1320  GOTO 1340
1330  PRINT "CLEARING AND COLDER."
1340  RETURN 
1350  STOP 
1360  PRINT 
1370  PRINT 
1380  PRINT "THANK YOU"
1390  END 
