100 '*****
101 '*
102 '* CAPITALS.BAS
103 '* MDJ 2021/12/15
104 '*
105 '* A QUIZ TO IDENTIFY
106 '* CAPITALS OF USA
107 '* STATES AND TERRITORIES
108 '*
109 '*****

110 'VARIABLES LIST
111 ' I, J = INDEXES AND COUNTERS
112 ' A = RESPONSE CODE
113 ' A$ = KEY PRESS
114 ' CN$ = CITY NAMES ARRAY
115 ' QT  = # OF QUESTIONS ASKED
116 ' QC  = # OF CORRECT ANSWERS
117 ' QP  = % CORRECT
118 ' R, R1, R2, RR, RP 
119 '   = RANDOMIZATION VARIABLES
120 ' S = SCRAMBLE CODES ARRAY
121 ' S1  = STATE NUMBER
122 ' SN$ = STATE NAME
123 ' SP$ = SCREEN DISPLAY STRING
124 ' ST$ = STATES' DATA ARRAY

160 '*****
170 '*
180 '* DISPLAY THE SPLASH SCREEN
190 '*
200 '*****
210 CLS

220 SD$ = CHR$(32) + CHR$(158)
230 FOR I = 0 TO 27
240   SD$ = SD$ + CHR$(156)
250 NEXT I
260 SD$ = SD$ + CHR$(157) + CHR$(32)
270 PRINT@64, SD$

280 SD$ = CHR$(32) + CHR$(154) + CHR$(206)
290 FOR I = 0 TO 25
300   SD$ = SD$ + CHR$(204)
310 NEXT I
320 SD$ = SD$ + CHR$(205) + CHR$(149) + CHR$(32)
330 PRINT@96, SD$

340 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
350 FOR I = 0 TO 25
360   SD$ = SD$ + CHR$(32)
370 NEXT I
380 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
390 PRINT@128, SD$

400 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
410 SD$ = SD$ + "  STATES AND TERRITORIES  "
420 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
430 PRINT@160, SD$

440 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
450 SD$ = SD$ + "      CAPITALS GAME       "
460 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
470 PRINT@192, SD$

480 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
490 FOR I = 0 TO 25
500   SD$ = SD$ + CHR$(32)
510 NEXT I
520 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
530 PRINT@224, SD$

540 SD$ = CHR$(32) + CHR$(154) + CHR$(203)
550 FOR I = 0 TO 25
560   SD$ = SD$ + CHR$(195)
570 NEXT I
580 SD$ = SD$ + CHR$(199) + CHR$(149) + CHR$(32)
590 PRINT@256, SD$

600 SD$ = CHR$(32) + CHR$(155)
610 FOR I = 0 TO 27
620   SD$ = SD$ + CHR$(147)
630 NEXT I
640 SD$ = SD$ + CHR$(151) + CHR$(32)
650 PRINT@288, SD$

660 PRINT@352, "   PRESS ANY KEY  TO CONTINUE   "
670 PRINT@448, "       BDS SOFTWARE  2021       ";
680 '*****
690 '*
700 '* END SPLASH
710 '*
720 '*****

730 A$=INKEY$
740 IF A$="" GOTO 730

750 '*****
760 '*
770 '* LOADING THE SYSTEM
780 '*
790 '*****

800 CLS
801 ' RANDOMIZATION ARRAYS
802 DIM R1(5)
803 DIM R2(4)
804 DIM RR(4)

810 PRINT
820 PRINT "  LOADING THE SYSTEM"
830 PRINT "  PLEASE WAIT"
840 PRINT

1100 'RANDOMIZE THE RND FUNCTION
1110 R = RND(-TIMER)

1200 'INITIALIZE SCRAMBLE CODES
1210 DIM S(24,4)

1220 S(0,0) = 0
1230 S(0,1) = 1
1240 S(0,2) = 2
1250 S(0,3) = 3

1260 S(1,0) = 0
1270 S(1,1) = 1
1280 S(1,2) = 3
1290 S(1,3) = 2

1300 S(2,0) = 0
1310 S(2,1) = 2
1320 S(2,2) = 1
1330 S(2,3) = 3

1340 S(3,0) = 0
1350 S(3,1) = 2
1360 S(3,2) = 3
1370 S(3,3) = 1

