00100 '***** 00101 '* 00102 '* ADVMULT.BAS 00103 '* MDJ 2022/03/15 00104 '* 00105 '* A QUIZ TO TEST 00106 '* KNOWLEDGE OF THE 00107 '* ADVANCED MULTIPLICATION 00108 '* 00109 '***** 00110 'GO TO THE PROGRAM'S 00120 'EXECUTIVE ROUTINE 00130 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," WHAT IS THE RESULT:" 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$ = " CORRECT = " 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 35 TIMES 78 = 12510 DATA 2730 12520 DATA 2640 12530 DATA 2784 12540 DATA 2673 12550 DATA 2813 12600 DATA 33 TIMES 45 = 12610 DATA 1485 12620 DATA 1525 12630 DATA 1386 12640 DATA 1414 12650 DATA 1529 12700 DATA 80 TIMES 39 = 12710 DATA 3120 12720 DATA 3070 12730 DATA 3102 12740 DATA 3048 12750 DATA 3209 12800 DATA 60 TIMES -96 = 12810 DATA -5760 12820 DATA -5700 12830 DATA -5703 12840 DATA -5746 12850 DATA -5725 12900 DATA 92 TIMES 76 = 12910 DATA 6992 12920 DATA 6982 12930 DATA 6900 12940 DATA 7063 12950 DATA 7089 13000 DATA 58 TIMES 15 = 13010 DATA 870 13020 DATA 860 13030 DATA 879 13040 DATA 873 13050 DATA 874 13200 DATA 52 TIMES 23 = 13210 DATA 1196 13220 DATA 1246 13230 DATA 1258 13240 DATA 1232 13250 DATA 1129 13300 DATA 94 TIMES 68 = 13310 DATA 6392 13320 DATA 6302 13330 DATA 6317 13340 DATA 6396 13350 DATA 6402 13700 DATA 51 TIMES 98 = 13710 DATA 4998 13720 DATA 4938 13730 DATA 5051 13740 DATA 5035 13750 DATA 4956 13800 DATA 6 TIMES 43 = 13810 DATA 258 13820 DATA 268 13830 DATA 262 13840 DATA 257 13850 DATA 266 13860 '***** 10 13900 DATA 9 TIMES -46 = 13910 DATA -414 13920 DATA -424 13930 DATA -412 13940 DATA 414 13950 DATA 412 14000 DATA -67 TIMES 71 = 14010 DATA -4757 14020 DATA -4747 14030 DATA -4692 14040 DATA 4688 14050 DATA -4829 14100 DATA -87 TIMES 37 = 14110 DATA -3219 14120 DATA -3289 14130 DATA -3295 14140 DATA -3126 14150 DATA -3132 14200 DATA 41 TIMES 14 = 14210 DATA 574 14220 DATA 579 14230 DATA 584 14240 DATA 577 14250 DATA 575 14400 DATA 77 TIMES 40 = 14410 DATA 3080 14420 DATA 3070 14430 DATA 3042 14440 DATA 3024 14450 DATA 3143 14500 DATA 17 TIMES 6 = 14510 DATA 102 14520 DATA 92 14530 DATA 99 14540 DATA 112 14550 DATA 111 14900 DATA 91 TIMES 42 = 14910 DATA 3822 14920 DATA 3872 14930 DATA 3844 14940 DATA 3736 14950 DATA 3735 15000 DATA 39 TIMES 66 = 15010 DATA 2574 15020 DATA 2575 15030 DATA 2654 15040 DATA 2651 15050 DATA 2604 15100 DATA -28 TIMES 41 = 15110 DATA -1148 15120 DATA -1090 15130 DATA -1079 15140 DATA -1188 15150 DATA -1104 15200 DATA 20 TIMES -70 = 15210 DATA -1400 15220 DATA -1390 15230 DATA -1340 15240 DATA -1370 15250 DATA -1300 15260 '***** 20 15300 DATA 34 TIMES 3 = 15310 DATA 102 15320 DATA 92 15330 DATA 97 15340 DATA 95 15350 DATA 112 15400 DATA -44 TIMES -79 = 15410 DATA 3476 15420 DATA 3416 15430 DATA 3396 15440 DATA 3406 15450 DATA 3516 15600 DATA 47 TIMES -69 = 15610 DATA -3243 15620 DATA -3263 15630 DATA -3313 15640 DATA -3341 15650 DATA -3245 15700 DATA 55 TIMES 44 = 15710 DATA 2420 15720 DATA 2330 15730 DATA 2340 15740 DATA 2440 15750 DATA 2500 16100 DATA 30 TIMES 43 = 16110 DATA 1290 16120 DATA 1220 16130 DATA 1330 16140 DATA 1360 16150 DATA 1250 16200 DATA 33 TIMES 59 = 16210 DATA 1947 16220 DATA 1907 16230 DATA 2007 16240 DATA 1957 16250 DATA 1943 16300 DATA 91 TIMES -20 = 16310 DATA -1820 16320 DATA -1880 16330 DATA -1720 16340 DATA -1790 16350 DATA -1760 16400 DATA -61 TIMES 82 = 16410 DATA -5002 16420 DATA -5022 16430 DATA -4912 16440 DATA -5042 16450 DATA -5072 16500 DATA 94 TIMES 2 = 16510 DATA 188 16520 DATA 178 16530 DATA 198 16540 DATA 179 16550 DATA 189 16600 DATA 77 TIMES 26 = 16610 DATA 2002 16620 DATA 1922 16630 DATA 1952 16640 DATA 1932 16650 DATA 2022 16660 '***** 30 16800 DATA 53 TIMES 52 = 16810 DATA 2756 16820 DATA 2686 16830 DATA 2726 16840 DATA 2828 16850 DATA 2854 16900 DATA 8 TIMES 95 = 16910 DATA 760 16920 DATA 750 16930 DATA 764 16940 DATA 765 16950 DATA 762 17300 DATA 13 TIMES 27 = 17310 DATA 351 17320 DATA 361 17330 DATA 355 17340 DATA 343 17350 DATA 341 17400 DATA 25 TIMES 70 = 17410 DATA 1750 17420 DATA 1840 17430 DATA 1703 17440 DATA 1744 17450 DATA 1845 17500 DATA 53 TIMES 41 = 17510 DATA 2173 17520 DATA 2193 17530 DATA 2174 17540 DATA 2127 17550 DATA 2094 17600 DATA 99 TIMES 57 = 17610 DATA 5643 17620 DATA 5683 17630 DATA 5622 17640 DATA 5544 17650 DATA 5589 17700 DATA -70 TIMES 7 = 17710 DATA -490 17720 DATA -493 17730 DATA -494 17740 DATA -492 17750 DATA -489 17800 DATA 57 TIMES 18 = 17810 DATA 1026 17820 DATA 1006 17830 DATA 1069 17840 DATA 942 17850 DATA 1096 18000 DATA 59 TIMES 11 = 18010 DATA 649 18020 DATA 643 18030 DATA 659 18040 DATA 648 18050 DATA 639 18100 DATA 27 TIMES 65 = 18110 DATA 1755 18120 DATA 1845 18130 DATA 1701 18140 DATA 1807 18150 DATA 1794 18160 '***** 40 18500 DATA 82 TIMES 18 = 18510 DATA 1476 18520 DATA 1516 18530 DATA 1463 18540 DATA 1446 18550 DATA 1399 18600 DATA -53 TIMES 79 = 18610 DATA -4187 18620 DATA -4247 18630 DATA -4197 18640 DATA -4149 18650 DATA -4219 18700 DATA 78 TIMES 19 = 18710 DATA 1482 18720 DATA 1572 18730 DATA 1568 18740 DATA 1485 18750 DATA 1502 18800 DATA 94 TIMES 90 = 18810 DATA 8460 18820 DATA 8360 18830 DATA 8470 18840 DATA 8538 18850 DATA 8469 18900 DATA 86 TIMES 83 = 18910 DATA 7138 18920 DATA 7178 18930 DATA 7111 18940 DATA 7224 18950 DATA 7143 19000 DATA 58 TIMES 3 = 19010 DATA 174 19020 DATA 176 19030 DATA 164 19040 DATA 170 19050 DATA 173 19200 DATA 85 TIMES 92 = 19210 DATA 7820 19220 DATA 7750 19230 DATA 7888 19240 DATA 7873 19250 DATA 7881 19300 DATA 69 TIMES 74 = 19310 DATA 5106 19320 DATA 5202 19330 DATA 5036 19340 DATA 5143 19350 DATA 5190 19700 DATA 54 TIMES 25 = 19710 DATA 1350 19720 DATA 1340 19730 DATA 1377 19740 DATA 1264 19750 DATA 1329 19800 DATA 31 TIMES -70 = 19810 DATA -2170 19820 DATA -2090 19830 DATA -2139 19840 DATA -2143 19850 DATA -2119 19860 '***** 50 19900 DATA -77 TIMES -96 = 19910 DATA 7392 19920 DATA 7399 19930 DATA 7372 19940 DATA 7408 19950 DATA 7420 20000 DATA 70 TIMES 81 = 20010 DATA 5670 20020 DATA 5742 20030 DATA 5725 20040 DATA 5710 20050 DATA 5578 20100 DATA -70 TIMES 98 = 20110 DATA -6860 20120 DATA -6930 20130 DATA -6892 20140 DATA -6766 20150 DATA -6839 20200 DATA 41 TIMES 6 = 20210 DATA 246 20220 DATA 256 20230 DATA 240 20240 DATA 241 20250 DATA 237 20400 DATA 92 TIMES 54 = 20410 DATA 4968 20420 DATA 5008 20430 DATA 5015 20440 DATA 4943 20450 DATA 5046 20500 DATA 100 TIMES 17 = 20510 DATA 1700 20520 DATA 1600 20530 DATA 1760 20540 DATA 1630 20550 DATA 1610 20900 DATA -80 TIMES 24 = 20910 DATA -1920 20920 DATA -1910 20930 DATA -1960 20940 DATA -2010 20950 DATA -1840 21000 DATA 62 TIMES 15 = 21010 DATA 930 21020 DATA 920 21030 DATA 925 21040 DATA 937 21050 DATA 929 21100 DATA -63 TIMES 94 = 21110 DATA -5922 21120 DATA -5972 21130 DATA -5989 21140 DATA -5936 21150 DATA -5836 21200 DATA 31 TIMES 87 = 21210 DATA 2697 21220 DATA 2687 21230 DATA 2774 21240 DATA 2683 21250 DATA 2695 21260 '***** 60 21300 DATA 942 TIMES 923 = 21310 DATA "869,466" 21320 DATA "870,206 21330 DATA "868,950" 21340 DATA "869,324" 21350 DATA "868,845" 21400 DATA 991 TIMES 573 = 21410 DATA "567,843" 21420 DATA "568,653" 21430 DATA "568,561" 21440 DATA "568,603" 21450 DATA "567,809" 21600 DATA 12 TIMES 988 = 21610 DATA "11,856" 21620 DATA "12,376" 21630 DATA "12,574" 21640 DATA "10,973" 21650 DATA "10,955" 21700 DATA 716 TIMES 150 = 21710 DATA "107,400" 21720 DATA "106,700" 21730 DATA "106,521" 21740 DATA "106,670" 21750 DATA "107,469" 22100 DATA 161 TIMES 290 = 22110 DATA "46,690" 22120 DATA "47,560" 22130 DATA "47,600" 22140 DATA "47,463" 22150 DATA "46,341" 22200 DATA 57 TIMES 380 = 22210 DATA "21,660" 22220 DATA "21,560" 22230 DATA "21,736" 22240 DATA "21,120" 22250 DATA "21,495" 22300 DATA 199 TIMES 157 = 22310 DATA "31,243" 22320 DATA "30,543" 22330 DATA "30,968" 22340 DATA "31,530" 22350 DATA "31,311" 22400 DATA -679 TIMES 916 = 22410 DATA "-621,964" 22420 DATA "-621,984" 22430 DATA "-622,962" 22440 DATA "-622,517" 22450 DATA "-621,829" 22500 DATA 30 TIMES 773 = 22510 DATA "23,190" 22520 DATA "22,620" 22530 DATA "23,353" 22540 DATA "22,607" 22550 DATA "22,954" 22600 DATA 966 TIMES 635 = 22610 DATA "613,410" 22620 DATA "614,170" 22630 DATA "614,227" 22640 DATA "614,039" 22650 DATA "613,230" 22660 '***** 70 22800 DATA -439 TIMES 403 = 22810 DATA "-176,917" 22820 DATA "-177,897" 22830 DATA "-176,195" 22840 DATA "-176,788" 22850 DATA "-176,183" 22900 DATA 229 TIMES 4 = 22910 DATA 916 22920 DATA 906 22930 DATA 907 22940 DATA 908 22950 DATA 910 23300 DATA 48 TIMES -335 = 23310 DATA "-16,080" 23320 DATA "-16,780" 23330 DATA "-15,563" 23340 DATA "-16,412" 23350 DATA "-16,849" 23400 DATA 315 TIMES 75 = 23410 DATA "23,625" 23420 DATA "23,035" 23430 DATA "22,638" 23440 DATA "22,967" 23450 DATA "22,627" 23500 DATA 120 TIMES 27 = 23510 DATA 3240 23520 DATA 3294 23530 DATA 3224 23540 DATA 3290 23550 DATA 3308 23600 DATA 380 TIMES -364 = 23610 DATA "-138,320" 23620 DATA "-137,600" 23630 DATA "-138,767" 23640 DATA "-137,578" 23650 DATA "-138,024" 23700 DATA 57 TIMES 141 = 23710 DATA 8037 23720 DATA 8137 23730 DATA 7961 23740 DATA 8103 23750 DATA 7952 23800 DATA 258 TIMES 195 = 23810 DATA "50,310" 23820 DATA "49,950" 23830 DATA "50,534" 23840 DATA "49,556" 23850 DATA "50,167" 24000 DATA 313 TIMES 271 = 24010 DATA "84,823" 24020 DATA "85,233" 24030 DATA "84,909" 24040 DATA "84,649" 24050 DATA "84,293" 24100 DATA 140 TIMES 9 = 24110 DATA 1260 24120 DATA 1160 24130 DATA 1188 24140 DATA 1204 24150 DATA 1344 '***** 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$ + " ADVANCED MULTIPLICATION " 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