00100 '*****
00101 '*
00102 '* CONTINEN.BAS
00103 '* MDJ 2022/03/17
00104 '*
00105 '* A QUIZ TO IDENTIFY IN
00106 '* WHICH CONTINENT A GIVEN
00107 '* COUNTRY, STATE, OR RIVER
00108 '* IS FOUND
00109 '*
00110 '* SOURCE:
00111 '* HTTPS://WORLDPOPULATIONREVIEW.COM/
00112 '*   COUNTRY-RANKINGS/
00113 '*   LIST-OF-COUNTRIES-BY-CONTINENT
00114 '*
00115 '*****

00120 'GO TO THE PROGRAM'S
00130 'EXECUTIVE ROUTINE
00140 GOTO 4220

00200 '*****
00210 '* 
00220 '* SELECTION SUBROUTINE:
00230 '*
00240 '* THIS ROUTINE IS UNIFORM
00250 '* AND REMAINS THE SAME FOR
00260 '* EACH AND EVERY QUIZ GAME
00270 '*
00280 '*****

00290 'RANDOM SELECTION OF
00300 'FOUR OF FIVE.
00310 ' SELECTS FOUR ENTRIES
00320 ' FROM FIVE POSSIBILITIES.
00330 '  INPUTS:
00340 '   NONE
00350 '  OUTPUTS (GLOBAL)
00360 '   RR(4) = THE SELECTED FOUR
00370 '   RP    = POSITION OF "0" ENTRY
00380 '            (0, 1, 2, OR 3)
00390 '         = 4 IF "0" ENTRY 
00400 '            NOT INCLUDED

00490 ' INITIALIZATION
00500 FOR I = 0 TO 4
00510   R1(I) = I
00520 NEXT I
00530 RP = 4

00540 'FIRST PASS
00550 R = RND(5) - 1
00560 J = -1
00570 FOR I = 0 TO 4
00580   IF R = I GOTO 610
00590   J = J + 1
00600   R2(J) = R1(I)
00610 NEXT I

00620 'SCRAMBLE PASS
00630 J = RND(24) - 1
00640 FOR I = 0 TO 3
00650   RR(I) = R2(S(J,I))
00660 NEXT I

00670 'POSITION PASS
00680 FOR I = 0 TO 3
00690   IF RR(I) <> 0 GOTO 710
00700   RP = I
00710 NEXT I

00720 RETURN

00730 '*****
00740 '*
00750 '* ENDSUB
00760 '*
00770 '*****

04000 '*****
04010 '*
04020 '* EXECUTIVE 
04030 '*
04040 '*****

04050 'VARIABLES LIST
04060 ' I, J = INDEXES AND COUNTERS
04070 ' A = RESPONSE CODE
04080 ' A$ = KEY PRESS
04090 ' N = NUMBER OF QUESTIONS 
04100 ' Q$ = QUESTION
04110 ' QA$ = QUESTION ANSWERS ARRAY
04120 ' QD$ = QUESTIONS DATA ARRAY
04130 ' QN  = QUESTION NUMBER
04140 ' QT  = # OF QUESTIONS ASKED
04150 ' QC  = # OF CORRECT ANSWERS
04160 ' QP  = % CORRECT
04170 ' R, R1, R2, RR, RP 
04180 '   = RANDOMIZATION VARIABLES
04190 ' S = SCRAMBLE CODES ARRAY
04200 ' SD$ = SCREEN DISPLAY TEXT

04210 'GO DISPLAY SPLASH SCREEN
04220 GOSUB 29600

04230 'GO INITIALIZE THE SYSTEM
04240 GOSUB 27600

04250 'GO LOAD QUESTIONS DATA
04260 GOSUB 10600

04270 'GO ENTER THE MAIN ROUTINE
04280 GOTO 5110

04290 '*****
04300 '*
04310 '* END EXECUTIVE
04320 '*
04330 '*****

05000 '*****
05010 '*
05020 '* MAIN
05030 '*
05040 '*****

05050 ' QN  = QUESTION NUMBER
05060 ' Q$ = QUESTION
05070 ' QA$ = QUESTION ANSWERS ARRAY
05080 ' QT  = # OF QUESTIONS ASKED
05090 ' QC  = # OF CORRECT ANSWERS
05100 ' QP  = % CORRECT
05110 DIM QA$(4)
05120 QT = 0
05130 QC = 0
05140 QP = 0

