00100 '*****
00101 '*
00102 '* SUBTRACT.BAS
00103 '* MDJ 2022/01/15
00104 '*
00105 '* A QUIZ TO TEST
00106 '* KNOWLEDGE OF
00107 '* SUBTRACTION
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 12 MINUS 1 =
11010 DATA 11
11020 DATA 9
11030 DATA 10
11040 DATA 7
11050 DATA 6

11100 DATA 12 MINUS 2 =
11110 DATA 10
11120 DATA 15
11130 DATA 14
11140 DATA 13
11150 DATA 11

11200 DATA 12 MINUS 3 =
11210 DATA 9
11220 DATA 6
11230 DATA 5
11240 DATA 7
11250 DATA 4

11300 DATA 12 MINUS 4 =
11310 DATA 8
11320 DATA 9
11330 DATA 13
11340 DATA 12
11350 DATA 6

11400 DATA 12 MINUS 5 =
11410 DATA 7
11420 DATA 12
11430 DATA 10
11440 DATA 6
11450 DATA 2

11500 DATA 12 MINUS 6 =
11510 DATA 6
11520 DATA 1
11530 DATA 3
11540 DATA 5
11550 DATA 10

11600 DATA 12 MINUS 7 =
11610 DATA 5
11620 DATA 2
11630 DATA 10
11640 DATA 3
11650 DATA 9

11700 DATA 12 MINUS 8 =
11710 DATA 4
11720 DATA 0
11730 DATA 9
11740 DATA 1
11750 DATA 2

11800 DATA 12 MINUS 9 =
11810 DATA 3
11820 DATA 4
11830 DATA 5
11840 DATA 6
11850 DATA 7

11900 DATA 12 MINUS 10 =
11910 DATA 2
11920 DATA 6
11930 DATA 1
11940 DATA 5
11950 DATA 0

11960 '***** 10

12000 DATA 12 MINUS 11 =
12010 DATA 1
12020 DATA 4
12030 DATA 3
12040 DATA 1
12050 DATA 5

12100 DATA 12 MINUS 12 =
12110 DATA 0
12120 DATA 2
12130 DATA 4
12140 DATA 1
12150 DATA 3

12200 DATA 11 MINUS 1 =
12210 DATA 10
12220 DATA 7
12230 DATA 12
12240 DATA 5
12250 DATA 11

12300 DATA 11 MINUS 2 =
12310 DATA 9
12320 DATA 14
12330 DATA 12
12340 DATA 13
12350 DATA 7

12400 DATA 11 MINUS 3 =
12410 DATA 8
12420 DATA 4
12430 DATA 3
12440 DATA 6
12450 DATA 11

12500 DATA 11 MINUS 4 =
12510 DATA 7
12520 DATA 6
12530 DATA 2
12540 DATA 12
12550 DATA 10

12600 DATA 11 MINUS 5 =
12610 DATA 6
12620 DATA 7
12630 DATA 10
12640 DATA 8
12650 DATA 4

12700 DATA 11 MINUS 6 =
12710 DATA 5
12720 DATA 4
12730 DATA 6
12740 DATA 9
12750 DATA 10

12800 DATA 11 MINUS 7 =
12810 DATA 4
12820 DATA 9
12830 DATA 2
12840 DATA 0
12850 DATA 1

12900 DATA 11 MINUS 8 =
12910 DATA 3
12920 DATA 5
12930 DATA 2
12940 DATA 8
12950 DATA 1

12960 '***** 20

13000 DATA 11 MINUS 9 =
13010 DATA 2
13020 DATA 7
13030 DATA 4
13040 DATA 3
13050 DATA 1

13100 DATA 11 MINUS 10 =
13110 DATA 1
13120 DATA 5
13130 DATA 2
13140 DATA 4
13150 DATA 3

13200 DATA 11 MINUS 11 =
13210 DATA 0
13220 DATA 6
13230 DATA 1
13240 DATA 5
13250 DATA 2

13300 DATA 10 MINUS 1 =
13310 DATA 9
13320 DATA 11
13330 DATA 4
13340 DATA 7
13350 DATA 5

13400 DATA 10 MINUS 2 =
13410 DATA 8
13420 DATA 11
13430 DATA 10
13440 DATA 6
13450 DATA 13

13500 DATA 10 MINUS 3 =
13510 DATA 7
13520 DATA 2
13530 DATA 1
13540 DATA 8
13550 DATA 6

13600 DATA 10 MINUS 4 =
13610 DATA 6
13620 DATA 5
13630 DATA 3
13640 DATA 11
13650 DATA 4

13700 DATA 10 MINUS 5 =
13710 DATA 5
13720 DATA 7
13730 DATA 1
13740 DATA 3
13750 DATA 2

13800 DATA 10 MINUS 6 =
13810 DATA 4
13820 DATA 7
13830 DATA 5
13840 DATA 2
13850 DATA 1