1400 S(4,0) = 0
1410 S(4,1) = 3
1420 S(4,2) = 1
1430 S(4,3) = 2

1440 S(5,0) = 0
1450 S(5,1) = 3
1460 S(5,2) = 2
1470 S(5,3) = 1

1500 S(6,0) = 1
1510 S(6,1) = 0
1520 S(6,2) = 2
1530 S(6,3) = 3

1540 S(7,0) = 1
1550 S(7,1) = 0
1560 S(7,2) = 3
1570 S(7,3) = 2

1600 S(8,0) = 1
1610 S(8,1) = 2
1620 S(8,2) = 0
1630 S(8,3) = 3

1640 S(9,0) = 1
1650 S(9,1) = 2
1660 S(9,2) = 3
1670 S(9,3) = 0

1700 S(10,0) = 1
1710 S(10,1) = 3
1720 S(10,2) = 0
1730 S(10,3) = 2

1740 S(11,0) = 1
1750 S(11,1) = 3
1760 S(11,2) = 2
1770 S(11,3) = 0

1800 S(12,0) = 2
1810 S(12,1) = 0
1820 S(12,2) = 1
1830 S(12,3) = 3

1840 S(13,0) = 2
1850 S(13,1) = 0
1860 S(13,2) = 3
1870 S(13,3) = 1

1900 S(14,0) = 2
1910 S(14,1) = 1
1920 S(14,2) = 0
1930 S(14,3) = 3

1940 S(15,0) = 2
1950 S(15,1) = 1
1960 S(15,2) = 3
1970 S(15,3) = 0

2000 S(16,0) = 2
2010 S(16,1) = 3
2020 S(16,2) = 0
2030 S(16,3) = 1

2040 S(17,0) = 2
2050 S(17,1) = 3
2060 S(17,2) = 1
2070 S(17,3) = 0

2100 S(18,0) = 3
2110 S(18,1) = 0
2120 S(18,2) = 1
2130 S(18,3) = 2

2140 S(19,0) = 3
2150 S(19,1) = 0
2160 S(19,2) = 2
2170 S(19,3) = 1

2200 S(20,0) = 3
2210 S(20,1) = 1
2220 S(20,2) = 0
2230 S(20,3) = 2

2240 S(21,0) = 3
2250 S(21,1) = 1
2260 S(21,2) = 2
2270 S(21,3) = 0

2300 S(22,0) = 3
2310 S(22,1) = 2
2320 S(22,2) = 0
2330 S(22,3) = 1

2340 S(23,0) = 3
2350 S(23,1) = 2
2360 S(23,2) = 1
2370 S(23,3) = 0

2500 'LOAD STATE AND
2510 'TERRITORY DATA
2520 DIM ST$(55,6)
2530 FOR I = 0 TO 54
2540   FOR J = 0 TO 5
2550     READ ST$(I,J)
2560   NEXT J
2570 NEXT I

2600 PRINT "  OKAY -" 
2610 PRINT "  ALL LOADED AND READY TO GO"
2620 PRINT
2630 PRINT "  PRESS ANY KEY TO BEGIN"
2640 PRINT

2650 '*****
2660 '*
2670 '* END LOADING
2680 '*
2690 '*****

2700 A$=INKEY$
2710 IF A$="" GOTO 2700

10000 '*****
10010 '*
10020 '* MAIN
10030 '*
10040 '*****

10050 ' S1  = STATE NUMBER
10060 ' SN$ = STATE NAME
10070 ' CN$ = CITY NAMES ARRAY
10080 ' QT  = # OF QUESTIONS ASKED
10090 ' QC  = # OF CORRECT ANSWERS
10100 ' QP  = % CORRECT
10110 DIM CN$(4)
10120 QT = 0
10130 QC = 0
10140 QP = 0

10150 'RANDOMLY SELECT A
10160 'STATE OR TERRITORY
10170 S1 = RND(55) - 1
10180 SN$ = ST$(S1,0)

10190 'RANDOMLY SELECT AND
10200 'SCRAMBLE FOUR OF 
10210 'THE FIVE CITY NAMES
10220 GOSUB 20050
10230 FOR I = 0 TO 3
10240   CN$(I) = ST$(S1,RR(I)+1)
10250 NEXT I