05150 'RANDOMLY SELECT A
05160 'QUESTION
05170 'ADJUST RND FOR TOTAL
05180 'NUMBER OF QUESTIONS
05190 QN = RND(80) - 1
05200 Q$ = QD$(QN,0)

05210 'RANDOMLY SELECT AND
05220 'SCRAMBLE FOUR OF 
05230 'THE FIVE ANSWERS
05240 GOSUB 500
05250 FOR I = 0 TO 3
05260   QA$(I) = QD$(QN,RR(I)+1)
05270 NEXT I

05280 'MAIN DISPLAY SCREEN
05290 PRINT@32,"  ON WHICH CONTINENT IS:"
05300 PRINT@64,"  "+Q$+" ?"
05310 PRINT@128, "      A. "+QA$(0)
05320 PRINT@160, "      B. "+QA$(1)
05330 PRINT@192, "      C. "+QA$(2)
05340 PRINT@224, "      D. "+QA$(3)
05350 PRINT@256, "      E. NONE OF THE ABOVE"
05360 PRINT@320, "  PRESS A, B, C, D, OR E"
05370 PRINT@352, "                                "
05380 PRINT@384, "                                "
05390 PRINT@416, "                                "
05400 PRINT@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";

05410 A$ = INKEY$
05420 IF A$="" GOTO 5410

05430 IF (A$="A" OR A$=CHR$(97)) GOTO 5520
05440 IF (A$="B" OR A$=CHR$(98)) GOTO 5530
05450 IF (A$="C" OR A$=CHR$(99)) GOTO 5540
05460 IF (A$="D" OR A$=CHR$(100)) GOTO 5550
05470 IF (A$="E" OR A$=CHR$(101)) GOTO 5560
05480 SOUND 159,2
05490 SOUND 159,2
05500 PRINT@320, "  YOU MUST PRESS ONE OF A TO E"
05510 GOTO 5410

05520 A = 0: GOTO 5570
05530 A = 1: GOTO 5570
05540 A = 2: GOTO 5570
05550 A = 3: GOTO 5570
05560 A = 4: GOTO 5570	

05570 IF A = RP GOTO 5710
05580 SOUND 78,1
05590 SOUND 78,1
05600 SOUND 78,1
05610 SOUND 5,3
05620 PRINT@320, "    **SORRY: THAT IS INCORRECT."
05630 SD$ = "  SEE: "
05640 IF RP=0 THEN SD$ = SD$ + "A. "+QA$(0)
05650 IF RP=1 THEN SD$ = SD$ + "B. "+QA$(1)
05660 IF RP=2 THEN SD$ = SD$ + "C. "+QA$(2)
05670 IF RP=3 THEN SD$ = SD$ + "D. "+QA$(3)
05680 IF RP=4 THEN SD$ = SD$ + "E.NONE OF THE ABOVE"
05690 PRINT@352, SD$
05700 GOTO 5770

05710 SOUND 204,1
05720 SOUND 204,1
05730 SOUND 204,1
05740 SOUND 218,3
05750 PRINT@320, "    *** THAT IS CORRECT! ***"
05760 QC = QC + 1

05770 QT = QT + 1
05780 QP = INT(100 * (QC/QT))
05790 PRINT@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";
05800 PRINT@384, "  PRESS C TO CONTINUE;Q TO QUIT"

05810 A$ = INKEY$
05820 IF A$="" GOTO 5810

05830 IF (A$="C" OR A$=CHR$(99)) GOTO 5190
05840 IF (A$="Q" OR A$=CHR$(113)) GOTO 5890
05850 SOUND 159,2
05860 SOUND 159,2
05870 PRINT@384, "  YOU MUST PRESS C OR Q"
05880 GOTO 5810

05890 CLS
05900 PRINT:PRINT "   FINAL SCORE = ";QP;"%"
05910 PRINT:PRINT "   THANKS FOR PLAYING!"
05920 PRINT "     COME BACK SOON."
05930 PRINT:PRINT "   M. DAVID JOHNSON"
05940 PRINT "   INFO@BDS-SOFT.COM"
05950 PRINT:PRINT:PRINT:PRINT:PRINT

05960 GOTO 32767

05970 '*****
05980 '*
05990 '* END MAIN
06000 '*
06010 '*****

10500 '*****
10510 '*
10520 '* STANDARD BASIC QUIZ GAMES
10530 '* DATA LOADING ROUTINE
10540 '*
10550 '*****

10560 'THIS DATA MUST BE
10570 'INDIVIDUALIZED FOR
10580 'EACH SPECIFIC QUIZ

