00100 '***** 00101 '* 00102 '* MULTIPLY.BAS 00103 '* MDJ 2022/01/03 00104 '* 00105 '* A QUIZ TO TEST 00106 '* KNOWLEDGE OF THE 00107 '* MULTIPLICATION TABLES 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(88) - 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 = 88 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 2 TIMES 4 = 12510 DATA 8 12520 DATA 2 12530 DATA 4 12540 DATA 6 12550 DATA 18 12600 DATA 2 TIMES 5 = 12610 DATA 10 12620 DATA 5 12630 DATA 15 12640 DATA 20 12650 DATA 25 12700 DATA 2 TIMES 6 = 12710 DATA 12 12720 DATA 6 12730 DATA 16 12740 DATA 22 12750 DATA 24 12800 DATA 2 TIMES 7 = 12810 DATA 14 12820 DATA 7 12830 DATA 12 12840 DATA 9 12850 DATA 24 12900 DATA 2 TIMES 8 = 12910 DATA 16 12920 DATA 8 12930 DATA 26 12940 DATA 12 12950 DATA 32 12960 '***** 13000 DATA 2 TIMES 9 = 13010 DATA 18 13020 DATA 9 13030 DATA 28 13040 DATA 19 13050 DATA 16 13200 DATA 2 TIMES 11 = 13210 DATA 22 13220 DATA 20 13230 DATA 18 13240 DATA 24 13250 DATA 26 13300 DATA 2 TIMES 12 = 13310 DATA 24 13320 DATA 22 13330 DATA 20 13340 DATA 26 13350 DATA 28 13700 DATA 3 TIMES 4 = 13710 DATA 12 13720 DATA 10 13730 DATA 14 13740 DATA 16 13750 DATA 22 13800 DATA 3 TIMES 5 = 13810 DATA 15 13820 DATA 10 13830 DATA 20 13840 DATA 25 13850 DATA 30 13900 DATA 3 TIMES 6 = 13910 DATA 18 13920 DATA 12 13930 DATA 16 13940 DATA 21 13950 DATA 24 13960 '***** 14000 DATA 3 TIMES 7 = 14010 DATA 21 14020 DATA 14 14030 DATA 24 14040 DATA 31 14050 DATA 28 14100 DATA 3 TIMES 8 = 14110 DATA 24 14120 DATA 16 14130 DATA 30 14140 DATA 32 14150 DATA 28 14200 DATA 3 TIMES 9 = 14210 DATA 27 14220 DATA 18 14230 DATA 37 14240 DATA 17 14250 DATA 30 14400 DATA 3 TIMES 11 = 14410 DATA 33 14420 DATA 22 14430 DATA 30 14440 DATA 44 14450 DATA 43 14500 DATA 3 TIMES 12 = 14510 DATA 36 14520 DATA 24 14530 DATA 40 14540 DATA 32 14550 DATA 46 14900 DATA 4 TIMES 4 = 14910 DATA 16 14920 DATA 12 14930 DATA 26 14940 DATA 22 14950 DATA 18 14960 '***** 15000 DATA 4 TIMES 5 = 15010 DATA 20 15020 DATA 10 15030 DATA 15 15040 DATA 25 15050 DATA 30 15100 DATA 4 TIMES 6 = 15110 DATA 24 15120 DATA 12 15130 DATA 18 15140 DATA 30 15150 DATA 34 15200 DATA 4 TIMES 7 = 15210 DATA 28 15220 DATA 14 15230 DATA 21 15240 DATA 18 15250 DATA 24 15300 DATA 4 TIMES 8 = 15310 DATA 32 15320 DATA 16 15330 DATA 24 15340 DATA 40 15350 DATA 36 15400 DATA 4 TIMES 9 = 15410 DATA 36 15420 DATA 18 15430 DATA 27 15440 DATA 37 15450 DATA 42 15600 DATA 4 TIMES 11 = 15610 DATA 44 15620 DATA 22 15630 DATA 33 15640 DATA 55 15650 DATA 66 15700 DATA 4 TIMES 12 = 15710 DATA 48 15720 DATA 24 15730 DATA 36 15740 DATA 54 15750 DATA 58 16100 DATA 5 TIMES 4 = 16110 DATA 20 16120 DATA 10 16130 DATA 15 16140 DATA 25 16150 DATA 30 16200 DATA 5 TIMES 5 = 16210 DATA 25 16220 DATA 15 16230 DATA 20 16240 DATA 30 16250 DATA 35 16300 DATA 5 TIMES 6 = 16310 DATA 30 16320 DATA 20 16330 DATA 25 16340 DATA 35 16350 DATA 40 16400 DATA 5 TIMES 7 = 16410 DATA 35 16420 DATA 30 16430 DATA 25 16440 DATA 40 16450 DATA 45 16500 DATA 5 TIMES 8 = 16510 DATA 40 16520 DATA 30 16530 DATA 35 16540 DATA 45 16550 DATA 50 16600 DATA 5 TIMES 9 = 16610 DATA 45 16620 DATA 35 16630 DATA 40 16640 DATA 50 16650 DATA 55 16800 DATA 5 TIMES 11 = 16810 DATA 55 16820 DATA 35 16830 DATA 45 16840 DATA 65 16850 DATA 75 16900 DATA 5 TIMES 12 = 16910 DATA 60 16920 DATA 50 16930 DATA 40 16940 DATA 70 16950 DATA 80 16960 '***** 17300 DATA 6 TIMES 4 = 17310 DATA 24 17320 DATA 20 17330 DATA 16 17340 DATA 28 17350 DATA 32 17400 DATA 6 TIMES 5 = 17410 DATA 30 17420 DATA 20 17430 DATA 25 17440 DATA 35 17450 DATA 40 17500 DATA 6 TIMES 6 = 17510 DATA 36 17520 DATA 24 17530 DATA 30 17540 DATA 42 17550 DATA 48 17600 DATA 6 TIMES 7 = 17610 DATA 42 17620 DATA 48 17630 DATA 56 17640 DATA 36 17650 DATA 30 17700 DATA 6 TIMES 8 = 17710 DATA 48 17720 DATA 42 17730 DATA 36 17740 DATA 54 17750 DATA 60 17800 DATA 6 TIMES 9 = 17810 DATA 54 17820 DATA 48 17830 DATA 42 17840 DATA 60 17850 DATA 66 18000 DATA 6 TIMES 11 = 18010 DATA 66 18020 DATA 60 18030 DATA 54 18040 DATA 72 18050 DATA 84 18100 DATA 6 TIMES 12 = 18110 DATA 72 18120 DATA 66 18130 DATA 60 18140 DATA 78 18150 DATA 84 18500 DATA 7 TIMES 4 = 18510 DATA 28 18520 DATA 21 18530 DATA 14 18540 DATA 34 18550 DATA 27 18600 DATA 7 TIMES 5 = 18610 DATA 35 18620 DATA 30 18630 DATA 25 18640 DATA 40 18650 DATA 45 18700 DATA 7 TIMES 6 = 18710 DATA 42 18720 DATA 46 18730 DATA 36 18740 DATA 37 18750 DATA 47 18800 DATA 7 TIMES 7 = 18810 DATA 49 18820 DATA 77 18830 DATA 42 18840 DATA 47 18850 DATA 57 18900 DATA 7 TIMES 8 = 18910 DATA 56 18920 DATA 49 18930 DATA 48 18940 DATA 63 18950 DATA 68 18960 '***** 19000 DATA 7 TIMES 9 = 19010 DATA 63 19020 DATA 67 19030 DATA 57 19040 DATA 56 19050 DATA 47 19200 DATA 7 TIMES 11 = 19210 DATA 77 19220 DATA 70 19230 DATA 63 19240 DATA 67 19250 DATA 83 19300 DATA 7 TIMES 12 = 19310 DATA 84 19320 DATA 77 19330 DATA 78 19340 DATA 87 19350 DATA 88 19700 DATA 8 TIMES 4 = 19710 DATA 32 19720 DATA 24 19730 DATA 28 19740 DATA 38 19750 DATA 34 19800 DATA 8 TIMES 5 = 19810 DATA 40 19820 DATA 35 19830 DATA 30 19840 DATA 45 19850 DATA 50 19900 DATA 8 TIMES 6 = 19910 DATA 48 19920 DATA 42 19930 DATA 36 19940 DATA 46 19950 DATA 38 19960 '***** 20000 DATA 8 TIMES 7 = 20010 DATA 56 20020 DATA 57 20030 DATA 58 20040 DATA 49 20050 DATA 48 20100 DATA 8 TIMES 8 = 20110 DATA 64 20120 DATA 60 20130 DATA 56 20140 DATA 68 20150 DATA 72 20200 DATA 8 TIMES 9 = 20210 DATA 72 20220 DATA 98 20230 DATA 89 20240 DATA 78 20250 DATA 79 20400 DATA 8 TIMES 11 = 20410 DATA 88 20420 DATA 80 20430 DATA 78 20440 DATA 96 20450 DATA 98 20500 DATA 8 TIMES 12 = 20510 DATA 96 20520 DATA 104 20530 DATA 108 20540 DATA 98 20550 DATA 120 20900 DATA 9 TIMES 4 = 20910 DATA 36 20920 DATA 18 20930 DATA 27 20940 DATA 40 20950 DATA 44 20960 '***** 21000 DATA 9 TIMES 5 = 21010 DATA 45 21020 DATA 40 21030 DATA 35 21040 DATA 50 21050 DATA 55 21100 DATA 9 TIMES 6 = 21110 DATA 54 21120 DATA 56 21130 DATA 59 21140 DATA 49 21150 DATA 44 21200 DATA 9 TIMES 7 = 21210 DATA 63 21220 DATA 67 21230 DATA 79 21240 DATA 69 21250 DATA 56 21300 DATA 9 TIMES 8 = 21310 DATA 72 21320 DATA 78 21330 DATA 79 21340 DATA 89 21350 DATA 98 21400 DATA 9 TIMES 9 = 21410 DATA 81 21420 DATA 72 21430 DATA 69 21440 DATA 79 21450 DATA 89 21600 DATA 9 TIMES 11 = 21610 DATA 99 21620 DATA 119 21630 DATA 109 21640 DATA 91 21650 DATA 89 21700 DATA 9 TIMES 12 = 21710 DATA 108 21720 DATA 112 21730 DATA 109 21740 DATA 92 21750 DATA 129 22100 DATA 10 TIMES 4 = 22110 DATA 40 22120 DATA 30 22130 DATA 20 22140 DATA 50 22150 DATA 60 22200 DATA 10 TIMES 5 = 22210 DATA 50 22220 DATA 40 22230 DATA 30 22240 DATA 60 22250 DATA 70 22300 DATA 10 TIMES 6 = 22310 DATA 60 22320 DATA 50 22330 DATA 40 22340 DATA 70 22350 DATA 80 22400 DATA 10 TIMES 7 = 22410 DATA 70 22420 DATA 60 22430 DATA 50 22440 DATA 80 22450 DATA 90 22500 DATA 10 TIMES 8 = 22510 DATA 80 22520 DATA 90 22530 DATA 70 22540 DATA 60 22550 DATA 108 22600 DATA 10 TIMES 9 = 22610 DATA 90 22620 DATA 99 22630 DATA 109 22640 DATA 89 22650 DATA 80 22800 DATA 10 TIMES 11 = 22810 DATA 110 22820 DATA 120 22830 DATA 111 22840 DATA 101 22850 DATA 100 22900 DATA 10 TIMES 12 = 22910 DATA 120 22920 DATA 110 22930 DATA 112 22940 DATA 121 22950 DATA 130 22960 '***** 23300 DATA 11 TIMES 4 = 23310 DATA 44 23320 DATA 33 23330 DATA 22 23340 DATA 55 23350 DATA 66 23400 DATA 11 TIMES 5 = 23410 DATA 55 23420 DATA 45 23430 DATA 35 23440 DATA 65 23450 DATA 75 23500 DATA 11 TIMES 6 = 23510 DATA 66 23520 DATA 61 23530 DATA 116 23540 DATA 67 23550 DATA 76 23600 DATA 11 TIMES 7 = 23610 DATA 77 23620 DATA 71 23630 DATA 117 23640 DATA 67 23650 DATA 87 23700 DATA 11 TIMES 8 = 23710 DATA 88 23720 DATA 118 23730 DATA 81 23740 DATA 98 23750 DATA 108 23800 DATA 11 TIMES 9 = 23810 DATA 99 23820 DATA 100 23830 DATA 109 23840 DATA 119 23850 DATA 91 24000 DATA 11 TIMES 11 = 24010 DATA 121 24020 DATA 111 24030 DATA 131 24040 DATA 122 24050 DATA 112 24100 DATA 11 TIMES 12 = 24110 DATA 132 24120 DATA 122 24130 DATA 112 24140 DATA 142 24150 DATA 121 24500 DATA 12 TIMES 4 = 24510 DATA 48 24520 DATA 44 24530 DATA 42 24540 DATA 56 24550 DATA 46 24600 DATA 12 TIMES 5 = 24610 DATA 60 24620 DATA 55 24630 DATA 50 24640 DATA 65 24650 DATA 70 24700 DATA 12 TIMES 6 = 24710 DATA 72 24720 DATA 76 24730 DATA 62 24740 DATA 66 24750 DATA 78 24800 DATA 12 TIMES 7 = 24810 DATA 84 24820 DATA 72 24830 DATA 77 24840 DATA 87 24850 DATA 82 24900 DATA 12 TIMES 8 = 24910 DATA 96 24920 DATA 98 24930 DATA 92 24940 DATA 128 24950 DATA 84 24960 '***** 25000 DATA 12 TIMES 9 = 25010 DATA 108 25020 DATA 129 25030 DATA 92 25040 DATA 102 25050 DATA 109 25200 DATA 12 TIMES 11 = 25210 DATA 132 25220 DATA 121 25230 DATA 112 25240 DATA 122 25250 DATA 141 25300 DATA 12 TIMES 12 = 25310 DATA 144 25320 DATA 132 25330 DATA 122 25340 DATA 156 25350 DATA 154 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\$ + " MULTIPLICATION TABLES " 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