10260 'MAIN DISPLAY SCREEN
10270 PRINT@32,"  WHAT CITY IS THE CAPITAL OF"
10280 PRINT@64,"  "+SN$+"?"
10290 PRINT@128, "      A. "+CN$(0)
10300 PRINT@160, "      B. "+CN$(1)
10310 PRINT@192, "      C. "+CN$(2)
10320 PRINT@224, "      D. "+CN$(3)
10330 PRINT@256, "      E. NONE OF THE ABOVE"
10340 PRINT@320, "  PRESS A, B, C, D, OR E"
10341 PRINT@352, "                                "
10342 PRINT@384, "                                "
10343 PRINT@416, "                                "
10350 PRINT@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";

10360 A$ = INKEY$
10370 IF A$="" GOTO 10360

10380 IF (A$="A" OR A$=CHR$(97)) GOTO 10470
10390 IF (A$="B" OR A$=CHR$(98)) GOTO 10480
10400 IF (A$="C" OR A$=CHR$(99)) GOTO 10490
10410 IF (A$="D" OR A$=CHR$(100)) GOTO 10500
10420 IF (A$="E" OR A$=CHR$(101)) GOTO 10510
10430 SOUND 159,2
10440 SOUND 159,2
10450 PRINT@320, "  YOU MUST PRESS ONE OF A TO E"
10460 GOTO 10360

10470 A = 0: GOTO 10520
10480 A = 1: GOTO 10520
10490 A = 2: GOTO 10520
10500 A = 3: GOTO 10520
10510 A = 4: GOTO 10520	

10520 IF A = RP GOTO 10660
10530 SOUND 78,1
10540 SOUND 78,1
10550 SOUND 78,1
10560 SOUND 5,3
10570 PRINT@320, "    **SORRY: THAT IS INCORRECT."
10580 SP$ = "  CORRECT = "
10590 IF RP=0 THEN SP$ = SP$ + "A. "+CN$(0)
10600 IF RP=1 THEN SP$ = SP$ + "B. "+CN$(1)
10610 IF RP=2 THEN SP$ = SP$ + "C. "+CN$(2)
10620 IF RP=3 THEN SP$ = SP$ + "D. "+CN$(3)
10630 IF RP=4 THEN SP$ = SP$ + "E.NONE OF THE ABOVE"
10640 PRINT@352, SP$
10650 GOTO 10720

10660 SOUND 204,1
10670 SOUND 204,1
10680 SOUND 204,1
10690 SOUND 218,3
10700 PRINT@320, "    *** THAT IS CORRECT! ***"
10710 QC = QC + 1

10720 QT = QT + 1
10730 QP = INT(100 * (QC/QT))
10740 PRINT@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";
10750 PRINT@384, "  PRESS C TO CONTINUE;Q TO QUIT"

10760 A$ = INKEY$
10770 IF A$="" GOTO 10760

10780 IF (A$="C" OR A$=CHR$(99)) GOTO 10170
10790 IF (A$="Q" OR A$=CHR$(113)) GOTO 32700
10800 SOUND 159,2
10810 SOUND 159,2
10820 PRINT@384, "  YOU MUST PRESS C OR Q"
10830 GOTO 10760

10840 '*****
10850 '*
10860 '* END MAIN
10870 '*
10880 '*****

20000 '*****
20010 '* 
20020 '* SELECTION SUBROUTINE:
20030 '*
20040 '*****

20050 'RANDOM SELECTION OF
20060 'FOUR OF FIVE.
20070 ' SELECTS FOUR ENTRIES
20080 ' FROM FIVE POSSIBILITIES.
20090 '  INPUTS:
20100 '   NONE
20110 '  OUTPUTS (GLOBAL)
20120 '   RR(4) = THE SELECTED FOUR
20130 '   RP    = POSITION OF "0" ENTRY
20140 '            (0, 1, 2, OR 3)
20150 '         = 4 IF "0" ENTRY 
20160 '            NOT INCLUDED

20200 ' INITIALIZATION
20210 FOR I = 0 TO 4
20220   R1(I) = I
20230 NEXT I
20240 RP = 4

20300 'FIRST PASS
20310 R = RND(5) - 1
20320 J = -1
20330 FOR I = 0 TO 4
20340   IF R = I GOTO 20370
20350   J = J + 1
20360   R2(J) = R1(I)
20370 NEXT I

