8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/C128Toolkit/FORECASTER.128

Commodore BASIC | 2019-04-13 | 4.8 KB | 149 lines

100 (null)
110 PRINT"     WEATHER FORECASTER                      BY MICHAEL MONTFORT(C)"
120 PRINT""
130 (null) 5
140 (null)
150 PRINT"INFORMATION NEEDED:                   [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]                      TEMPERATURE                             TEMPERTURE CHANGE  "
160 PRINT"WIND DIRECTION                          PRESSURE                                PRESSURE CHANGE                         CLOUD TYPE"
170 PRINT"DEWPOINT[145][145][145][145][145][145][145][145]"
180 (null) 5
190 (null)
200 INPUT "TEMPERATURE";T
210 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
220 INPUT "WIND DIRECTION";WD
230 PRINT"[163][163][163][163][160][163][163][163][163][163][163][163][163][163]"
240 INPUT "PRESSURE ";P
250 PRINT"[163][163][163][163][163][163][163][163]"
260 INPUT "PRESSURE CHANGE ";PC
270 PRINT"[163][163][163][163][163][163][163][163][160][163][163][163][163][163][163]"
280 PRINT"          CLOUD TYPES"
290 PRINT"          [163][163][163][163][163][160][163][163][163][163][163]"
300 PRINT"FCI-FEATHERY CIRRUS                     CC-CIRROCUMULUS(SCALES)                 CS-CIRROSTRATUS(HALO)"
310 PRINT"MCI-CIRRUS(MARES TAILS)                 PAC-ALTOCUMULUS(PUFFY)                  TAC-ALTOCUMULUS(TOWERING)"
320 PRINT"RAC-ALTOCUMULUS(ROLLS)                  ASNS-ALTOSTRATUS(THICK CURTAIN)         CU-CUMULUS(SINGLE CLOUDS)"
330 PRINT"CB-CUMULONIMBUS                         SC-STRATOCUMULUS(LONG LAYERS)           ST-STRATUS"
340 PRINT"CLR-CLEAR":::::::
350 INPUT "CLOUD TYPE[160]";CT$
360 PRINT"[163][163][163][163][163][160][163][163][163][163]"
370 INPUT "TEMPERATURE CHANGE ";TC
380 PRINT"[163][163][163][163][163][163][163][163][163][163][163][160][163][163][163][163][163][163]"
390 INPUT "DEWPOINT ";DP
400 PRINT"[163][163][163][163][163][163][163][163]"
410 (null)
420 IF (T+TC)-5<=DP THEN 440
430 IF (T+TC)-5>=DP THEN 460
440 PRINT"FOG FORMATION IS LIKELY"
450 GOTO 470
460 PRINT"NO FOG WILL FORM"
470 PRINT::
480 IF (WD>235)AND(WD<316)AND(WD<265)AND(WD>275)THEN 550
490 IF (WD>136)AND(WD<180)THEN 690
500 IF (WD>145)AND(WD<89)THEN 760
510 IF (WD>181)AND(WD<234)THEN 830
520 IF (WD>89)AND(WD<135)THEN950
530 IF 0<WD>44 THEN 1020
540 IF 265<WD>275 THEN 1090
550 IF P>=30.20 THEN580
560 IF PC=0THEN 600
570 IF PC>0 THEN 620
580 IF PC=0 THEN 640
590 IF 0>PC>-.6 THEN 660
600 PRINT"FAIR WITH SLIGHT TEMPERATURE CHANGES FOR 1 TO 2 DAYS"
610 GOTO1140
620 PRINT"FAIR FOLLOWED WITHIN 2 DAYS BY RAIN"
630 GOTO 1140
640 PRINT"CONTINUED FAIR WITH NO DECIDED TEMPERATURE CHANGE"
650 GOTO 1140
660 PRINT"SLOWLY RISING TEMP AND FAIR FOR TWO DAYS"
670 GOTO 1140
680 GOTO 1140
690 IF 0>PC>-.06 THEN 710
700 IF PC<=-.06 THEN 730
710 PRINT"RAIN WITHIN 24 HOURS"
720 GOTO 1140
730 PRINT"WIND INCREASING IN FORCE, WITH RAIN WITHIN 12 TO 24 HOURS"
740 GOTO 1140
750 GOTO 1140
760 IF 0>PC>-.06 THEN 780
770 IF PC<-.06 THEN 800
780 PRINT"RAIN IN 12 TO 18 HOURS"
790 GOTO 1140
800 PRINT"INCREASING WIND AND RAIN IN 12 TO 18 HOURS"
810 GOTO 1140
820 GOTO 1140
830 IF P>=30.10 THEN 850
840 IF P<30.10 THEN 870
850 IF 0>PC>-.06 THEN880
860 IF PC<-.06 THEN 900
870 IF PC<-.06 THEN920
880 PRINT"IN SUMMER,WITH LIGHT WINDS,RAIN MAY NOT FALL FOR SEVERAL DAYS.IN WINTER,RAIN WITHIN 24 HOURS"
890 GOTO 1140
900 PRINT"IN SUMMER, RAIN WITHIN 24 HOURS. IN WINTER,RAIN OR SNOW AND INCREASING WINDS."
910 GOTO 1140
920 PRINT"SEVERE N.E. GALE AND HEAVY RAIN,IN WINTER HEAVY SNOW FOLLOWED BY A COLD WAVE"
930 GOTO 1140
940 GOTO 1140
950 IF 0>PC>-.06 THEN 970
960 IF PC<-.06 THEN 990
970 PRINT"RAIN CONTINUING FOR 1 TO 2 DAYS"
980 GOTO 1140
990 PRINT"RAIN WITH HIGH WIND,CLEARING WITHIN 36 HOURS,AND COLDER TEMPS IN WINTER"
1000 GOTO 1140
1010 GOTO 1140
1020 IF PC>0 THEN 1040
1030 IF PC<-.06 THEN 1060
1040 PRINT"CLEARING WITHIN A FEW HOURS AND FAIR FOR SEVERAL DAYS"
1050 GOTO 1140
1060 PRINT"SEVERE STORM IMMINENT FOLLOWED WITHIN 24 HOURS BY CLEARING AND COLLER TEMPS."
1070 GOTO 1140
1080 GOTO 1140
1090 IF PC>0 THEN 1100
1100 PRINT"CLEARING AND COLDER"
1110 GOTO 1140
1120 PRINT::
1130 PRINT"CLOUD TYPE SUGGEST THAT:":
1140 PRINT::
1150 PRINT"    CLOUD TYPE SUGGEST THAT:"::
1160 IF CT$="FCI" THEN 1290
1170 IF CT$="CC" THEN 1310
1180 IF CT$="CS" THEN 1330
1190 IF CT$="MCI" THEN 1350
1200 IF CT$="PAC" THEN 1390
1210 IF CT$="TAC" THEN 1410
1220 IF CT$="RAC" THEN 1430
1230 IF CT$="ASNS" THEN 1450
1240 IF CT$="CU" THEN 1470
1250 IF CT$="CB" THEN 1490
1260 IF CT$="SC" THEN 1510
1270 IF CT$="ST" THEN 1530
1280 IF CT$="CLR" THEN 1550
1290 PRINT" OFTEN SEEN DURING FAIR WEATHER. AT TIMES SERVE AS FIRST VISIBLE INDICATION OF APPROACHING STORMS"
1300 GOTO 1560
1310 PRINT"LOOK FOR WIND AND RAIN IF THEY CHANGE TO CIRROSTRATUS AND LOWER AND THICKEN"
1320 GOTO 1560
1330 PRINT"BAD WEATHER APPROACHING IF THESE CLOUDS THICKEN AND CHANGE TO ALTOSTRATUS"
1340 GOTO 1560
1350 PRINT"THIS TYPE APPEARING AFTER CIRRUSAND FOLLOWED BY THICKING LOWER CLOUDS"
1360 GOTO 1560
1370 PRINT"INCREASES PROBABILITY OF RAIN WITHIN 24 HOURS"
1380 GOTO 1560
1390 PRINT"IF THIS FORMATION PRECEDES LOWER CUMULUS,LOOK FOR THUNDERY WEATHER"
1400 GOTO 1560
1410 PRINT"OFTEN SHORT LIVED MAKING ONLY A BRIEF APPEARANCE,FREQUENTLY PRECEDE THUNDERSTORMS"
1420 GOTO 1560
1430 PRINT"THESE ROLLS STRETCH TO THE HORIZON,AND MOVE AT RIGHT ANGLES TO THEIR LENGTH.COOLER TEMP AND FAIR."
1440 GOTO 1560
1450 PRINT"CONTINUOUS RAIN OR SNOW MAY FOLLOW THICKENING ALTOSTRATUS IN A FEW HOURS"
1460 GOTO 1560
1470 PRINT"THESE TYPE GENERALLY SEEN IN FINE WEATHER,TURBULENCE INCREASES AS THICKNESS INCREASES"
1480 GOTO 1560
1490 PRINT"THIS IS THE SIGNPOST OF TURBULENT BUMPY AIR,WITH THUNDER,LIGHTNING,SNOW IN UPPER LEVELS,HAIL AND HEAVY RAIN"
1500 GOTO 1560
1510 PRINT"TAIL-END OF THE DAYS CUMULUS CLOUDS,USUALLY A CLEAR NIGHT AHEAD OVER LAND"
1520 GOTO 1560
1530 PRINT"MAY PRODUCE A FINE DRIZZLE OR MIST OR CONTINUOUS RAIN IF LOW AND THICK"
1540 GOTO 1560
1550 PRINT"NO CLOUDS"
1560 (null) 10
1570 PRINT WD;T;TC;P;PC;DP;CT$