10590 'N = NUMBER OF QUESTIONS
10600 N = 80

10610 'QD$ = QUESTIONS DATA ARRAY
10620 DIM QD$(N,6)
10630 FOR I = 0 TO N-1
10640   FOR J = 0 TO 5
10650     READ QD$(I,J)
10660   NEXT J
10670 NEXT I

10680 PRINT "  OKAY -" 
10690 PRINT "  ALL LOADED AND READY TO GO"
10700 PRINT
10710 PRINT "  PRESS ANY KEY TO BEGIN"
10720 PRINT

10730 A$=INKEY$
10740 IF A$="" GOTO 10730

10750 RETURN

10760 '*****
10770 '*
10780 '* END DATA LOADING
10790 '*
10800 '*****

10810 '*****
10820 '*
10830 '* START OF DATA LIST
10840 '*
10850 '*****

12500 DATA ALBANIA
12510 DATA EUROPE
12520 DATA SOUTH AMERICA
12530 DATA ANTARTICA
12540 DATA AFRICA
12550 DATA NORTH AMERICA

12600 DATA AUSTRIA
12610 DATA EUROPE
12620 DATA AFRICA
12630 DATA NORTH AMERICA
12640 DATA ASIA
12650 DATA SOUTH AMERICA

12700 DATA BELGIUM
12710 DATA EUROPE
12720 DATA NORTH AMERICA
12730 DATA OCEANIA AND AUSTRALIA
12740 DATA ASIA
12750 DATA AFRICA

12800 DATA BULGARIA
12810 DATA EUROPE
12820 DATA OCEANIA AND AUSTRALIA
12830 DATA AFRICA
12840 DATA ANTARTICA
12850 DATA SOUTH AMERICA

12900 DATA CZECH REPUBLIC
12910 DATA EUROPE
12920 DATA OCEANIA AND AUSTRALIA
12930 DATA AFRICA
12940 DATA ASIA
12950 DATA NORTH AMERICA

13000 DATA DENMARK
13010 DATA EUROPE
13020 DATA ASIA
13030 DATA ANTARTICA
13040 DATA NORTH AMERICA
13050 DATA OCEANIA AND AUSTRALIA

13200 DATA FINLAND
13210 DATA EUROPE
13220 DATA SOUTH AMERICA
13230 DATA AFRICA
13240 DATA OCEANIA AND AUSTRALIA
13250 DATA ASIA

13300 DATA FRANCE
13310 DATA EUROPE
13320 DATA AFRICA
13330 DATA SOUTH AMERICA
13340 DATA ANTARTICA
13350 DATA NORTH AMERICA

13700 DATA GERMANY
13710 DATA EUROPE
13720 DATA ANTARTICA
13730 DATA OCEANIA AND AUSTRALIA
13740 DATA ASIA
13750 DATA NORTH AMERICA

13800 DATA GREECE
13810 DATA EUROPE
13820 DATA SOUTH AMERICA
13830 DATA NORTH AMERICA
13840 DATA ANTARTICA
13850 DATA AFRICA

13860 '***** 10

13900 DATA HUNGARY
13910 DATA EUROPE
13920 DATA ASIA
13930 DATA SOUTH AMERICA
13940 DATA NORTH AMERICA
13950 DATA ANTARTICA

14000 DATA ITALY
14010 DATA EUROPE
14020 DATA SOUTH AMERICA
14030 DATA OCEANIA AND AUSTRALIA
14040 DATA AFRICA
14050 DATA ANTARTICA

14100 DATA LUXEMBOURG
14110 DATA EUROPE
14120 DATA NORTH AMERICA
14130 DATA OCEANIA AND AUSTRALIA
14140 DATA ANTARTICA
14150 DATA AFRICA

14200 DATA NETHERLANDS
14210 DATA EUROPE
14220 DATA AFRICA
14230 DATA NORTH AMERICA
14240 DATA OCEANIA AND AUSTRALIA
14250 DATA SOUTH AMERICA

14400 DATA NORWAY
14410 DATA EUROPE
14420 DATA AFRICA
14430 DATA ASIA
14440 DATA SOUTH AMERICA
14450 DATA NORTH AMERICA

14500 DATA POLAND
14510 DATA EUROPE
14520 DATA ANTARTICA
14530 DATA SOUTH AMERICA
14540 DATA NORTH AMERICA
14550 DATA ASIA

