10 RANDOMIZE TIMER
20 REM* STATE CAPITALS
40 cls
120 PRINT "STATE CAPITALS"
130 PRINT "by Ray Gordon"
140 PRINT "COPYRIGHT (C) 1979"
310 REM MAIN LOOP
330 GOSUB 350
340 GOTO 450
350 cls
360 PRINT " KNOW THE STATE CAPITALS"
370 PRINT " by Ray Gordon
380 PRINT " COPYRIGHT (C) 1979"
390 PRINT:PRINT:PRINT:PRINT
400 PRINT " I WILL GIVE YOU THE STATE AND YOU"
410 PRINT " GIVE ME THE CAPITAL."
420 S=INT(RND*50)
430 RESTORE 930
440 RETURN
450 IF T<>0 THEN 500
460 FOR I=1 TO S
470 READ S$
480 READ C$
490 NEXT I
500 PRINT:PRINT
510 PRINT " WHAT IS THE CAPITAL OF ";S$;"? "
520 PRINT
530 INPUT " ",R$
540 IF C$=R$ THEN 670
550 PRINT : PRINT " YOU MISSED. TRY AGAIN. "
560 PRINT:PRINT " Press SPACE"
570 M=M+1
580 T=T+1
590 IF T=2 THEN GOSUB 820
600 IF T=4 THEN GOSUB 870
610 GOSUB 790
620 A$=INPUT$ (1)
630 GOTO 330
650 REM RESPONSE FOR CORRECT ANSWER
670 PRINT : PRINT " CORRECT. TRY ANOTHER. "
680 PRINT
690 PRINT "Press SPACE"
700 PRINT
710 K=K+1
720 T=0
730 GOSUB 790
740 A$=INPUT$ (1)
750 GOTO 330
770 REM DISPLAY SCORE
790 PRINT
800 PRINT " SCORE: RIGHT:";K;" WRONG";M
810 RETURN
820 PRINT
830 F$=LEFT$(C$,1)
840 PRINT " HERE'S A HINT. THE FIRST LETTER IS '";F$;"'";
850 PRINT
860 RETURN
870 PRINT
880 PRINT " IT'S TOUGH. THE CAPITAL IS ";C$
890 RETURN
910 REM ENTER DATA STATEMENTS HERE
930 DATA "MASSACHUSETTS","BOSTON","MAINE","AUGUSTA"
940 DATA "VERMONT","MONTPELIER","NEVADA","CARSON CITY"
950 DATA "NEW HAMPSHIRE","CONCORD","NEW YORK","ALBANY"
960 DATA "NEW JERSEY","TRENTON","CONNECTICUTT","HARTFORD"
970 DATA "VIRGINIA","RICHMOND","W.VIRGINIA","CHARLESTON"
980 DATA "MARYLAND","ANNAPOLIS","NORTH CAROLINA","RALEIGH"
990 DATA "S.CAROLINA","COLUMBIA","FLORIDA","TALLAHASSEE"
1000 DATA "GEORGIA","ATLANTA","ALABAMA","MONTGOMERY"
1010 DATA "ARKANSAS","LITTLE ROCK","MISSISSIPI","JACKSON"
1020 DATA "WASHINGTON","OLYMPIA"," NEW MEXICO","SANTA FE"
1030 DATA "NORTH DAKOTA","BISMARK","S.DAKOTA","PIERRE"
1040 DATA "IDAHO","BOISE","ILLINOIS","SPRINGFIELD"
1050 DATA "OHIO","COLUMBUS","INDIANA","INDIANAPOLIS"
1060 DATA "IOWA","DES MOINES","KANSAS","TOPEKA"
1070 DATA "MISSOURI","JEFFERSON CITY","OKLAHOMA","OKLAHOMA CITY"
1080 DATA "COLORADO","DENVER","UTAH","SALT LAKE CITY"
1090 DATA "HAWAII","HONOLULU","ALASKA","JUNEAU"
1100 DATA "TEXAS","AUSTIN","LOUISIANA","BATON ROUGE"
1110 DATA "WISCONSIN","MADISON","MINNESOTA","ST. PAUL"
1120 DATA "MICHIGAN","LANSING","KENTUCKY","FRANKFORT"
1130 DATA "TENNESSEE","NASHVILLE","NEBRASKA","LINCOLN"
1140 DATA "MONTANA","HELENA","WYOMING","CHEYENNE"
1150 DATA "DELAWARE","DOVER","CALIFORNIA","SACRAMENTO"
1160 DATA "OREGON","SALEM","ARIZONA","PHOENIX"
