10  COM R$[72],G$[72],S$[72],X$[72],Z
20  REM**CL2-2**BASIC C.A.I.**GEOGRAPHY**JUNE12, 1972**CHAIN TO CL2-1
25  REM CLIMAT, HP 36760A, 6/74
30  FILES SCRA
40  DIM A[12]
50  PRINT "EXCELLENT - I HOPE YOU CHOSE AN EAST COAST LOCATION"
60  PRINT "BECAUSE OF THE VERY MARKED SUMMER CONCENTRATION OF"
70  PRINT "RAINFALL SUGGESTING A STRONG MONSOON INFLUENCE."
80  PRINT 
90  PRINT " NOW YOU KNOW THE STATION IS:"
100  PRINT "          NORTHERN HEMISPHERE"
110  PRINT "          UPPER MID-LATITUDES"
120  PRINT "          NOT FAR FROM THE EAST COAST"
130  PRINT 
140  PRINT "HOW MANY SUCH LOCATIONS ARE THERE IN THE WORLD?"
150  PRINT "ONLY NORTH AMERICA AND ASIA ACCORDING TO MY MAP."
160  PRINT "TO WHICH OF THESE DOES OUR STATION BELONG?"
170  INPUT G$
180  PRINT 
190  J=25
200  GOSUB 2160
210  IF F=1 THEN 290
220  PRINT "NO-NO. REMEMBER, FROM THE PREVIOUS LESSON YOU LEARNED"
230  PRINT "THAT OF THE TWO CONTINENTS, NORTH AMERICA IS THE ONE"
240  PRINT "WITH THE MOST EVEN RAINFALL DISTRIBUTION AND LEAST"
250  PRINT "MONSOON INFLUENCE."
260  GOSUB 1960
270  PRINT "TRY AGAIN--";
280  GOTO 170
290  PRINT "GOOD THINKING.  EASTERN ASIA SHOWS A STRONG MONSOON"
300  PRINT "RHYTHM WHILE NORTH AMERICA HAS MORE EVEN RAINFALL."
310  PRINT 
320  PRINT "ON TO THE LETTER SYMBOLS FOR THE KOPPEN CLASSIFICATION:"
330  PRINT 
340  PRINT "WHAT IS THE FIRST LETTER";
350  INPUT G$
360  PRINT 
370  IF G$="D" THEN 650
380  IF G$="A" THEN 600
390  IF G$="B" THEN 540
400  IF G$="C" THEN 490
410  IF G$="E" THEN 440
420  PRINT "THE CHOICES ARE: A,B,C,D,E. TRY AGAIN--";
430  GOTO 350
440  PRINT "NO, OUR CLIMATE IS NOT COLD ENOUGH TO BE AN E CLIMATE."
450  PRINT "'E' MEANS THAT THE TEMPERATURES OF ALL MONTHS < 50 F."
460  GOSUB 1960
470  PRINT "TRY AGAIN--";
480  GOTO 350
490  PRINT "THINK - 'C' MEANS HUMID AND MILD WINTER (TEMPERATURE"
500  PRINT "AVERAGE NEVER FALLS BELOW 26.6 F.)"
510  GOSUB 1960
520  PRINT "TRY AGAIN--";
530  GOTO 350
540  PRINT "WHOA! 'B' CLIMATES ARE DRY-POTENTIAL EVAPO-TRANSPIRATION"
550  PRINT "IS GREATER THAN PRECIPITATION. IN UPPER MID-LATITUDES"
560  PRINT "THE MAX RAINFALL FOR 'B' CLIMATES IS ABOUT 13 INCHES A YEAR"
570  GOSUB 1960
580  PRINT "TRY AGAIN--";
590  GOTO 350
600  PRINT "E-GAD! 'A' IS THE SYMBOL FOR HOT, HUMID CLIMATES WHERE"
610  PRINT "TEMPERATURE AVERAGES NEVER FALL BELOW 64.4 F."
620  GOSUB 1960
630  PRINT "TRY AGAIN--";
640  GOTO 350
650  PRINT "PERFECT - CLEARLY THIS IS A SEVERE WINTER CLIMATE WITH"
660  PRINT "WINTER TEMPS. <26.6 AND SUMMER TEMPS. > 50 F."
670  PRINT 
680  PRINT "IS THE SECOND LETTER F,S, OR W";
690  INPUT G$
700  PRINT 
710  IF G$="W" THEN 870
720  IF G$="F" THEN 760
730  IF G$="S" THEN 820
740  PRINT "WHAT?  SECOND LETTERS ARE F,S, OR W";
750  GOTO 690
760  PRINT "'F' MEANS AN EVEN DISTRIBUTION OF RAINFALL AND NO DROUGHT"
770  PRINT "SEASON - IS THIS TRUE HERE?"
780  LET Z=Z+1
790  GOSUB 1960
800  PRINT "TRY AGAIN--";
810  GOTO 690
820  PRINT "CAN'T BE - 'S' MEANS SUMMER DROUGHT.  WE HAVE ALMOST 9 INCHES"
830  PRINT "OF PRECIPITATION IN JULY AND THAT'S NO DROUGHT"
840  GOSUB 1960
850  PRINT "TRY AGAIN--";
860  GOTO 690
870  PRINT "FINE - YOU CHOSE 'W' BECAUSE THAT SHOWS A WINTER DROUGHT"
880  PRINT "WHERE THE DRYEST MONTH HAS LESS THAN 1.2 INCHES"
890  PRINT "AND LESS THAN ONE-TENTH THE WETTEST SUMMER MONTH."
900  PRINT 
910  PRINT "NOW THE THIRD LETTER: A,B,C, OR D";
920  INPUT G$
930  PRINT 
940  IF G$="A" THEN 1120
950  IF G$="B" THEN 1080
960  IF G$="C" THEN 1040
970  IF G$="D" THEN 1000
980  PRINT "IMPOSSIBLE: CHOICES ARE  'A','B','C' OR 'D'. TRY AGAIN--";
990  GOTO 920
1000  PRINT "IS THE TEMPERATURE OF THE COLDEST MONTH BELOW -36.4F?"
1010  PRINT "IF NOT, THEN THE THIRD SYMBOL CANNOT BE D."
1020  GOSUB 1960
1030  GOTO 920
1040  PRINT "ARE THERE LESS THAN FOUR MONTHS WITH TEMPERATURES ABOVE"
1050  PRINT "50 F.? IF NOT, THEN 'C' IS WRONG."
1060  GOSUB 1960
1070  GOTO 920
1080  PRINT "IS THE TEMPERATURE OF THE WARMEST MONTH < 71.6 F.?"
1090  PRINT "IF NOT, THEN 'B' IS WRONG."
1100  GOSUB 1960
1110  GOTO 920
1120  PRINT "SUPER - YOU CHOSE 'A' BECAUSE THE TEMPERATURE OF THE"
1130  PRINT "WARMEST MONTH IS > 71.6 F."
1140  PRINT 
1150  PRINT "THE CLASSIFICATION IS:  'DWA'"
1160  PRINT 
1170  PRINT "THE LOCATION IS:"
1180  PRINT "          NORTHERN HEMISPHERE"
1190  PRINT "          UPPER MID-LATITUDES"
1200  PRINT "          NEAR THE EAST COAST OF ASIA"
1210  PRINT 
1220  PRINT "NOW NAME THE CITY AND COUNTRY"
1230  INPUT G$
1240  PRINT 
1250  J=17
1260  GOSUB 2160
1270  F1=F
1280  J=18
1290  GOSUB 2160
1300  IF F1+F=2 THEN 1880
1310  A[1]=17
1320  A[2]=21
1330  A[3]=27
1340  A[4]=20
1350  A[5]=22
1360  A[6]=19
1370  A[7]=23
1380  A[8]=24
1390  A[10]=26
1400  A[11]=28
1410  A[12]=18
1420  FOR M=1 TO 12
1430  IF M=9 THEN 1480
1440  J=A[M]
1450  GOSUB 2160
1460  IF F#1 THEN 1480
1470  GOTO M OF 1800,1600,1570,1550,1510,1740,1670,1720,10,1700,1640,1760
1480  NEXT M
1490  PRINT "WRONG - BUT NO HINT - TRY AGAIN--"
1500  GOTO 1230
1510  PRINT "SORRY, ";X$;", REMEMBER THAT GENGHIS KHAN WAS A HORSEMAN"
1520  PRINT "AND CAME FROM AN AREA OF GRASSLANDS.  HE FIRST MOVED TO THE"
1530  PRINT "SOUTHEAST. WHY DON'T YOU FOLLOW HIS LEAD."
1540  GOTO 1230
1550  PRINT "SUMMER MONTHS TOO HOT TO BE THE SOVIET.  TRY AGAIN--"
1560  GOTO 1230
1570  PRINT "SORRY, ";X$;", ";G$;"  IS NOT QUITE SO DRY IN THE"
1580  PRINT "WINTER AND HAS LESS TEMPERATURE RANGE. MOVE 500 MILES WEST."
1590  GOTO 1230
1600  PRINT "HOW DO YOU EXPECT THE JAPANESE TO SKI WITH SUCH A"
1610  PRINT "DRY WINTER?  REMEMBER THE WORDS OF HORACE GREELEY AND"
1620  PRINT "FOLLOW HIS ADVICE FOR ABOUT 1200 MILES"
1630  GOTO 1230
1640  PRINT X$;", YOU SHOULD KNOW BY NOW THAT ISLAND AREAS DO NOT HAVE "
1650  PRINT "SUCH GREAT TEMPERATURE RANGES - ESPECIALLY IN SUB-TROPICAL"
1660  PRINT "PORTIONS OF THE WORLD.  TRY AGAIN--"
1670  PRINT "SPELLING NO LONGER USED - NOW WUHAN"
1680  PRINT 
1690  GOTO 1740
1700  PRINT "TRY MOVING A FEW MILES TO THE WEST--"
1710  GOTO 1230
1720  PRINT "TRY MOVING A FEW MILES TO THE SOUTH-WEST--"
1730  GOTO 1230
1740  PRINT "MOVE NORTHWARD ABOUT 600 MILES - TO A COLDER CLIMATE--"
1750  GOTO 1230
1760  PRINT "I ASSUME THAT YOU MEAN THE  'PEOPLE'S REPUBLIC OF CHINA'"
1770  PRINT "IF SO YOU ARE CORRECT - HOWEVER I DON'T FIND YOUR CITY"
1780  PRINT "ON MY MAP, PLEASE, ";X$;", TRY AGAIN--"
1790  GOTO 1230
1800  PRINT "PEKING IS THE CORRECT CITY, BUT WHAT COUNTRY IS"
1810  PRINT "IT IN"
1820  INPUT G$
1830  IF G$="CHINA" THEN 1870
1840  PRINT "'CHINA' IS THE COMMON NAME BUT THE CORRECT NAME IS"
1850  PRINT "           'PEOPLES REPUBLIC OF CHINA'"
1860  GOTO 1900
1870  PRINT 
1880  PRINT "EXCELLENT - PERFECT. ";X$;", YOU REALLY HAVE THIS"
1890  PRINT "MATERIAL UNDER CONTROL!!"
1900  PRINT 
1910  PRINT "WELL, ";X$;", I DO BELIEVE THAT YOU ARE READY TO MOVE ON TO "
1920  PRINT "CLIMAT-3***"
1930  PRINT 
1940  PRINT "SO LONG FOR A WHILE"
1950  STOP 
1960  REM MISTAKES
1970  PRINT 
1980  LET Z=Z+1
1990  IF Z=1 THEN 2130
2000  IF Z=2 THEN 2100
2010  IF Z=3 THEN 2060
2020  PRINT "SORRY, I GIVE UP.  THAT WAS YOUR FOURTH MISTAKE."
2030  PRINT "GO BACK AND REVIEW THE PREVIOUS LESSON."
2040  PRINT 
2050  STOP 
2060  PRINT "BETTER WATCH YOUR STEP! THAT WAS YOUR THIRD MISTAKE;"
2070  PRINT "ONE MORE AND I'LL GIVE UP!"
2080  PRINT 
2090  RETURN 
2100  PRINT "DANGER LURKS: THAT WAS YOUR SECOND MISTAKE--"
2110  PRINT 
2120  RETURN 
2130  PRINT "I'M COUNTING - THAT WAS YOUR FIRST MISTAKE."
2140  PRINT 
2150  RETURN 
2160  RESTORE 
2170  READ R$
2180  IF R$#"DICTIONARY" THEN 2170
2190  READ T,N
2200  IF T=9999 THEN 2160
2210  READ #1,1
2220  FOR I=1 TO N
2230  READ R$
2240  IF T#J THEN 2260
2250  PRINT #1;R$, END 
2260  NEXT I
2270  IF T#J THEN 2190
2280  READ #1,1
2290  IF  END #1 THEN 2380
2300  READ #1;S$
2310  FOR L=1 TO LEN(G$)-LEN(S$)+1
2320  FOR K=1 TO LEN(S$)
2330  IF G$[L+K-1,L+K-1]#S$[K,K] THEN 2360
2340  NEXT K
2350  GOTO 2400
2360  NEXT L
2370  GOTO 2300
2380  F=0
2390  GOTO 2410
2400  F=1
2410  RETURN 
2420  PRINT 
2430  PRINT "   #$%$%%#'&!$#   GOODNESS - SHAME ON YOU !! !!! !"
2440  PRINT "PLEASE DON'T USE WORDS LIKE THAT - IT HURTS MY EGO!"
2450  PRINT 
2460  RETURN 
2470  DATA "DICTIONARY"
2480  DATA 1,10
2490  DATA "QUERY","ASK","WHAT DO","KNOW HOW","DON'T KNOW","DONT KNOW"
2500  DATA "HOW","DON'T UNDER","DONT UNDER","HELP"
2510  DATA 2,9
2520  DATA "MID-LAT","MIDLAT","MIDDLE","HALF WAY","MID WAY","MIDWAY"
2530  DATA "MID-WAY"
2540  DATA "CENTRA","FORTY"
2550  DATA 3,7
2560  DATA "POLAR","POLE","NORTH","ARCTIC","FIFTY","SIXTY","SEVENTY"
2570  DATA 4,5
2580  DATA "POLE","POLAR","POLWARD","NORTH","ARCTIC"
2590  DATA 5,5
2600  DATA "EQUAT","SOUTH","LOW","TWENTY","THIRTY"
2610  DATA 13,1
2620  DATA "EAST"
2630  DATA 14,1
2640  DATA "WEST"
2650  DATA 15,5
2660  DATA "INTERIOR","REMOTE","FAR","INLAND","CONTINENTAL"
2670  DATA 16,7
2680  DATA "COAST","SHORE","SEA","OCEAN","CURRENT","WATER","MARINE"
2690  DATA 17,3
2700  DATA "PEIKING","PEKING","PEIPING"
2710  DATA 18,1
2720  DATA "CHINA"
2730  DATA 19,3
2740  DATA "SHANGHAI","NANKING","WUHAN"
2750  DATA 20,4
2760  DATA "RUSSIA","SOVIET","USSR","U.S.S.R."
2770  DATA 10,12
2780  DATA "HELL","SCREW","UCK","BALLS","PISS","FART","CRAP","BITCH"
2790  DATA "GOD","DAMN","DAMM"
2800  DATA "SHIT"
2810  DATA 21,1
2820  DATA "JAPAN"
2830  DATA 22,1
2840  DATA "MONGOLIA"
2850  DATA 23,1
2860  DATA "HANKOW"
2870  DATA 24,6
2880  DATA "HARBIN","MUKDEN","FUSHUN","FUSHIN","ANSHAN","KIRIN"
2890  DATA 9,1
2900  DATA "NORTH"
2910  DATA 26,6
2920  DATA "TIENTSIN","DAIREN","PORT ARTHUR","LUTA","TALIEN","TAKU"
2930  DATA 12,6
2940  DATA "EAST","WEST","ORIENT","OCCIDENT","LAND","WATER"
2950  DATA 27,1
2960  DATA "KOREA"
2970  DATA 25,5
2980  DATA "ASIA","FAR EAST","ORIENTAL","CHINA","PACIFIC"
2990  DATA 28,2
3000  DATA "FORMOSA","TAIWAN"
3010  DATA 9999,0
3020  END 