14900 DATA PORTUGAL
14910 DATA EUROPE
14920 DATA NORTH AMERICA
14930 DATA ANTARTICA
14940 DATA ASIA
14950 DATA AFRICA

15000 DATA SPAIN
15010 DATA EUROPE
15020 DATA ANTARTICA
15030 DATA SOUTH AMERICA
15040 DATA ASIA
15050 DATA NORTH AMERICA

15100 DATA SWEDEN
15110 DATA EUROPE
15120 DATA SOUTH AMERICA
15130 DATA OCEANIA AND AUSTRALIA
15140 DATA AFRICA
15150 DATA ASIA

15200 DATA UNITED KINGDOM
15210 DATA EUROPE
15220 DATA SOUTH AMERICA
15230 DATA AFRICA
15240 DATA OCEANIA AND AUSTRALIA
15250 DATA NORTH AMERICA

15260 '***** 20

15300 DATA ALGERIA
15310 DATA AFRICA
15320 DATA OCEANIA AND AUSTRALIA
15330 DATA SOUTH AMERICA
15340 DATA ASIA
15350 DATA NORTH AMERICA

15400 DATA CAMEROON
15410 DATA AFRICA
15420 DATA EUROPE
15430 DATA NORTH AMERICA
15440 DATA SOUTH AMERICA
15450 DATA ASIA

15600 DATA CONGO
15610 DATA AFRICA
15620 DATA SOUTH AMERICA
15630 DATA ANTARTICA
15640 DATA EUROPE
15650 DATA OCEANIA AND AUSTRALIA

15700 DATA ERITREA
15710 DATA AFRICA
15720 DATA ASIA
15730 DATA OCEANIA AND AUSTRALIA
15740 DATA EUROPE
15750 DATA SOUTH AMERICA

16100 DATA ETHIOPIA
16110 DATA AFRICA
16120 DATA SOUTH AMERICA
16130 DATA ANTARTICA
16140 DATA EUROPE
16150 DATA NORTH AMERICA

16200 DATA GHANA
16210 DATA AFRICA
16220 DATA SOUTH AMERICA
16230 DATA NORTH AMERICA
16240 DATA ASIA
16250 DATA ANTARTICA

16300 DATA KENYA
16310 DATA AFRICA
16320 DATA ANTARTICA
16330 DATA ASIA
16340 DATA SOUTH AMERICA
16350 DATA OCEANIA AND AUSTRALIA

16400 DATA LIBYA
16410 DATA AFRICA
16420 DATA SOUTH AMERICA
16430 DATA EUROPE
16440 DATA ANTARTICA
16450 DATA NORTH AMERICA

16500 DATA NIGERIA
16510 DATA AFRICA
16520 DATA ANTARTICA
16530 DATA ASIA
16540 DATA OCEANIA AND AUSTRALIA
16550 DATA EUROPE

16600 DATA UGANDA
16610 DATA AFRICA
16620 DATA OCEANIA AND AUSTRALIA
16630 DATA NORTH AMERICA
16640 DATA ANTARTICA
16650 DATA ASIA

16660 '***** 30

16800 DATA AFGHANISTAN
16810 DATA ASIA
16820 DATA AFRICA
16830 DATA ANTARTICA
16840 DATA NORTH AMERICA
16850 DATA SOUTH AMERICA

16900 DATA CAMBODIA
16910 DATA ASIA
16920 DATA EUROPE
16930 DATA OCEANIA AND AUSTRALIA
16940 DATA ANTARTICA
16950 DATA SOUTH AMERICA

17300 DATA CHINA
17310 DATA ASIA
17320 DATA OCEANIA AND AUSTRALIA
17330 DATA SOUTH AMERICA
17340 DATA ANTARTICA
17350 DATA NORTH AMERICA

17400 DATA IRAN
17410 DATA ASIA
17420 DATA EUROPE
17430 DATA SOUTH AMERICA
17440 DATA OCEANIA AND AUSTRALIA
17450 DATA AFRICA

17500 DATA IRAQ
17510 DATA ASIA
17520 DATA EUROPE
17530 DATA NORTH AMERICA
17540 DATA SOUTH AMERICA
17550 DATA AFRICA

17600 DATA INDIA
17610 DATA ASIA
17620 DATA ANTARTICA
17630 DATA SOUTH AMERICA
17640 DATA AFRICA
17650 DATA NORTH AMERICA

