10  COM X$[72],C
20  REM**CL4-2**BASIC C.A.I.**GEOGRAPHY**CHAIN FROM CL4-1**JUNE 16, 1972
25  REM CLIMAT, HP 36760A, 6/74
30  DIM G$[72],R$[72],S$[72]
40  FILES SCRA
50  PRINT "NOW LET'S TRY GETTING THE CORRECT LETTER SYMBOLS FOR THE"
60  PRINT "KOPPEN CLASSIFICATION."
70  PRINT 
80  PRINT "IF YOU WOULD LIKE AN EXPLANATION OF THE DIFFERENT LETTERS"
90  PRINT "BEFORE ANSWERING THE QUESTION, PLEASE REQUEST IT.  WHAT"
100  PRINT "SHOULD THE FIRST LETTER BE FOR OUR STATION";
110  INPUT G$
120  PRINT 
130  IF G$="A" THEN 500
140  IF G$="B" THEN 440
150  IF G$="C" THEN 470
160  IF G$="D" THEN 410
170  IF G$="E" THEN 380
180  GOSUB 2490
190  IF F=0 THEN 210
200  GOSUB 2220
210  PRINT "THE POSSIBLE FIRST LETTERS ARE AS FOLLOWS:"
220  PRINT "     A -- AVERAGE TEMPERATURE OF THE COOLEST MONTH 64.4"
230  PRINT "          DEGREES F. OR OVER."
240  PRINT "     B -- FOR THE AVERAGE ANNUAL TEMPERATURE AND SUMMER"
250  PRINT "          MONSOON RAIN PATTERN OF OUR STATION, THIS WOULD"
260  PRINT "          MEAN AN ANNUAL TOTAL RAINFALL OF LESS THAN 32.7"
270  PRINT "          INCHES."
280  PRINT "     C -- AVERAGE TEMPERATURE OF THE WARMEST MONTH OVER"
290  PRINT "          50 DEGREES F. AND OF THE COLDEST MONTH BETWEEN"
300  PRINT "          26.6 AND 64.4 DEGREES F."
310  PRINT "     D -- AVERAGE TEMPERATURE OF THE WARMEST MONTH OVER 50"
320  PRINT "          DEGREES F. AND OF THE COLDEST MONTH 26.6 DEGREES"
330  PRINT "          F. OR BELOW."
340  PRINT "     E -- AVERAGE TEMPERATURE OF THE WARMEST MONTH BELOW"
350  PRINT "          50 DEGREES F."
360  PRINT "WHAT LETTER DO YOU CHOOSE";
370  GOTO 110
380  PRINT "NO, E IS TOO DAMN COLD TO BE YOUR STATION.  MAKE ANOTHER"
390  PRINT "CHOICE OR ASK FOR HELP."
400  GOTO 110
410  PRINT "THINK -- WHAT IS THE TEMPERATURE OF THE COLDEST MONTH?"
420  PRINT "MAKE ANOTHER CHOICE OR ASK FOR HELP."
430  GOTO 110
440  PRINT "HOLD IT -- B CLIMATES TEND TO BE DRY.  MAKE ANOTHER CHOICE"
450  PRINT "OR ASK FOR HELP."
460  GOTO 110
470  PRINT "NO.  C IS A LITTLE COLD FOR OUR STATION.  MAKE ANOTHER"
480  PRINT "CHOICE OR ASK FOR HELP."
490  GOTO 110
500  PRINT "PERFECT -- CLEARLY THIS IS A HUMID CLIMATE WITH AVERAGE"
510  PRINT "TEMPERATURES OF EVERY MONTH BEING 64.4 DEGREES F. OR OVER."
520  PRINT 
530  PRINT "NOW FOR THE SECOND LETTER AS IT OCCURS WITH FIRST LETTER A."
540  PRINT "YOU BELIEVE IT TO BE";
550  INPUT G$
560  PRINT 
570  IF G$="M" THEN 800
580  IF G$="F" THEN 750
590  IF G$="W" THEN 770
600  GOSUB 2490
610  IF F=0 THEN 630
620  GOSUB 2220
630  PRINT "THE POSSIBLE SECOND LETTER CHOICES FOR A CLIMATE WITH THE"
640  PRINT "FIRST LETTER 'A' ARE:"
650  PRINT "     F -- PRECIPITATION OF THE DRYEST MONTH AT LEAST 2.4 IN."
660  PRINT "     W -- FOR A STATION WITH THE TOTAL ANNUAL PRECIPITATION"
670  PRINT "          OF OURS, THIS LETTER WOULD MEAN AT LEAST TWO "
680  PRINT "          MONTHS WITH NO RAIN WHATSOEVER."
690  PRINT "     M -- WITH AN AVERAGE ANNUAL RAINFALL OF 105.6 INCHES,"
700  PRINT "          OUR STATION WOULD NEED AT LEAST ONE MONTH WITH "
710  PRINT "          PRECIPITATION LESS THAN 2.4 INCHES, BUT NO MORE"
720  PRINT "          THAN ONE MONTH WITH NO RAIN TO QUALIFY FOR M."
730  PRINT "WHICH LETTER BEST FITS OUR STATION";
740  GOTO 550
750  PRINT "NOT QUITE!  CHOOSE ANOTHER LETTER OR ASK FOR AN EXPLANATION."
760  GOTO 550
770  PRINT "ALMOST, BUT THERE IS ONLY ONE MONTH WITH NO MEASURABLE"
780  PRINT "PRECIPITATION.  TRY AGAIN OR ASK FOR AN EXPLANATION."
790  GOTO 550
800  PRINT "EXCELLENT!  'M' MEANS MONSOON WITH A VERY WET RAINY SEASON-"
810  PRINT "WET ENOUGH TO DOMINATE OVER THE DRY SEASON.  WHERE ONE MONTH"
820  PRINT "HAS NO RAIN, THE TOTAL ANNUAL PRECIPITATION MUST BE 98.5 IN."
830  PRINT "OR GREATER -- TRUE IN THIS CASE."
840  PRINT 
850  PRINT "LET'S CONTINUE ON TO THE THIRD LETTER.  AGAIN, ASK FOR"
860  PRINT "ASSISTANCE IF NEEDED.  YOUR CHOICE";
870  INPUT G$
880  PRINT 
890  IF G$="G" THEN 1110
900  IF G$="W'" THEN 1070
910  IF G$="W''" THEN 1090
920  IF G$="I" THEN 1040
930  GOSUB 2490
940  IF F=0 THEN 960
950  GOSUB 2220
960  PRINT "FOR 'AM' CLIMATES, WE CAN HAVE THIRD LETTERS AS FOLLOWS:"
970  PRINT "     I  -- TEMPERATURE RANGE LESS THAN 9 DEGREES F."
980  PRINT "     W' -- MAXIMUM RAINFALL IN AUTUMN."
990  PRINT "     W''-- TWO DISTINCT RAINFALL MAXIMA."
1000  PRINT "     G  -- TEMPERATURE MAXIMUM COMES BEFORE THE SOLSTICE"
1010  PRINT "           (THE 21ST OF JUNE)."
1020  PRINT "OF THESE, OUR STATION BEST FITS";
1030  GOTO 870
1040  PRINT "'FRAID NOT.  THE TEMPERATURE RANGE IS GREATER THAN 9 DEGREES"
1050  PRINT "F.  TRY AGAIN."
1060  GOTO 870
1070  PRINT "WHICH SEASON HAS THE MAXIMUM RAIN?  TRY AGAIN."
1080  GOTO 870
1090  PRINT "ARE THERE TWO DISTINCT RAINFALL MAXIMA?  TRY AGAIN."
1100  GOTO 870
1110  PRINT "CONGRATULATIONS -- YOU CHOSE G BECAUSE THE TEMPERATURE"
1120  PRINT "MAXIMUM IS IN APRIL, BEFORE THE SOLSTICE."
1130  PRINT 
1140  PRINT "OUR CLASSIFICATION IS THUS:"
1150  PRINT "       AMG -- TROPICAL MONSOON (GANGES TYPE)"
1160  PRINT 
1170  PRINT "NOW LET'S TRY TO LOCATE THIS PLACE ON A MAP.  FIRST, CAN YOU"
1180  PRINT "NAME THE COUNTRY IN WHICH THIS STATION IS LOCATED"
1190  INPUT G$
1200  PRINT 
1210  FOR J=17 TO 22
1220  GOSUB 1960
1230  IF F#1 THEN 1250
1240  GOTO J-16 OF 1510,1320,1350,1400,1450,1470
1250  NEXT J
1260  GOSUB 2490
1270  IF F=0 THEN 1290
1280  GOSUB 2220
1290  PRINT "0.K.  HERE'S A HINT:  THE COUNTRY IS IN SOUTHERN ASIA AND"
1300  PRINT "ON THE MAINLAND.  LOOK AT A MAP AND THEN ANSWER."
1310  GOTO 1190
1320  PRINT "NO -- ";G$;" HAS NO STATIONS WITH SUCH A PRONOUNCED DRY"
1330  PRINT "SEASON.  TRY ANOTHER COUNTRY."
1340  GOTO 1190
1350  PRINT "OUR STATION COULD ALMOST BE IN THE LOWER GANGES VALLEY OR IN"
1360  PRINT "THE BRAHMAPUTRA LOWLANDS, ";X$;", BUT IN THESE LOCATIONS"
1370  PRINT "THE JANUARY TEMPERATURE WOULD BE COOLER.  TRY SOMETHING"
1380  PRINT "ELSE."
1390  GOTO 1190
1400  PRINT "STATIONS IN ";G$;" WITH SUCH HEAVY RAINFALL USUALLY HAVE"
1410  PRINT "WARMER TEMPERATURES IN JANUARY AND DECEMBER THAN DOES OUR"
1420  PRINT "STATION.  ALSO, THE DRYEST MONTH IS OFTEN FEBRUARY.  TRY"
1430  PRINT "SOMETHING ELSE."
1440  GOTO 1190
1450  PRINT G$;" IS NOT THE NAME OF A COUNTRY.  TRY AGAIN."
1460  GOTO 1190
1470  PRINT "IN NORTH VIETNAM OR LAOS, SUCH HEAVY RAINFALL IS SELDOM IF"
1480  PRINT "EVER FOUND AT SEA LEVEL.  ALSO, JANUARY AND DECEMBER "
1490  PRINT "TEMPERATURES WOULD BE COOLER.  TRY AGAIN."
1500  GOTO 1190
1510  PRINT "EXCELLENT, ";X$;", NOW PLEASE NAME THE CORRECT CITY"
1520  INPUT G$
1530  PRINT 
1540  IF G$="RANGOON" THEN 1750
1550  GOSUB 2490
1560  IF F=0 THEN 1580
1570  GOSUB 2220
1580  PRINT "HERE'S SOME HELP.  THE CORRECT ANSWER IS THE CAPITAL"
1590  PRINT "CITY OF BURMA AND ONE OF THE WORLD'S CHIEF RICE EXPORTING"
1600  PRINT "CENTERS.  TRY AGAIN."
1610  INPUT G$
1620  PRINT 
1630  IF G$="RANGOON" THEN 1750
1640  GOSUB 2490
1650  IF F=0 THEN 1670
1660  GOSUB 2220
1670  PRINT "GOOFED AGAIN.  HINT:  THE FIRST LETTER IS R.  TRY ONCE MORE."
1680  INPUT G$
1690  PRINT 
1700  IF G$="RANGOON" THEN 1750
1710  GOSUB 2490
1720  IF F=0 THEN 1740
1730  GOSUB 2220
1740  PRINT "THE CORRECT ANSWER IS RANGOON."
1750  PRINT "CONGRATULATIONS!!!!!     RANGOON IS CORRECT."
1760  PRINT 
1770  PRINT "PLEASE NAME SOME OTHER CITY IN BURMA"
1780  INPUT G$
1790  PRINT 
1800  IF G$="MANDALAY" THEN 1880
1810  GOSUB 2490
1820  IF F=0 THEN 1840
1830  GOSUB 2220
1840  PRINT "I WAS JUST TESTING -- MOST FOLKS CAN NAME ONLY RANGOON AND"
1850  PRINT "MANDALAY."
1860  PRINT 
1870  GOTO 1930
1880  PRINT "RAIN AT MANDALAY TOTALS 32.5 INCHES DISTRIBUTED AS FOLLOWS:"
1890  PRINT "  J.   F.   M.   A.   M.   J.   J.   A.   S.   O.   N.   D."
1900  PRINT " 0.1  0.1  0.2  1.2  5.8  6.3  2.7  4.1  5.4  4.3  2.0  0.4"
1910  PRINT 
1920  GOTO 1770
1930  PRINT "HOPE YOU LIKED YOUR TRIP INTO CLIMATOLOGY -- IT REALLY"
1940  PRINT "TELLS IT LIKE IT IS.  SEE YOU LATER!"
1950  STOP 
1960  RESTORE 
1970  READ R$
1980  IF R$#"DICTIONARY" THEN 1970
1990  READ T,N
2000  IF T=9999 THEN 1960
2010  READ #1,1
2020  FOR I=1 TO N
2030  READ R$
2040  IF T#J THEN 2060
2050  PRINT #1;R$, END 
2060  NEXT I
2070  IF T#J THEN 1990
2080  READ #1,1
2090  IF  END #1 THEN 2180
2100  READ #1;S$
2110  FOR L=1 TO LEN(G$)-LEN(S$)+1
2120  FOR K=1 TO LEN(S$)
2130  IF G$[L+K-1,L+K-1]#S$[K,K] THEN 2160
2140  NEXT K
2150  GOTO 2200
2160  NEXT L
2170  GOTO 2100
2180  F=0
2190  GOTO 2210
2200  F=1
2210  RETURN 
2220  IF C<0 THEN 2290
2230  C=-1
2240  PRINT "MAN, WHAT KIND OF LANGUAGE IS THAT?  WATCH IT OR I'LL"
2250  PRINT "SWEAR BACK AT YOU!"
2260  PRINT 
2270  PRINT 
2280  RETURN 
2290  PRINT "I WARNED YOU.  NOW GET YOUR ASS IN GEAR AND STOP SCREWING"
2300  PRINT "AROUND."
2310  GOTO 2260
2320  DATA "DICTIONARY"
2330  DATA 10,10
2340  DATA "SHIT","FUCK","PISS","CRAP","DAMN","HELL","SCREW","BLOW"
2350  DATA "FART","BASTARD"
2360  DATA 17,1
2370  DATA "BURMA"
2380  DATA 18,4
2390  DATA "INDONESIA","MALAYA","MALAYSIA","SINGAPORE"
2400  DATA 19,2
2410  DATA "PAKISTAN","INDIA"
2420  DATA 20,4
2430  DATA "THAILAND","SIAM","CAMBODIA","VIET"
2440  DATA 21,3
2450  DATA "JAVA","BORNEO","SUMATRA"
2460  DATA 22,4
2470  DATA "NORTH VIET","N. VIET","NO. VIET","LAOS"
2480  DATA 9999,0
2490  J=10
2500  GOSUB 1960
2510  RETURN 
2520  END 
