home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG026.ARK
/
CLIMATES.ASC
< prev
next >
Wrap
Text File
|
1984-04-29
|
6KB
|
198 lines
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