00100 '***** 00101 '* 00102 '* ADVSUB.BAS 00103 '* MDJ 2022/01/20 00104 '* 00105 '* A QUIZ TO TEST 00106 '* KNOWLEDGE OF 00107 '* ADVANCED 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 34 MINUS 29 = 11010 DATA 5 11020 DATA 4 11030 DATA 0 11040 DATA 10 11050 DATA 9 11100 DATA 66 MINUS 29 = 11110 DATA 37 11120 DATA 35 11130 DATA 33 11140 DATA 39 11150 DATA 40 11200 DATA 91 MINUS 3 = 11210 DATA 88 11220 DATA 87 11230 DATA 89 11240 DATA 91 11250 DATA 85 11300 DATA 54 MINUS 75 = 11310 DATA -21 11320 DATA 21 11330 DATA -20 11340 DATA 16 11350 DATA -24 11400 DATA 37 MINUS 93 = 11410 DATA -56 11420 DATA 56 11430 DATA -58 11440 DATA -59 11450 DATA 51 11500 DATA -85 MINUS -80 = 11510 DATA -5 11520 DATA 5 11530 DATA -2 11540 DATA 7 11550 DATA -6 11600 DATA 53 MINUS 34 = 11610 DATA 19 11620 DATA 23 11630 DATA 17 11640 DATA 18 11650 DATA 21 11700 DATA 25 MINUS 9 = 11710 DATA 16 11720 DATA 20 11730 DATA 14 11740 DATA 21 11750 DATA 11 11800 DATA -30 MINUS 43 = 11810 DATA -73 11820 DATA 73 11830 DATA -75 11840 DATA -69 11850 DATA 71 11900 DATA 13 MINUS 51 = 11910 DATA -38 11920 DATA 38 11930 DATA -39 11940 DATA -40 11950 DATA 35 11960 '***** 10 12000 DATA -88 MINUS 65 = 12010 DATA -153 12020 DATA 153 12030 DATA -23 12040 DATA 23 12050 DATA -155 12100 DATA -23 MINUS 37 = 12110 DATA -60 12120 DATA 60 12130 DATA -64 12140 DATA 57 12150 DATA 62 12200 DATA 87 MINUS 73 = 12210 DATA 14 12220 DATA 9 12230 DATA 16 12240 DATA 11 12250 DATA 17 12300 DATA 17 MINUS 28 = 12310 DATA -11 12320 DATA 11 12330 DATA -13 12340 DATA 13 12350 DATA 15 12400 DATA 21 MINUS 32 = 12410 DATA -11 12420 DATA 11 12430 DATA -13 12440 DATA 13 12450 DATA 9 12500 DATA 85 MINUS 59 = 12510 DATA 26 12520 DATA 21 12530 DATA 22 12540 DATA 27 12550 DATA 30 12600 DATA -100 MINUS -30 = 12610 DATA -70 12620 DATA 70 12630 DATA -68 12640 DATA 68 12650 DATA 72 12700 DATA 71 MINUS 49 = 12710 DATA 22 12720 DATA 24 12730 DATA 18 12740 DATA 25 12750 DATA 20 12800 DATA 24 MINUS 67 = 12810 DATA -43 12820 DATA 43 12830 DATA -42 12840 DATA 42 12850 DATA 45 12900 DATA 87 MINUS -73 = 12910 DATA 160 12920 DATA -160 12930 DATA -161 12940 DATA -157 12950 DATA 157 12960 '***** 20 13000 DATA 40 MINUS 6 = 13010 DATA 34 13020 DATA 39 13030 DATA 30 13040 DATA 29 13050 DATA 37 13100 DATA 19 MINUS 93 = 13110 DATA -74 13120 DATA 74 13130 DATA -77 13140 DATA 77 13150 DATA -76 13200 DATA 83 MINUS 92 = 13210 DATA -9 13220 DATA 9 13230 DATA -11 13240 DATA 11 13250 DATA -8 13300 DATA 8 MINUS 60 = 13310 DATA -52 13320 DATA 52 13330 DATA -54 13340 DATA 54 13350 DATA -51 13400 DATA 19 MINUS 24 = 13410 DATA -5 13420 DATA 4 13430 DATA 5 13440 DATA -4 13450 DATA -6 13500 DATA -38 MINUS 66 = 13510 DATA -104 13520 DATA 104 13530 DATA -110 13540 DATA 110 13550 DATA -105 13600 DATA 55 MINUS 2 = 13610 DATA 53 13620 DATA 57 13630 DATA 54 13640 DATA 55 13650 DATA 52 13700 DATA 89 MINUS 73 = 13710 DATA 16 13720 DATA 11 13730 DATA 12 13740 DATA 15 13750 DATA 18 13800 DATA -55 MINUS -24 = 13810 DATA -31 13820 DATA 31 13830 DATA -27 13840 DATA 27 13850 DATA -34 13900 DATA 100 MINUS 89 = 13910 DATA 11 13920 DATA 13 13930 DATA 8 13940 DATA 16 13950 DATA 14 13960 '***** 30 14000 DATA 180 MINUS -635 = 14010 DATA 815 14020 DATA -815 14030 DATA 455 14040 DATA -455 14050 DATA 805 14100 DATA 421 MINUS 725 = 14110 DATA -304 14120 DATA 304 14130 DATA 312 14140 DATA -312 14150 DATA -308 14200 DATA 907 MINUS -336 = 14210 DATA 1243 14220 DATA -1243 14230 DATA 1233 14240 DATA -1233 14250 DATA 1313 14300 DATA 476 MINUS -827 = 14310 DATA 1303 14320 DATA -1303 14330 DATA 1285 14340 DATA -1285 14350 DATA 1380 14400 DATA 308 MINUS 805 = 14410 DATA -497 14420 DATA 497 14430 DATA -490 14440 DATA 490 14450 DATA 506 14500 DATA -239 MINUS 615 = 14510 DATA -854 14520 DATA 854 14530 DATA 376 14540 DATA -376 14550 DATA -856 14600 DATA 190 MINUS 371 = 14610 DATA -181 14620 DATA 181 14630 DATA -187 14640 DATA 187 14650 DATA -177 14700 DATA 378 MINUS 740 = 14710 DATA -362 14720 DATA 362 14730 DATA -368 14740 DATA 368 14750 DATA 371 14800 DATA -460 MINUS 215 = 14810 DATA -675 14820 DATA 675 14830 DATA 245 14840 DATA -245 14850 DATA -671 14900 DATA 275 MINUS 79 = 14910 DATA 196 14920 DATA 189 14930 DATA 193 14940 DATA 188 14950 DATA 200 14960 '***** 40 15000 DATA 325 MINUS 781 = 15010 DATA -456 15020 DATA 456 15030 DATA -464 15040 DATA 464 15050 DATA -454 15100 DATA 678 MINUS 956 = 15110 DATA -278 15120 DATA 284 15130 DATA 278 15140 DATA -284 15150 DATA -282 15200 DATA 381 MINUS 793 = 15210 DATA -412 15220 DATA 412 15230 DATA -421 15240 DATA 421 15250 DATA 404 15300 DATA 193 MINUS 975 = 15310 DATA -782 15320 DATA 782 15330 DATA -786 15340 DATA 786 15350 DATA -776 15400 DATA 564 MINUS 914 = 15410 DATA -350 15420 DATA 350 15430 DATA -348 15440 DATA 348 15450 DATA 357 15500 DATA 734 MINUS 490 = 15510 DATA 244 15520 DATA 245 15530 DATA 240 15540 DATA 250 15550 DATA 246 15600 DATA -985 MINUS 22 = 15610 DATA -1007 15620 DATA -963 15630 DATA 1007 15640 DATA 963 15650 DATA -1009 15700 DATA 736 MINUS -689 = 15710 DATA 1425 15720 DATA -1425 15730 DATA 47 15740 DATA -47 15750 DATA 1435 15800 DATA 639 MINUS 111 = 15810 DATA 528 15820 DATA 531 15830 DATA 537 15840 DATA 526 15850 DATA 532 15900 DATA 328 MINUS 317 = 15910 DATA 11 15920 DATA 1 15930 DATA 21 15940 DATA 14 15950 DATA 15 15960 '***** 50 16000 DATA 981 MINUS 819 = 16010 DATA 162 16020 DATA 169 16030 DATA 163 16040 DATA 160 16050 DATA 158 16100 DATA 346 MINUS 7 = 16110 DATA 339 16120 DATA 347 16130 DATA 335 16140 DATA 331 16150 DATA 346 16200 DATA 391 MINUS 581 = 16210 DATA -190 16220 DATA 190 16230 DATA -186 16240 DATA 186 16250 DATA -197 16300 DATA 231 MINUS 251 = 16310 DATA -20 16320 DATA 20 16330 DATA -22 16340 DATA 22 16350 DATA -21 16400 DATA 498 MINUS 406 = 16410 DATA 92 16420 DATA 95 16430 DATA 97 16440 DATA 96 16450 DATA 88 16500 DATA 793 MINUS -989 = 16510 DATA 1782 16520 DATA -1782 16530 DATA 196 16540 DATA -196 16550 DATA 1792 16600 DATA 393 MINUS 279 = 16610 DATA 114 16620 DATA 108 16630 DATA 112 16640 DATA 124 16650 DATA 122 16700 DATA 860 MINUS 820 = 16710 DATA 40 16720 DATA 44 16730 DATA 42 16740 DATA 35 16750 DATA 37 16800 DATA -709 MINUS 188 = 16810 DATA -897 16820 DATA 897 16830 DATA 521 16840 DATA -521 16850 DATA -895 16900 DATA 796 MINUS 847 = 16910 DATA -51 16920 DATA 51 16930 DATA -49 16940 DATA 49 16950 DATA -54 16960 '***** 60 17000 DATA 4872 MINUS -3125 = 17010 DATA 7997 17020 DATA -7997 17030 DATA 1747 17040 DATA -1747 17050 DATA 7999 17100 DATA 280 MINUS -1272 = 17110 DATA 1552 17120 DATA -1552 17130 DATA 992 17140 DATA -992 17150 DATA 1554 17200 DATA 1662 MINUS 5812 = 17210 DATA -4150 17220 DATA 4150 17230 DATA -4070 17240 DATA 4070 17250 DATA -4188 17300 DATA 6130 MINUS 6568 = 17310 DATA -438 17320 DATA 438 17330 DATA -442 17340 DATA 442 17350 DATA -430 17400 DATA -4251 MINUS 5863 = 17410 DATA "-10,114" 17420 DATA "10,114" 17430 DATA 1612 17440 DATA -1612 17450 DATA "-10,112" 17500 DATA 3129 MINUS 3403 = 17510 DATA -274 17520 DATA 274 17530 DATA -276 17540 DATA 276 17550 DATA -283 17600 DATA 723 MINUS 6564 = 17610 DATA -5841 17620 DATA 5841 17630 DATA -5891 17640 DATA 5891 17650 DATA 5884 17700 DATA 7945 MINUS 8287 = 17710 DATA -342 17720 DATA 342 17730 DATA -340 17740 DATA 340 17750 DATA 341 17800 DATA 129 MINUS 9729 = 17810 DATA -9600 17820 DATA 9620 17830 DATA -9630 17840 DATA 9630 17850 DATA 9640 17900 DATA 4403 MINUS 12 = 17910 DATA 4391 17920 DATA 4401 17930 DATA 4387 17940 DATA 4474 17950 DATA 4386 17960 '***** 70 18000 DATA 4556 MINUS 9828 = 18010 DATA -5272 18020 DATA 5272 18030 DATA -5262 18040 DATA 5262 18050 DATA -5240 18100 DATA 9932 MINUS 1798 = 18110 DATA 8134 18120 DATA 8112 18130 DATA 8101 18140 DATA 8193 18150 DATA 8162 18200 DATA 9946 MINUS 4059 = 18210 DATA 5887 18220 DATA 5877 18230 DATA 5965 18240 DATA 5900 18250 DATA 5938 18300 DATA 756 MINUS 9697 = 18310 DATA -8941 18320 DATA 8941 18330 DATA "10,453" 18340 DATA "-10,453" 18350 DATA 8943 18400 DATA -5670 MINUS 9071 = 18410 DATA "-14,741" 18420 DATA "14,741" 18430 DATA 3401 18440 DATA -3401 18450 DATA "14,299" 18500 DATA 5845 MINUS 7233 = 18510 DATA -1388 18520 DATA 1388 18530 DATA -1308 18540 DATA 1308 18550 DATA -1323 18600 DATA 2843 MINUS 3637 = 18610 DATA -794 18620 DATA 794 18630 DATA -786 18640 DATA 786 18650 DATA -802 18700 DATA 9604 MINUS 6310 = 18710 DATA 3294 18720 DATA 3264 18730 DATA 3242 18740 DATA 3373 18750 DATA 3246 18800 DATA 1399 MINUS 7699 = 18810 DATA -6300 18820 DATA 6300 18830 DATA -6301 18840 DATA 6301 18850 DATA -6337 18900 DATA -3325 MINUS 4352 = 18910 DATA -7677 18920 DATA 7677 18930 DATA 1027 18940 DATA -1027 18950 DATA -7675 18960 '***** 80 19000 DATA 5909 MINUS 7642 = 19010 DATA -1733 19020 DATA 1733 19030 DATA -1673 19040 DATA 1673 19050 DATA 1820 19100 DATA 5375 MINUS 7708 = 19110 DATA -2333 19120 DATA 2333 19130 DATA -2304 19140 DATA 2304 19150 DATA 2281 19200 DATA 150 MINUS 7813 = 19210 DATA -7663 19220 DATA 7663 19230 DATA -7662 19240 DATA 7662 19250 DATA -7570 19300 DATA 149 MINUS 1294 = 19310 DATA -1145 19320 DATA 1145 19330 DATA -1173 19340 DATA -1121 19350 DATA 1049 19400 DATA 430 MINUS 8300 = 19410 DATA -7870 19420 DATA 7870 19430 DATA -7878 19440 DATA 7878 19450 DATA 7952 19500 DATA 5759 MINUS 4500 = 19510 DATA 1259 19520 DATA 1346 19530 DATA 1199 19540 DATA 1348 19550 DATA 1219 19600 DATA -7654 MINUS -8953 = 19610 DATA 1299 19620 DATA -1299 19630 DATA "-16,607" 19640 DATA "16,607" 19650 DATA 1297 19700 DATA 482 MINUS 3328 = 19710 DATA -2846 19720 DATA 2846 19730 DATA -2886 19740 DATA 2886 19750 DATA -2822 19800 DATA 8146 MINUS 9655 = 19810 DATA -1509 19820 DATA 1509 19830 DATA -1508 19840 DATA 1508 19850 DATA -1571 19900 DATA 7956 MINUS -8800 = 19910 DATA "16,756" 19920 DATA "-16,756" 19930 DATA 844 19940 DATA -844 19950 DATA "16,754" 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$ + " ADVANCED SUBTRACTION " 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