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 ' *** 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 '***** 302                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ORTH 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 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) =TH 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 IA 17810 DATA ASIA 17820 DATA SOUTH AMERICA 17830 DATA NORTH AMERICA 17840 DATA AFRICA 17                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 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 N" FINAL SCORE = ";QP;"%" 5910 PRINT:PRINT " THANKS FOR PLAYING!" 5920 PRINT " COME BACK SOON." 5930 PRINT:PRINT " M. DAVID JOHNSON" 5940 PRINT " INFO@BDS-SOFT.COM" 5950 PRINT:PRINT:PRINT:PRINT:PRINT 5960 GOTO 32767 5970 '***** 5980 '* 5990 '* END MAIN 6000 '* 6010 '***** 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 NOR 100 '***** 101 '* 102 '* CONTINEN.BAS 103 '* MDJ 2022/03/17 104 '* 105 '* A QUIZ TO IDENTIFY IN 106 '* WHICH CONTINENT A GIVEN 107 '* COUNTRY, STATE, OR RIVER 108 '* IS FOUND 109 '* 110 '* SOURCE: 111 '* HTTPS://WORLDPOPULATIONREVIEW.COM/ 112 '* COUNTRY-RANKINGS/ 113 '* LIST-OF-COUNTRIES-BY-CONTINENT 114 '* 115 '***** 120 'GO TO THE PROGRAM'S 130 'EXECUTIVE ROUTINE 140 GOTO 4220 200 '***** 210 '* 220 '* SELECTION SUBROUTINE: 230 '* 240 '* THIS ROUTINE IS UNIFORM 250 '* AND REMAINS THE SAME FOR 260 '* EACH AND EVERY QUIZ GAME 270 '* 280 '***** 290 'RANDOM SELECTION OF 300 'FOUR OF FIVE. 310 ' SELECTS FOUR ENTRIES 320 ' FROM FIVE POSSIBILITIES. 330 ' INPUTS: 340 ' NONE 350 ' OUTPUTS (GLOBAL) 360 ' RR(4) = THE SELECTED FOUR 370 ' RP = POSITION OF "0" ENTRY 380 ' (0, 1, 2, OR 3) 390 ' = 4 IF "0" ENTRY 400 ' NOT INCLUDED 490 ' INITIALIZATION 500 FOR I = 0 TO 4 510 R1(I) = I 520 NEXT I 530 RP = 4 540 'FIRST PASS 550 R = RND(5) - 1 560 J = -1 570 FOR I = 0 TO 4 580 IF R = I GOTO 610 590 J = J + 1 600 R2(J) = R1(I) 610 NEXT I 620 'SCRAMBLE PASS 630 J = RND(24) - 1 640 FOR I = 0 TO 3 650 RR(I) = R2(S(J,I)) 660 NEXT I 670 'POSITION PASS 680 FOR I = 0 TO 3 690 IF RR(I) <> 0 GOTO 710 700 RP = I 710 NEXT I 720 RETURN 730 '***** 740 '* 750 '* ENDSUB 760 '* 770 '***** 4000 '***** 4010 '* 4020 '* EXECUTIVE 4030 '* 4040 '***** 4050 'VARIABLES LIST 4060 ' I, J = INDEXES AND COUNTERS 4070 ' A = RESPONSE CODE 4080 ' A$ = KEY PRESS 4090 ' N = NUMBER OF QUESTIONS 4100 ' Q$ = QUESTION 4110 ' QA$ = QUESTION ANSWERS ARRAY 4120 ' QD$ = QUESTIONS DATA ARRAY 4130 ' QN = QUESTION NUMBER 4140 ' QT = # OF QUESTIONS ASKED 4150 ' QC = # OF CORRECT ANSWERS 4160 ' QP = % CORRECT 4170 ' R, R1, R2, RR, RP 4180 ' = RANDOMIZATION VARIABLES 4190 ' S = SCRAMBLE CODES ARRAY 4200 ' SD$ = SCREEN DISPLAY TEXT 4210 'GO DISPLAY SPLASH SCREEN 4220 GOSUB 29600 4230 'GO INITIALIZE THE SYSTEM 4240 GOSUB 27600 4250 'GO LOAD QUESTIONS DATA 4260 GOSUB 10600 4270 'GO ENTER THE MAIN ROUTINE 4280 GOTO 5110 4290 '***** 4300 '* 4310 '* END EXECUTIVE 4320 '* 4330 '***** 5000 '***** 5010 '* 5020 '* MAIN 5030 '* 5040 '***** 5050 ' QN = QUESTION NUMBER 5060 ' Q$ = QUESTION 5070 ' QA$ = QUESTION ANSWERS ARRAY 5080 ' QT = # OF QUESTIONS ASKED 5090 ' QC = # OF CORRECT ANSWERS 5100 ' QP = % CORRECT 5110 DIM QA$(4) 5120 QT = 0 5130 QC = 0 5140 QP = 0 5150 'RANDOMLY SELECT A 5160 'QUESTION 5170 'ADJUST RND FOR TOTAL 5180 'NUMBER OF QUESTIONS 5190 QN = RND(80) - 1 5200 Q$ = QD$(QN,0) 5210 'RANDOMLY SELECT AND 5220 'SCRAMBLE FOUR OF 5230 'THE FIVE ANSWERS 5240 GOSUB 500 5250 FOR I = 0 TO 3 5260 QA$(I) = QD$(QN,RR(I)+1) 5270 NEXT I 5280 'MAIN DISPLAY SCREEN 5290 PRINT@32," ON WHICH CONTINENT IS:" 5300 PRINT@64," "+Q$+" ?" 5310 PRINT@128, " A. "+QA$(0) 5320 PRINT@160, " B. "+QA$(1) 5330 PRINT@192, " C. "+QA$(2) 5340 PRINT@224, " D. "+QA$(3) 5350 PRINT@256, " E. NONE OF THE ABOVE" 5360 PRINT@320, " PRESS A, B, C, D, OR E" 5370 PRINT@352, " " 5380 PRINT@384, " " 5390 PRINT@416, " " 5400 PRINT@448, " SCORE = ";QC;" OF ";QT;" = ";QP;"%"; 5410 A$ = INKEY$ 5420 IF A$="" GOTO 5410 5430 IF (A$="A" OR A$=CHR$(97)) GOTO 5520 5440 IF (A$="B" OR A$=CHR$(98)) GOTO 5530 5450 IF (A$="C" OR A$=CHR$(99)) GOTO 5540 5460 IF (A$="D" OR A$=CHR$(100)) GOTO 5550 5470 IF (A$="E" OR A$=CHR$(101)) GOTO 5560 5480 SOUND 159,2 5490 SOUND 159,2 5500 PRINT@320, " YOU MUST PRESS ONE OF A TO E" 5510 GOTO 5410 5520 A = 0: GOTO 5570 5530 A = 1: GOTO 5570 5540 A = 2: GOTO 5570 5550 A = 3: GOTO 5570 5560 A = 4: GOTO 5570 5570 IF A = RP GOTO 5710 5580 SOUND 78,1 5590 SOUND 78,1 5600 SOUND 78,1 5610 SOUND 5,3 5620 PRINT@320, " **SORRY: THAT IS INCORRECT." 5630 SD$ = " SEE: " 5640 IF RP=0 THEN SD$ = SD$ + "A. "+QA$(0) 5650 IF RP=1 THEN SD$ = SD$ + "B. "+QA$(1) 5660 IF RP=2 THEN SD$ = SD$ + "C. "+QA$(2) 5670 IF RP=3 THEN SD$ = SD$ + "D. "+QA$(3) 5680 IF RP=4 THEN SD$ = SD$ + "E.NONE OF THE ABOVE" 5690 PRINT@352, SD$ 5700 GOTO 5770 5710 SOUND 204,1 5720 SOUND 204,1 5730 SOUND 204,1 5740 SOUND 218,3 5750 PRINT@320, " *** THAT IS CORRECT! ***" 5760 QC = QC + 1 5770 QT = QT + 1 5780 QP = INT(100 * (QC/QT)) 5790 PRINT@448, " SCORE = ";QC;" OF ";QT;" = ";QP;"%"; 5800 PRINT@384, " PRESS C TO CONTINUE;Q TO QUIT" 5810 A$ = INKEY$ 5820 IF A$="" GOTO 5810 5830 IF (A$="C" OR A$=CHR$(99)) GOTO 5190 5840 IF (A$="Q" OR A$=CHR$(113)) GOTO 5890 5850 SOUND 159,2 5860 SOUND 159,2 5870 PRINT@384, " YOU MUST PRESS C OR Q" 5880 GOTO 5810 5890 CLS 5900 PRINT:PRINT  D▓& З@224, SD$&PЗ@256, SD$&+d:Г*****&3e:Г*&Hf:Г* CONTINEN.BAS&_g:Г* MDJ 2022/03/17&gh:Г*&Еi:Г* A QUIZ TO IDENTIFY IN&еj:Г* WHICH CONTINENT A GIVEN&╞k:Г* COUNTRY, STATE, OR RIVER&╫l:Г* IS FOUND&▀m:Г*&яn:Г* SOURCE:'o:Г* HTTPS://WORLDPOPULATIONREVIEW.COM/'6p:Г* COUNTRY-RANKINGS/'_q:Г* LIST-OF-COUNTRIES-BY-CONTINENT'gr:Г*'ss:Г*****'Нx:ГGO TO THE PROGRAM'S'еВ:ГEXECUTIVE ROUTINE'▒МБе 4220'╜╚:Г*****'╞╥:Г* 'ф▄:Г* SELECTION SUBROUTINE:'ьц:Г*( Ё:Г* THIS ROUTINE IS UNIFORM(-·:Г* AND REMAINS THE SAME FOR(N:Г* EACH AND EVERY QUIZ GAME(V:Г*(b:Г*****(|":ГRANDOM SELECTION OF(Р,:ГFOUR OF FIVE.(м6:Г SELECTS FOUR ENTRIES(╠@:Г FROM FIVE POSSIBILITIES.(▄J:Г INPUTS:(ъT:Г NONE)^:Г OUTPUTS (GLOBAL))&h:Г RR(4) = THE SELECTED FOUR)Mr:Г RP = POSITION OF "0" ENTRY)o|:Г (0, 1, 2, OR 3))РЖ:Г = 4 IF "0" ENTRY )пР:Г NOT INCLUDED)┼ъ:Г INITIALIZATION)╒ЇА I │ 0 е 4)у■R1(I) │ I)ыЛ I)ЎRP │ 4*:ГFIRST PASS*&R │  Д(5) м 1*$0J │ м1*4:А I │ 0 е 4*GDЕ R │ I Бе 610*UNJ │ J л 1*gXR2(J) │ R1(I)*obЛ I*Гl:ГSCRAMBLE PASS*ЦvJ │  Д(24) м 1*жАА I │ 0 е 3*╜КRR(I) │ R2(S(J,I))*┼ФЛ I*┘Ю:ГPOSITION PASS*щиА I │ 0 е 3+▓Е RR(I) ┤▓ 0 Бе 710+ ╝RP │ I+╞Л I+╨Р+&┌:Г*****+.ф:Г*+=ю:Г* ENDSUB+E°:Г*+Q:Г*****+]а:Г*****+eк:Г*+x┤:Г* EXECUTIVE +А╛:Г*+М╚:Г*****+б╥:ГVARIABLES LIST+─▄:Г I, J = INDEXES AND COUNTERS+▌ц:Г A = RESPONSE CODE+єЁ:Г A$ = KEY PRESS,·:Г N = NUMBER OF QUESTIONS ,(:Г Q$ = QUESTION,L:Г QA$ = QUESTION ANSWERS ARRAY,n:Г QD$ = QUESTIONS DATA ARRAY,Л":Г QN = QUESTION NUMBER,н,:Г QT = # OF QUESTIONS ASKED,╧6:Г QC = # OF CORRECT ANSWERS,ц@:Г QP = % CORRECT-J:Г R, R1, R2, RR, RP -#T:Г = RANDOMIZATION VARIABLES-C^:Г S = SCRAMBLE CODES ARRAY-dh:Г SD$ = SCREEN DISPLAY TEXT-Гr:ГGO DISPLAY SPLASH SCREEN-Р|Бж 29600-пЖ:ГGO INITIALIZE THE SYSTEM-╝РБж 27600-┘Ъ:ГGO LOAD QUESTIONS DATA-цдБж 10600.о:ГGO ENTER THE MAIN ROUTINE.╕Бе 5110.┬:Г*****.&╠:Г*.<╓:Г* END EXECUTIVE.Dр:Г*.Pъ:Г*****.\И:Г*****.dТ:Г*.qЬ:Г* MAIN.yж:Г*.Е░:Г*****.в║:Г QN = QUESTION NUMBER.╖─:Г Q$ = QUESTION.█╬:Г QA$ = QUESTION ANSWERS ARRAY.¤╪:Г QT = # OF QUESTIONS ASKED/т:Г QC = # OF CORRECT ANSWERS/6ь:Г QP = % CORRECT/CЎМ QA$(4)/NQT │ 0/Y QC │ 0/dQP │ 0/|:ГRANDOMLY SELECT A/Л(:ГQUESTION/ж2:ГADJUST RND FOR TOTAL/└<:ГNUMBER OF QUESTIONS/╘FQN │  Д(80) м 1/чPQ$ │ QD$(QN,0)0Z:ГRANDOMLY SELECT AND0d:ГSCRAMBLE FOUR OF 00n:ГTHE FIVE ANSWERS0;xБж 5000KВА I │ 0 е 30hМQA$(I) │ QD$(QN,RR(I)л1)0pЦЛ I0Ка:ГMAIN DISPLAY SCREEN0окЗ@32," ON WHICH CONTINENT IS:"0─┤З@64," "лQ$л" ?"0т╛З@128, " A. "лQA$(0)1╚З@160, " B. "лQA$(1)1╥З@192, " C. "лQA$(2)1<▄З@224, " D. "лQA$(3)1dцЗ@256, " E. NONE OF THE ABOVE"1КЁЗ@320, " PRESS A, B, C, D, OR E"1╕·З@352, " "1цЗ@384, " "2З@416, " "2GЗ@448, " SCORE = ";QC;" OF ";QT;" = ";QP;"%";2S"A$ │  Т2g,Е A$│"" Бе 54102К6Е (A$│"A" ▒ A$│ Л(97)) Бе 55202н@Е (A$│"B" ▒ A$│ Л(98)) Бе 55302╨JЕ (A$│"C" ▒ A$│ Л(99)) Бе 55402ЇTЕ (A$│"D" ▒ A$│ Л(100)) Бе 55503^Е (A$│"E" ▒ A$│ Л(101)) Бе 55603$hа 159,230rа 159,23\|З@320, " YOU MUST PRESS ONE OF A TO E"3hЖБе 54103{РA │ 0: Бе 55703ОЪA │ 1: Бе 55703бдA │ 2: Бе 55703┤оA │ 3: Бе 55703╚╕A │ 4: Бе 5570 3▌┬Е A │ RP Бе 57103ш╠а 78,13є╓а 78,13■ра 78,14ъа 5,345ЇЗ@320, " **SORRY: THAT IS INCORRECT."4I■SD$ │ " SEE: "4oЕ RP│0 з SD$ │ SD$ л "A. "лQA$(0)4ХЕ RP│1 з SD$ │ SD$ л "B. "лQA$(1)4╗Е RP│2 з SD$ │ SD$ л "C. "лQA$(2)4с&Е RP│3 з SD$ │ SD$ л "D. "лQA$(3)50Е RP│4 з SD$ │ SD$ л "E.NONE OF THE ABOVE"5:З@352, SD$5+DБе 577057Nа 204,15CXа 204,15Obа 204,15[lа 218,35ЕvЗ@320, " *** THAT IS CORRECT! ***"5ХАQC │ QC л 15еКQT │ QT л 15└ФQP │  Б(100 н (QCоQT))5єЮЗ@448, " SCORE = ";QC;" OF ";QT;" = ";QP;"%";6 иЗ@384, " PRESS C TO CONTINUE;Q TO QUIT"6,▓A$ │  Т6@╝Е A$│"" Бе 58106c╞Е (A$│"C" ▒ A$│ Л(99)) Бе 51906З╨Е (A$│"Q" ▒ A$│ Л(113)) Бе 58906У┌а 159,26Яфа 159,26─юЗ@384, " YOU MUST PRESS C OR Q"6╨°Бе 58106╓Ю6∙ З:З " FINAL SCORE = ";QP;"%"7З:З " THANKS FOR PLAYING!"77 З " COME BACK SOON."7U*З:З " M. DAVID JOHNSON"7r4З " INFO@BDS-SOFT.COM"7А>З:З:З:З:З7НHБе 327677ЩR:Г*****7б\:Г*7▓f:Г* END MAIN7║p:Г*7╞z:Г*****7╘&З@96, SD$7у&\З@128, SD$7Є&ШЗ@160, SD$8&╘З@192, S                                                                                                                                                                                                                                                                                      ┼╞!"#$%&'╞┼╔+┴                        CONTINENBAS ╡CONTINENTX1 зCONTINENTX2 AREADME TXT (ФLICENSE TXT )\MORE BAS*з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                D$8 ):Г*****8):Г*87):Г* STANDARD BASIC QUIZ GAMES8T)":Г* DATA LOADING ROUTINE8\),:Г*8h)6:Г*****8А)@:ГTHIS DATA MUST BE8Щ)J:ГINDIVIDUALIZED FOR8▓)T:ГEACH SPECIFIC QUIZ8╨)^:ГN = NUMBER OF QUESTIONS8█)hN │ 808№)r:ГQD$ = QUESTIONS DATA ARRAY9 )|М QD$(N,6)9)ЖА I │ 0 е Nм19-)РА J │ 0 е 59<)ЪН QD$(I,J)9D)дЛ J9L)оЛ I9^)╕З " OKAY -" 9Г)┬З " ALL LOADED AND READY TO GO"9Й)╠З9к)╓З " PRESS ANY KEY TO BEGIN"9░)рЗ9║)ъA$│ Т9╧)ЇЕ A$│"" Бе 107309╒)■Р9с*:Г*****9щ*:Г*:*:Г* END DATA LOADING: *&:Г*:*0:Г*****:"*::Г*****:**D:Г*:E*N:Г* START OF DATA LIST:M*X:Г*:Y*b:Г*****:g0╘Ж ALBANIA:t0▐Ж EUROPE:И0шЖ SOUTH AMERICA:Ш0ЄЖ ANTARTICA:е0№Ж AFRICA:╣1Ж NORTH AMERICA:╟18Ж AUSTRIA:╘1BЖ EUROPE:с1LЖ AFRICA:ї1VЖ NORTH AMERICA;1`Ж ASIA;1jЖ SOUTH AMERICA;"1ЬЖ BELGIUM;/1жЖ EUROPE;C1░Ж NORTH AMERICA;_1║Ж OCEANIA AND AUSTRALIA;j1─Ж ASIA;w1╬Ж AFRICA;Ж2Ж BULGARIA;У2 Ж EUROPE;п2Ж OCEANIA AND AUSTRALIA;╝2Ж AFRICA;╠2(Ж ANTARTICA;р22Ж SOUTH AMERICA;ї2dЖ CZECH REPUBLIC<2nЖ EUROPE<2xЖ OCEANIA AND AUSTRALIA<+2ВЖ AFRICA<62МЖ ASIA5№Ж SOUTH AMERICA>6Ж NORTH AMERICA>*6Ж ANTARTICA>76Ж AFRICA>F6$:Г***** 10>T6LЖ HUNGARY>a6VЖ EUROPE>l6`Ж ASIA>А6jЖ SOUTH AMERICA>Ф6tЖ NORTH AMERICA>д6~Ж ANTARTICA>░6░Ж ITALY>╜6║Ж EUROPE>╤6─Ж SOUTH AMERICA>э6╬Ж OCEANIA AND AUSTRALIA>·6╪Ж AFRICA? 6тЖ ANTARTICA?7Ж LUXEMBOURG?(7Ж EUROPE?<7(Ж NORTH AMERICA?X72Ж OCEANIA AND AUSTRALIA?h7<Ж ANTARTICA?u7FЖ AFRICA?З7xЖ NETHERLANDS?Ф7ВЖ EUROPE?б7МЖ AFRICA?╡7ЦЖ NORTH AMERICA?╤7аЖ OCEANIA AND AUSTRALIA?х7кЖ SOUTH AMERICA?Є8@Ж NORWAY? 8JЖ EUROPE@ 8TЖ AFRICA@8^Ж ASIA@+8hЖ SOUTH AMERICA@?8rЖ NORTH AMERICA@L8дЖ POLAND@Y8оЖ EUROPE@i8╕Ж ANTARTICA@}8┬Ж SOUTH AMERICA@С8╠Ж NORTH AMERICA@Ь8╓Ж ASIA@л:4Ж PORTUGAL@╕:>Ж EUROPE@╠:HЖ NORTH AMERICA@▄:RЖ ANTARTICA@ч:\Ж ASIA@Ї:fЖ AFRICAA:ШЖ SPAINA :вЖ EUROPEA:мЖ ANTARTICAA1:╢Ж SOUTH AMERICAA<:└Ж ASIAAP:╩Ж NORTH AMERICAA]:№Ж SWEDENAj;Ж EUROPEA~;Ж SOUTH AMERICAAЪ;Ж OCEANIA AND AUSTRALIAAз;$Ж AFRICAA▓;.Ж ASIAA╟;`Ж UNITED KINGDOMA╘;jЖ EUROPEAш;tЖ SOUTH AMERICAAї;~Ж AFRICAB;ИЖ OCEANIA AND AUSTRALIAB%;ТЖ NORTH AMERICAB4;Ь:Г***** 20BB;─Ж ALGERIABO;╬Ж AFRICABk;╪Ж OCEANIA AND AUSTRALIAB;тЖ SOUTH AMERICABК;ьЖ ASIABЮ;ЎЖ NORTH AMERICABн<(Ж CAMEROONB║<2Ж AFRICAB╟<<Ж EUROPEB█Ж EUROPEKQIpЖ EL SALVADORKeIzЖ NORTH AMERICAKrIДЖ EUROPEKЖIОЖ SOUTH AMERICAKЦIШЖ ANTARTICAKгIвЖ AFRICAK░I╘Ж MEXICOK─I▐Ж NORTH AMERICAKрIшЖ OCEANIA AND AUSTRALIAKэIЄЖ AFRICALI№Ж SOUTH AMERICALJЖ EUROPELJ8Ж NICARAGUAL2JBЖ NORTH AMERICALFJLЖ SOUTH AMERICALSJVЖ EUROPELcJ`Ж ANTARTICALpJjЖ AFRICAL}KЖ PANAMALСK Ж NORTH AMERICALнKЖ OCEANIA AND AUSTRALIAL╜KЖ ANTARTICAL╤K(Ж SOUTH AMERICAL▐K2Ж AFRICALьKdЖ JAMAICAMKnЖ NORTH AMERICAM KxЖ EUROPEMKВЖ ANTARTICAM1KМЖ SOUTH AMERICAMMKЦЖ OCEANIA AND AUSTRALIAM_LЇЖ SAINT LUCIAMsL■Ж NORTH AMERICAMГMЖ ANTARTICAMРMЖ AFRICAMдMЖ SOUTH AMERICAM└M&Ж OCEANIA AND AUSTRALIAM▀MXЖ UNITED STATES OF AMERICAMєMbЖ NORTH AMERICANMlЖ AFRICANMvЖ OCEANIA AND AUSTRALIAN,MАЖ ANTARTICAN@MКЖ SOUTH AMERICANOMФ:Г***** 50NeM╝Ж NEW SOUTH WALESNБM╞Ж OCEANIA AND AUSTRALIANОM╨Ж AFRICANвM┌Ж SOUTH AMERICANпMфЖ EUROPEN┐MюЖ ANTARTICAN╨N Ж QUEENSLANDNьN*Ж OCEANIA AND AUSTRALIANўN4Ж ASIAO N>Ж NORTH AMERICAONHЖ EUROPEO,NRЖ SOUTH AMERICAO;NДЖ TASMANIAOWNОЖ OCEANIA AND AUSTRALIAOkNШЖ NORTH AMERICAOxNвЖ AFRICAOГNмЖ ASIAOЧN╢Ж SOUTH AMERICAOвNшЖ FIJIO╛NЄЖ OCEANIA AND AUSTRALIAO╥N№Ж NORTH AMERICAO▌OЖ ASIAOёOЖ SOUTH AMERICAPOЖ ANTARTICAP O░Ж NAURUP)O║Ж OCEANIA AND AUSTRALIAP=O─Ж NORTH AMERICAPMO╬Ж ANTARTICAPXO╪Ж ASIAPlOтЖ SOUTH AMERICAP~PЖ NEW ZEALANDPЪPЖ OCEANIA AND AUSTRALIAPоP(Ж NORTH AMERICAP╗P2Ж EUROPEP╧P<Ж SOUTH AMERICAP▄PFЖ AFRICAPшQдЖ PALAUQQоЖ OCEANIA AND AUSTRALIAQQ╕Ж EUROPEQ%Q┬Ж SOUTH AMERICAQ2Q╠Ж AFRICAQBQ╓Ж ANTARTICAQYRЖ PAPUA NEW GUINEAQuRЖ OCEANIA AND AUSTRALIAQЕRЖ ANTARTICAQТR&Ж EUROPEQжR0Ж NORTH AMERICAQ▒R:Ж ASIAQ╜RlЖ SAMOAQ┘RvЖ OCEANIA AND AUSTRALIAQщRАЖ ANTARTICAQЎRКЖ AFRICARRФЖ ASIARRЮЖ NORTH AMERICAR!R╨Ж TONGAR=R┌Ж OCEANIA AND AUSTRALIARQRфЖ SOUTH AMERICAR^RюЖ EUROPERiR°Ж ASIARySЖ ANTARTICARИS :Г***** 60RШS4Ж ARGENTINARмS>Ж SOUTH AMERICAR╖SHЖ ASIAR╦SRЖ NORTH AMERICARчS\Ж OCEANIA AND AUSTRALIARЇSfЖ AFRICASSШЖ BOLIVIASSвЖ SOUTH AMERICAS2SмЖ OCEANIA AND AUSTRALIAS?S╢Ж AFRICASLS└Ж EUROPES`S╩Ж NORTH AMERICASmT`Ж BRAZILSБTjЖ SOUTH AMERICASОTtЖ EUROPESЮT~Ж ANTARTICASйTИЖ ASIAS╢TТЖ AFRICAS┬T─Ж CHILES╓T╬Ж SOUTH AMERICASсT╪Ж ASIASёTтЖ ANTARTICAT TьЖ OCEANIA AND AUSTRALIATTЎЖ AFRICAT)VTЖ COLUMBIAT=V^Ж SOUTH AMERICATYVhЖ OCEANIA AND AUSTRALIATfVrЖ AFRICATqV|Ж ASIATБVЖЖ ANTARTICATПV╕Ж ECUADORTгV┬Ж SOUTH AMERICAT╖V╠Ж NORTH AMERICAT┬V╓Ж ASIAT╥VрЖ ANTARTICAT▀VъЖ AFRICATьWЖ GUYANAUW&Ж SOUTH AMERICAU W0Ж EUROPEU!W:Ж NORTH AMERICAU1WDЖ ANTARTICAUMWNЖ OCEANIA AND AUSTRALIAUXWАЖ PERUUlWКЖ SOUTH AMERICAUИWФЖ OCEANIA AND AUSTRALIAUХWЮЖ EUROPEUвWиЖ AFRICAU▓W▓Ж ANTARTICAU└WфЖ URUGUAYU╘WюЖ SOUTH AMERICAUфW°Ж ANTARTICAUёXЖ AFRICAVX Ж NORTH AMERICAV!XЖ OCEANIA AND AUSTRALIAV1XHЖ VENEZUELAVEXRЖ SOUTH AMERICAVYX\Ж NORTH AMERICAVfXfЖ EUROPEVvXpЖ ANTARTICAVТXzЖ OCEANIA AND AUSTRALIAVбXД:Г***** 70V╖YЖ QUEEN MAUD LANDV╟YЖ ANTARTICAV╘Y$Ж EUROPEVшY.Ж SOUTH AMERICAV№Y8Ж NORTH AMERICAW YBЖ AFRICAWYtЖ ROSS DEPENDENCYW/Y~Ж ANTARTICAW:ГRANDOMIZE THE RND FUNCTION\\lHR │  Д(м Я)\АlШ:ГINITIALIZE THE SCRAMBLE CODES\ПlвS(0,0) │ 0\ЮlмS(0,1) │ 1\нl╢S(0,2) │ 2\╝l└S(0,3) │ 3\╦l╩S(1,0) │ 0\┌l╘S(1,1) │ 1\щl▐S(1,2) │ 3\°lшS(1,3) │ 2]lЄS(2,0) │ 0]l№S(2,1) │ 2]%mS(2,2) │ 1]4mS(2,3) │ 3]CmS(3,0) │ 0]Rm$S(3,1) │ 2]am.S(3,2) │ 3]pm8S(3,3) │ 1]mBS(4,0) │ 0]ОmLS(4,1) │ 3]ЭmVS(4,2) │ 1]мm`S(4,3) │ 2]╗mjS(5,0) │ 0]╩mtS(5,1) │ 3]┘m~S(5,2) │ 2]шmИS(5,3) │ 1]ўmТS(6,0) │ 1^mЬS(6,1) │ 0^mжS(6,2) │ 2^$m░S(6,3) │ 3^3m║S(7,0) │ 1^Bm─S(7,1) │ 0^Qm╬S(7,2) │ 3^`m╪S(7,3) │ 2^omтS(8,0) │ 1^~mьS(8,1) │ 2^НmЎS(8,2) │ 0^ЬnS(8,3) │ 3^лn S(9,0) │ 1^║nS(9,1) │ 2^╔nS(9,2) │ 3^╪n(S(9,3) │ 0^шn2S(10,0) │ 1^°n:Г*****j}vH:Г*jЧvR:Г* END SPLASH SCREENjЯv\:Г*jлvf:Г*****j▒ КY SPECIFIC STANDARD LINE 14iЎv:Г *** CHANGE THE YEAR AS REQUIREDj%v З@44                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 101 README.TXT 102 . 103 CONTINEN.BAS IS A QUIZ GAME 104 TO TEST YOUR KNOWLEDGE OF 105 COUNTRIES, RIVERS, AND 106 CONTINENTS 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 . 146                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 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 PAGE  д& 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 'Ur:Г 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/'