20400 'SCRAMBLE PASS
20410 J = RND(24) - 1
20420 FOR I = 0 TO 3
20430   RR(I) = R2(S(J,I))
20440 NEXT I

20500 'POSITION PASS
20510 FOR I = 0 TO 3
20520   IF RR(I) <> 0 GOTO 20540
20530   RP = I
20540 NEXT I

20600 RETURN

20610 '*****
20620 '*
20630 '* ENDSUB
20640 '*
20650 '*****


25000 '*****
25010 '*
25020 '* STATES AND TERRITORIES
25060 '* NAME AND CAPITALS DATA
25070 '*
25080 '*****

25100 DATA ALABAMA
25110 DATA MONTGOMERY
25120 DATA BIRMINGHAM
25130 DATA HUNTSVILLE
25140 DATA MOBILE
25150 DATA TUSCALOOSA

25200 DATA ALASKA
25210 DATA JUNEAU
25220 DATA ANCHORAGE
25230 DATA FAIRBANKS
25240 DATA BADGER
25250 DATA KNIK-FAIRVIEW

25300 DATA AMERICAN SAMOA
25310 DATA PAGO PAGO
25320 DATA TAFUNA
25330 DATA LEONE
25340 DATA FALENIU
25350 DATA AUA

25400 DATA ARIZONA
25410 DATA PHOENIX
25420 DATA TUCSON
25430 DATA MESA
25440 DATA CHANDLER
25450 DATA SCOTTSDALE

25500 DATA ARKANSAS
25510 DATA LITTLE ROCK
25520 DATA FAYETTEVILLE
25530 DATA FORT SMITH
25540 DATA SPRINGDALE
25550 DATA JONESBORO

25600 DATA CALIFORNIA
25610 DATA SACRAMENTO
25620 DATA LOS ANGELES
25630 DATA SAN DIEGO
25640 DATA SAN JOSE
25650 DATA SAN FRANCISCO

25700 DATA COLORADO
25710 DATA DENVER
25720 DATA COLORADO SPRINGS
25730 DATA AURORA
25740 DATA FORT COLLINS
25750 DATA LAKEWOOD

25800 DATA CONNECTICUT
25810 DATA HARTFORD
25820 DATA BRIDGEPORT
25830 DATA NEW HAVEN
25840 DATA STAMFORD
25850 DATA WATERBURY

25900 DATA DELAWARE
25910 DATA DOVER
25920 DATA WILMINGTON
25930 DATA NEWARK
25940 DATA MIDDLETOWN
25950 DATA BEAR

26000 DATA FLORIDA
26010 DATA TALLAHASSEE
26020 DATA JACKSONVILLE
26030 DATA MIAMI
26040 DATA TAMPA
26050 DATA ORLANDO

26100 DATA GEORGIA
26110 DATA ATLANTA
26120 DATA AUGUSTA
26130 DATA COLUMBUS
26140 DATA MACON COUNTY
26150 DATA SAVANNAH

26200 DATA GUAM
26210 DATA HAGATNA
26220 DATA DEDEDO
26230 DATA YIGO
26240 DATA MANGILAO
26250 DATA BARRIGADA

26300 DATA HAWAII
26310 DATA HONOLULU
26320 DATA PEARL CITY
26330 DATA HILO
26340 DATA WAIPAHU
26350 DATA KAILUA

26400 DATA IDAHO
26410 DATA BOISE
26420 DATA MERIDIAN
26430 DATA NAMPA
26440 DATA IDAHO FALLS
26450 DATA CALDWELL

26500 DATA ILLINOIS
26510 DATA SPRINGFIELD
26520 DATA CHICAGO
26530 DATA AURORA
26540 DATA NAPERVILLE
26550 DATA JOLIET

26600 DATA INDIANA
26610 DATA INDIANAPOLIS
26620 DATA FORT WAYNE
26630 DATA EVANSVILLE
26640 DATA SOUTH BEND
26650 DATA CARMEL

26700 DATA IOWA
26710 DATA DES MOINES
26720 DATA CEDAR RAPIDS
26730 DATA DAVENPORT
26740 DATA SIOUX CITY
26750 DATA IOWA CITY

