0 'GEO-ED.BA Jeremy Cockrill 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 10 CLS 20 A=VAL(RIGHT$(TIME$,2)) 30 FOR B=0 TO A 40 C=RND(1) 50 NEXT B 60 A=0 70 READ A$:IF A$="*" THEN 100 80 A=A+1 90 GOTO 70 100 RESTORE 110 REM GEOGRAPHY 120 REM 130 I=0:A=A+1 140 REM 150 REM 160 REM 170 PRINT@15,CHR$(27)"pGEOGRAPHY" 180 PRINT@91,CHR$(27)"qby Jeremy Cockrill" 190 PRINT@131,"Post Office Box 27" 200 PRINT@170,"Millerton, OK 74750" 210 PRINT@213,"(405) 746-2796" 220 FOR Z=0 TO 350:NEXT Z 230 REM 240 DIM B$(A),U$(A) 250 FOR Q=0 TO A:U$(Q)="":NEXTQ 260 I=I+1:READB$(I) 270 IF B$(I)="*" THEN 290 280 GOTO 260 290 CLS:INPUT"Do you need instructions (Y/N)";A$:IF A$<>"Y" THEN 520 300 CLS:PRINT "THIS IS THE GAME OF "CHR$(27)"pGEOGRAPHY"CHR$(27)"q":PRINT 310 PRINT"ONE PLAYER NAMES A GEOGRAPHICAL LOCATIONTHE OTHER PLAYER MUST NAME"; 320 PRINT" A LOCATION WHOSE "CHR$(27)"pFIRST"CHR$(27)"q LETTER IS THE SAME AS THE "CHR$(27)"pLAST"CHR$(27)"q LETTER "; 330 PRINT"OF THE WORD BEFORE."; 340 PRINT@280,"hit any key to continue"; 350 Q$=INKEY$:IFQ$="" THEN 350 360 CLS 370 PRINT"FOR EXAMPLE:" 380 PRINT CHR$(27)"p DELHI-IRAN-NEBRASKA-ATHENS " 390 PRINT:PRINTCHR$(27)"qYOU WILL PLAY AGAINST THE COMPUTER ONLY THE FOLLOWING CATAGORIES ARE USED:" 400 PRINT@280,"hit any key to continue"; 410 Q$=INKEY$:IFQ$="" THEN 410 420 CLS 430 PRINT" "CHR$(27)"p CONTINENTS "CHR$(27)"q "CHR$(27)"p COUNTRIES "CHR$(27)"q "CHR$(27)"p U.S. STATES " 440 PRINT"CANADIAN PROVINCES "CHR$(27)"q "CHR$(27)"p MAJOR WORLD CITIES" 450 PRINT@90," U.S. STATE CAPITALS ":PRINT@133," OCEANS & SEAS " 460 PRINT:PRINTCHR$(27)"qYOU WILL GET TWO POINTS FOR EACH CORRECTNEW WORD YOU TYPE IN." 470 PRINT@308,"hit any key"; 480 Q$=INKEY$:IF Q$=""THEN 480 490 CLS:PRINT"AT ANY TIME, TYPE "CHR$(27)"pQUIT"CHR$(27)"q TO EXIT PROGRAM AND RETURN TO THE MAIN MENU." 500 PRINT:PRINT"YOU MAY ALSO TYPE "CHR$(27)"p?"CHR$(27)"q TO BE TOLD WHAT THE COMPUTER'S WORD ENDS WITH." 510 PRINT 520 U=0:C=0:PRINT:INPUT"Do You want to go First (Y/N)";A$ 530 CLS 540 PRINT:IF A$="N" THEN 560 550 C=1:GOTO 580 560 R$=CHR$(INT(RND(1)*26+65)):GOTO 730 570 C=0 580 PRINTCHR$(27)"qSCORE:"U:PRINT:INPUT"WHAT'S YOUR WORD";A$:IF C=1 THEN 630 590 IF A$="QUIT" THEN MENU 600 IF A$="?" THEN PRINT:PRINT"MY WORD ENDS WITH A(N) >";R$;"<":PRINT:GOTO580 610 IF LEFT$(A$,1)=R$ THEN 630 620 PRINT:PRINTCHR$(27)"pLETTERS DON'T MATCH"CHR$(27)"q":PRINT:GOTO 580 630 FOR E=1 TO U 640 IF A$<>U$(E) THEN 660 650 PRINT:PRINTCHR$(27)"pALREADY USED"CHR$(27)"q":GOTO 580 660 NEXT E 670 FOR E=1 TO A 680 IF A$<>B$(E) THEN 700 690 GOTO 720 700 NEXT E 710 PRINT:PRINTCHR$(27)"pILLEGAL WORD":PRINT:GOTO 580 720 R$=RIGHT$(A$,1):U=U+1:U$(U)=A$ 730 G=INT(RND(1)*A+1):H=A 740 FOR E=G TO H 750 IF LEFT$(B$(E),1)<>R$THEN 810 760 FOR I=1 TO U 770 IF B$(E)=U$(I) THEN 810 780 NEXT I 790 PRINT"MY WORD IS: ";B$(E):U=U+1:U$(U)=B$(E) 800 R$=RIGHT$(B$(E),1):GOTO 570 810 NEXT E 820 IF G=1 THEN 840 830 H=G:G=1:GOTO 740 840 PRINT:PRINT"YOU WIN!" 850 INPUT"ANOTHER GAME (Y/N)";A$ 860 IF A$="Y" THEN 520 870 MENU 880 REM 890 FOR E=1 TO A 900 IF LEFT$(B$(E),1)<>R$THEN950 910 FOR I=1 TO U 920 IF B$(E)=U$(I)THEN950 930 NEXT I 940 PRINTB$(E):PRINT:PRINT"YOU LOSE":GOTO 850 950 NEXTE:GOTO 840 960 DATA NEW YORK,NEW JERSEY,PENNSYLVANIA,CONNECTICUT,ALABAMA,VERMONT,NEW HAMPSHIRE,MAINE,FLORIDA,MASSACHUSETTS,GEORGIA,SOUTH CAROLINA,RHODE ISLAND,UTAH,INDIANA,NORTH CAROLINA,VIRGINIA,SOUTH DAKOTA,OHIO,OREGON,NEW MEXICO,NORTH DAKOTA,WISCONSIN,MICHIGAN 961 DATA IDAHO,CALIFORNIA,MISSISSIPPI,KANSAS,NEBRASKA,IOWA,WASHINGTON,MONTANA,MINNISOTA,KENTUCKY,TENNESSEE,LOUISIANA,DELAWARE,MARYLAND,ARKANSAS,COLORADO,ARIZONA,WEST VIRGINIA,TEXAS,NEVADA,MILLERTON,OKLAHOMA,WYOMING,MISSOURI,ALASKA,HAWAII,ILLINOIS,ALBERTA 962 DATA MANITOBA,SASKATCHEWAN,QUEBEC,ONTARIO,PRINCE EDWARD ISLAND,NEW BRUNSWICK,NEWFOUNDLAND,AFGHANISTAN,AFRICA,ALBANIA,ALGERIA,ANDORRA,ANGOLA,ANTARCTICA,ARGENTINA,ASIA,AUSTRALIA,AUSTRIA,BAHRAIN,BANGLADESH,BARBADOS,BELGIUM,BHUTAN,BOLIVIA,BOTSWANA,BRAZIL 963 DATA BRITISH HONDURAS,BULGARIA,BURMA,BURUNDI,CAMBODIA,CAMEROON,CANADA,CENTRAL AFRICAN REPUBLIC,CEYLON,CHAD,CHILE,CHINA,COLUMBIA,CONGO,COSTA RICA,CUBA,CYPRUS,CZECHOSLOVAKIA,DAHOMEY,DENMARK,DOMINICAN REPUBLIC,EQUATORIAL GUINEA,EUROPE,FIJI,FINLAND 964 DATA FRANCE,GABON,GAMBIA,EAST GERMANY,WEST GERMANY,GERMANY,GREAT BRITAIN,GREECE,GUATEMALA,GUINEA,GUYANA,HAITI,HOLLAND,HONDURAS,HUNGARY,ICELAND,INDIA,INDONESIA,IVORY COAST,IRAN,IRAQ,IRELAND,ISRAEL,ITALY 965 DATAJAMAICA,JAPAN,JORDAN,KENYA,SOUTH KOREA,NORTH KOREA,KUWAIT,LAOS,LEBANON,LESOTHO,LIBERIA,LIBYA,LIECHTENSTEIN,LUXEMBOURG,MALAWI,MALAYA,MALAGASY REPUBLIC,MALAYSIA,MALDIVES,MALI,MALTA,MAUIRITANIA,MAURITIUS,MEXICO,MONGOLIA,MOZAMBIQUE,NIGERIA,NORWAY,OMAN 966 DATAPAKISTAN,PANAMA,PARAGUAY,PERU,PHILIPPINES,POLAND,PORTUGAL,QATAR,RHODESIA,RUMANIA,RWANDA,SAUDI ARABIA,SCOTLAND,SENEGAL,SIERRA LEONE,SINGAPORE,SOMALIA,SOUTH AFRICA,SOUTH AMERICA,NORTH AMERICA,SPAIN,SUDAN,SURINAM,SWAZILAND,SWEDEN,SWITZERLAND,SYRIA 967 DATA TANZANIA,THAILNAD,TOGO,TRINIDAD,TUNISIA,USSR,WALES,ZAIRE,YEMEN,ZAMBIA,UPPER VOLTA,URAGUAY,VATICAN CITY,VENEZUELA,UNITED KINGDOM,TOKYO,LONDON,SHANGHAI,OSAKA,MOSCOW,BUENOS AIRES,PARIS,MEXICO CITY,CHICAGO,LOS ANGELES,CALCUTTA,PEKING,SAO PAULO 968 DATA BOMBAY,DJAKARTA,SEOUL,RIO DE JANEIRO,CAIRO,PHILADELPHIA,DETROIT,HONG KONG,BERLIN,LENINGRAD,MANILA,NEW DELHI,BOSTON,KARACHI,MADRID,SAN FRANSISCO,WASHINGTON DC,SYDNEY,ROME,MILAN,SANTIAGO,MONTREAL,LIMA,BARCELONA,MELBOURNE,PITTSBURG,MANCHESTER 969 DATA ST LOUIS,TORONTO,HAMBURG,BUDAPEST,CLEVELAND,BANGKOK,JOHANNESBURG,ATHENS,SINGAPORE,ISTANBUL,VIENNA,BRUSSEL,AMSTERDAM,GLASGOW,HAVANA,LISBON,WARSAW,COPENHAGEN,STOCKHOLM,PRAGUE,MONTGOMERY,JUNEAU,PHOENIX,LITTLE ROCK,SACRAMENTO,DENVER,HARTFORD,DOVER 970 DATA MONTPELIER,RICHMOND,OLYMPIA,CHARLESTON,MADISON,CHEYENNE,PACIFIC OCEAN,ATLANTIC OCEAN,INDIAN OCEAN,ARTIC OCEAN,RED SEA,BLACK SEA,CARIBBEAN SEA,GULF OF MEICO,EAST CHINA SEA,HUDSON BAY,YALTA,YANGTZE RIVER,YOKOHAMA,YUKON,SEA OF JAPAN,SOUTH CHINA SEA 971 DATA VANCOUVER,VICTORIA,NEW YORK CITY,LOS VEGAS,DALLAS,TULSA,NASHVILLE,KNOXVILLE,SALEM,SOVIET UNION 972 DATA TALLAHASSEE,ATLANTA,HONOLULU,BOISE,SPTINGFIELD,INDIANAPOLIS,DES MOINES,TOPEKA,FRANKFURT,BATON ROUGE,AUGUSTA,ANNAPOLIS,LANSING,ST PAUL,JACKSON,JEFFORSON CITY,HELENA,LINCOLN,CARSON CITY,CONCORD,TRENTON,SANTE FE,ALBANY,RALEIGH,BISMARK,COLUMBUS 973 DATA OKLAHOMA CITY,SALEM,HARRISBURG,PROVIDENCE,COLUMBIA,PIERRE,NASHVILL,AUSTIN,SALT LAKE CITYM,NORTH VIETNAM,SOUTH VIETNAM,RUSSIA,UNITED STATES,YUGOSLAVIA,VIETNAM,KOREA 974 DATA *