10  COM Z,X$[72]
20  REM**CL3-2**BASIC C.A.I.**GEOGRAPHY**JUNE 13, 1972**CHAINED FROM CL3-1
25  REM CLIMAT, HP 36760A, 6/74
30  FILES SCRA
40  DIM R$[72],S$[72],G$[72]
50  PRINT "LET'S TRY GETTING THE CORRECT LETTER SYMBOLS FOR THE KOPPEN"
60  PRINT "CLASSIFICATION (WHERE DO WE FIT ON THE VENN DIAGRAMS)"
70  PRINT 
80  PRINT "IF YOU GIVE ME ALL 3 LETTERS CORRECTLY, I'LL SKIP THIS PART"
90  INPUT G$
100  IF G$="CSB" THEN 880
110  PRINT "SORRY, ";X$;"! WE'LL DO IT LETTER BY LETTER."
120  PRINT 
130  PRINT "IS THE FIRST LETTER  A, B, C, D, OR E";
140  INPUT G$
150  PRINT 
160  IF G$="C" THEN 400
170  IF G$="A" THEN 360
180  IF G$="B" THEN 310
190  IF G$="D" THEN 270
200  IF G$="E" THEN 230
210  PRINT "PLEASE -- THE CORRECT FIRST LETTER ONLY - A, B, C, D, OR E"
220  GOTO 140
230  PRINT "NO, E IS TOO DAMN COLD TO BE OUR STATION. E MEANS THAT"
240  PRINT "THE TEMPERATURES OF ALL MONTHS < 50 F."
250  GOSUB 1490
260  GOTO 140
270  PRINT "THINK - WHAT IS THE TEMPERATURE OF THE COLDEST MONTH?  THE"
280  PRINT "SYMBOL IS 'D' ONLY IF THE TEMPERATURE < OR = 26.6 F."
290  GOSUB 1490
300  GOTO 140
310  PRINT "HOLD IT! 'B' CLIMATES ARE DRY - POTENTIAL EVAPO-TRANSPIRATION"
320  PRINT "IS GREATER THAN PRECIPITATION. IN UPPER MID-LATITUDES THE"
330  PRINT "MAX. RAINFALL FOR 'B' CLIMATES IS ABOUT 13 INCHES A YEAR"
340  GOSUB 1490
350  GOTO 140
360  PRINT "E-GAD! 'A' IS THE SYMBOL FOR HOT HUMID CLIMATES WHERE"
370  PRINT "MONTHLY TEMPERATURES NEVER FALL BELOW 64.4 F."
380  GOSUB 1490
390  GOTO 140
400  PRINT "PERFECT - CLEARLY THIS IS A HUMID MILD-WINTER CLIMATE WITH"
410  PRINT "THE COLDEST MONTH > 26.6 AND THE WARMEST MONTH > 50 F."
420  PRINT 
430  PRINT "THE SECOND LETTER CHOICES ARE: F, S, OR W"
440  PRINT "WHICH ONE OF THESE IS MOST APPROPRIATE";
450  INPUT G$
460  PRINT 
470  IF G$="F" THEN 520
480  IF G$="S" THEN 590
490  IF G$="W" THEN 550
500  PRINT "WHAT?  CHOICES ARE: F, S, OR W"
510  GOTO 450
520  PRINT "CAN'T BE - 'F' MEANS EVEN RAINFALL ALL YEAR.  TRY AGAIN."
530  GOSUB 1490
540  GOTO 450
550  PRINT "WHAT DOES 'W' MEAN:  WINTER DROUGHT.  DOES OUR STATION HAVE"
560  PRINT "SUCH A CONDITION?    HARDLY!!!"
570  GOSUB 1490
580  GOTO 450
590  PRINT " FINE - 'S' MEANS SUMMER DROUGHT - THE DRYEST SUMMER MONTH"
600  PRINT "HAVING LESS THAN 1/3 THE RAIN OF THE WETTEST WINTER MONTH."
610  PRINT 
620  PRINT "NOW, ON TO THE THIRD LETTER, ";X$;"."
630  PRINT "   IS YOUR CHOICE A, B, C, OR D";
640  INPUT G$
650  PRINT 
660  IF G$="A" THEN 800
670  IF G$="B" THEN 840
680  IF G$="C" THEN 760
690  IF G$="D" THEN 720
700  PRINT G$;" IS NOT A POSSIBLE ANSWER, TRY AGAIN."
710  GOTO 640
720  PRINT "IS THE TEMP. OF THE COLDEST MONTH BELOW -36.4?  IF NOT"
730  PRINT "THEN THE THIRD SYMBOL CAN NOT BE 'D'. TRY AGAIN"
740  GOSUB 1490
750  GOTO 640
760  PRINT "ARE THERE LESS THAN FOUR MONTHS WITH TEMPS. ABOVE 50 F.?"
770  PRINT "IF NOT THEN 'C' IS THE WRONG ANSWER, ";X$;"."
780  GOSUB 1490
790  GOTO 640
800  PRINT "IS THE TEMPERATURE OF THE WARMEST MONTH HIGHER THAN 71.6 F."
810  PRINT "IF NOT, THEN 'A' IS THE WRONG ANSWER."
820  GOSUB 1490
830  GOTO 640
840  PRINT "CONGRATULATIONS, ";X$;". I KNOW YOU CHOSE 'B' BECAUSE THE "
850  PRINT "HIGHEST TEMPERATURE IS BELOW 71.6 F. AND THERE ARE FOUR"
860  PRINT "OR MORE MONTHS WITH TEMPERATURES ABOVE 50 F."
870  GOTO 900
880  PRINT 
890  PRINT "WOW!!!  GUESS YOU ARE A REAL EXPERT, ";X$;"."
900  PRINT 
910  PRINT "THE CLASSIFICATION IS:"
920  PRINT "      CSB - MARINE WEST COAST"
930  PRINT 
940  PRINT "THE LOCATION IS:"
950  PRINT "      UPPER MID-LATITUDES"
960  PRINT "      ON THE WEST COAST   OF"
970  PRINT "      NORTH AMERICA"
980  PRINT 
990  LET U=0
1000  PRINT "NOW WHAT IS YOUR GUESS AS TO THE NAME OF THE ACTUAL TOWN OR"
1010  PRINT "CITY REPRESENTED BY THE DATA WITH WHICH WE HAVE WORKED"
1020  INPUT G$
1030  PRINT 
1040  J=10
1050  GOSUB 1690
1060  IF F#1 THEN 1080
1070  GOSUB 1950
1080  FOR J=17 TO 20
1090  GOSUB 1690
1100  IF F#1 THEN 1120
1110  GOTO J-16 OF 1420,1230,1260,1320
1120  NEXT J
1130  J=31
1140  GOSUB 1690
1150  IF F=1 THEN 1290
1160  J=1
1170  GOSUB 1690
1180  IF F=1 THEN 1390
1190  LET U=U+1
1200  IF U>1 THEN 1350
1210  PRINT G$;"IS WRONG - BUT NO HINT: TRY AGAIN--"
1220  GOTO 1020
1230  PRINT "THE CITY OF ";G$;" IS A BIT TOO FAR SOUTH.  MOVE NORTH"
1240  PRINT "     AND WEST BY ABOUT 75 MILES"
1250  GOTO 1020
1260  PRINT "YOU'RE VERY CLOSE: FROM ";G$;" MOVE TO THE S.W."
1270  PRINT "     BUT BE CAREFUL, DON'T GO MORE THAN 50 MILES."
1280  GOTO 1020
1290  PRINT "SORRY, ";X$;" BETTER MOVE NORTH OF ";G$;" BY"
1300  PRINT "ROUGHLY 243 MILES."
1310  GOTO 1020
1320  PRINT "NO! ";G$;" IS TOO WET:  MOVE SOUTH BY ABOUT 700 MILES BUT"
1330  PRINT "KEEP TO THE INLAND WATER PASSAGE"
1340  GOTO 1020
1350  PRINT "WRONG AGAIN!!! WANT ANOTHER TRY? (YES OR NO)"
1360  INPUT G$
1370  PRINT 
1380  IF G$="YES" THEN 1020
1390  PRINT "THE LOCATION IS:  VICTORIA, B.C."
1400  PRINT 
1410  GOTO 1430
1420  PRINT "EXCELLENT - PERFECT, ";X$;".  AND YOU HAD ONLY ";Z;" MISTAKES"
1430  PRINT "LOCATION IN THE LEE OF THE MOUNTAINS OF VANCOUVER ISLAND"
1440  PRINT "CUTS RAINFALL CONSIDERABLY.  A FEW MILES TO THE WEST OF THE"
1450  PRINT "CITY, RAINFALL IS OVER 100 INCHES."
1460  PRINT 
1470  PRINT "HOPE TO SEE YOU AGAIN FOR ANOTHER LESSON, ";X$;". GOOD BYE."
1480  STOP 
1490  REM MISTAKES
1500  PRINT 
1510  LET Z=Z+1
1520  IF Z=1 THEN 1660
1530  IF Z=2 THEN 1630
1540  IF Z=3 THEN 1590
1550  PRINT "SORRY, I GIVE UP.  THAT WAS YOUR FOURTH MISTAKE"
1560  PRINT "GO BACK AND REVIEW THE PREVIOUS LESSON."
1570  PRINT 
1580  STOP 
1590  PRINT "BETTER WATCH YOUR STEP! THAT WAS YOUR THIRD MISTAKE;"
1600  PRINT "ONE MORE AND I'LL GIVE UP!"
1610  PRINT 
1620  RETURN 
1630  PRINT "DANGER LURKS: THAT WAS YOUR SECOND MISTAKE--"
1640  PRINT 
1650  RETURN 
1660  PRINT "I'M COUNTING - THAT WAS YOUR FIRST MISTAKE."
1670  PRINT 
1680  RETURN 
1690  RESTORE 
1700  READ R$
1710  IF R$#"DICTIONARY" THEN 1700
1720  READ T,N
1730  IF T=9999 THEN 1690
1740  READ #1,1
1750  FOR I=1 TO N
1760  READ R$
1770  IF T#J THEN 1790
1780  PRINT #1;R$, END 
1790  NEXT I
1800  IF T#J THEN 1720
1810  READ #1,1
1820  IF  END #1 THEN 1910
1830  READ #1;S$
1840  FOR L=1 TO LEN(G$)-LEN(S$)+1
1850  FOR K=1 TO LEN(S$)
1860  IF G$[L+K-1,L+K-1]#S$[K,K] THEN 1890
1870  NEXT K
1880  GOTO 1930
1890  NEXT L
1900  GOTO 1830
1910  F=0
1920  GOTO 1940
1930  F=1
1940  RETURN 
1950  PRINT 
1960  PRINT "    #$%$%%#'$!$#    GOODNESS - SHAME ON YOU !! !!! !"
1970  PRINT "PLEASE DON'T USE WORDS LIKE THAT - IT HURTS MY EGO!"
1980  PRINT 
1990  RETURN 
2000  DATA "DICTIONARY"
2010  DATA 2,10
2020  DATA "MID-LAT","MIDLAT","MIDDLE","HALF WAY","MID WAY","MIDWAY"
2030  DATA "MID-WAY"
2040  DATA "CENTRA","FORTY","FIFTY"
2050  DATA 1,3
2060  DATA "DONT UNDER"
2070  DATA "DON'T UNDER","HELP"
2080  DATA 3,7
2090  DATA "POLAR","POLE","NORTH","ARTIC","ARCTIC","SIXTY","SEVENTY"
2100  DATA 4,4
2110  DATA "POLE","NORTH","ARCTIC","POLEWARD"
2120  DATA 5,5
2130  DATA "EQUAT","SOUTH","LOW","TWENTY","THIRTY"
2140  DATA 13,1
2150  DATA "EAST"
2160  DATA 14,1
2170  DATA "WEST"
2180  DATA 15,5
2190  DATA "INTERIOR","REMOTE","FAR","INLAND","CONTINENTAL"
2200  DATA 16,7
2210  DATA "COAST","SHORE","SEA","OCEAN","CURRENT","MARINE","WATER"
2220  DATA 10,12
2230  DATA "HELL","SCREW","UCK","ALLS","SHIT","PISS","FART","CRAP"
2240  DATA "BITCH","GOD","DAMM","DAMN"
2250  DATA 9,1
2260  DATA "NORTH"
2270  DATA 12,6
2280  DATA "EAST","WEST","ORIENT","OCCIDENTAL","LAND","WATER"
2290  DATA 17,4
2300  DATA "VICTORIA","VIC","VICTOR","VICTORA"
2310  DATA 18,4
2320  DATA "SEATTLE","TACOMA","EVERET","OLYMPIA"
2330  DATA 19,2
2340  DATA "VANCOUVER","BELLING"
2350  DATA 20,3
2360  DATA "SITKA","JUNEAU","KETCH"
2370  DATA 25,6
2380  DATA "NORTH AMERICA","AMERICA","AMERI","N.A.","N. A.","N. AMERICA"
2390  DATA 30,2
2400  DATA "SOUTH","NORTH"
2410  DATA 31,3
2420  DATA "PORTLAND","SALEM","EUGENE"
2430  DATA 9999,0
2440  END 
