00100 '***** 00101 '* 00102 '* ADDITION.BAS 00103 '* MDJ 2022/01/08 00104 '* 00105 '* A QUIZ TO TEST 00106 '* KNOWLEDGE OF 00107 '* ADDITION 00108 '* 00109 '***** 00110 'GO TO THE PROGRAM'S 00120 'EXECUTIVE ROUTINE 00130 GOTO 4220 00131 ' HEADER 00100 00132 ' SELECT 00200 00133 ' EXEC 04000 00134 ' MAIN 05000 00135 ' DATA 10500 00136 ' INIT 27500 00137 ' SPLASH 29500 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(90) - 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 = 90 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 '***** 11000 DATA 2 PLUS 2 = 11010 DATA 4 11020 DATA 2 11030 DATA 3 11040 DATA 5 11050 DATA 6 11100 DATA 2 PLUS 3 = 11110 DATA 5 11120 DATA 4 11130 DATA 6 11140 DATA 7 11150 DATA 8 11200 DATA 2 PLUS 4 = 11210 DATA 6 11220 DATA 4 11230 DATA 5 11240 DATA 7 11250 DATA 8 11300 DATA 2 PLUS 5 = 11310 DATA 7 11320 DATA 8 11330 DATA 9 11340 DATA 11 11350 DATA 12 11400 DATA 2 PLUS 6 = 11410 DATA 8 11420 DATA 4 11430 DATA 6 11440 DATA 9 11450 DATA 10 11500 DATA 2 PLUS 7 = 11510 DATA 9 11520 DATA 8 11530 DATA 7 11540 DATA 10 11550 DATA 11 11600 DATA 2 PLUS 8 = 11610 DATA 10 11620 DATA 9 11630 DATA 8 11640 DATA 11 11650 DATA 23 11700 DATA 2 PLUS 9 = 11710 DATA 11 11720 DATA 10 11730 DATA 12 11740 DATA 14 11750 DATA 15 11800 DATA 2 PLUS 11 = 11810 DATA 13 11820 DATA 11 11830 DATA 12 11840 DATA 14 11850 DATA 15 11900 DATA 2 PLUS 12 = 11910 DATA 14 11920 DATA 12 11930 DATA 16 11940 DATA 18 11950 DATA 20 11960 '***** 10 12000 DATA 3 PLUS 3 = 12010 DATA 6 12020 DATA 4 12030 DATA 5 12040 DATA 7 12050 DATA 8 12100 DATA 3 PLUS 4 = 12110 DATA 7 12120 DATA 5 12130 DATA 6 12140 DATA 8 12150 DATA 9 12200 DATA 3 PLUS 5 = 12210 DATA 8 12220 DATA 9 12230 DATA 7 12240 DATA 6 12250 DATA 5 12300 DATA 3 PLUS 6 = 12310 DATA 9 12320 DATA 8 12330 DATA 7 12340 DATA 6 12350 DATA 10 12400 DATA 3 PLUS 7 = 12410 DATA 10 12420 DATA 9 12430 DATA 8 12440 DATA 11 12450 DATA 12 12500 DATA 3 PLUS 8 = 12510 DATA 11 12520 DATA 10 12530 DATA 9 12540 DATA 12 12550 DATA 13 12600 DATA 3 PLUS 9 = 12610 DATA 12 12620 DATA 11 12630 DATA 10 12640 DATA 13 12650 DATA 14 12700 DATA 3 PLUS 10 = 12710 DATA 13 12720 DATA 12 12730 DATA 11 12740 DATA 14 12750 DATA 15 12800 DATA 3 PLUS 11 = 12810 DATA 14 12820 DATA 13 12830 DATA 12 12840 DATA 15 12850 DATA 16 12900 DATA 3 PLUS 12 = 12910 DATA 15 12920 DATA 14 12930 DATA 13 12940 DATA 16 12950 DATA 17 12960 '***** 20 13000 DATA 4 PLUS 3 = 13010 DATA 7 13020 DATA 6 13030 DATA 5 13040 DATA 8 13050 DATA 9 13100 DATA 4 PLUS 4 = 13110 DATA 8 13120 DATA 7 13130 DATA 6 13140 DATA 5 13150 DATA 9 13200 DATA 4 PLUS 5 = 13210 DATA 9 13220 DATA 8 13230 DATA 7 13240 DATA 6 13250 DATA 10 13300 DATA 4 PLUS 6 = 13310 DATA 10 13320 DATA 9 13330 DATA 8 13340 DATA 11 13350 DATA 12 13400 DATA 4 PLUS 7 = 13410 DATA 11 13420 DATA 10 13430 DATA 9 13440 DATA 12 13450 DATA 13 13500 DATA 4 PLUS 8 = 13510 DATA 12 13520 DATA 11 13530 DATA 10 13540 DATA 13 13550 DATA 14 13600 DATA 4 PLUS 9 = 13610 DATA 13 13620 DATA 12 13630 DATA 11 13640 DATA 14 13650 DATA 15 13700 DATA 4 PLUS 10 = 13710 DATA 14 13720 DATA 12 13730 DATA 10 13740 DATA 15 13750 DATA 16 13800 DATA 4 PLUS 11 = 13810 DATA 15 13820 DATA 14 13830 DATA 13 13840 DATA 16 13850 DATA 17 13900 DATA 4 PLUS 12 = 13910 DATA 16 13920 DATA 15 13930 DATA 14 13940 DATA 17 13950 DATA 18 13960 '***** 30 14000 DATA 5 PLUS 3 = 14010 DATA 8 14020 DATA 7 14030 DATA 6 14040 DATA 9 14050 DATA 10 14100 DATA 5 PLUS 4 = 14110 DATA 9 14120 DATA 8 14130 DATA 7 14140 DATA 10 14150 DATA 11 14200 DATA 5 PLUS 5 = 14210 DATA 10 14220 DATA 9 14230 DATA 8 14240 DATA 11 14250 DATA 12 14300 DATA 5 PLUS 6 = 14310 DATA 11 14320 DATA 10 14330 DATA 9 14340 DATA 12 14350 DATA 13 14400 DATA 5 PLUS 7 = 14410 DATA 12 14420 DATA 11 14430 DATA 10 14440 DATA 13 14450 DATA 14 14500 DATA 5 PLUS 8 = 14510 DATA 13 14520 DATA 12 14530 DATA 11 14540 DATA 14 14550 DATA 15 14600 DATA 5 PLUS 9 = 14610 DATA 14 14620 DATA 13 14630 DATA 12 14640 DATA 15 14650 DATA 16 14700 DATA 5 PLUS 10 = 14710 DATA 15 14720 DATA 13 14730 DATA 11 14740 DATA 17 14750 DATA 19 14800 DATA 5 PLUS 11 = 14810 DATA 16 14820 DATA 15 14830 DATA 14 14840 DATA 17 14850 DATA 18 14900 DATA 5 PLUS 12 = 14910 DATA 17 14920 DATA 16 14930 DATA 15 14940 DATA 18 14950 DATA 19 14960 '***** 40 15000 DATA 6 PLUS 3 = 15010 DATA 9 15020 DATA 8 15030 DATA 7 15040 DATA 10 15050 DATA 11 15100 DATA 6 PLUS 4 = 15110 DATA 10 15120 DATA 9 15130 DATA 8 15140 DATA 7 15150 DATA 6 15200 DATA 6 PLUS 5 = 15210 DATA 11 15220 DATA 10 15230 DATA 12 15240 DATA 13 15250 DATA 14 15300 DATA 6 PLUS 6 = 15310 DATA 12 15320 DATA 11 15330 DATA 10 15340 DATA 13 15350 DATA 14 15400 DATA 6 PLUS 7 = 15410 DATA 13 15420 DATA 12 15430 DATA 11 15440 DATA 10 15450 DATA 14 15500 DATA 6 PLUS 8 = 15510 DATA 14 15520 DATA 13 15530 DATA 12 15540 DATA 10 15550 DATA 16 15600 DATA 6 PLUS 9 = 15610 DATA 15 15620 DATA 13 15630 DATA 11 15640 DATA 17 15650 DATA 19 15700 DATA 6 PLUS 10 = 15710 DATA 16 15720 DATA 14 15730 DATA 12 15740 DATA 18 15750 DATA 20 15800 DATA 6 PLUS 11 = 15810 DATA 17 15820 DATA 16 15830 DATA 15 15840 DATA 18 15850 DATA 19 15900 DATA 6 PLUS 12 = 15910 DATA 18 15920 DATA 16 15930 DATA 14 15940 DATA 17 15950 DATA 20 15960 '***** 50 16000 DATA 7 PLUS 3 = 16010 DATA 10 16020 DATA 9 16030 DATA 8 16040 DATA 11 16050 DATA 12 16100 DATA 7 PLUS 4 = 16110 DATA 11 16120 DATA 10 16130 DATA 9 16140 DATA 12 16150 DATA 13 16200 DATA 7 PLUS 5 = 16210 DATA 12 16220 DATA 11 16230 DATA 10 16240 DATA 13 16250 DATA 14 16300 DATA 7 PLUS 6 = 16310 DATA 13 16320 DATA 12 16330 DATA 11 16340 DATA 14 16350 DATA 15 16400 DATA 7 PLUS 7 = 16410 DATA 14 16420 DATA 13 16430 DATA 12 16440 DATA 15 16450 DATA 16 16500 DATA 7 PLUS 8 = 16510 DATA 15 16520 DATA 13 16530 DATA 11 16540 DATA 17 16550 DATA 19 16600 DATA 7 PLUS 9 = 16610 DATA 16 16620 DATA 15 16630 DATA 14 16640 DATA 17 16650 DATA 18 16700 DATA 7 PLUS 10 = 16710 DATA 17 16720 DATA 15 16730 DATA 13 16740 DATA 19 16750 DATA 20 16800 DATA 7 PLUS 11 = 16810 DATA 18 16820 DATA 17 16830 DATA 16 16840 DATA 19 16850 DATA 20 16900 DATA 7 PLUS 12 = 16910 DATA 19 16920 DATA 18 16930 DATA 17 16940 DATA 16 16950 DATA 20 16960 '***** 60 17000 DATA 8 PLUS 3 = 17010 DATA 11 17020 DATA 10 17030 DATA 9 17040 DATA 12 17050 DATA 13 17100 DATA 8 PLUS 4 = 17110 DATA 12 17120 DATA 11 17130 DATA 10 17140 DATA 13 17150 DATA 14 17200 DATA 8 PLUS 5 = 17210 DATA 13 17220 DATA 12 17230 DATA 11 17240 DATA 14 17250 DATA 15 17300 DATA 8 PLUS 6 = 17310 DATA 14 17320 DATA 13 17330 DATA 12 17340 DATA 15 17350 DATA 16 17400 DATA 8 PLUS 7 = 17410 DATA 15 17420 DATA 14 17430 DATA 13 17440 DATA 16 17450 DATA 17 17500 DATA 8 PLUS 8 = 17510 DATA 16 17520 DATA 15 17530 DATA 14 17540 DATA 17 17550 DATA 18 17600 DATA 8 PLUS 9 = 17610 DATA 17 17620 DATA 16 17630 DATA 15 17640 DATA 18 17650 DATA 19 17700 DATA 8 PLUS 10 = 17710 DATA 18 17720 DATA 16 17730 DATA 14 17740 DATA 20 17750 DATA 28 17800 DATA 8 PLUS 11 = 17810 DATA 19 17820 DATA 17 17830 DATA 15 17840 DATA 21 17850 DATA 27 17900 DATA 8 PLUS 12 = 17910 DATA 20 17920 DATA 18 17930 DATA 16 17940 DATA 22 17950 DATA 24 17960 '***** 70 18000 DATA 9 PLUS 3 = 18010 DATA 12 18020 DATA 11 18030 DATA 10 18040 DATA 13 18050 DATA 14 18100 DATA 9 PLUS 5 = 18110 DATA 14 18120 DATA 13 18130 DATA 12 18140 DATA 15 18150 DATA 16 18200 DATA 9 PLUS 7 = 18210 DATA 16 18220 DATA 14 18230 DATA 12 18240 DATA 18 18250 DATA 20 18300 DATA 9 PLUS 9 = 18310 DATA 18 18320 DATA 16 18330 DATA 14 18340 DATA 19 18350 DATA 29 18400 DATA 9 PLUS 11 = 18410 DATA 20 18420 DATA 18 18430 DATA 16 18440 DATA 22 18450 DATA 24 18500 DATA 11 PLUS 2 = 18510 DATA 13 18520 DATA 12 18530 DATA 11 18540 DATA 14 18550 DATA 15 18600 DATA 11 PLUS 4 = 18610 DATA 15 18620 DATA 14 18630 DATA 13 18640 DATA 16 18650 DATA 17 18700 DATA 11 PLUS 6 = 18710 DATA 17 18720 DATA 15 18730 DATA 13 18740 DATA 19 18750 DATA 116 18800 DATA 11 PLUS 8 = 18810 DATA 19 18820 DATA 17 18830 DATA 15 18840 DATA 21 18850 DATA 23 18900 DATA 11 PLUS 11 = 18910 DATA 22 18920 DATA 20 18930 DATA 18 18940 DATA 24 18950 DATA 121 18960 '***** 80 19000 DATA 12 PLUS 3 = 19010 DATA 15 19020 DATA 14 19030 DATA 13 19040 DATA 16 19050 DATA 17 19100 DATA 12 PLUS 4 = 19110 DATA 16 19120 DATA 15 19130 DATA 14 19140 DATA 17 19150 DATA 18 19200 DATA 12 PLUS 5 = 19210 DATA 17 19220 DATA 15 19230 DATA 13 19240 DATA 19 19250 DATA 21 19300 DATA 12 PLUS 6 = 19310 DATA 18 19320 DATA 16 19330 DATA 15 19340 DATA 20 19350 DATA 22 19400 DATA 12 PLUS 7 = 19410 DATA 19 19420 DATA 18 19430 DATA 17 19440 DATA 20 19450 DATA 21 19500 DATA 12 PLUS 8 = 19510 DATA 20 19520 DATA 18 19530 DATA 16 19540 DATA 22 19550 DATA 128 19600 DATA 12 PLUS 9 = 19610 DATA 21 19620 DATA 19 19630 DATA 17 19640 DATA 23 19650 DATA 129 19700 DATA 12 PLUS 10 = 19710 DATA 22 19720 DATA 20 19730 DATA 18 19740 DATA 24 19750 DATA 26 19800 DATA 12 PLUS 11 = 19810 DATA 23 19820 DATA 21 19830 DATA 19 19840 DATA 25 19850 DATA 27 19900 DATA 12 PLUS 12 = 19910 DATA 24 19920 DATA 22 19930 DATA 20 19940 DATA 26 19950 DATA 28 19960 '***** 90 20000 '***** 20010 '* 20020 '* END OF DATA LIST 20030 '* 20040 '***** 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$ + " ADDITION PRACTICE " 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 30290 '* 30300 '***** 32767 END