26800 DATA KANSAS
26810 DATA TOPEKA
26820 DATA WICHITA
26830 DATA OVERLAND PARK
26840 DATA KANSAS CITY
26850 DATA LAWRENCE

26900 DATA KENTUCKY
26910 DATA FRANKFORT
26920 DATA LOUISVILLE
26930 DATA LEXINGTON
26940 DATA BOWLING GREEN
26950 DATA OWENSBORO

27000 DATA LOUISIANA
27010 DATA BATON ROUGE
27020 DATA NEW ORLEANS
27030 DATA SHREVEPORT
27040 DATA METAIRIE
27050 DATA LAFAYETTE

27100 DATA MAINE
27110 DATA AUGUSTA
27120 DATA PORTLAND
27130 DATA LEWISTON
27140 DATA BANGOR
27150 DATA AUBURN

27200 DATA MARYLAND
27210 DATA ANNAPOLIS
27220 DATA BALTIMORE
27230 DATA COLUMBIA
27240 DATA GERMANTOWN
27250 DATA SILVER SPRING

27300 DATA MASSACHUSETTS
27310 DATA BOSTON
27320 DATA WORCESTER
27330 DATA SPRINGFIELD
27340 DATA CAMBRIDGE
27350 DATA LOWELL

27400 DATA MICHIGAN
27410 DATA LANSING
27420 DATA DETROIT
27430 DATA GRAND RAPIDS
27440 DATA WARREN
27450 DATA STERLING HEIGHTS

27500 DATA MINNESOTA
27510 DATA SAINT PAUL
27520 DATA MINNEAPOLIS
27530 DATA ROCHESTER
27540 DATA BLOOMINGTON
27550 DATA DULUTH

27600 DATA MISSISSIPPI
27610 DATA JACKSON
27620 DATA GULFPORT
27630 DATA SOUTHAVEN
27640 DATA BILOXI
27650 DATA HATTIESBURG

27700 DATA MISSOURI
27710 DATA JEFFERSON CITY
27720 DATA KANSAS CITY
27730 DATA SAINT LOUIS
27740 DATA SPRINGFIELD
27750 DATA COLUMBIA

27800 DATA MONTANA
27810 DATA HELENA
27820 DATA BILLINGS
27830 DATA MISSOULS
27840 DATA GREAT FALLS
27850 DATA BOZEMAN

27900 DATA NEBRASKA
27910 DATA LINCOLN
27920 DATA OMAHA
27930 DATA BELLEVUE
27940 DATA GRAND ISLAND
27950 DATA KEARNEY

28000 DATA NEVADA
28010 DATA CARSON CITY
28020 DATA LAS VEGAS
28030 DATA HENDERSON
28040 DATA RENO
28050 DATA PARADISE

28100 DATA NEW HAMPSHIRE
28110 DATA CONCORD
28120 DATA MANCHESTER
28130 DATA NASHUA
28140 DATA DOVER
28150 DATA ROCHESTER

28200 DATA NEW JERSEY
28210 DATA TRENTON
28220 DATA NEWARK
28230 DATA JERSEY CITY
28240 DATA PATERSON
28250 DATA ELIZABETH

28300 DATA NEW MEXICO
28310 DATA SANTA FE
28320 DATA ALBUQUERQUE
28330 DATA LAS CRUCES
28340 DATA RIO RANCHO
28350 DATA ROSWELL

28400 DATA NEW YORK
28410 DATA ALBANY
28420 DATA NEW YORK CITY
28430 DATA BUFFALO
28440 DATA ROCHESTER
28450 DATA YONKERS

28500 DATA NORTH CAROLINA
28510 DATA RALEIGH
28520 DATA CHARLOTTE
28530 DATA GREENSBORO
28540 DATA DURHAM
28550 DATA WINSTON-SALEM

28600 DATA NORTH DAKOTA
28610 DATA BISMARK
28620 DATA FARGO
28630 DATA GRAND FORKS
28640 DATA MINOT
28650 DATA WILLISTON

28700 DATA THE NORTHERN MARIANA ISLANDS
28710 DATA SAIPAN
28720 DATA SAN JOSE
28730 DATA PAGAN
28740 DATA AGRIHAN
28750 DATA ALAMAGAN