13900 DATA 10 MINUS 7 =
13910 DATA 3
13920 DATA 2
13930 DATA 1
13940 DATA 4
13950 DATA 5

13960 '***** 30

14000 DATA 10 MINUS 8 =
14010 DATA 2
14020 DATA 8
14030 DATA 1
14040 DATA 4
14050 DATA 7

14100 DATA 10 MINUS 9 =
14110 DATA 1
14120 DATA 0
14130 DATA 3
14140 DATA 4
14150 DATA 2

14200 DATA 10 MINUS 10 =
14210 DATA 0
14220 DATA 5
14230 DATA 3
14240 DATA 1
14250 DATA 2

14300 DATA 9 MINUS 1 =
14310 DATA 8
14320 DATA 9
14330 DATA 3
14340 DATA 5
14350 DATA 12

14400 DATA 9 MINUS 2 =
14410 DATA 7
14420 DATA 12
14430 DATA 8
14440 DATA 6
14450 DATA 4

14500 DATA 9 MINUS 3 =
14510 DATA 6
14520 DATA 11
14530 DATA 2
14540 DATA 8
14550 DATA 7

14600 DATA 9 MINUS 4 =
14610 DATA 5
14620 DATA 3
14630 DATA 0
14640 DATA 8
14650 DATA 10

14700 DATA 9 MINUS 5 =
14710 DATA 4
14720 DATA 5
14730 DATA 9
14740 DATA 6
14750 DATA 0

14800 DATA 9 MINUS 6 =
14810 DATA 3
14820 DATA 4
14830 DATA 7
14840 DATA 1
14850 DATA 2

14900 DATA 9 MINUS 7 =
14910 DATA 2
14920 DATA 3
14930 DATA 6
14940 DATA 4
14950 DATA 1

14960 '***** 40

15000 DATA 9 MINUS 8 =
15010 DATA 1
15020 DATA 3
15030 DATA 4
15040 DATA 0
15050 DATA 6

15100 DATA 9 MINUS 9 =
15110 DATA 0
15120 DATA 5
15130 DATA 4
15140 DATA 3
15150 DATA 2

15200 DATA 8 MINUS 1 =
15210 DATA 7
15220 DATA 6
15230 DATA 2
15240 DATA 10
15250 DATA 11

15300 DATA 8 MINUS 2 =
15310 DATA 6
15320 DATA 4
15330 DATA 11
15340 DATA 7
15350 DATA 18

15400 DATA 8 MINUS 3 =
15410 DATA 5
15420 DATA 1
15430 DATA 3
15440 DATA 9
15450 DATA 2

15500 DATA 8 MINUS 4 =
15510 DATA 4
15520 DATA 3
15530 DATA 1
15540 DATA 6
15550 DATA 7

15600 DATA 8 MINUS 5 =
15610 DATA 3
15620 DATA 4
15630 DATA 1
15640 DATA 5
15650 DATA 2

15700 DATA 8 MINUS 6 =
15710 DATA 2
15720 DATA 1
15730 DATA 9
15740 DATA 4
15750 DATA 3

15800 DATA 8 MINUS 7 =
15810 DATA 1
15820 DATA 2
15830 DATA 3
15840 DATA 4
15850 DATA 6

15900 DATA 8 MINUS 8 =
15910 DATA 0
15920 DATA 5
15930 DATA 3
15940 DATA 1
15950 DATA 6

15960 '***** 50

16000 DATA 7 MINUS 1 =
16010 DATA 6
16020 DATA 8
16030 DATA 4
16040 DATA 9
16050 DATA 2

16100 DATA 7 MINUS 2 =
16110 DATA 5
16120 DATA 1
16130 DATA 10
16140 DATA 3
16150 DATA 2

16200 DATA 7 MINUS 3 =
16210 DATA 4
16220 DATA 5
16230 DATA 1
16240 DATA 6
16250 DATA 2

16300 DATA 7 MINUS 4 =
16310 DATA 3
16320 DATA 1
16330 DATA 0
16340 DATA 2
16350 DATA 4

16400 DATA 7 MINUS 5 =
16410 DATA 2
16420 DATA 1
16430 DATA 3
16440 DATA 4
16450 DATA 7

16500 DATA 7 MINUS 6 =
16510 DATA 1
16520 DATA 5
16530 DATA 6
16540 DATA 2
16550 DATA 4

16600 DATA 7 MINUS 7 =
16610 DATA 0
16620 DATA 3
16630 DATA 5
16640 DATA 1
16650 DATA 2

16700 DATA 6 MINUS 1 =
16710 DATA 5
16720 DATA 2
16730 DATA 4
16740 DATA 7
16750 DATA 10

16800 DATA 6 MINUS 2 =
16810 DATA 4
16820 DATA 9
16830 DATA 0
16840 DATA 2
16850 DATA 1

16900 DATA 6 MINUS 3 =
16910 DATA 3
16920 DATA 0
16930 DATA 1
16940 DATA 2
16950 DATA 7