17700 DATA JAPAN
17710 DATA ASIA
17720 DATA OCEANIA AND AUSTRALIA
17730 DATA AFRICA
17740 DATA EUROPE
17750 DATA NORTH AMERICA

17800 DATA MONGOLIA
17810 DATA ASIA
17820 DATA SOUTH AMERICA
17830 DATA NORTH AMERICA
17840 DATA AFRICA
17850 DATA OCEANIA AND AUSTRALIA

18000 DATA NORTH KOREA
18010 DATA ASIA
18020 DATA AFRICA
18030 DATA OCEANIA AND AUSTRALIA
18040 DATA ANTARTICA
18050 DATA SOUTH AMERICA

18100 DATA VIETNAM
18110 DATA ASIA
18120 DATA OCEANIA AND AUSTRALIA
18130 DATA AFRICA
18140 DATA SOUTH AMERICA
18150 DATA NORTH AMERICA

18160 '***** 40

18500 DATA BAHAMAS
18510 DATA NORTH AMERICA
18520 DATA AFRICA
18530 DATA ANTARTICA
18540 DATA OCEANIA AND AUSTRALIA
18550 DATA SOUTH AMERICA

18600 DATA CANADA
18610 DATA NORTH AMERICA
18620 DATA OCEANIA AND AUSTRALIA
18630 DATA SOUTH AMERICA
18640 DATA ASIA
18650 DATA AFRICA

18700 DATA CUBA
18710 DATA NORTH AMERICA
18720 DATA SOUTH AMERICA
18730 DATA ASIA
18740 DATA ANTARTICA
18750 DATA EUROPE

18800 DATA EL SALVADOR
18810 DATA NORTH AMERICA
18820 DATA EUROPE
18830 DATA SOUTH AMERICA
18840 DATA ANTARTICA
18850 DATA AFRICA

18900 DATA MEXICO
18910 DATA NORTH AMERICA
18920 DATA OCEANIA AND AUSTRALIA
18930 DATA AFRICA
18940 DATA SOUTH AMERICA
18950 DATA EUROPE

19000 DATA NICARAGUA
19010 DATA NORTH AMERICA
19020 DATA SOUTH AMERICA
19030 DATA EUROPE
19040 DATA ANTARTICA
19050 DATA AFRICA

19200 DATA PANAMA
19210 DATA NORTH AMERICA
19220 DATA OCEANIA AND AUSTRALIA
19230 DATA ANTARTICA
19240 DATA SOUTH AMERICA
19250 DATA AFRICA

19300 DATA JAMAICA
19310 DATA NORTH AMERICA
19320 DATA EUROPE
19330 DATA ANTARTICA
19340 DATA SOUTH AMERICA
19350 DATA OCEANIA AND AUSTRALIA

19700 DATA SAINT LUCIA
19710 DATA NORTH AMERICA
19720 DATA ANTARTICA
19730 DATA AFRICA
19740 DATA SOUTH AMERICA
19750 DATA OCEANIA AND AUSTRALIA

19800 DATA UNITED STATES OF AMERICA
19810 DATA NORTH AMERICA
19820 DATA AFRICA
19830 DATA OCEANIA AND AUSTRALIA
19840 DATA ANTARTICA
19850 DATA SOUTH AMERICA

19860 '***** 50

19900 DATA NEW SOUTH WALES
19910 DATA OCEANIA AND AUSTRALIA
19920 DATA AFRICA
19930 DATA SOUTH AMERICA
19940 DATA EUROPE
19950 DATA ANTARTICA

20000 DATA QUEENSLAND
20010 DATA OCEANIA AND AUSTRALIA
20020 DATA ASIA
20030 DATA NORTH AMERICA
20040 DATA EUROPE
20050 DATA SOUTH AMERICA

20100 DATA TASMANIA
20110 DATA OCEANIA AND AUSTRALIA
20120 DATA NORTH AMERICA
20130 DATA AFRICA
20140 DATA ASIA
20150 DATA SOUTH AMERICA

20200 DATA FIJI
20210 DATA OCEANIA AND AUSTRALIA
20220 DATA NORTH AMERICA
20230 DATA ASIA
20240 DATA SOUTH AMERICA
20250 DATA ANTARTICA

20400 DATA NAURU
20410 DATA OCEANIA AND AUSTRALIA
20420 DATA NORTH AMERICA
20430 DATA ANTARTICA
20440 DATA ASIA
20450 DATA SOUTH AMERICA

