100 REM--E.A.GALLETTA,PATCHOGUE-H.S.,4/22/69 EARTH SIENCE (BIICAC)
110 REM--PROGRAM ON CLIMATES  
120 REM--REWRITTEN--7/28/69--BASIC--<ROD> 
130 REM REVISED BY TONY PEREZ, WALT WHITMAN HS, 8-69 
140 REM RE-REVISED BY C.LOSIK 8-26-70
150 DIML(56)  
160 READN,L(N) 
170 IFN<>56THEN 160
180 T=0 
190 PRINT"O.K., HERE ARE SOME VALUES FOR THE PRECIPIATION (P) AND FOR
200 PRINT"THE POTENTIAL EVAPOTRANSPIRATION (PE) OF AN AREA:"  
210 PRINT 
220 PRINT" ","MONTH"," P"," PE" 
230 PRINT" ","=====","=====","======" 
240 P=INT(10*RND(1))
250 IFP>6THEN240  
260 IFP<1THEN240  
270 E=INT(10*RND(1))
280 IFE>4THEN270  
290 IFE<1THEN270  
300 Z=5*E+6*P  
310 IF (Z-21)*(Z-22)*(Z-17)*(Z-38)=0 THEN 240 
320 FORI=1TO12 
330 PRINT" ",I,
340 IFP>1THEN360  
350 P1=12*COS(.261*I)^2+2*RND(1)
360 IFP<>2THEN380 
370 P1=12*SIN(.261*I)+2*RND(1) 
380 IFP<>3THEN400 
390 P1=2+3*RND(1)  
400 IFP<>4THEN420 
410 P1=2*RND(1) 
420 IFP<>5THEN440 
430 P1=7+10*RND(1) 
440 IFP<>6THEN460 
450 P1=3*COS(.5+.15*I)^2
460 PRINTINT(P1), 
470 IFE>1THEN490  
480 E1=10*SIN(.261*I)^2 
490 IFE<>2THEN510 
500 E1=12*SIN(.261*I)^2 
510 IFE<>3THEN530 
520 E1=2*SIN(.5+.15*I)^2
530 IFE<>4THEN550 
540 E1=8+4*RND(1)  
550 T=T+INT(P1) 
560 PRINTINT(E1+(E1/10)*2) 
570 NEXTI 
580 PRINT 
590 PRINT"TOTAL PRECIPITATION =";T;"INCHES"
600 PRINT 
610 PRINT"O.K., PLOT YOUR GRAPH ON THE PAPER PROVIDE YOU" 
620 PRINT"AND WHEN YOU ARE READY TO CONTINUE.... MEREY TYPE" 
630 PRINT"ANY NUMBER AND THE RETURN KEY.      "; 
640 INPUTQ 
650 PRINT 
660 PRINT"READY? GOOD, NOW TELL ME . . . DOES YOUR GRAPH SHOW THAT"  
670 PRINT"THE CLIMATE HAS DEFINITE WET AND DRY SEASONS (1=YES, 0=NO) "
680 INPUT S
690 PRINT 
700 IFS=0THEN880  
710 IF S<>1 THEN 660  
720 IFP<3THEN990  
730 B=0
740 GOSUB 1960
750 PRINT"TELL ME, IS THE CLIMATE [1] WET, [2] DRY, R [3] MODERATE ALL"  
760 PRINT"YEAR";  
770 INPUT S
780 PRINT 
790 IFS=1THEN920  
800 IFS=3THEN960  
810 IF S<>2 THEN 750  
820 IFT<13THEN1130 
830 IFT>80THEN860 
840 GOSUB1950 
850 GOTO1140
860 GOSUB1910 
870 GOTO1140
880 IFP>2THEN750  
890 IFP=2THEN820  
900 GOSUB1910 
910 GOTO990
920 IFT>80THEN1130 
930 IFT>=13THEN840 
940 GOSUB1930 
950 GOTO1140
960 IF(T-13)*(80-T)>=0THEN1130 
970 IFT<13THEN940 
980 IFT>80THEN860 
990 PRINT"TELL ME, WHICH IS THE WET SEASON, [1] THE WINTER OR [2] THE" 
1000 PRINT"SUMMER"; 
1010 PRINT 
1020 INPUT S
1030 PRINT 
1040 IFS=1THEN1090  
1050 IF S<>2 THEN 990  
1060 IFP=2THEN1130  
1070 GOSUB1910 
1080 GOTO1140
1090 IFP=1THEN1130  
1100 GOSUB1910 
1110 GOTO1140
1120 PRINT 
1130 PRINT"NICE GOING, SMARTY PANTS. KEEP UP THE GOODWORK."  
1140 PRINT"BY CHECKING THE PE CURVE ON YOUR GRAPH, WOUD YOU SAY THAT THE" 
1150 PRINT"SUMMERS ARE [1] HOT, [2] WARM, OR [3] COOL" 
1160 INPUT S
1170 PRINT 
1180 IFS=2THEN1260  
1190 IFS=3THEN1300  
1200 IF S<>1 THEN 1130  
1210 IFE=2THEN1320  
1220 IFE=4THEN1320  
1230 IF E=1 THEN 1320
1240 GOSUB1910 
1250 GOTO1330
1260 IFE=1THEN1320  
1270 IFE<>3THEN1240 
1280 GOSUB1950 
1290 GOTO1330
1300 IFE=3THEN1320  
1310 IFE<>3THEN1240 
1320 PRINT"YOU HAVE RESTORED MY FAITH IN TEENAGERS."
1330 PRINT"FROM THE SAME INFORMATION (PE GRAPH), WOULD YOU SAY THAT THE"
1340 PRINT"WINTERS ARE [1] COLD, [2] MILD, OR [3] WARM";
1350 INPUT S
1360 PRINT 
1370 IFS=2THEN1450  
1380 IFS=3THEN1490  
1390 IF S<>1 THEN 1330  
1400 IFE<3THEN1520  
1410 GOSUB1930 
1420 GOTO1530
1430 GOSUB1950 
1440 GOTO1530
1450 IFE=3THEN1520  
1460 IFE=4THEN1430  
1470 GOSUB1910 
1480 GOTO1530
1490 IFE=3THEN1410  
1500 IFE=4THEN1530  
1510 GOTO1470
1520 PRINT"IT WARMS MY HEART TO HEAR YOU SAY THAT. GOOD GOING."
1530 PRINT 
1540 PRINT"WELL, BY NOW YOU MUST HAVE AN INKLING AS TO THE TYPE OF" 
1550 PRINT"CLIMATE WE HAVE HERE. BELOW IS A COMPLETE LISTING OF ALL THE  
1560 PRINT"CLIMATES IN THE WORLD. REFER TO THEM BY THEIR NUMBER ONLY." 
1570 PRINT 
1580 PRINT 
1590 PRINT"NUMBER","NAME OF CLIMATE"
1600 PRINT"======","==============="
1610 PRINT"1","TROPICAL RAINFOREST" 
1620 PRINT"2","TROPICAL EAST COAST" 
1630 PRINT"3","TROPICAL MONSOON"
1640 PRINT"4","TROPICAL SAVANNA"
1650 PRINT"5","TROPICAL DESERT" 
1660 PRINT"6","MEDITERRANEAN"  
1670 PRINT"7","MARINE WEST COAST"  
1680 PRINT"8","HUMID CONTINENTAL"  
1690 PRINT"9","HUMID SUBTROPICAL"  
1700 PRINT"10","MIDDLE LATITUDE GRASSLANDS" 
1710 PRINT"11","MIDDLE LATITUDE DESERT" 
1720 PRINT"12","SUBARTIC CLIMATES" 
1730 PRINT"13 OR 14","HIGHLAND CLIMATES"
1740 PRINT" ","(TROPICAL OR MIDDLE LATITUDES)" 
1750 PRINT"15","POLAR TUNDRA"  
1760 PRINT"16","POLAR ICECAP"  
1770 PRINT 
1780 PRINT"WHAT IS THE NUMBER OF THE CLIMATE WE HAVE (WE'LL ACCEPT THE" 
1790 PRINT "FACT THAT THEY MAY OVERLAP)";  
1800 INPUTS 
1810 PRINT 
1820 PRINT 
1830 PRINT 
1840 IFS=L(Z)THEN1880  
1850 PRINT"MY SUGGESTION - STICK TO LANGUAGES OR SOCIAL STUDIES."  
1860 PRINT"YOU SHOULD HAVE SAID";L(Z);". GOOD DAY TO YOU." 
1870 STOP  
1880 PRINT"YOUR FORTUNE AS A METEOROLOGIST IS BUDDING. IT WAS" 
1890 PRINT"VERY NICE TO WORK WITH YOU. SO LONG."  
1900 STOP  
1910 B=1 
1920 GOTO1960  
1930 B=2 
1940 GOTO1960  
1950 B=3 
1960 PRINT"AW C'MON, YOU COULDN'T POSSIBLY MEAN THAT..."  
1970 PRINT"YOU SHOULD HAVE SAID";B 
1980 PRINT 
1990 RETURN 
2000 DATA11,6,16,7,23,10,26,3,27,15 
2010 DATA28,8,29,11,32,3,33,13,34,11
2020 DATA 35,9,39,16,40,8,41,13,44,5
2030 DATA46,10,45,16,50,1,51,12,56,4
2040 DATA39,4,44,5,35,9,40,8,45,1,41,15,46,12,51,5,56,16
2050 DATA0,0
2060 END
,44,5
2030 DATA46,10,45,16,50,1,51,12,56,4
2040 DATA39,4,44,5,35,9,40,8,45,1,41,15,46,12,51,5,56,16