16960 '***** 60

17000 DATA 6 MINUS 4 =
17010 DATA 2
17020 DATA 3
17030 DATA 1
17040 DATA 6
17050 DATA 4

17100 DATA 6 MINUS 5 =
17110 DATA 1
17120 DATA 2
17130 DATA 0
17140 DATA 3
17150 DATA 4

17200 DATA 6 MINUS 6 =
17210 DATA 0
17220 DATA 1
17230 DATA 2
17240 DATA 3
17250 DATA 4

17300 DATA 5 MINUS 1 =
17310 DATA 4
17320 DATA 6
17330 DATA 5
17340 DATA 1
17350 DATA 7

17400 DATA 5 MINUS 2 =
17410 DATA 3
17420 DATA 1
17430 DATA 2
17440 DATA 4
17450 DATA 5

17500 DATA 5 MINUS 3 =
17510 DATA 2
17520 DATA 1
17530 DATA 5
17540 DATA 3
17550 DATA 4

17600 DATA 5 MINUS 4 =
17610 DATA 1
17620 DATA 2
17630 DATA 5
17640 DATA 3
17650 DATA 4

17700 DATA 5 MINUS 5 =
17710 DATA 0
17720 DATA 2
17730 DATA 5
17740 DATA 4
17750 DATA 1

17800 DATA 4 MINUS 1 =
17810 DATA 3
17820 DATA 2
17830 DATA 6
17840 DATA 5
17850 DATA 7

17900 DATA 4 MINUS 2 =
17910 DATA 2
17920 DATA 1
17930 DATA 3
17940 DATA 7
17950 DATA 4

17960 '***** 70

18000 DATA 4 MINUS 3 =
18010 DATA 1
18020 DATA 0
18030 DATA 3
18040 DATA 5
18050 DATA 2

18100 DATA 4 MINUS 4 =
18110 DATA 0
18120 DATA 4
18130 DATA 2
18140 DATA 6
18150 DATA 5

18200 DATA 3 MINUS 1 =
18210 DATA 2
18220 DATA 1
18230 DATA 6
18240 DATA 3
18250 DATA 7

18300 DATA 3 MINUS 2 =
18310 DATA 1
18320 DATA 4
18330 DATA 5
18340 DATA 2
18350 DATA 3

18400 DATA 3 MINUS 3 =
18410 DATA 0
18420 DATA 1
18430 DATA 4
18440 DATA 5
18450 DATA 2

18500 DATA 2 MINUS 1 =
18510 DATA 1
18520 DATA 3
18530 DATA 5
18540 DATA 4
18550 DATA 2

18600 DATA 2 MINUS 2 =
18610 DATA 0
18620 DATA 4
18630 DATA 2
18640 DATA 5
18650 DATA 3

18700 DATA 13 MINUS 1 =
18710 DATA 12
18720 DATA 17
18730 DATA 15
18740 DATA 9
18750 DATA 8

18800 DATA 13 MINUS 2 =
18810 DATA 11
18820 DATA 9
18830 DATA 12
18840 DATA 15
18850 DATA 14

18900 DATA 13 MINUS 3 =
18910 DATA 10
18920 DATA 5
18930 DATA 15
18940 DATA 7
18950 DATA 9

18960 '***** 80

19000 DATA 13 MINUS 4 =
19010 DATA 9
19020 DATA 4
19030 DATA 8
19040 DATA 12
19050 DATA 7

19100 DATA 13 MINUS 5 =
19110 DATA 8
19120 DATA 13
19130 DATA 10
19140 DATA 7
19150 DATA 5

19200 DATA 13 MINUS 6 =
19210 DATA 7
19220 DATA 4
19230 DATA 2
19240 DATA 10
19250 DATA 5

19300 DATA 13 MINUS 7 =
19310 DATA 6
19320 DATA 1
19330 DATA 5
19340 DATA 3
19350 DATA 2

19400 DATA 13 MINUS 8 =
19410 DATA 5
19420 DATA 7
19430 DATA 8
19440 DATA 1
19450 DATA 6

19500 DATA 13 MINUS 9 =
19510 DATA 4
19520 DATA 8
19530 DATA 3
19540 DATA 2
19550 DATA 1

19600 DATA 13 MINUS 10 =
19610 DATA 3
19620 DATA 2
19630 DATA 1
19640 DATA 0
19650 DATA 4

19700 DATA 13 MINUS 11 =
19710 DATA 2
19720 DATA 3
19730 DATA 4
19740 DATA 5
19750 DATA 1

19800 DATA 13 MINUS 12 =
19810 DATA 1
19820 DATA 4
19830 DATA 2
19840 DATA 0
19850 DATA 3

19900 DATA 13 MINUS 13 =
19910 DATA 0
19920 DATA 5
19930 DATA 3
19940 DATA 2
19950 DATA 4

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$ + "   SUBTRACTION 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