20500 DATA NEW ZEALAND
20510 DATA OCEANIA AND AUSTRALIA
20520 DATA NORTH AMERICA
20530 DATA EUROPE
20540 DATA SOUTH AMERICA
20550 DATA AFRICA

20900 DATA PALAU
20910 DATA OCEANIA AND AUSTRALIA
20920 DATA EUROPE
20930 DATA SOUTH AMERICA
20940 DATA AFRICA
20950 DATA ANTARTICA

21000 DATA PAPUA NEW GUINEA
21010 DATA OCEANIA AND AUSTRALIA
21020 DATA ANTARTICA
21030 DATA EUROPE
21040 DATA NORTH AMERICA
21050 DATA ASIA

21100 DATA SAMOA
21110 DATA OCEANIA AND AUSTRALIA
21120 DATA ANTARTICA
21130 DATA AFRICA
21140 DATA ASIA
21150 DATA NORTH AMERICA

21200 DATA TONGA
21210 DATA OCEANIA AND AUSTRALIA
21220 DATA SOUTH AMERICA
21230 DATA EUROPE
21240 DATA ASIA
21250 DATA ANTARTICA

21260 '***** 60

21300 DATA ARGENTINA
21310 DATA SOUTH AMERICA
21320 DATA ASIA
21330 DATA NORTH AMERICA
21340 DATA OCEANIA AND AUSTRALIA
21350 DATA AFRICA

21400 DATA BOLIVIA
21410 DATA SOUTH AMERICA
21420 DATA OCEANIA AND AUSTRALIA
21430 DATA AFRICA
21440 DATA EUROPE
21450 DATA NORTH AMERICA

21600 DATA BRAZIL
21610 DATA SOUTH AMERICA
21620 DATA EUROPE
21630 DATA ANTARTICA
21640 DATA ASIA
21650 DATA AFRICA

21700 DATA CHILE
21710 DATA SOUTH AMERICA
21720 DATA ASIA
21730 DATA ANTARTICA
21740 DATA OCEANIA AND AUSTRALIA
21750 DATA AFRICA

22100 DATA COLUMBIA
22110 DATA SOUTH AMERICA
22120 DATA OCEANIA AND AUSTRALIA
22130 DATA AFRICA
22140 DATA ASIA
22150 DATA ANTARTICA

22200 DATA ECUADOR
22210 DATA SOUTH AMERICA
22220 DATA NORTH AMERICA
22230 DATA ASIA
22240 DATA ANTARTICA
22250 DATA AFRICA

22300 DATA GUYANA
22310 DATA SOUTH AMERICA
22320 DATA EUROPE
22330 DATA NORTH AMERICA
22340 DATA ANTARTICA
22350 DATA OCEANIA AND AUSTRALIA

22400 DATA PERU
22410 DATA SOUTH AMERICA
22420 DATA OCEANIA AND AUSTRALIA
22430 DATA EUROPE
22440 DATA AFRICA
22450 DATA ANTARTICA

22500 DATA URUGUAY
22510 DATA SOUTH AMERICA
22520 DATA ANTARTICA
22530 DATA AFRICA
22540 DATA NORTH AMERICA
22550 DATA OCEANIA AND AUSTRALIA

22600 DATA VENEZUELA
22610 DATA SOUTH AMERICA
22620 DATA NORTH AMERICA
22630 DATA EUROPE
22640 DATA ANTARTICA
22650 DATA OCEANIA AND AUSTRALIA

22660 '***** 70

22800 DATA QUEEN MAUD LAND
22810 DATA ANTARTICA
22820 DATA EUROPE
22830 DATA SOUTH AMERICA
22840 DATA NORTH AMERICA
22850 DATA AFRICA

22900 DATA ROSS DEPENDENCY
22910 DATA ANTARTICA
22920 DATA AFRICA
22930 DATA NORTH AMERICA
22940 DATA OCEANIA AND AUSTRALIA
22950 DATA SOUTH AMERICA

23300 DATA DANUBE RIVER
23310 DATA EUROPE
23320 DATA NORTH AMERICA
23330 DATA AFRICA
23340 DATA OCEANIA AND AUSTRALIA
23350 DATA SOUTH AMERICA

23400 DATA AMAZON RIVER
23410 DATA SOUTH AMERICA
23420 DATA EUROPE
23430 DATA AFRICA
23440 DATA OCEANIA AND AUSTRALIA
23450 DATA ANTARTICA

23500 DATA MISSISSIPPI RIVER
23510 DATA NORTH AMERICA
23520 DATA ASIA
23530 DATA ANTARTICA
23540 DATA AFRICA
23550 DATA EUROPE

