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(B)=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