28800 DATA OHIO
28810 DATA COLUMBUS
28820 DATA CLEVELAND
28830 DATA CINCINNATI
28840 DATA TOLEDO
28850 DATA AKRON

28900 DATA OKLAHOMA
28910 DATA OKLAHOMA CITY
28920 DATA TULSA
28930 DATA NORMAN
28940 DATA BROKEN ARROW
28950 DATA EDMOND

29000 DATA OREGON
29010 DATA SALEM
29020 DATA PORTLAND
29030 DATA EUGENE
29040 DATA HILLSBORO
29050 DATA GRESHAM

29100 DATA PENNSYLVANIA
29110 DATA HARRISBURG
29120 DATA PHILADELPHIA
29130 DATA PITTSBURGH
29140 DATA ALLENTOWN
29150 DATA ERIE

29200 DATA PUERTO RICO
29210 DATA SAN JUAN
29220 DATA BAYAMON
29230 DATA CAROLINA
29240 DATA PONCE
29250 DATA CAGUAS

29300 DATA RHODE ISLAND
29310 DATA PROVIDENCE
29320 DATA WARWICK
29330 DATA CRANSTON
29340 DATA PAWTUCKET
29350 DATA WOONSOCKET

29400 DATA SOUTH CAROLINA
29410 DATA COLUMBIA
29420 DATA CHARLESTON
29430 DATA MOUNT PLEASANT
29440 DATA ROCK HILL
29450 DATA GREENVILLE

29500 DATA SOUTH DAKOTA
29510 DATA PIERRE
29520 DATA SIOUX FALLS
29530 DATA RAPID CITY
29540 DATA ABERDEEN
29550 DATA BROOKINGS

29600 DATA TENNESSEE
29610 DATA NASHVILLE
29620 DATA MEMPHIS
29630 DATA KNOXVILLE
29640 DATA CHATTANOOGA
29650 DATA CLARKSVILLE

29700 DATA TEXAS
29710 DATA AUSTIN
29720 DATA HOUSTON
29730 DATA SAN ANTONIO
29740 DATA DALLAS
29750 DATA FORT WORTH

29800 DATA UTAH
29810 DATA SALT LAKE CITY
29820 DATA WEST VALLEY CITY
29830 DATA WEST JORDAN
29840 DATA PROVO
29850 DATA OGDEN

29900 DATA VERMONT
29910 DATA MONTPELIER
29920 DATA BURLINGTON
29930 DATA RUTLAND
29940 DATA ESSEX JUNCTION
29950 DATA BARRE

30000 DATA VIRGINIA
30010 DATA RICHMOND
30020 DATA VIRGINIA BEACH
30030 DATA CHESAPEAKE
30040 DATA NORFOLK
30050 DATA ARLINGTON

30100 DATA THE VIRGIN ISLANDS
30110 DATA CHARLOTTE AMALIE
30120 DATA TUTU
30130 DATA CRUZ BAY
30140 DATA FREDERIKSTED
30150 DATA CHRISTIANSTED

30200 DATA WASHINGTON
30210 DATA OLYMPIA
30220 DATA SEATTLE
30230 DATA SPOKANE
30240 DATA TACOMA
30250 DATA VANCOUVER

30300 DATA WEST VIRGINIA
30310 DATA CHARLESTON
30320 DATA HUNTINGTON
30330 DATA MORGANTOWN
30340 DATA PARKERSBURG
30350 DATA WHEELING

30400 DATA WISCONSIN
30410 DATA MADISON
30420 DATA MILWAUKEE
30430 DATA GREEN BAY
30440 DATA KENOSHA
30450 DATA RACINE

30500 DATA WYOMING
30510 DATA CHEYENNE
30520 DATA CASPER
30530 DATA LARAMIE
30540 DATA GILLETTE
30550 DATA ROCK SPRINGS

30600 '*****
30610 '*
30620 '* END OF DATA
30630 '*
30640 '*****


32700 CLS
32710 PRINT:PRINT "   FINAL SCORE = ";QP;"%"
32720 PRINT:PRINT "   THANKS FOR PLAYING!"
32730 PRINT "     COME BACK SOON."
32740 PRINT:PRINT "   M. DAVID JOHNSON"
32750 PRINT "   INFO@BDS-SOFT.COM"
32760 PRINT:PRINT:PRINT:PRINT:PRINT
32767 END