23600 DATA NILE RIVER
23610 DATA AFRICA
23620 DATA NORTH AMERICA
23630 DATA OCEANIA AND AUSTRALIA
23640 DATA SOUTH AMERICA
23650 DATA EUROPE

23700 DATA CHANG JIANG RIVER
23710 DATA ASIA
23720 DATA EUROPE
23730 DATA AFRICA
23740 DATA OCEANIA AND AUSTRALIA
23750 DATA ANTARTICA

23800 DATA ZAIRE RIVER
23810 DATA AFRICA
23820 DATA NORTH AMERICA
23830 DATA SOUTH AMERICA
23840 DATA EUROPE
23850 DATA ASIA

24000 DATA MEKONG RIVER
24010 DATA ASIA
24020 DATA OCEANIA AND AUSTRALIA
24030 DATA SOUTH AMERICA
24040 DATA ANTARTICA
24050 DATA AFRICA

24100 DATA YUKON RIVER
24110 DATA NORTH AMERICA
24120 DATA ANTARTICA
24130 DATA OCEANIA AND AUSTRALIA
24140 DATA EUROPE
24150 DATA SOUTH AMERICA

'***** 80

25400 '*****
25410 '*
25420 '* END OF DATA LIST
25430 '*
25440 '*****

27500 '*****
27510 '*
27520 '* STANDARD BASIC QUIZ GAMES
27530 '* INITIALIZATION ROUTINE
27540 '*
27550 '*****

27600 CLS

27610 PRINT
27620 PRINT "  LOADING THE SYSTEM"
27630 PRINT "  PLEASE WAIT"
27640 PRINT

27650 'RANDOMIZATION ARRAYS
27660 DIM R1(5)
27670 DIM R2(4)
27680 DIM RR(4)

27690 'SCRAMBLE CODES ARRAY
27700 DIM S(24,4)

27710 'RANDOMIZE THE RND FUNCTION
27720 R = RND(-TIMER)

27800 'INITIALIZE THE SCRAMBLE CODES

27810 S(0,0) = 0
27820 S(0,1) = 1
27830 S(0,2) = 2
27840 S(0,3) = 3

27850 S(1,0) = 0
27860 S(1,1) = 1
27870 S(1,2) = 3
27880 S(1,3) = 2

27890 S(2,0) = 0
27900 S(2,1) = 2
27910 S(2,2) = 1
27920 S(2,3) = 3

27930 S(3,0) = 0
27940 S(3,1) = 2
27950 S(3,2) = 3
27960 S(3,3) = 1

27970 S(4,0) = 0
27980 S(4,1) = 3
27990 S(4,2) = 1
28000 S(4,3) = 2

28010 S(5,0) = 0
28020 S(5,1) = 3
28030 S(5,2) = 2
28040 S(5,3) = 1

28050 S(6,0) = 1
28060 S(6,1) = 0
28070 S(6,2) = 2
28080 S(6,3) = 3

28090 S(7,0) = 1
28100 S(7,1) = 0
28110 S(7,2) = 3
28120 S(7,3) = 2

28130 S(8,0) = 1
28140 S(8,1) = 2
28150 S(8,2) = 0
28160 S(8,3) = 3

28170 S(9,0) = 1
28180 S(9,1) = 2
28190 S(9,2) = 3
28200 S(9,3) = 0

28210 S(10,0) = 1
28220 S(10,1) = 3
28230 S(10,2) = 0
28240 S(10,3) = 2

28250 S(11,0) = 1
28260 S(11,1) = 3
28270 S(11,2) = 2
28280 S(11,3) = 0

28290 S(12,0) = 2
28300 S(12,1) = 0
28310 S(12,2) = 1
28320 S(12,3) = 3

28330 S(13,0) = 2
28340 S(13,1) = 0
28350 S(13,2) = 3
28360 S(13,3) = 1

28370 S(14,0) = 2
28380 S(14,1) = 1
28390 S(14,2) = 0
28400 S(14,3) = 3

28410 S(15,0) = 2
28420 S(15,1) = 1
28430 S(15,2) = 3
28440 S(15,3) = 0

28450 S(16,0) = 2
28460 S(16,1) = 3
28470 S(16,2) = 0
28480 S(16,3) = 1

28490 S(17,0) = 2
28500 S(17,1) = 3
28510 S(17,2) = 1
28520 S(17,3) = 0

