д&
d:Г*****&n:Г*&&x:Г* MORE.BAS&=В:Г* MDJ 2022/04/20&EМ:Г*&^Ц:Г* A PAGE-AT-A-TIME&wа:Г* TEXT FILE LISTER&к:Г*&Л┤:Г*****&Ц╚Х 3000&п
,:Г LIST OF VARIABLES&─
6:Г F$ = FILENAME&▐
@:Г T$ = LINE OF TEXT &ё
J:Г   FROM FILE'
T:Г L$ = HOLDING ARRAY '
^:Г   FOR LINES';
h:Г LC = COUNT OF LINES 'U
r:Г   IN HOLDING ARRAY'q
|:Г SC = COUNT OF SCREEN'Л
Ж:Г   LINES OCCUPIED ='з
Р:Г   (LEN(T$) / 32) + 1'┬
Ъ:Г RC = RUNNING TOTAL '╨
д:Г  OF SC'у
о:Г P$ = PROMPT(
╕:Г A$ = KEYBOARD CONTROL(
┬:Г I - ARRAY ITERATOR(6
Ї:Г INITIALIZE VARIABLES(B
■F$ │ ""(NT$ │ ""(YLC │ 0(dSC │ 0(o&RC │ 0(Ч0P$ │ "-- PRESS ANY KEY FOR MORE --"(г:A$ │ ""(нDI │ 0(║NМ L$(12)(╦XА I │ 0 е 11(┌bL$(I) │ ""(тlЛ I(№╝:Г ENTER THE FILENAME)╞:Г IN FORM FILENAME.EXT)0╨З "ENTER FILENAME";)9┌Й F$)Kф:Г WILL THROW)eю:Г "?NE ERROR IN 760")~°:Г IF FILE NOT FOUND)РЩ "I", #1, F$)о :Г EXIT IF AT END OF FILE)╚*Е  М(1) │ м1 Бе 10000)ц4:Г GO IF RUNNING TOTAL OF*
>:Г   SCREEN LINES > 12*HЕ (RC ▓ 12) Бе 2000*7R:Г GO IF RUNNING TOTAL OF*R\:Г   SCREEN LINES = 12*jfЕ (RC │ 12) Бе 3000*Жp:Г GET A LINE FROM FILE*Хz╗ Й #1, T$*оД:Г PUT THE LINE INTO*╔О:Г   THE HOLDING ARRAY*┘ШL$(LC) │ T$*щвLC │ LC л 1+ш:Г COUNT HOW MANY SCREEN+$Є:Г   LINES THE INPUT LINE+9№:Г   WILL OCCUPY+XSC │  Б(( З(T$) о 32) л 1)+uL:Г ADD THAT VALUE TO THE+РV:Г   THE RUNNING COUNT+б`RC │ RC л SC+╝j:Г RETURN FOR THE NEXY+╨t:Г   INPUT LINE+▄~Бе 810 +∙╨:Г PRINT OUT ALL BUT THE,┌:Г   LAST LINE IN THE,*ф:Г   HOLDING ARRAY,?юА I │ O е LC м 2,K°З L$(I),SЛ I,YЗ,bЗ P$,|Ш:Г ADJUST THE HOLDING,Лв:Г   ARRAY,амL$(O) │ L$(LCм1),л╢LC │ 1,╚№:Г COUNT HOW MANY SCREEN,с	:Г   LINES THAT LINE,Ў	:Г   WILL OCCUPY-	RC │  Б(( З(L$(0)) о 32) л 1)-3	$:Г RETURN FOR THE NEXY-G	.:Г   INPUT LINE-S	8A$ │  Т-i	BЕ A$ │ "" Бе 2360-u	LБе 810 -О╕:Г PRINT OUT ALL THE-д┬:Г   LINES IN THE-╗╠:Г   HOLDING ARRAY-╨╓А I │ O е LC м 1-▄рЗ L$(I)-фъЛ I-ъЇЗ-є■З P$.
А:Г ADJUST THE HOLDING.К:Г   ARRAY.+ФL$(O) │ "".6ЮLC │ 0.Pф:Г ADJUST THE RUNNING.mю:Г   RUNNING SCREEN LINE.~°:Г   COUNTER.Й
RC │ 0.д
:Г RETURN FOR THE NEXY.╕
:Г   INPUT LINE.─
 A$ │  Т.┌
*Е A$ │ "" Бе 3360.ц
4Бе 810 .√':Г PRINT OUT THE/':Г   FINAL PAGE/%'$Е (RC│0) Бе 32000/>*°:Г PRINT OUT ALL THE/T+:Г   LINES IN THE/k+:Г   HOLDING ARRAY/А+А I │ O е LC м 1/М+ З L$(I)/Ф+*Л I/Э}Ъ #1/г К╕
:Г   INPUT LINE.─
 A$ │  Т.┌
*Е A$ │ "" Бе 3360.ц
4Бе 810 .√':Г PRINT OUT THE/'                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
101 README.TXT
102 .
103 CAPITALS.BAS IS A QUIZ GAME
104 TO TEST YOUR KNOWLEDGE OF
105 CAPITALS OF U.S. STATES &
106 TERRITORIES IN GEOGRAPHY.
107 .
108 YOU CAN ALSO USE IT IN A
109 REPETITIVE FASHION TO HELP
110 IMPROVE THAT KNOWLEDGE.
111 .
112 THE GAME REQUIRES A 64K
113 COLOR COMPUTER 2 OR ANY
114 COLOR COMPUTER 3. (OR VCC
115 OR OTHER COCO EMULATOR).
116 .
117 AS WITH ALL MY SOFTWARE,
118 I PROVIDE THE COMPLETE
119 CODE SO YOU CAN LEARN FROM
120 IT AND USE IT TO DEVELOP
121 YOUR OWN PROGRAMS AND
122 SOFTWARE. SEE THE
123 LICENSE.TXT FILE WHICH IS
124 ALSO ON THIS DISK.
125 .
126 IN ADDITION TO THE .BAS
127 FILE (WHICH IS THE ONE
128 YOU SHOULD RUN), I'M ALSO
129 PROVIDING A .TX1 FILE AND
130 A .TX2 FILE (THE FIRST AND
131 SECOND HALVES OF THE
132 PROGRAM) IN ASCII FORMAT, 
133 WHICH CAN BE EXAMINED, 
134 PAGE-BY-PAGE,
135 (WHERE ONE "PAGE" IS
136 ONE 32 X 16 COCO SCREEN)
137 USING THE INCLUDED 
138 MORE.BAS PROGRAM.
139 .
140 ENJOY!
141 .
142 M. DAVID  JOHNSON
143 MDJ@BDS-SOFT.COM
144 . 2022/04/22
145 .
146 -----
147 .
148 THIS README.TXT FILE CAN
149 BE READ, PAGE-BY-PAGE,
150 USING THE MORE.BAS PROGRAM
151 ON THIS DISK.
152 .
153 -----
154 .
155 EOF
RE.BAS PROGRAM.
139 .
140 ENJOY!
141 .
142 M. DAVID  JOHNSON
143 MDJ@BDS-SOFT.COM
144 . 2022/04/22
145 .                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
100 BDS SOFTWARE
101 .
102 NEW SOFTWARE LICENSE
103 .
104 THIS NEW SOFTWARE LICENSE
105 APPLIES TO ALL SOFTWARE 
106 FOUND ON THIS SITE, AND 
107 SUPERSEDES ALL PREVIOUS 
108 COPYRIGHT NOTICES AND 
109 LICENSING PROVISIONS WHICH 
110 MAY APPEAR IN THE SOFTWARE
111 ITSELF OR IN ANY 
112 DOCUMENTATION THEREFOR.
113 .
114 ALL SOFTWARE WHICH HAS 
115 PREVIOUSLY BEEN PLACED IN 
116 THE PUBLIC DOMAIN REMAINS 
117 IN THE PUBLIC DOMAIN.
118 .
119 ALL OTHER SOFTWARE, 
120 PROGRAMS, EXPERIMENTS AND 
121 REPORTS, DOCUMENTATION, 
122 AND ANY OTHER MATERIAL ON 
123 THIS SITE (OTHER THAN 
124 THAT ATTRIBUTED TO OUTSIDE
125 SOURCES) IS HEREBY 
126 COPYRIGHT  2018 (OR LATER
127 IF SO MARKED) 
128 BY M. DAVID JOHNSON.
129 .
130 ALL SOFTWARE, 
131 DOCUMENTATION, AND OTHER 
132 INFORMATION ON THIS SITE 
133 IS AVAILABLE FOR YOU TO 
134 FREELY DOWNLOAD WITHOUT 
135 COST.
136 .
137 WHETHER YOU DOWNLOADED 
138 SUCH ITEMS DIRECTLY FROM 
139 THIS SITE, OR YOU OBTAINED 
140 THEM BY ANY OTHER MEANS, 
141 YOU ARE HEREBY LICENSED TO 
142 COPY THEM, TO SELL OR GIVE 
143 AWAY SUCH COPIES, TO USE 
144 THEM, AND TO EXCERPT FROM 
145 THEM, IN ANY WAY 
146 WHATSOEVER, SO LONG AS 
147 NOTHING YOU DO WITH THEM 
148 WOULD DENIGRATE THE NAME 
149 OF OUR LORD AND SAVIOR, 
150 JESUS CHRIST.
151 .
152 I MAKE ABSOLUTELY NO 
153 WARRANTY WHATSOEVER FOR 
154 ANY OF THESE ITEMS. YOU 
155 USE THEM ENTIRELY AT YOUR 
156 OWN RISK.
157 .
158 IF THEY DON'T WORK FOR
159 YOU, I COMMISERATE.
160 .
161 IF THEY CRASH YOUR SYSTEM, 
162 I SYMPATHIZE.
163 .
164 BUT I ACCEPT NO 
165 RESPONSIBILITY WHATSOEVER 
166 FOR ANY SUCH CONSEQUENCES. 
167 UNDER NO CIRCUMSTANCES 
168 WILL BDS SOFTWARE OR 
169 M. DAVID JOHNSON BE LIABLE 
170 FOR ANY NEGATIVE RESULTS 
171 OF ANY KIND WHICH YOU MAY 
172 EXPERIENCE FROM 
173 DOWNLOADING OR USING THESE 
174 ITEMS.
175 .
176 BDS SOFTWARE'S FORMER MAIL 
177 ADDRESS AT P.O. BOX 485 IN 
178 GLENVIEW, IL IS NO LONGER 
179 VALID. ANY MAIL SENT TO 
180 THAT ADDRESS WILL BE 
181 REJECTED BY THE U.S. 
182 POSTAL SERVICE. 
183 SEE MY CONTACT PAGE.
184 .
185 M.D.J. 2018/06/08
186 .
187 M. DAVID JOHNSON
188 MDJ@BDS-SOFT.COM
189 .
190 EOF
485 IN 
178 GLENVIEW, IL IS NO LONGER 
179 VALID. ANY MAIL SENT TO 
180 THAT ADDRESS WILL BE 
181 REJECTED BY THE U.S. 
182 POSTAL SERVICE. 
183 SEE MY CONTACT PAGEWERS
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
 = J + 1
20360 R2(J) = R1(I)
20370 NEXT I
20400 'SCRA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
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 ANS 1O&
d:Г*****&e:Г*&*f:Г* CAPITALS.BAS&Ag:Г* MDJ 2021/12/15&Ih:Г*&di:Г* A QUIZ TO IDENTIFY&|j:Г* CAPITALS OF USA&Ыk:Г* STATES AND TERRITORIES&гl:Г*&пm:Г*****&─n:ГVARIABLES LIST&чo:Г I, J = INDEXES AND COUNTERS'p:Г A = RESPONSE CODE'q:Г A$ = KEY PRESS'4r:Г CN$ = CITY NAMES ARRAY'Vs:Г QT  = # OF QUESTIONS ASKED'xt:Г QC  = # OF CORRECT ANSWERS'Пu:Г QP  = % CORRECT'йv:Г R, R1, R2, RR, RP '╠w:Г   = RANDOMIZATION VARIABLES'ьx:Г S = SCRAMBLE CODES ARRAY(y:Г S1  = STATE NUMBER(z:Г SN$ = STATE NAME(A{:Г SP$ = SCREEN DISPLAY STRING(a|:Г ST$ = STATES' DATA ARRAY(mа:Г*****(uк:Г*(Ч┤:Г* DISPLAY THE SPLASH SCREEN(Я╛:Г*(л╚:Г*****(▒╥Ю(╠▄SD$ │  Л(32) л  Л(158)(▌цА I │ 0 е 27(їЁSD$ │ SD$ л  Л(156)(¤·Л I)
SD$ │ SD$ л  Л(157) л  Л(32)),
З@64, SD$)Q
SD$ │  Л(32) л  Л(154) л  Л(206))b
"А I │ 0 е 25)z
,SD$ │ SD$ л  Л(204))В
6Л I)н
@SD$ │ SD$ л  Л(205) л  Л(149) л  Л(32))╗
JЗ@96, SD$)р
TSD$ │  Л(32) л  Л(154) л  Л(202))ё
^А I │ 0 е 25*
hSD$ │ SD$ л  Л(32)*
rЛ I*;
|SD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)*J
ЖЗ@128, SD$*o
РSD$ │  Л(32) л  Л(154) л  Л(202)*Ь
ЪSD$ │ SD$ л "  STATES AND TERRITORIES  "*╟
дSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)*╓
оЗ@160, SD$*√
╕SD$ │  Л(32) л  Л(154) л  Л(202)+(
┬SD$ │ SD$ л "      CAPITALS GAME       "+S
╠SD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)+b
╓З@192, SD$+З
рSD$ │  Л(32) л  Л(154) л  Л(202)+Ш
ъА I │ 0 е 25+п
ЇSD$ │ SD$ л  Л(32)+╖
■Л I+тSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)+ёЗ@224, SD$,SD$ │  Л(32) л  Л(154) л  Л(203),'&А I │ 0 е 25,?0SD$ │ SD$ л  Л(195),G:Л I,rDSD$ │ SD$ л  Л(199) л  Л(149) л  Л(32),БNЗ@256, SD$,ЬXSD$ │  Л(32) л  Л(155),нbА I │ 0 е 27,┼lSD$ │ SD$ л  Л(147),═vЛ I,юАSD$ │ SD$ л  Л(151) л  Л(32),¤КЗ@288, SD$-+ФЗ@352, "   PRESS ANY KEY  TO CONTINUE   "-ZЮЗ@448, "       BDS SOFTWARE  2021       ";-fи:Г*****-n▓:Г*-Б╝:Г* END SPLASH-Й╞:Г*-Х╨:Г*****-Я┌A$│ Т-▓фЕ A$│"" Бе 730-╛ю:Г*****-╞°:Г*-с:Г* LOADING THE SYSTEM-щ:Г*-ї:Г*****-√ Ю.!:Г RANDOMIZATION ARRAYS.#"М R1(5)./#М R2(4).;$М RR(4).A*З.^4З "  LOADING THE SYSTEM".t>З "  PLEASE WAIT".zHЗ.ЫL:ГRANDOMIZE THE RND FUNCTION.лVR │  Д(м Я).╦░:ГINITIALIZE SCRAMBLE CODES.┘║М S(24,4).ш─S(0,0) │ 0.ў╬S(0,1) │ 1/╪S(0,2) │ 2/тS(0,3) │ 3/$ьS(1,0) │ 0/3ЎS(1,1) │ 1/BS(1,2) │ 3/Q
S(1,3) │ 2/`S(2,0) │ 0/oS(2,1) │ 2/~(S(2,2) │ 1/Н2S(2,3) │ 3/Ь<S(3,0) │ 0/лFS(3,1) │ 2/║PS(3,2) │ 3/╔ZS(3,3) │ 1/╪xS(4,0) │ 0/чВS(4,1) │ 3/ЎМS(4,2) │ 10ЦS(4,3) │ 20аS(5,0) │ 00#кS(5,1) │ 302┤S(5,2) │ 20A╛S(5,3) │ 10P▄S(6,0) │ 10_цS(6,1) │ 00nЁS(6,2) │ 20}·S(6,3) │ 30МS(7,0) │ 10ЫS(7,1) │ 00кS(7,2) │ 30╣"S(7,3) │ 20╚@S(8,0) │ 10╫JS(8,1) │ 20цTS(8,2) │ 00ї^S(8,3) │ 31hS(9,0) │ 11rS(9,1) │ 21"|S(9,2) │ 311ЖS(9,3) │ 01AдS(10,0) │ 11QоS(10,1) │ 31a╕S(10,2) │ 01q┬S(10,3) │ 21Б╠S(11,0) │ 11С╓S(11,1) │ 31брS(11,2) │ 21▒ъS(11,3) │ 01┴S(12,0) │ 21╤S(12,1) │ 01сS(12,2) │ 11ё&S(12,3) │ 32
0S(13,0) │ 22:S(13,1) │ 02!DS(13,2) │ 321NS(13,3) │ 12AlS(14,0) │ 22QvS(14,1) │ 12aАS(14,2) │ 02qКS(14,3) │ 32БФS(15,0) │ 22СЮS(15,1) │ 12биS(15,2) │ 32▒▓S(15,3) │ 02┴╨S(16,0) │ 22╤┌S(16,1) │ 32сфS(16,2) │ 02ёюS(16,3) │ 13
°S(17,0) │ 23S(17,1) │ 33!S(17,2) │ 131S(17,3) │ 03A4S(18,0) │ 33Q>S(18,1) │ 03aHS(18,2) │ 13qRS(18,3) │ 23Б\S(19,0) │ 33СfS(19,1) │ 03бpS(19,2) │ 23▒zS(19,3) │ 13┴ШS(20,0) │ 33╤вS(20,1) │ 13смS(20,2) │ 03ё╢S(20,3) │ 24
└S(21,0) │ 34╩S(21,1) │ 14!╘S(21,2) │ 241▐S(21,3) │ 04A№S(22,0) │ 34Q	S(22,1) │ 24a	S(22,2) │ 04q	S(22,3) │ 14Б	$S(23,0) │ 34С	.S(23,1) │ 24б	8S(23,2) │ 14▒	BS(23,3) │ 04╞	─:ГLOAD STATE AND4█	╬:ГTERRITORY DATA4ы	╪М ST$(55,6)4№	тА I │ 0 е 545	ьА J │ 0 е 55	ЎН ST$(I,J)5#
Л J5+

Л I5=
(З "  OKAY -" 5b
2З "  ALL LOADED AND READY TO GO"5h
<З5Й
FЗ "  PRESS ANY KEY TO BEGIN"5П
PЗ5Ы
Z:Г*****5г
d:Г*5╖
n:Г* END LOADING5┐
x:Г*5╦
В:Г*****5╒
МA$│ Т5щ
ЦЕ A$│"" Бе 27005ї':Г*****5¤':Г*6
'$:Г* MAIN6'.:Г*6'8:Г*****68'B:Г S1  = STATE NUMBER6P'L:Г SN$ = STATE NAME6n'V:Г CN$ = CITY NAMES ARRAY6Р'`:Г QT  = # OF QUESTIONS ASKED6▓'j:Г QC  = # OF CORRECT ANSWERS6╔'t:Г QP  = % CORRECT6╓'~М CN$(4)6с'ИQT │ 06ь'ТQC │ 06ў'ЬQP │ 07'ж:ГRANDOMLY SELECT A7('░:ГSTATE OR TERRITORY7<'║S1 │  Д(55) м 17P'─SN$ │ ST$(S1,0)7j'╬:ГRANDOMLY SELECT AND7В'╪:ГSCRAMBLE FOUR OF 7Ь'т:ГTHE FIVE CITY NAMES7й'ьБж 200507╣'ЎА I │ 0 е 37╓(CN$(I) │ ST$(S1,RR(I)л1)7▐(
Л I7°(:ГMAIN DISPLAY SCREEN8!(З@                                                                                                                                                                                                                                                                                        ┴┼╔─!"#$%┼'()┬                          CAPITALSBAS RCAPITALSTX1 ╦CAPITALSTX2 &ГREADME  TXT ШLICENSE TXT \MORE    BASз                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                32,"  WHAT CITY IS THE CAPITAL OF"87((З@64,"  "лSN$л"?"8U(2З@128, "      A. "лCN$(0)8s(<З@160, "      B. "лCN$(1)8С(FЗ@192, "      C. "лCN$(2)8п(PЗ@224, "      D. "лCN$(3)8╫(ZЗ@256, "      E. NONE OF THE ABOVE"8¤(dЗ@320, "  PRESS A, B, C, D, OR E"9+(eЗ@352, "                                "9Y(fЗ@384, "                                "9З(gЗ@416, "                                "9║(nЗ@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";9╞(xA$ │  Т9█(ВЕ A$│"" Бе 103609 (МЕ (A$│"A" ▒ A$│ Л(97)) Бе 10470:#(ЦЕ (A$│"B" ▒ A$│ Л(98)) Бе 10480:G(аЕ (A$│"C" ▒ A$│ Л(99)) Бе 10490:l(кЕ (A$│"D" ▒ A$│ Л(100)) Бе 10500:С(┤Е (A$│"E" ▒ A$│ Л(101)) Бе 10510:Э(╛а 159,2:й(╚а 159,2:╒(╥З@320, "  YOU MUST PRESS ONE OF A TO E":т(▄Бе 10360:Ў(цA │ 0: Бе 10520;
(ЁA │ 1: Бе 10520;(·A │ 2: Бе 10520;2)A │ 3: Бе 10520;G)A │ 4: Бе 10520 ;])Е A │ RP Бе 10660;h)"а 78,1;s),а 78,1;~)6а 78,1;И)@а 5,3;╡)JЗ@320, "    **SORRY: THAT IS INCORRECT.";╬)TSP$ │ "  CORRECT = ";Ї)^Е RP│0 з SP$ │ SP$ л "A. "лCN$(0)<)hЕ RP│1 з SP$ │ SP$ л "B. "лCN$(1)<@)rЕ RP│2 з SP$ │ SP$ л "C. "лCN$(2)<f)|Е RP│3 з SP$ │ SP$ л "D. "лCN$(3)<Х)ЖЕ RP│4 з SP$ │ SP$ л "E.NONE OF THE ABOVE"<д)РЗ@352, SP$<▒)ЪБе 10720<╜)да 204,1<╔)оа 204,1<╒)╕а 204,1<с)┬а 218,3=)╠З@320, "    *** THAT IS CORRECT! ***"=)╓QC │ QC л 1=+)рQT │ QT л 1=F)ъQP │  Б(100 н (QCоQT))=y)ЇЗ@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";=ж)■З@384, "  PRESS C TO CONTINUE;Q TO QUIT"=▓*A$ │  Т=╟*Е A$│"" Бе 10760=ы*Е (A$│"C" ▒ A$│ Л(99)) Бе 10170>*&Е (A$│"Q" ▒ A$│ Л(113)) Бе 32700>*0а 159,2>(*:а 159,2>M*DЗ@384, "  YOU MUST PRESS C OR Q">Z*NБе 10760>f*X:Г*****>n*b:Г*>*l:Г* END MAIN>З*v:Г*>У*А:Г*****>ЯN :Г*****>иN*:Г* >╞N4:Г* SELECTION SUBROUTINE:>╬N>:Г*>┌NH:Г*****>ЇNR:ГRANDOM SELECTION OF?N\:ГFOUR OF FIVE.?$Nf:Г SELECTS FOUR ENTRIES?DNp:Г FROM FIVE POSSIBILITIES.?TNz:Г  INPUTS:?bNД:Г   NONE?{NО:Г  OUTPUTS (GLOBAL)?ЮNШ:Г   RR(4) = THE SELECTED FOUR?┼Nв:Г   RP    = POSITION OF "0" ENTRY?чNм:Г            (0, 1, 2, OR 3)@N╢:Г         = 4 IF "0" ENTRY @'N└:Г            NOT INCLUDED@=Nш:Г INITIALIZATION@MNЄА I │ 0 е 4@[N№R1(I) │ I@cOЛ I@nORP │ 4@OL:ГFIRST PASS@СOVR │  Д(5) м 1@ЬO`J │ м1@мOjА I │ 0 е 4@┴OtЕ R │ I Бе 20370@╧O~J │ J л 1@сOИR2(J) │ R1(I)@щOТЛ I@¤O░:ГSCRAMBLE PASSAO║J │  Д(24) м 1A O─А I │ 0 е 3A7O╬RR(I) │ R2(S(J,I))A?O╪Л IASP:ГPOSITION PASSAcPА I │ 0 е 3A}P(Е RR(I) ┤▓ 0 Бе 20540AИP2RP │ IAРP<Л IAЦPxРAвPВ:Г*****AкPМ:Г*A╣PЦ:Г* ENDSUBA┴Pа:Г*A═Pк:Г*****A┘aи:Г*****Aсa▓:Г*Ba╝:Г* STATES AND TERRITORIESBaф:Г* NAME AND CAPITALS DATAB'aю:Г*B3a°:Г*****BAbЖ ALABAMABRbЖ MONTGOMERYBcb Ж BIRMINGHAMBtb*Ж HUNTSVILLEBБb4Ж MOBILEBТb>Ж TUSCALOOSABЯbpЖ ALASKABмbzЖ JUNEAUB╝bДЖ ANCHORAGEB╠bОЖ FAIRBANKSB┘bШЖ BADGERBэbвЖ KNIK-FAIRVIEWCb╘Ж AMERICAN SAMOACb▐Ж PAGO PAGOCbшЖ TAFUNAC+bЄЖ LEONEC9b№Ж FALENIUCCcЖ AUACQc8Ж ARIZONAC_cBЖ PHOENIXClcLЖ TUCSONCwcVЖ MESACЖc`Ж CHANDLERCЧcjЖ SCOTTSDALECжcЬЖ ARKANSASC╕cжЖ LITTLE ROCKC╦c░Ж FAYETTEVILLEC▄c║Ж FORT SMITHCэc─Ж SPRINGDALEC¤c╬Ж JONESBORODdЖ CALIFORNIADd
Ж SACRAMENTOD1dЖ LOS ANGELESDAdЖ SAN DIEGODPd(Ж SAN JOSEDdd2Ж SAN FRANCISCODsddЖ COLORADODАdnЖ DENVERDЧdxЖ COLORADO SPRINGSDдdВЖ AURORAD╖dМЖ FORT COLLINSD╞dЦЖ LAKEWOODD╪d╚Ж CONNECTICUTDчd╥Ж HARTFORDD°d▄Ж BRIDGEPORTEdцЖ NEW HAVENEdЁЖ STAMFORDE'd·Ж WATERBURYE6e,Ж DELAWAREEBe6Ж DOVERESe@Ж WILMINGTONE`eJЖ NEWARKEqeTЖ MIDDLETOWNE|e^Ж BEAREКeРЖ FLORIDAEЬeЪЖ TALLAHASSEEEпeдЖ JACKSONVILLEE╗eоЖ MIAMIE╟e╕Ж TAMPAE╒e┬Ж ORLANDOEуeЇЖ GEORGIAEёe■Ж ATLANTAE fЖ AUGUSTAFfЖ COLUMBUSF!fЖ MACON COUNTYF0f&Ж SAVANNAHF;fXЖ GUAMFIfbЖ HAGATNAFVflЖ DEDEDOFafvЖ YIGOFpfАЖ MANGILAOFАfКЖ BARRIGADAFНf╝Ж HAWAIIFЬf╞Ж HONOLULUFнf╨Ж PEARL CITYF╕f┌Ж HILOF╞fфЖ WAIPAHUF╙fюЖ KAILUAF▀g Ж IDAHOFыg*Ж BOISEF·g4Ж MERIDIANGg>Ж NAMPAGgHЖ IDAHO FALLSG'gRЖ CALDWELLG6gДЖ ILLINOISGHgОЖ SPRINGFIELDGVgШЖ CHICAGOGcgвЖ AURORAGtgмЖ NAPERVILLEGБg╢Ж JOLIETGПgшЖ INDIANAGвgЄЖ INDIANAPOLISG│g№Ж FORT WAYNEG─hЖ EVANSVILLEG╒hЖ SOUTH BENDGтhЖ CARMELGэhLЖ IOWAG■hVЖ DES MOINESHh`Ж CEDAR RAPIDSH!hjЖ DAVENPORTH2htЖ SIOUX CITYHBh~Ж IOWA CITYHOh░Ж KANSASH\h║Ж TOPEKAHjh─Ж WICHITAH~h╬Ж OVERLAND PARKHРh╪Ж KANSAS CITYHЯhтЖ LAWRENCEHоiЖ KENTUCKYH╛iЖ FRANKFORTH╧i(Ж LOUISVILLEH▀i2Ж LEXINGTONHєi<Ж BOWLING GREENIiFЖ OWENSBOROIixЖ LOUISIANAI%iВЖ BATON ROUGEI7iМЖ NEW ORLEANSIHiЦЖ SHREVEPORTIWiаЖ METAIRIEIgiкЖ LAFAYETTEIsi▄Ж MAINEIБiцЖ AUGUSTAIРiЁЖ PORTLANDIЯi·Ж LEWISTONIмjЖ BANGORI╣jЖ AUBURNI╚j@Ж MARYLANDI╪jJЖ ANNAPOLISIшjTЖ BALTIMOREIўj^Ж COLUMBIAJjhЖ GERMANTOWNJjrЖ SILVER SPRINGJ0jдЖ MASSACHUSETTSJ=jоЖ BOSTONJMj╕Ж WORCESTERJ_j┬Ж SPRINGFIELDJoj╠Ж CAMBRIDGEJ|j╓Ж LOWELLJЛkЖ MICHIGANJЩkЖ LANSINGJзkЖ DETROITJ║k&Ж GRAND RAPIDSJ╟k0Ж WARRENJ▐k:Ж STERLING HEIGHTSJюklЖ MINNESOTAJ kvЖ SAINT PAULKkАЖ MINNEAPOLISK!kКЖ ROCHESTERK3kФЖ BLOOMINGTONK@kЮЖ DULUTHKRk╨Ж MISSISSIPPIK`k┌Ж JACKSONKokфЖ GULFPORTKkюЖ SOUTHAVENKМk°Ж BILOXIKЮlЖ HATTIESBURGKнl4Ж MISSOURIK┬l>Ж JEFFERSON CITYK╘lHЖ KANSAS CITYKцlRЖ SAINT LOUISK°l\Ж SPRINGFIELDLlfЖ COLUMBIALlШЖ MONTANAL"lвЖ HELENAL1lмЖ BILLINGSL@l╢Ж MISSOULSLRl└Ж GREAT FALLSL`l╩Ж BOZEMANLol№Ж NEBRASKAL}mЖ LINCOLNLЙmЖ OMAHALШmЖ BELLEVUELлm$Ж GRAND ISLANDL╣m.Ж KEARNEYL╞m`Ж NEVADAL╪mjЖ CARSON CITYLшmtЖ LAS VEGASL°m~Ж HENDERSONMmИЖ RENOMmТЖ PARADISEM&m─Ж NEW HAMPSHIREM4m╬Ж CONCORDMEm╪Ж MANCHESTERMRmтЖ NASHUAM^mьЖ DOVERMnmЎЖ ROCHESTERMn(Ж NEW JERSEYMНn2Ж TRENTONMЪn<Ж NEWARKMмnFЖ JERSEY CITYM╗nPЖ PATERSONM╦nZЖ ELIZABETHM▄nМЖ NEW MEXICOMыnЦЖ SANTA FEM¤nаЖ ALBUQUERQUENnкЖ LAS CRUCESNn┤Ж RIO RANCHON-n╛Ж ROSWELLN<nЁЖ NEW YORKNIn·Ж ALBANYN]oЖ NEW YORK CITYNkoЖ BUFFALON{oЖ ROCHESTERNЙo"Ж YONKERSNЮoTЖ NORTH CAROLINANмo^Ж RALEIGHN╝ohЖ CHARLOTTEN═orЖ GREENSBORON┌o|Ж DURHAMNюoЖЖ WINSTON-SALEMO
o╕Ж NORTH DAKOTAOo┬Ж BISMARKOo╠Ж FARGOO-o╓Ж GRAND FORKSO9oрЖ MINOTOIoъЖ WILLISTONOlpЖ THE NORTHERN MARIANA ISLANDSOyp&Ж SAIPANOИp0Ж SAN JOSEOФp:Ж PAGANOвpDЖ AGRIHANO▒pNЖ ALAMAGANO╝pАЖ OHIOO╦pКЖ COLUMBUSO█pФЖ CLEVELANDOьpЮЖ CINCINNATIO∙pиЖ TOLEDOPp▓Ж AKRONPpфЖ OKLAHOMAP(pюЖ OKLAHOMA CITYP4p°Ж TULSAPAqЖ NORMANPTqЖ BROKEN ARROWPaqЖ EDMONDPnqHЖ OREGONPzqRЖ SALEMPЙq\Ж PORTLANDPЦqfЖ EUGENEPжqpЖ HILLSBOROP┤qzЖ GRESHAMP╟qмЖ PENNSYLVANIAP╪q╢Ж HARRISBURGPыq└Ж PHILADELPHIAP№q╩Ж PITTSBURGHQq╘Ж ALLENTOWNQq▐Ж ERIEQ)rЖ PUERTO RICOQ8rЖ SAN JUANQFr$Ж BAYAMONQUr.Ж CAROLINAQar8Ж PONCEQnrBЖ CAGUASQБrtЖ RHODE ISLANDQТr~Ж PROVIDENCEQаrИЖ WARWICKQпrТЖ CRANSTONQ┐rЬЖ PAWTUCKETQ╨rжЖ WOONSOCKETQхr╪Ж SOUTH CAROLINAQЇrтЖ COLUMBIARrьЖ CHARLESTONRrЎЖ MOUNT PLEASANTR*sЖ ROCK HILLR;s
Ж GREENVILLERNs<Ж SOUTH DAKOTAR[sFЖ PIERRERmsPЖ SIOUX FALLSR~sZЖ RAPID CITYRНsdЖ ABERDEENRЭsnЖ BROOKINGSRнsаЖ TENNESSEER╜sкЖ NASHVILLER╦s┤Ж MEMPHISR█s╛Ж KNOXVILLERэs╚Ж CHATTANOOGAR s╥Ж CLARKSVILLEStЖ TEXASStЖ AUSTINS&tЖ HOUSTONS8t"Ж SAN ANTONIOSEt,Ж DALLASSVt6Ж FORT WORTHSathЖ UTAHSvtrЖ SALT LAKE CITYSНt|Ж WEST VALLEY CITYSЯtЖЖ WEST JORDANSлtРЖ PROVOS╖tЪЖ OGDENS┼t╠Ж VERMONTS╓t╓Ж MONTPELIERSчtрЖ BURLINGTONSїtъЖ RUTLANDT
tЇЖ ESSEX JUNCTIONTt■Ж BARRET%u0Ж VIRGINIAT4u:Ж RICHMONDTIuDЖ VIRGINIA BEACHTZuNЖ CHESAPEAKEThuXЖ NORFOLKTxubЖ ARLINGTONTСuФЖ THE VIRGIN ISLANDSTиuЮЖ CHARLOTTE AMALIET│uиЖ TUTUT┬u▓Ж CRUZ BAYT╒u╝Ж FREDERIKSTEDTщu╞Ж CHRISTIANSTEDT·u°Ж WASHINGTONUvЖ OLYMPIAUvЖ SEATTLEU$vЖ SPOKANEU1v Ж TACOMAUAv*Ж VANCOUVERUUv\Ж WEST VIRGINIAUfvfЖ CHARLESTONUwvpЖ HUNTINGTONUИvzЖ MORGANTOWNUЪvДЖ PARKERSBURGUйvОЖ WHEELINGU╣v└Ж WISCONSINU╟v╩Ж MADISONU╫v╘Ж MILWAUKEEUчv▐Ж GREEN BAYUїvшЖ KENOSHAVvЄЖ RACINEVw$Ж WYOMINGVw.Ж CHEYENNEV,w8Ж CASPERV:wBЖ LARAMIEVIwLЖ GILLETTEV\wVЖ ROCK SPRINGSVhwИ:Г*****VpwТ:Г*VДwЬ:Г* END OF DATAVМwж:Г*VШw░:Г*****VЮ╝ЮV┴╞З:З "   FINAL SCORE = ";QP;"%"Vт╨З:З "   THANKS FOR PLAYING!"V ┌З "     COME BACK SOON."WфЗ:З "   M. DAVID JOHNSON"W:юЗ "   INFO@BDS-SOFT.COM"WH°З:З:З:З:ЗWN КOCK SPRINGSVhwИ:Г*****VpwТ:Г*VДwЬ:Г* END OF DATAVМwж:Г*VШw░:Г*****VЮ╝ЮV┴╞З:З "   FINAL SCORE = ";QP;"%"Vт╨З:З "   THANKS FOR PLAYING!"V ┌З "     COME BACK SOON."                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
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
*
32700 CLS
32710 PRINT:PRINT "   FINAL SCORE = ";QP;"%"
32720 PRINT:PRINT "   THANKS FOR PLAYING!"
32730 PRINT "     COME BA