5 DV=PEEK(186):IFDV<8THENDV=8 10 PRINT"[147]":POKE53280,.:POKE53281,.:PRINTCHR$(142)"" 15 GOSUB60000 25 SYS57812"ANIMATE.O",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493 30 SYS57812"EARTH FONTS",DV,0:POKE780,0:POKE781,0:POKE782,224:SYS65493 65 POKE56576,(PEEK(56576)AND252)OR. 70 POKE53272,(PEEK(53272)AND15)OR48 75 POKE648,204 80 POKE53272,(PEEK(53272)AND240)OR14 85 SYS49152:PRINT"[147]" 90 DV=PEEK(186):IFDV<8THENDV=8 91 I=RND(-TI) 92 PRINT"[147]":POKE53280,.:POKE53281,.:POKE49158,.:GOSUB920 95 C$(1)="THE PLANET":C$(2)="OCEANOGRAPHY":C$(3)="GEOLOGY" 100 C$(4)="ATMOSPHERE":C$(5)="ZOOLOGY":C$(6)="RESOURCES" 105 C$(7)="POLLUTION":KN$=" KNOWLEDGE OF" 110 EK$="[171] [172] [173] [174] [175] [176] [177] [176] [178] [179]" 115 PRINT:PRINTTAB(10)"[153]";EK$ 120 PRINT:PRINTTAB(3)"[159]WHAT DO YOU KNOW OF PLANET EARTH?" 125 PRINTTAB(2)"[150][167][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][181]" 130 PRINT:PRINT"[158] GROWTH FOR THE SAKE OF GROWTH IS " 135 PRINT" THE IDEOLOGY OF THE CANCER CELL[150]!" 140 PRINT:PRINT" [150]* [154]EDWARD ABBEY [150]*" 145 PRINT:PRINT" [192][146][211][211][211][211][150][211][211][211][211][158][211][211][211][211][153][211][211][211][211][212][212][212][212][154][212][212][212][212][212][212][212][212][156][212][212][212][212][194]" 150 PRINT:PRINT"[153] WHAT IS THE USE OF A HOUSE IF YOU " 155 PRINT" HAVEN'T GOT A TOLERABLE PLANET TO" 160 PRINT" PUT IT ON!" 165 PRINT:PRINT"[150] * [154]HENRY DAVID THOREAU [150]*" 170 PRINT:PRINTTAB(13)"PRESS A KEY":POKE198,. 175 GETQ$:IFQ$=""THEN175 180 PRINT"[147]":POKE53280,.:POKE53281,10 185 POKE214,8:PRINT:PRINTTAB(10)"[144]:COMPUTER INTERLOCK[144]:" 190 PRINT:PRINTTAB(8)"[144]T H E Q U I R K O N S" 195 PRINT:PRINTTAB(11)"HAVE ANOTHER QUIZ":GOSUB1085 200 WF$="[154][193][195][157][157][149][201][154][203][157][157][149][202][154][206][157][157][149][201][154][206][157][157][149][202][154][206][157][157][149][201][154][206][168][157][157][157][149][202][154][206][166]" 205 RV$="[149][216][154][205][219][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221]" 210 PT$=" [198] [217] [217] [217] [198] [198] [198] [217] [217] [217] [198] [198] [198] [217] [217] [217] [198]" 215 RB$="[149] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218]" 220 SB$(1)="[152][165][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][162]" 225 SB$(2)="[152][164][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][163]" 230 BB$="[192][146][159][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][194]" 235 DIMET(71) 240 FORI=0TO70:ET(I)=0:NEXT 245 PRINT"[147]":POKE53280,.:POKE53281,.:POKE49158,6:POKEAN+7,4 250 PRINT:PRINTTAB(8)"[153]AN ENVIROMENTAL QUIZ!" 255 PRINT:PRINT"[150] THE QUIRKON'S SECOND CHALLENGE!" 260 PRINT"[153] THE CATEGORIES ARE:" 265 PRINT:PRINT" 1. [159]"C$(1);TAB(22)"5. [159]"C$(5) 270 PRINT" 2. [159]"C$(2);TAB(22)"6. [159]"C$(6) 275 PRINT" 3. [159]"C$(3);TAB(22)"7. [159]"C$(7) 280 PRINT" 4. [159]"C$(4) 285 PRINT:PRINT"[153] STATEMENTS DEAL WITH ENVIROMENTAL" 290 PRINT" ASPECTS OF EACH CATEGORY ABOVE." 295 PRINT"[156] ENTER [158]FIRST NAME PLEASE[154]: " 300 PRINTTAB(16)"-------[145][145]" 305 PRINTTAB(16);:L9%=7:GOSUB1145:TS$=Q9$ 310 POKE214,21:PRINT:PRINTTAB(10)"[159] GREETINGS, HUMAN! ":FORT=1TO1200:NEXTT 315 PRINT"[147]":GOSUB920 325 PRINT"[158]THERE ARE 10 [158]STATEMENTS IN EACH OF THE" 330 PRINT"7 [158]CATEGORIES. YOU MUST ANSWER 20 [158]IN" 335 PRINT"ALL TO PASS. ANSWER EITHER [153]TRUE [158]OR" 340 PRINT"[153]FALSE. [158]YOU RECEIVE 1000 [158]POINTS FOR" 345 PRINT"EACH CORRECT ANSWER AND LOSE 1000 [158]FOR 347 [153]"EACH INCORRECT ONE." 350 [153]"10 SYSIS THE MOST YOU CAN MISS! RATINGS" 355 [153]"ARE BASED ON THE HIGHEST SCORE, 20,000SYS." 360 [153]"SYSPRESS 'Q'SYS TO QUIT. THIS MEANS FAILURE!" 365 [153]" READ ALL STATEMENTS CAREFULLY!" 370 [153][163]9)"PRINTGOOD LUCK, "TS$ 375 [153]"SYSTHE FATE OF YOUR PLANET DEPENDS UPON" 380 [153]"HOW WELL YOU DO ON THIS QUIZ. THERE IS" 385 [153]"TROUBLE AHEAD IF YOU CAN'T PASS!" 390 [153]:[153]"PRINTCATEGORIES ARE DELETED IF USED UP." 395 [153]:[153][163]7)" PRESS A KEY TO BEGIN ":[151]198,. 400 [161]Q$:[139]Q$[178]""[167]400 405 [137]570 410 [140]:SR[178]0:Z[178]0:PB[178]0:R[178]0 415 I[178][181]([187](0)[172]10)[170](HE[171]1)[172]10[170]1 420 [139]ET(I)[178]1[167]415 425 ET(I)[178]1:I[178](I[171]1)[172]7[170]1:[129]K[178]1[164]I 430 [135]QU$(0):[130]K:[135]QU$(1),AN$,RP$(0),RP$(1),RP$(2),RP$(3) 435 [153]"DEFLOAD":[151]53280,.:[151]53281,.:[151]49158,2 440 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]I 445 [145]HE[141]1670,1675,1680,1685,1690,1695,1700 450 [153][163]8)"CONT S C O R I N G " 455 [153]SB$(1) 460 [153][163]2)"PRINT"TS$;"'S SCORE ";[163]18)" CMDCMDCMDCMDCMDCMD"SR;[163]26)"PRINT# CORRECT"R 465 [153]:[153][163]2)"LISTSTATEMENTS LEFT CMDCMD"(20[171]PB);[163]26)"DEF# MISSED "Z 470 [153]SB$(2) 475 [153][163]8)"CONT S T A T E M E N T " 480 [153]SB$(1) 485 [153]""SB$(2) 490 [153][163]7)"OPENPRESS PRINT TOPEN ORPRINT FOPEN KEY TO ANSWER" 495 [141]1050:[151]214,9:[153]:[153]"SYS";QU$(0):[153]QU$(1) 500 [151]214,21:[153]:[153][163]10)"SYSPRESS Q-KEY TO QUIT":[151]198,. 505 [161]C$:[139]C$[179][177]"T"[175]C$[179][177]"F"[175]C$[179][177]"Q"[167]505 510 [139]C$[178]AN$[167]SR[178]SR[170]1000:R[178]R[170]1:[141]1470:[141]770 515 [139]C$[178]"Q"[167]1310 520 [139]C$[179][177]AN$[167]Z[178]Z[170]1:SR[178]SR[171]1000:[141]1485:[141]845:[137]525 525 [151]214,13:[153]:[153][163]8)"OPENANSWERDEF____";AN$;"DEF^^^^" 530 [129]I[178]0[164]3:[153]"PRINT"RP$(I):[130] 535 [151]214,21:[153]:[153][163]5)" PRESS ANY KEY TO PICK AGAIN ":[151]198,. 540 [161]Q$:[139]Q$[178]""[167]540 545 [140] 550 [139]Z[178]9[167][141]1430 555 [139]Z[178][177]10[167]1310 560 [139]PB[178][177]20[175]Z[179][178]9[167]1195 565 [153]"DEF":[139]PB[179][178]20[167]570 570 [153]"LOAD":[151]53280,0:[151]53281,0:[151]49158,3:[141]1015 572 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130] 575 [151]214,0:[153]:[153][163]9)"PRINT";EK$ 580 [153]BB$ 585 [151]214,2:[153]:[153][163]4)"1.LIST"KN$"SYS "C$(1) 590 [153][163]4)"2.LIST"KN$" "C$(2) 595 [153][163]4)"3.LIST"KN$"VERIFY "C$(3) 600 [153][163]4)"4.LIST"KN$"OPEN "C$(4) 605 [153][163]4)"5.LIST"KN$" "C$(5) 610 [153][163]4)"6.LIST"KN$"PRINT "C$(6) 615 [153][163]4)"7.LIST"KN$" "C$(7) 620 [153][163]4)"Q. LISTTO QUIT" 625 [153]BB$ 630 [153][163]10)"LISTSELECT SYS 1-7 LISTOR SYSQ" 635 [153]:[153][163]4)""TS$"'S VERIFYSCORE=SYS";" CMDCMDCMDCMDCMDCMDCMD"SR;"PRINT RIGHT=SYS";R 640 [153]:[153][163]4)"VERIFYMISSED=SYS";Z;" STATEMENTS LEFT= CMDCMDCMDSYS";(20[171]PB) 645 [139]S1[177]10[167]KK[178]2:[141]1120 650 [139]S2[177]10[167]KK[178]4:[141]1120 655 [139]S3[177]10[167]KK[178]6:[141]1120 660 [139]S4[177]10[167]KK[178]8:[141]1120 665 [139]S5[177]10[167]KK[178]10:[141]1120 670 [139]S6[177]10[167]KK[178]12:[141]1120 675 [139]S7[177]10[167]KK[178]14:[141]1120 680 [161]Z$:[139]Z$[179]"1"[176]Z$[177]"7"[175]Z$[179][177]"Q"[167]680 685 [141]990 690 [139]Z$[178]"Q"[167]1310 695 [139]Z$[178]"1"[167]HE[178]1:S1[178]S1[170]1 700 [139]Z$[178]"2"[167]HE[178]2:S2[178]S2[170]1 705 [139]Z$[178]"3"[167]HE[178]3:S3[178]S3[170]1 710 [139]Z$[178]"4"[167]HE[178]4:S4[178]S4[170]1 715 [139]Z$[178]"5"[167]HE[178]5:S5[178]S5[170]1 720 [139]Z$[178]"6"[167]HE[178]6:S6[178]S6[170]1 725 [139]Z$[178]"7"[167]HE[178]7:S7[178]S7[170]1 730 [139]S1[177]10[175]Z$[178]"1"[167]645 735 [139]S2[177]10[175]Z$[178]"2"[167]645 740 [139]S3[177]10[175]Z$[178]"3"[167]645 745 [139]S4[177]10[175]Z$[178]"4"[167]645 750 [139]S5[177]10[175]Z$[178]"5"[167]645 755 [139]S6[177]10[175]Z$[178]"6"[167]645 760 [139]S7[177]10[175]Z$[178]"7"[167]645 765 [139]PB[178][177][171]1[167]415 770 [151]53280,5:[151]54296,0 775 [151]54274,102:[151]54275,2:[151]54281,102:[151]54282,2 780 [151]54278,102:[151]54285,102 785 [151]54277,170:[151]54284,170:[151]54276,17:[151]54283,17 790 [151]54293,2:[151]54294,31 795 [129]T[178]1[164]2[169]1 800 [151]54272,0:[151]53273,0:[151]54279,0:[151]54280,0 805 [129]F[178]0[164]225:[130]F 810 [151]54272,12:[151]54273,67:[151]54279,134:[151]54280,33 815 [129]V[178]0[164]15[169]90:[151]54296,V:[130] 820 [129]V[178]0[164]15[169]90:[151]54296,15[171]V:[130] 825 [129]SS[178]1[164]175:[130] 830 [130]T 835 [151]54276,0:[151]54283,0:[151]54296,0:[151]53280,. 840 [142] 845 [151]53280,2 850 [151]54272,52:[151]54273,3:[151]54274,255:[151]54275,7 855 [151]54277,138:[151]54278,198:[151]54279,104:[151]54280,6 860 [151]54281,255:[151]54282,7:[151]54284,138:[151]54285,198 865 [151]54293,4:[151]54294,2:[151]54295,160:[151]54276,33:[151]54283,33 870 [151]54296,15 875 [129]T[178]1[164]720:[130]T:[151]54276,64:[151]54283,64:[151]54296,0:[151]53280,. 880 [142] 885 [151]54272,225:[151]54273,8:[151]54274,204:[151]54275,12 890 [151]54277,140:[151]54278,102:[151]54279,194:[151]54280,17 895 [151]54281,204:[151]54282,12:[151]54284,140:[151]54285,102 900 [151]54293,4:[151]54294,87:[151]54295,192 905 [151]54276,65:[151]54283,65:[151]54296,15 910 [129]T[178]1[164]500:[130]T:[151]54276,0:[151]54283,0:[151]54296,0 915 [142] 920 [151]54272,200:[151]54273,43:[151]54274,71:[151]54275,1 925 [151]54277,146:[151]54278,41:[151]54279,204:[151]54280,32:[151]54281,71 930 [151]54282,1:[151]54284,146:[151]54285,41:[151]54293,.:[151]54294,25 935 :[151]54295,96:[151]54276,17:[151]54283,17 940 [129]T[178]0[164]15 [169].3:[151]54296,T 945 [130]:[151]54276,0:[151]54283,0:[151]54296,.:[142] 950 [151]54272,104:[151]54273,6:[151]54274,153:[151]54275,1 955 [151]54277,136:[151]54278,136:[151]54293,0:[151]54294,5 960 [151]54295,192:[151]54276,65:[151]54296,15 965 [129]I[178]1[164]250:[130]I 970 [151]54272,52:[151]54273,3:[151]54274,153:[151]54275,1 975 [151]54277,136:[151]54278,136:[151]54293,0:[151]54294,5 980 [151]54295,192:[151]54276,65:[151]54296,15 985 [129]I[178]1[164]450:[130]:[151]54276,.:[151]54296,.:[142] 990 [151]54272,200:[151]54273,21:[151]54274,255:[151]54275,7 995 [151]54277,196:[151]54278,76:[151]54293,0:[151]54294,50 1000 [151]54295,112:[151]54276,17:[151]54296,15 1005 [129]T[178]1[164]450:[130]T:[151]54276,.:[151]54296,. 1010 [142] 1015 [151]54272,48:[151]54273,4:[151]54274,102:[151]54275,2:[151]54277,134 1020 [151]54278,107:[151]54279,143:[151]54280,10:[151]54281,102:[151]54282,2 1025 [151]54284,104:[151]54285,76:[151]54286,168:[151]54287,16:[151]54288,152 1030 [151]54289,13:[151]54291,195:[151]54292,16:[151]54293,4:[151]54294,12 1035 [151]54295,32:[151]54276,65:[151]54283,17:[151]54290,65 1040 [129]T[178]0[164]15[169].4:[151]54296,T:[130] 1045 [151]54276,.:[151]54283,.:[151]54290,.:[151]54296,.:[142] 1050 [151]54272,151:[151]54273,5:[151]54274,102:[151]54275,2:[151]54277,134 1055 [151]54278,107:[151]54279,97:[151]54280,8:[151]54281,102:[151]54282,2 1060 [151]54284,104:[151]54285,76:[151]54286,95:[151]54287,22:[151]54288,152 1065 [151]54289,13:[151]54291,195:[151]54292,16:[151]54293,4:[151]54294,12 1070 [151]54295,32:[151]54296,15:[151]54276,65:[151]54283,17:[151]54290,65 1075 [129]T[178]1[164]225:[130]T:[151]54276,.:[151]54283,.:[151]54290,.:[151]54296,. 1080 [142] 1085 [151]54272,65:[151]54273,51:[151]54274,255:[151]54275,7 1090 [151]54277,166:[151]54278,132:[151]54279,208:[151]54280,12 1095 [151]54281,255:[151]54282,7:[151]54284,72:[151]54285,106 1100 [151]54293,0:[151]54294,50:[151]54295,96 1105 [129]T[178]0[164]15 [169].1:[151]54296,T 1110 [151]54276,65:[151]54283,17:[130] 1115 [151]54276,.:[151]54283,.:[151]54296,.:[142] 1120 [151]214,KK:[153]:[153]"SYSTANDEF CATEGORY IS COMPLETE; TRY ANOTHER SYSPEEK" 1125 [151]54272,32:[151]54273,5:[151]54274,255:[151]54275,11 1130 [151]54277,166:[151]54278,136:[151]54293,2:[151]54294,21 1135 [151]54296,15:[151]54295,64:[151]54276,65:[129]I[178]1[164]150:[130]I 1140 [151]54276,.:[151]54296,.:[142] 1145 Q9$[178]"":U9[178]53280:[151]198,. 1150 [161]A$ 1155 [151]646,[187](1)[172]15[170]1:[153]"(null)CMD";:[139]A$[178]""[167]1150 1160 [139]A$[178][199](13)[167][153]" ":[142] 1165 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]1190 1170 [139][195](Q9$)[177][178]L9%[167]T9%[178][194](U9):[151]U9,1:[151]U9,T9%:[137]1150 1175 [139](A$[177][178]"#"[175]A$[178][179]"(null)")[176]A$[178]" "[167]1185 1180 [137]1150 1185 Q9$[178]Q9$[170]A$ 1190 [153]""A$;:[137]1150 1195 [153]"LOAD":[151]53280,5:[151]53281,3:[141]885:[151]49158,4 1200 [151]214,1:[153]:[153][163]2)""TS$;" CONGRATULATIONS, YOU PASSED!" 1205 [151]214,3:[153]:[153][163]4)"STOPYOUR FINAL SCORE WAS(null)VERIFY";SR 1210 [153][163]4)"STOP NUMBER CORRECT(null)VERIFY";R 1215 [153][163]4)"POKE NUMBER MISSED (null)VERIFY";Z 1220 [139]Z[178][177]1[175]Z[179][178]3[167][141]1540 1225 [139]Z[178][177]4[175]Z[179][178]6[167][141]1580 1230 [139]Z[178][177]7[175]Z[179][178]9[167][141]1625 1235 [139]R[178][177]20[175]Z[178]0[167][141]1500 1240 [151]214,14:[153]:[153]WF$ 1245 [151]214,15:[153]:[153][163]5)"VERIFYRESTART THE QUIZ? Y-N" 1250 [153]:[153]"PLANT A TREE; CLEAN YOUR AIR SUPPLY" 1255 [151]214,19:[153][163]2)PT$ 1260 [151]214,20:[153][163]2)RB$ 1265 [151]214,21:[153]:[153]RV$ 1270 [151]54272,84:[151]54273,8:[151]54274,255:[151]54275,7 1275 [151]54277,168:[151]54278,138:[151]54279,188:[151]54280,14 1280 [151]54281,255:[151]54282,7:[151]54284,104:[151]54285,134 1285 [151]54293,4:[151]54294,12:[151]54295,7:[151]54276,129:[151]54283,129:[151]198,. 1290 [151]54296,127:[161]Q$:[139][194](203)[179][177]25[175][194](203)[179][177]39[167]1290 1295 [139][194](203)[178]39[167][151]54276,.:[151]54283,.:[151]54296,.:[137]1705 1300 [139][194](203)[178]25[167][151]54276,.:[151]54283,.:[151]54296,. 1305 [138]90 1310 [153]"LOAD":[151]53280,2:[151]53281,15:[151]49158,5:[141]950 1315 [151]214,2:[153]:[153]" SORRY, BUT YOU FAIL THE QUIZ!" 1320 [151]214,4:[153]:[153]"STOP SCORE WAS CONT (null)CLR"SR 1325 [153]" YOU MISSED CONT(null)CLR";Z;"OUT OFCONT (null)CLR";(R[170]Z);" YOU TRIED." 1330 [153]" NUMBER OF QUESTIONS UNANSWEREDCONT (null)CLR";20[171]PB 1335 [151]214,8:[153]:[153]"POKE TRY AGAIN IF YOU WISH!" 1340 [151]214,10:[153]:[153]" ALL YOU WILL LOSE IS IGNORANCE. YOU" 1345 [153]"VERIFY HAVE MORE TO GAIN -- KNOWLEDGE AND 1350 PRINT"[144] THE HEALTH OF YOUR HOME PLANET!" 1355 POKE214,15:PRINT:PRINT" TRY AGAIN; OR BE A QUITTER?" 1360 PRINT" Y[149]-FOR AGAIN[149] / N[149]-FOR QUIT." 1365 POKE214,18:PRINT:PRINT"[144] SAVE THE FORESTS OF YOUR WORLD! " 1370 POKE214,15:PRINT:PRINTWF$ 1375 POKE214,19:PRINT:PRINTTAB(2)PT$ 1380 POKE214,20:PRINT:PRINTTAB(2)RB$ 1385 POKE214,21:PRINT:PRINTRV$:POKE198,. 1390 POKE54272,84:POKE54273,8:POKE54274,255:POKE54275,7 1395 POKE54277,168:POKE54278,138:POKE54279,188:POKE54280,14 1400 POKE54281,255:POKE54282,7:POKE54284,104:POKE54285,134 1405 POKE54293,4:POKE54294,12:POKE54295,7:POKE54276,129:POKE54283,129 1410 POKE54296,127:A=PEEK(203):IFA<>25ANDA<>39THEN1410 1415 IFA=39THENPOKE54276,.:POKE54283,.:POKE54296,.:GOTO1705 1420 IFA=25THENPOKE54276,.:POKE54283,.:POKE54296,. 1425 CLR:GOTO90 1430 POKE214,15:PRINT:PRINT"[150] WARNING! YOU HAVE 9 WRONG!" 1435 PRINT"[150] ONE MORE AND IT'S ALL OVER FOR YOU! " 1440 FORT=1TO2250:NEXTT:RETURN 1445 SYS49155:POKE53280,.:POKE53281,.:POKE56576,199:POKE648,4:PRINT"[147]" 1450 GOTO40000 1470 POKE214,3:PRINT:PRINTTAB(18)"[158]"SR;TAB(35)"[158]"R 1475 PRINT"  EXCELLENT [146] [158]+1000 ":PB=PB+1 1480 PRINTTAB(18)(20-PB);"[144] ":RETURN 1485 POKE214,3:PRINT:PRINTTAB(18)"[158] [157][157][157][157][157][157][157]"SR 1490 PRINT"[150]  INCORRECT [146] [158]-1000 ":PB=PB+1 1495 PRINTTAB(18)(20-PB);"[144] ";TAB(35)"[158]"Z:RETURN 1500 POKE214,7:PRINT:PRINTTAB(2)"ACE ECOLOGIST ";TS$ 1505 PRINT" JOHN MUIR WOULD BE PROUD OF YOU!" 1510 PRINT"[144] THIS IS THE HIGHEST SCORE POSSIBLE!" 1515 PRINT" PEOPLE LIKE YOU ARE THE ONES WHO CAN 1520 [153]" SAVE YOUR PLANET! TURN AROUND THE" 1525 [153]" 'MASS WASTE FOR PROFITS' MENTALITY." 1530 [153]" HELP EDUCATE YOUR FAMILY AND FRIENDS." 1535 [142] 1540 [151]214,7:[153]:[153][163]2)"NOVICE ECOLOGIST ";TS$ 1545 [153]" AS TEDDY ROOSEVELT SAID, 'BULLY-BULLY'" 1550 [153]"STOP WELL DONE! NOT A BAD RATING AT ALL!" 1555 [153]" IT'S EASY TO SEE YOU UNDERSTAND WHY" 1560 [153]" IT'S IMPORTANT TO WORK SO VERY HARD" 1565 [153]" TO PRESERVE NATURE FOR ALL LIFE." 1570 [153]" LEAVE A TOLERABLE PLANET FOR OTHERS! IT'S THEIR RIGHT TOO!" 1575 [142] 1580 [151]214,7:[153]:[153][163]2)"AMATEUR ECOLOGIST ";TS$ 1585 [153]" YOU ARE AVERAGE IN YOUR KNOWLEDGE OF" 1590 [153]"STOP NATURE AND ITS INTERWORKINGS." 1595 [153]" WORK HARDER TO SAVE THE EARTH, THE 1600 PRINT" ONLY PLANET YOU HAVE! IT'S TIME TO 1610 [153]" READ THE ENVIRONMENTAL ISSUES. YOUR" 1615 [153]" CHILDREN DESERVE IT!" 1620 [142] 1625 [151]214,7:[153]:[153][163]2)"ECOLOGIST? NOT! 1630 PRINT" THAT WASN'T SO HOT. YOU CAN DO BETTER!" 1635 PRINT"[144] WE SUGGEST YOU RETAKE THE QUIZ. THIS" 1640 PRINT" IS THE LOWEST RATING! WE PREFER A" 1645 PRINT" HIGHER RATING FOR YOUR FILE, PLEASE!" 1650 PRINT" YOUR KIDS INHERIT EARTH AFTER YOU!" 1655 PRINT" THEIR FUTURE IS IN YOUR HANDS! DON'T" 1660 PRINT" LEAVE PROBLEMS FOR THEM TO SOLVE!" 1665 RETURN 1670 POKE214,0:PRINT:PRINTTAB(10)"[156]CATEGORY[150]:[159] ";C$(1):RETURN 1675 POKE214,0:PRINT:PRINTTAB(9)"[156]CATEGORY[150]:[159] ";C$(2):RETURN 1680 POKE214,0:PRINT:PRINTTAB(12)"[156]CATEGORY[150]:[159] ";C$(3):RETURN 1685 POKE214,0:PRINT:PRINTTAB(10)"[156]CATEGORY[150]:[159] ";C$(4):RETURN 1690 POKE214,0:PRINT:PRINTTAB(12)"[156]CATEGORY[150]:[159] ";C$(5):RETURN 1695 POKE214,0:PRINT:PRINTTAB(10)"[156]CATEGORY[150]:[159] ";C$(6):RETURN 1700 POKE214,0:PRINT:PRINTTAB(10)"[156]CATEGORY[150]:[159] ";C$(7):RETURN 1705 PRINT"[147]":POKE53280,11:POKE53281,11:POKE49158,3 1710 POKE214,11:PRINT:PRINTBB$ 1715 PRINT"[153] RETURN TO LOADSTAR? [158]Y-[158]N? " 1720 PRINTBB$:POKE198,. 1725 A=PEEK(203):IFA<>25ANDA<>39THEN1725 1730 IFA=25THEN1445 1735 IFA=39THENCLR:GOTO90 1810 DATA"EARTH IS BOMBARDED DAILY BY HIGH" 1815 DATA"ENERGY SUBATOMIC PARTICLES FROM SPACE." 1820 DATA"T" 1825 DATA"COSMIC AND GAMMA RAYS CONSTANTLY" 1830 DATA"BOMBARD EARTH. MOST ARE STOPPED BY" 1835 DATA"THE MAGNETOSPHERE AND YOUR ATMOSPHERE." 1840 DATA"THESE PARTICLES ARE LIFE-THREATENING." 1845 DATA"OF THE FOUR ROCKY INNER PLANETS, EARTH" 1850 DATA"IS THE LARGEST." 1855 DATA"T" 1860 DATA"EARTH IS THE LARGEST OF ALL THE INNER" 1865 DATA"PLANETS. SECOND IS VENUS, SLIGHTLY" 1870 DATA"SMALLER THAN EARTH. THIRD IS MARS," 1875 DATA"AND FOURTH, MERCURY. NEXT IS THE MOON." 1880 DATA"TERRESTRIAL ORGANISMS HAVE A RHYTHM," 1885 DATA"DIRECTLY RELATED TO EARTH'S ROTATION." 1890 DATA"T" 1895 DATA"KNOWN AS THE CIRCADIAN RHYTHM, OR THE" 1900 DATA"BIOLOGICAL CLOCK, IT AFFECTS ACTIVE" 1905 DATA"AND REST PERIODS. IT'S BASED ON A 24 1910 [131]"HOUR ROTATION. 1915 DATA"THE EARTH IS LOSING WEIGHT AT AN" 1920 DATA"AVERAGE OF THREE TONS PER DAY." 1925 DATA"F" 1930 DATA"DUE TO THE EXTRATERRESTRIAL MATERIAL" 1935 DATA"FROM SPACE -- METEORITES, COMETARY" 1940 DATA"DUST PARTICLES, ETC. -- EARTH GAINS" 1945 DATA"THREE TONS A DAY." 1950 DATA"EARTH'S TILT ON ITS AXIS IS WHY YOUR" 1955 DATA"PLANET HAS SEASONS." 1960 DATA"T" 1965 DATA"THE TILT VARIES THE AMOUNT OF SUNLIGHT" 1970 DATA"REACHING ANY PART OF EARTH'S SURFACE." 1975 DATA"A 23 1/2 DEGREE TILT GIVES EACH POLE 1980 [131]"SIX MONTHS OF LIGHT OR DARK A YEAR." 1985 [131]"EARTH'S ROTATION ON ITS AXIS HAS BEEN" 1990 [131]"SLOWLY SPEEDING UP THROUGH THE EONS." 1995 [131]"F" 2000 [131]"ITS SPIN IS BEING SLOWED BY THE GRAVI- 2005 DATA"TATIONAL ATTRACTION OF THE SUN AND THE" 2010 DATA"MOON. EARTH'S ROTATION RATE SLOWS BY 2015 [131]"A FEW SECONDS PER CENTURY." 2020 [131]"EARTH WILL TRAVEL, ON AN AVERAGE," 2025 [131]"1.5 MILLION MILES EACH DAY." 2030 [131]"T" 2035 [131]"THIS IS AN AVERAGE FOR 365.25 DAYS AT" 2040 [131]"A SPEED OF 66,527 MILES PER HOUR." 2045 [131]"THIS COMPUTES TO ONE COMPLETE ORBIT OF" 2050 [131]"550 MILLION MILES TRAVELED ANNUALLY." 2055 [131]"THE MOON IS TIDALLY LOCKED TO EARTH, 2060 DATA"WITH ONE FACE ALWAYS TOWARD EARTH." 2065 DATA"T" 2070 DATA"EARTH'S GRAVITY SLOWED, THEN STOPPED" 2075 DATA"THE MOON'S AXIAL ROTATION EONS AGO." 2080 DATA"IT NOW MAKES ONE ROTATION PER MONTH," 2085 DATA"THE SAME AS ITS ORBITAL PERIOD." 2090 DATA"HAD THE EARTH FORMED CLOSER OR FURTHER" 2095 DATA"FROM THE SUN, NO LIFE WOULD EXIST." 2100 DATA"T" 2105 DATA"EARTH IS IN A ORBIT THAT GIVES IT THE" 2110 DATA"RIGHT AMOUNT OF ENERGY. VENUS, ON THE 2115 [131]"OTHER HAND, IS TOO HOT WHILE MARS IS 2120 DATA"TOO COLD. 2125 [131]"IN THE ORDER OF ORBITS OUT FROM THE" 2130 [131]"SUN, EARTH HOLDS THE FOURTH POSITION." 2135 [131]"F" 2140 [131]"IT'S THIRD; MARS IS FOURTH FROM YOUR" 2145 [131]"SUN. NORMAL ORDER: MERCURY, VENUS," 2150 [131]"EARTH, MARS, JUPITER, SATURN, URANUS," 2155 [131]"NEPTUNE, PLUTO. 2160 DATA"TOXIC WASTES FROM CITIES CAN ENTER" 2165 DATA"THE OCEANS DURING A RAIN." 2170 DATA"T" 2175 DATA"TOXIC CHEMICALS LEFT ON STREETS FROM" 2180 DATA"AUTO FLUIDS RINSE DOWN THE DRAINS OF" 2185 DATA"CITIES INTO THE OCEAN. MANY THOUSANDS 2190 [131]"OF GALLONS ENTER THE OCEANS EACH YEAR!" 2195 [131]"SINCE A.D. 1900, NO SPECIES OF FISH" 2200 [131]"HAVE BECOME EXTINCT IN THE ATLANTIC." 2205 [131]"F" 2210 [131]"MORE THAN 40 SPECIES HAVE BECOME 2215 DATA"EXTINCT AND 251 OTHERS ARE ENDANGERED. 2220 [131]"FACTORY WASTES AND FERTILIZERS ARE THE 2225 DATA"MAIN CONTRIBUTORS TO THIS. 2230 [131]"THE GREATER PART OF SEA LIFE IS FOUND" 2235 [131]"IN THE DEEPEST PARTS OF THE OCEANS. 2240 DATA"F" 2245 DATA"CONTINENTAL SHELVES AND ISLANDS ARE 2250 [131]"WHERE THE BEST FOOD AND SHELTER ARE 2255 DATA"TO BE FOUND. THIS IS THE MAIN REASON 2260 [131]"WHY COUNTRIES HAVE TERRITORIAL RIGHTS." 2265 [131]"THE MAJOR PORTION OF OCEAN LIFE LIVES" 2270 [131]"WITHIN ONE MILE OF ITS SURFACE." 2275 [131]"T" 2280 [131]"BELOW THIS POINT THERE'S LESS SUNLIGHT" 2285 [131]"AND FOOD, SO POPULATIONS ARE LOWER. 2290 DATA"EVEN AT THE OCEAN BOTTOM THERE IS SOME 2295 [131]"LIFE TO BE FOUND." 2300 [131]"MANY SPECIES OF SHARKS HAVE BEEN PLACED 2305 DATA"ON THE ENDANGERED LIST." 2310 DATA"T" 2315 DATA"11,600 METRIC TONS WERE CAUGHT IN '89," 2320 DATA"WHILE FISHING CONTINUES TO DOUBLE." 2325 DATA"WITH SHARK NUMBERS DROPPING, THERE" 2330 DATA"ARE FEWER ADULTS TO BREED MORE YOUNG." 2335 DATA"EARTH'S OCEANS BEGAN AS FRESH WATER," 2340 DATA"NOT LIKE THE SALTWATER OF TODAY." 2345 DATA"T" 2350 DATA"THE SALT CONTENT COMES FROM MINERALS" 2355 DATA"LEACHED OUT OF THE LAND BY RIVERS." 2360 DATA"THERMAL VENTING ADDS TO THE MINERAL" 2365 DATA"SALT CONTENT. RAIN REFRESHENS WATERS." 2370 DATA"THE NEW COMMOWEALTH OF NATIONS (USSR) 2375 [131]"DOESN'T HAVE A POLLUTION PROBLEM." 2380 [131]"F" 2385 [131]"LAKE BAIKAL AND THE AZOV AND ARAL SEAS 2390 DATA"ARE POLLUTED BY LOCAL FACTORIES. NO 2395 [131]"LAWS ON EMISSIONS STANDARDS ARE BEING 2400 DATA"PLANNED AT THIS TIME. 2405 [131]"THE OCEANS HAVE LITTLE INFLUENCE ON" 2410 [131]"YOUR PLANET'S WEATHER SYSTEMS." 2415 [131]"F" 2420 [131]"WITHOUT EARTH'S OCEANS THERE'D BE" 2425 [131]"LITTLE WEATHER TO SPEAK OF. WEATHER" 2430 [131]"FRONTS RECEIVE ENERGY FROM CURRENTS" 2435 [131]"AND CLOUDS FROMCLOSEEVAPORATION OF WATER." 2440 [131]"THE OCEANS SPAWN THE LARGEST STORMS," 2445 [131]"KNOWN AS TYPHOONS OR HURRICANES." 2450 [131]"T" 2455 [131]"THEY ARE THE MOST DESTRUCTIVE FORCES 2460 DATA"FOUND IN YOUR ATMOSPHERE. MASSIVE 2465 [131]"DESTRUCTION AND LOSS OF LIFE ARE 2470 DATA"NORMAL SEASONAL PHENOMENA." 2475 DATA"GLOBALLY, SEA TURTLES ARE BEING PUSHED" 2480 DATA"TO THE BRINK OF EXTINCTION." 2485 DATA"T" 2490 DATA"SINCE THE 1950S, SEVERAL SPECIES OF" 2495 DATA"TURTLE HAVE BEEN REDUCED TO LESS THAN 2500 [131]"ONE PERCENT OF THEIR ORIGINAL NUMBERS." 2505 [131]"ALL SEATURTLE SPECIES ARE ENDANGERED." 2510 [131]"EARTH CAN HAVE MORE THAN 100 MAJOR 2515 DATA"EARTHQUAKES ON AVERAGE PER YEAR." 2520 DATA"F" 2525 DATA"ONLY A FEW WILL BE MAJOR QUAKES, EIGHT" 2530 DATA"OR LARGER ON THE RICHTER SCALE. MANY 2535 [131]"ARE CONSIDERED TO BE MODERATE TO MINOR." 2540 [131]"MOST CAN'T EVEN BE FELT." 2545 [131]"THE MAIN SOURCE OF THE HEAT THAT WARMS" 2550 [131]"YOUR ATMOSPHERE IS INFARED HEAT." 2555 [131]"T" 2560 [131]"IT'S RERADIATED SUNLIGHT FROM EARTH'S" 2565 [131]"SURFACE AREA. INTERNAL HEAT ALSO ADDS" 2570 [131]"TO THIS WARMING EFFECT. GREENHOUSE 2575 DATA"GASES AFFECT HEAT ABSORPTION. 2580 [131]"YOU LIVE ON THE ORIGINAL CRUST OF" 2585 [131]"EARTH DATING BACK 4.5 BILLION YEARS." 2590 [131]"F" 2595 [131]"JUST A MERE 10 PERCENT OF IT IS LEFT," 2600 [131]"DUE TO TECTONIC PLATE MOVEMENTS. IT'S 2605 DATA"SUBDUCTED INTO THE MANTLE OR ERODED" 2610 DATA"AND BURIED, WHERE IT METAMORPHOSES. 2615 [131]"OLD FAITHFUL'S ERUPTION RATE HAS BEEN" 2620 [131]"SPEEDING UP IN THE LAST FEW DECADES." 2625 [131]"F" 2630 [131]"THERMAL HEATING FROM BELOW MAY HAVE" 2635 [131]"COOLED OR SHIFTED IN AREA, REDUCING 2640 DATA"HEAT NEEDED FOR STEAM. AS OF LATE," 2645 DATA"VANDALISM HAS BEGUN BLOCKING VENTS." 2650 DATA"THE EARTH HAS A 47,000 MILE LONG CRACK" 2655 DATA"RUNNING ALONG ITS CRUST." 2660 DATA"T" 2665 DATA"THIS DENOTES PLATE BOUNDARIES WHERE" 2670 DATA"CRUST IS FORMING OR SUBDUCTING. THE" 2675 DATA"MIDOCEAN RIDGE IS A LARGE PART OF THIS" 2680 DATA"CONTINUOUS CRACK IN PLANET EARTH." 2685 DATA"RECENTLY, THE ANTARCTIC ICE PACK" 2690 DATA"APPEARS TO HAVE GROWN THICKER." 2695 DATA"F" 2700 DATA"RECENTLY, MASSIVE ICEBERGS, SOME UP TO" 2705 DATA"5 MILES LONG, HAVE BROKEN OFF. THINNER" 2710 DATA"ICE SHEETS ARE BEING LAID DOWN AT" 2715 DATA"PRESENT. IS THIS A WARMING TREND?" 2720 DATA"THE GROUND CAN RAISE AND LOWER BY TENS" 2725 DATA"OF FEET IN A MAJOR EARTHQUAKE." 2730 DATA"T" 2735 DATA"ALASKA'S 1964 EARTHQUAKE CAUSED MANY" 2740 DATA"BUILDINGS AND STREETS TO RISE OR SINK" 2745 DATA"BY 30 FEET OR MORE, IN SOME AREAS." 2750 DATA"SHORELINES WERE CHANGED BY ITS FORCE." 2755 DATA"VOLCANIC ERUPTIONS CAN HAVE THE ENERGY" 2760 DATA"OF SEVERAL ATOMIC BOMBS." 2765 DATA"T" 2770 DATA"IN 1883 KRAKATOA BLEW, CAUSING A " 2775 DATA"TSUNAMI THAT DROWNED AT LEAST 30,000. 2780 [131]"6600 YEARS AGO, MT. MAZAMA EXPLODED IN 2785 DATA"IN OREGON, FORMING CRATER LAKE." 2790 DATA"AFRICA IS SLOWLY PULLING APART, DUE TO" 2795 DATA"A CRACK RUNNING NORTH TO SOUTH." 2800 DATA"T" 2805 DATA"THE RIFT VALLEY, A SPREADING ZONE" 2810 DATA"MUCH LIKE THE MIDOCEAN RIDGE, IS" 2815 DATA"GROWING. THE RED SEA IS AT THE NORTH" 2820 DATA"END. MADAGASCAR DID THE SAME EONS AGO. 2825 [131]"MOST TOXIC WASTES ARE BURIED DEEP" 2830 [131]"WITHIN THE EARTH FOR SAFETY REASONS." 2835 [131]"F" 2840 [131]"MOST WASTES ARE STORED IN SURFACE 2845 DATA"DUMPS OR ARE SUNK DEEP IN THE OCEANS 2850 [131]"ON OLD SHIPS. LEAKS WILL CAUSE DEADLY 2855 DATA"CONTAMINATION WHICH WILL COST BILLIONS. 2860 [131]"WITHOUT THE OZONE LAYER, LIFE ON" 2865 [131]"EARTH COULD NOT SURVIVE." 2870 [131]"T" 2875 [131]"DEPLETION OF THE OZONE LAYER ALLOWS 2880 DATA"STRONG ULTRAVIOLET LIGHT THROUGH," 2885 DATA"CAUSING SKIN CANCER AND MORE. PRESENTLY 2890 [131]"THERE ARE TWO HOLES. 2895 DATA"THUNDERSTORMS CAN GIVE BIRTH TO" 2900 DATA"SUMMER'S WORST CLIMATIC PHENOMENON." 2905 DATA"T" 2910 DATA"TORNADOS, A FUNNEL OF DESTRUCTIVE WIND" 2915 DATA"CLOCKED AT OVER 300 M.P.H., CAN CARRY" 2920 DATA"OFF OR DESTROY ANYTHING IN THEIR PATH." 2925 DATA"TORNADOS ARE VERY UNPREDICTABLE." 2930 DATA"A HOLE IN THE OZONE LAYER WAS FOUND" 2935 DATA"AS EARLY AS 1972 OVER ANTARCTICA." 2940 DATA"T" 2945 DATA"SINCE THEN IT HAS GROWN LARGER! IT WAS 2950 [131]"LARGEST IN 1991, WHEN THE OZONE LAYER 2955 DATA"WAS REDUCED TO 35% OF NORMAL. IN 1992, 2960 [131]"ANOTHER LARGE ONE WAS FOUND." 2965 [131]"EARTH'S ORGANISMS TEND TO HAVE NO" 2970 [131]"EFFECT ON ITS CLIMATE. 2975 DATA"F" 2980 DATA"EARTH'S ORGANISMS CAUSE MUCH OF THE 2985 [131]"OXYGEN/CARBON DIOXIDE CHANGE IN THE" 2990 [131]"ATMOSPHERE. OXYGEN LEVELS REMAINED AT 2995 DATA"CLOSE TO 21% FOR EONS, UNTIL RECENTLY. 3000 [131]"CLOUDS TEND TO COOL THE EARTH'S" 3005 [131]"ATMOSPHERE BY REFLECTING SUNLIGHT." 3010 [131]"T" 3015 [131]"THE EARTH WOULD BE 20 DEGREES WARMER" 3020 [131]"WITHOUT ITS CLOUD COVER. DUST AND" 3025 [131]"SMOG CAN AFFECT EARTH THE SAME WAY." 3030 [131]"MORE PARTICULATES MEAN LESS SUNLIGHT." 3035 [131]"MOST OF EARTH'S BREATHABLE AIR IS 3040 DATA"WITHIN 2 MILES OF ITS SURFACE." 3045 DATA"T" 3050 DATA"EARTH'S SUPPLY OF BREATHABLE OXYGEN 3055 [131]"DIMINISHES RAPIDLY ABOVE 10,000 FEET" 3060 [131]"ABOVE SEA LEVEL. ABOVE 15,000 FEET AN 3065 DATA"OXYGEN MASK IS USUALLY REQUIRED. 3070 [131]"EARTH'S CARBON DIOXIDE LEVELS HAVEN'T" 3075 [131]"INCREASED IN THE LAST 30 YEARS." 3080 [131]"F" 3085 [131]"NATIONAL OCEANOGRAPHIC AND ATMOSPHERIC" 3090 [131]"ADMINISTRATION FOUND LEVELS HAVE" 3095 [131]"RISEN FROM .7 TO 1.71 PARTS PER" 3100 [131]"MILLION OVER THE LAST THREE DECADES." 3105 [131]"EARTH'S ATMOSPHERE EXTENDS FROM ITS" 3110 [131]"SURFACE TO ABOUT 250 MILES ABOVE." 3115 [131]"T" 3120 [131]"THE DENSEST PART IS CLOSE TO THE" 3125 [131]"SURFACE, BECOMING RARER AS IT THINS" 3130 [131]"INTO SPACE. IT IS LAYERED LIKE A CAKE," 3135 [131]"WITH LAYERS BECOMING THICKER ON TOP." 3140 [131]"OZONE IS A BENEFICIAL GAS, NO MATTER" 3145 [131]"WHERE IT'S FOUND IN THE ATMOSPHERE." 3150 [131]"F" 3155 [131]"IT'S A POISONOUS GAS IF BREATHED. IT IS 3160 DATA"NECESSARY FOR STOPPING ULTRAVIOLET 3165 [131]"LIGHT, HOWEVER. WITHOUT IT, YOU HUMANS 3170 DATA"WOULD BURN AND DIE. 3175 [131]"SMOG, WHEN MIXED WITH WATER, WILL" 3180 [131]"CREATE A VERY POTENT ACID." 3185 [131]"T" 3190 [131]"SMOG STICKS TO EVERYTHING, SO WHEN IT" 3195 [131]"RAINS, THIS FORMS AN ACID, DISSOLVING" 3200 [131]"ANYTHING IT TOUCHES. THE HEAVIER THE" 3205 [131]"SMOG LEVELS, THE STRONGER THE ACID." 3210 [131]"EARTH IS AS MUCH ALIVE AS ANY ORGANISM" 3215 [131]"FOUND ON ITS SURFACE." 3220 [131]"T" 3225 [131]"IT HAD A BIRTH, IT WILL HAVE A DEATH." 3230 [131]"THERE IS MOVEMENT AND BREATHING. MOST" 3235 [131]"OCCURS SO SLOWLY THAT HUMANS DON'T" 3240 [131]"NOTICE IT. 3245 DATA"MANY ANIMALS WORLDWIDE ARE BEING FOUND" 3250 DATA"THAT ARE HIGHLY RADIOACTIVE." 3255 DATA"T" 3260 DATA"RADIOACTIVE ANIMALS HAVE BEEN FOUND 3265 [131]"NEAR NUCLEAR PLANTS' COOLING PONDS. 3270 DATA"RADIOACTIVE GAME MUST BE DESTROYED OR 3275 [131]"THE RADIOACTIVITY WILL BE PASS ON." 3280 [131]"FOR EVERY LARGE ANIMAL THERE ARE FEWER 3285 DATA"THAN THREE SYMBIOTIC ORGANISMS." 3290 DATA"F" 3295 DATA"MOST SPECIES HAVE MORE THAN TEN OTHER 3300 [131]"SPECIES THAT RELY ON THEM FOR LIFE." 3305 [131]"PLANTS AND ANIMALS ARE INTERDEPENDENT" 3310 [131]"SINCE EVERYTHING NEEDS FOOD. 3315 DATA"PRESENTLY, THERE ISN'T A COUNTRY" 3320 DATA"THAT PERMITS THE HUNTING OF WHALES." 3325 DATA"F" 3330 DATA"JAPAN, NORWAY, ICELAND, KOREA AND THE 3335 [131]"FORMER USSR ALL HUNT WHALES. SMALLER" 3340 [131]"TYPES ARE BEING HUNTED SINCE THE FEW 3345 DATA"LARGE SPECIES ARE NOW PROTECTED." 3350 DATA"EVOLUTION HAS HIT ITS PINNACLE WITH" 3355 DATA"THE PRESENT SPECIES ON EARTH." 3360 DATA"F" 3365 DATA"EVOLUTION IS A NEVERENDING PROCESS" 3370 DATA"OF THE REDEFINING OF LIFE, FROM OLD 3375 [131]"INTO NEW! IT WORKS VERY SLOWLY ON A 3380 DATA"HUMAN SCALE SO WE DON'T SEE IT. 3385 [131]"DOLPHINS ARE PRESENTLY BEING PROTECTED" 3390 [131]"BY INTERNATIONAL LAWS." 3395 [131]"F" 3400 [131]"THERE ARE NO INTERNATIONAL LAWS TO" 3405 [131]"PROTECT THE THOUSANDS KILLED ANNUALLY." 3410 [131]"GILL NETS ARE THE MAIN CAUSE OF DEATH, 3415 DATA"BUT POLLUTION IS TAKING ITS TOLL. 3420 [131]"TREES IN THE TROPICS OF EARTH RELEASE" 3425 [131]"VAST AMOUNTS OF OXYGEN INTO THE AIR." 3430 [131]"T" 3435 [131]"TREES ARE THE LUNGS OF EARTH! TREES 3440 DATA"BREATH IN CARBON DIOXIDE AND BREATHE 3445 [131]"OUT OXYGEN. THEY ARE PART OF WHAT IS 3450 DATA"KNOWN AS THE CARBON CYCLE." 3455 DATA"THE LARGEST ANIMAL TO EVER LIVE ON 3460 [131]"EARTH IS THE BLUE WHALE." 3465 [131]"T" 3470 [131]"MORE MASSIVE THAN ANY DINOSAUR, A 3475 DATA"WHALE WEIGHS UP TO 120 TONS. IT EATS 3480 [131]"THE SMALLEST OF THE SEA, PLANKTON, 3485 DATA"WHICH IS ANOTHER ENDANGERED SPECIES! 3490 [131]"AT PRESENT, A HALF MILLION PEOPLE ARE" 3495 [131]"ADDED TO PLANET EARTH DAILY." 3500 [131]"T" 3505 [131]"AFTER DEATH RATES ARE FIGURED IN, 5.5" 3510 [131]"BILLION PEOPLE PRESENTLY INHABIT YOUR" 3515 [131]"EARTH. AT PRESENT RATES OF GROWTH, THE" 3520 [131]"POPULATION WILL DOUBLE IN 25 YEARS!" 3525 [131]"THE WHALE SHARK IS THE LARGEST FISH" 3530 [131]"CURRENTLY ALIVE ON EARTH." 3535 [131]"T" 3540 [131]"THIS PLANKTON-EATING SHARK WEIGHS" 3545 [131]"ABOUT 15 TONS AND MAY BE 60 FEET LONG. 3550 DATA"BEAUTIFUL AND GENTLE ANIMALS, LUCKILY 3555 [131]"THEY ARE OF NO COMMERCIAL VALUE." 3560 [131]"PRESENTLY, 4 MILLION ACRES OF TROPICAL" 3565 [131]"FORESTS ARE CUT DOWN EACH YEAR." 3570 [131]"T" 3575 [131]"RATES OF DESTRUCTION ARE INCREASING" 3580 [131]"AS THE POPULATION OF THE EARTH RISES, 3585 DATA"AS DOES THE DEMAND FOR LAND FOR 3590 [131]"COMMERCIAL USES, CROPS AND HOUSES." 3595 [131]"NEW SOURCES OF MINERALS HAVE BEEN" 3600 [131]"FOUND ON YOUR OCEAN FLOORS." 3605 [131]"T" 3610 [131]"MINERAL NODULES LITTER THE SEAFLOOR IN 3615 DATA"CERTAIN AREAS -- MAINLY MAGNESIUM AND" 3620 DATA"OTHER LIGHT METALS. THERE ARE MANY" 3625 DATA"RESOURCES TO BE FOUND ON THE SEAFLOOR." 3630 DATA"THE NUMBER OF CARS IN MOST URBAN AREAS" 3635 DATA"WILL DOUBLE BY A.D. 2030." 3640 DATA"T" 3645 DATA"THIS MEANS AN INCREASED NEED FOR" 3650 DATA"MINERALS, OIL AND ENERGY WHICH IN TURN" 3655 DATA"PRODUCE MORE POLLUTION IN THE AIR," 3660 DATA"LAND AND WATER." 3665 DATA"MOST TREES BEING CUT IN THE TROPICAL" 3670 DATA"FORESTS HAVE COMMERICAL VALUE." 3675 DATA"F" 3680 DATA"OVER 50% HAVE NO COMMERICAL VALUE," 3685 DATA"SO THEY'RE SLASHBURNED! THIS INCREASES 3690 [131]"GREENHOUSE GASES, WHILE REDUCING THE 3695 DATA"NUMBER OF TREES TO ABSORB THEM. 3700 [131]"EARTH'S INTERNAL HEAT CAN BE USED AS A" 3705 [131]"SOURCE OF ENERGY BY HUMANS." 3710 [131]"T" 3715 [131]"PRESENTLY, GEOTHERMAL PLANTS PRODUCE" 3720 [131]"LIMITED AMOUNTS OF ENERGY. THERE ARE 3725 DATA"NOT ENOUGH FUNDS FOR THE RESEARCH TO 3730 [131]"MAKE GEOTHERMAL ENERGY COST-EFFECTIVE. 3735 DATA"THE RESOURCES OF ANTARCTICA MAY SOON" 3740 DATA"BE EXPLOITED FREELY BY ALL NATIONS." 3745 DATA"T" 3750 DATA"AN INTERNATIONAL TREATY TO PROTECT" 3755 DATA"ANTARCTICA HAS EXPIRED. TALKS ARE 3760 [131]"UNDERWAY TO NEGOTIATE A NEW TREATY BUT 3765 DATA"SOME COUNTRIES WANT IT DEVELOPED. 3770 [131]"OIL RESERVES OF EARTH WILL LAST FOR AT" 3775 [131]"LEAST THE NEXT 400 YEARS." 3780 [131]"F" 3785 [131]"IF CONSUMPTION RATES CONTINUE TO RISE, 3790 DATA"YOU'LL RUN OUT IN 170 YEARS. THIRD 3795 [131]"WORLD NATIONS ARE USING MORE IN THEIR 3800 DATA"EFFORT TO CATCH UP. 3805 [131]"NUCLEAR PLANTS PRODUCE POWER, WHILE" 3810 [131]"PRODUCING VERY LITTLE RADIATION." 3815 [131]"F" 3820 [131]"THEY PRODUCE MORE NUCLEAR WASTE THAN" 3825 [131]"ENERGY. ONE POUND OF FUEL EQUALS ONE" 3830 [131]"POUND OF WASTE, WHICH NEEDS STORAGE FOR" 3835 [131]"THOUSANDS OF YEARS. STOCKPILES GROW!" 3840 [131]"ONLY 10% OF PLASTICS USED BY INDUSTRY" 3845 [131]"ARE RECYCLED BACK INTO THE SYSTEM." 3850 [131]"T" 3855 [131]"90% IS FROM THE PACKAGING OF PRODUCTS," 3860 [131]"WHICH ENDS UP IN LANDFILLS. PLASTICS" 3865 [131]"DON'T DECOMPOSE VERY QUICKLY, SO DUMPS" 3870 [131]"FILL UP AND NEW ONES MUST BE FOUND." 3875 [131]"FUTURE MINERAL RESOURCES COULD COME" 3880 [131]"FROM SPACE, VIA ASTERIODS." 3885 [131]"T" 3890 [131]"ASTERIODS AND SOME MOONS HOLD VAST" 3895 [131]"AMOUNTS OF MINERAL RESOURCES. IF ONLY 3900 DATA"YOU WORKED AS HARD AT SPACE TRAVEL AS" 3905 DATA"YOU DO AT MAKING WEAPONS OF WAR. SIGH. 3910 [131]"PLASTICS MADE UP 63% OF TRASH FOUND ON" 3915 [131]"SOME COASTLINE BEACHES. 3920 DATA"T" 3925 DATA"NEARLY 2 MILLION TONS WERE COLLECTED 3930 [131]"ON AMERICAN BEACHES IN 1990. SURF'S UP!" 3935 [131]"NONRECYCLABLE PLASTIC WRAPPERS FROM 3940 DATA"FOODS ARE THE WORST OFFENDERS. 3945 [131]"NEW WAYS TO DUMP POLLUTANTS FARTHER" 3950 [131]"FROM SHORE ARE BEING TRIED." 3955 [131]"T" 3960 [131]"INSTEAD OF DIRECTLY DUMPING OFFSHORE," 3965 [131]"THE NEW IDEA IS TO RUN PIPES OUT TO 3970 DATA"SEA - IN DEEP WATER. OUT OF SIGHT, OUT 3975 [131]"OF MIND. THIS IS A SOLUTION?" 3980 [131]"OCEANS AND PLANT LIFE ACT AS A SINK 3985 DATA"FOR CARBON DIOXIDE. 3990 [131]"T" 3995 [131]"YOU MAKE 7 BILLION TONS OF CO2 BUT THEY 4000 DATA"ONLY ABSORB 4 BILLION TONS ANNUALLY." 4005 DATA"3 BILLION TONS REMAIN IN THE AIR, WHICH 4010 [131]"IS WHY THERE ARE GREENHOUSE EFFECTS." 4015 [131]"MAJOR PRODUCERS OF TOXIC CHEMICALS ARE" 4020 [131]"YOUR INDUSTRIAL FACTORIES." 4025 [131]"T" 4030 [131]"PESTICIDES AND FERTILIZERS, MADE BY 4035 DATA"CHEMICAL COMPANIES, ARE THE WORST. 4040 [131]"SULFUR DIOXIDE AND NITRIC OXIDE FROM" 4045 [131]"SMOKESTACKS CAUSE ACID RAIN." 4050 [131]"CHLOROFLUOROCARBONS HAVE NO EFFECT ON 4055 DATA"YOUR OZONE LAYER. 4060 [131]"F" 4065 [131]"FLUOROCARBONS CAN LAST FOR 100 YEARS" 4070 [131]"IN THE AIR, EVEN IF NO MORE ARE" 4075 [131]"PRODUCED. OZONE STOPS STRONG UV LIGHT," 4080 [131]"WHICH CAN STERILIZE EARTH ORGANISMS. 4085 DATA"PRESENT OIL SPILL CONTROLS AND CLEANUP" 4090 DATA"MEASURES CAN DEAL WITH ANY PROBLEMS." 4095 DATA"F" 4100 DATA"MOST OIL TANKERS DON'T HAVE DOUBLE" 4105 DATA"HULLS. SMALL SPILLS CAN BE CONTROLLED 4110 [131]"BUT NOT MASSIVE ONES LIKE IN ALASKA OR 4115 DATA"THE PERSIAN GULF." 4120 DATA"ANTARCTICA IS POLLUTION FREE, THE LAST" 4125 DATA"PLACE LEFT ON PLANET EARTH." 4130 DATA"F" 4135 DATA"EVEN HERE THERE'S POLLUTION FROM THE" 4140 DATA"PRESENCE OF PEOPLE. OIL SPILLS, TRASH" 4145 DATA"DUMPS AND OLD EQUIPMENT ARE BEING LEFT 4150 [131]"BY THE PEOPLE WHO WORK THERE. 4155 DATA"HOUSEHOLD CLEANERS AND SOLVENTS CAN BE" 4160 DATA"DUMPED DOWN YOUR SINK SAFELY." 4165 DATA"F" 4170 DATA"WASTE PLANTS PROCESS SOLID WASTE," 4175 DATA"NOT TOXIC CHEMICALS. THAT STUFF YOU" 4180 DATA"DUMP ENTERS THE ECOSYSTEM, THEN THE" 4185 DATA"FOOD CHAIN. IT EVENTUALLY REACHES YOU." 4190 DATA"THE VALDEZ OIL SPILL COVERED A 1500- 4195 [131]"MILE AREA OF ALASKAN COASTLINE." 4200 [131]"T" 4205 [131]"ALASKA'S COASTLINE WAS COVERED IN 4210 DATA"THICK OIL. MILLIONS OF ANIMALS WERE 4215 [131]"KILLED AND SOME OIL STILL REMAINS." 4220 [131]"THE PERSIAN GULF WAS 10 TIMES WORSE." 4225 [131]"A MAJOR PORTION OF OCEAN POLLUTANTS" 4230 [131]"ARE FOUND WITHIN 50 MILES OF SHORE." 4235 [131]"T" 4240 [131]"GARBAGE, MEDICAL SUPPLIES, SEWAGE," 4245 [131]"OIL MAKE A VERY TOXIC MIX. SPILLED OR" 4250 [131]"DUMPED, IT WILL WASH ASHORE SOMEDAY 4255 DATA"AND HUMANS WILL HAVE TO CLEAN IT UP!" 4260 POKE214,8:PRINT:PRINT"[151] TRY AGAIN IF YOU WISH." 10000 OPEN15,8,15,"S0:EARTHOLOGY":CLOSE15:SAVE"EARTHOLOGY",8:END 40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40030 40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030 40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:END 40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I 40040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END 60000 PRINT"[147]":Z$=" [152] ":POKE214,10:PRINT 60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT 60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]" 60030 Z$(0)="E A R T H O L O G Y":Z$(1)="BY HENRY COCHRAN 60040 Z$(2)[178]"V1.0 (C) 1992 BY SOFTDISK, INC."[170][199](13) 60050 Z$(3)[178]"THIS PROGRAM IS THE COPYRIGHTED WORK 60060 Z$(4)="OF SOFTDISK PUBLISHING. IT IS NOT" 60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN." 60080 Z$(6)="REPORT ILLEGAL DISTRIBUTION OF":Z$(7)="THIS PROGRAM BY CALLING" 60090 Z$(8)="1-800-831-2694 OR 1-318-221-8718.":POKE214,12:PRINT 60100 FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT 60200 POKE214,1:PRINT:PRINTTAB(7)"[159]THE LARGEST ROOM IN THE" 60210 PRINT:PRINTTAB(7)"WORLD... IS THE ROOM FOR" 60220 PRINT:PRINTTAB(7)"I M P R O V E M E N T !" 60230 RETURN