28530 S(18,0) = 3
28540 S(18,1) = 0
28550 S(18,2) = 1
28560 S(18,3) = 2

28570 S(19,0) = 3
28580 S(19,1) = 0
28590 S(19,2) = 2
28600 S(19,3) = 1

28610 S(20,0) = 3
28620 S(20,1) = 1
28630 S(20,2) = 0
28640 S(20,3) = 2

28650 S(21,0) = 3
28660 S(21,1) = 1
28670 S(21,2) = 2
28680 S(21,3) = 0

28690 S(22,0) = 3
28700 S(22,1) = 2
28710 S(22,2) = 0
28720 S(22,3) = 1

28730 S(23,0) = 3
28740 S(23,1) = 2
28750 S(23,2) = 1
28760 S(23,3) = 0

28770 RETURN

28780 '*****
28790 '*
28800 '* END INITIALIZATION
28810 '*
28820 '*****

29500 '*****
29510 '*
29520 '* DISPLAY THE STANDARD
29530 '* BASIC QUIZ GAMES
29540 '* SPLASH SCREEN
29550 '*
29560 '*****

29600 CLS

29610 'LINES 0 AND 1 ARE BLANK GREEN

29620 'DISPLAY UNIFORM STANDARD LINE 2
29630 SD$ = CHR$(32) + CHR$(158)
29640 FOR I = 0 TO 27
29650   SD$ = SD$ + CHR$(156)
29660 NEXT I
29670 SD$ = SD$ + CHR$(157) + CHR$(32)
29680 PRINT@64, SD$

29690 'DISPLAY UNIFORM STANDARD LINE 3
29700 SD$ = CHR$(32) + CHR$(154) + CHR$(206)
29710 FOR I = 0 TO 25
29720   SD$ = SD$ + CHR$(204)
29730 NEXT I
29740 SD$ = SD$ + CHR$(205) + CHR$(149) + CHR$(32)
29750 PRINT@96, SD$

29760 'DISPLAY UNIFORM STANDARD LINE 4
29770 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
29780 FOR I = 0 TO 25
29790   SD$ = SD$ + CHR$(32)
29800 NEXT I
29810 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
29820 PRINT@128, SD$

29830 'DISPLAY SPECIFIC STANDARD LINE 5
29840 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
29850 ' *** CHANGE NEXT LINE AS REQUIRED:
29860 SD$ = SD$ + "        CONTINENTS        "
29870 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
29880 PRINT@160, SD$

29890 'DISPLAY SPECIFIC STANDARD LINE 6
29900 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
29910 ' *** CHANGE NEXT LINE AS REQUIRED:
29920 SD$ = SD$ + "        QUIZ  GAME        "
29930 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
29940 PRINT@192, SD$

29950 'DISPLAY UNIFORM STANDARD LINE 7
29960 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
29970 FOR I = 0 TO 25
29980   SD$ = SD$ + CHR$(32)
29990 NEXT I
30000 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
30010 PRINT@224, SD$

30020 'DISPLAY UNIFORM STANDARD LINE 8
30030 SD$ = CHR$(32) + CHR$(154) + CHR$(203)
30040 FOR I = 0 TO 25
30050   SD$ = SD$ + CHR$(195)
30060 NEXT I
30070 SD$ = SD$ + CHR$(199) + CHR$(149) + CHR$(32)
30080 PRINT@256, SD$

30090 'DISPLAY UNIFORM STANDARD LINE 9
30100 SD$ = CHR$(32) + CHR$(155)
30110 FOR I = 0 TO 27
30120   SD$ = SD$ + CHR$(147)
30130 NEXT I
30140 SD$ = SD$ + CHR$(151) + CHR$(32)
30150 PRINT@288, SD$

30160 'LINE 10 IS BLANK GREEN

30170 'DISPLAY UNIFORM STANDARD LINE 11
30180 PRINT@352, "   PRESS ANY KEY  TO CONTINUE   "

30190 'LINES 12 AND 13 ARE BLANK GREEN

30200 'DISPLAY SPECIFIC STANDARD LINE 14
30210 ' *** CHANGE THE YEAR AS REQUIRED
30220 PRINT@448, "       BDS SOFTWARE  2022       ";

30230 'LINE 15 IS BLANK GREEN

30240 A$ = INKEY$
30250 IF A$="" GOTO 30240

30260 RETURN

30270 '*****
30280 '*
30290 '* END SPLASH SCREEN
30300 '*
30310 '*****

32767 END