00100 '***** 00101 '* 00102 '* ADVADD.BAS 00103 '* MDJ 2022/01/12 00104 '* 00105 '* A QUIZ TO TEST 00106 '* KNOWLEDGE OF 00107 '* ADVANCED 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 27 PLUS 86 = 11010 DATA 113 11020 DATA 116 11030 DATA 104 11040 DATA 111 11050 DATA 114 11100 DATA 32 PLUS 58 = 11110 DATA 90 11120 DATA 89 11130 DATA 92 11140 DATA 91 11150 DATA 85 11200 DATA 45 PLUS 55 = 11210 DATA 100 11220 DATA 98 11230 DATA 96 11240 DATA 102 11250 DATA 95 11300 DATA 17 PLUS 38 = 11310 DATA 55 11320 DATA 57 11330 DATA 52 11340 DATA 59 11350 DATA 58 11400 DATA 99 PLUS 45 = 11410 DATA 144 11420 DATA 142 11430 DATA 149 11440 DATA 140 11450 DATA 146 11500 DATA 42 PLUS 79 = 11510 DATA 121 11520 DATA 124 11530 DATA 114 11540 DATA 111 11550 DATA 127 11600 DATA 79 PLUS 25 = 11610 DATA 104 11620 DATA 108 11630 DATA 107 11640 DATA 95 11650 DATA 114 11700 DATA 2 PLUS -11 = 11710 DATA -9 11720 DATA -7 11730 DATA -13 11740 DATA -11 11750 DATA -5 11800 DATA 39 PLUS 48 = 11810 DATA 87 11820 DATA 90 11830 DATA 88 11840 DATA 86 11850 DATA 89 11900 DATA 34 PLUS 51 = 11910 DATA 85 11920 DATA 82 11930 DATA 81 11940 DATA 80 11950 DATA 88 11960 '***** 10 12000 DATA 53 PLUS 43 = 12010 DATA 96 12020 DATA 93 12030 DATA 99 12040 DATA 101 12050 DATA 95 12100 DATA 23 PLUS 37 = 12110 DATA 60 12120 DATA 64 12130 DATA 55 12140 DATA 56 12150 DATA 57 12200 DATA 58 PLUS 38 = 12210 DATA 96 12220 DATA 99 12230 DATA 95 12240 DATA 91 12250 DATA 93 12300 DATA 64 PLUS 83 = 12310 DATA 147 12320 DATA 145 12330 DATA 154 12340 DATA 157 12350 DATA 141 12400 DATA 64 PLUS 91 = 12410 DATA 155 12420 DATA 164 12430 DATA 163 12440 DATA 149 12450 DATA 157 12500 DATA 54 PLUS 52 = 12510 DATA 106 12520 DATA 107 12530 DATA 111 12540 DATA 115 12550 DATA 109 12600 DATA -9 PLUS 6 = 12610 DATA -3 12620 DATA -1 12630 DATA 1 12640 DATA 0 12650 DATA -7 12700 DATA 6 PLUS 33 = 12710 DATA 39 12720 DATA 41 12730 DATA 35 12740 DATA 38 12750 DATA 43 12800 DATA -38 PLUS 2 = 12810 DATA -36 12820 DATA -40 12830 DATA -35 12840 DATA -37 12850 DATA -34 12900 DATA 19 PLUS 24 = 12910 DATA 43 12920 DATA 38 12930 DATA 41 12940 DATA 46 12950 DATA 48 12960 '***** 20 13000 DATA 63 PLUS 53 = 13010 DATA 116 13020 DATA 122 13030 DATA 115 13040 DATA 112 13050 DATA 118 13100 DATA 38 PLUS 90 = 13110 DATA 128 13120 DATA 118 13130 DATA 120 13140 DATA 126 13150 DATA 133 13200 DATA 68 PLUS 24 = 13210 DATA 92 13220 DATA 91 13230 DATA 90 13240 DATA 96 13250 DATA 93 13300 DATA 1 PLUS -74 = 13310 DATA -73 13320 DATA -70 13330 DATA -74 13340 DATA -69 13350 DATA -77 13400 DATA 98 PLUS 62 = 13410 DATA 160 13420 DATA 162 13430 DATA 159 13440 DATA 154 13450 DATA 150 13500 DATA -71 PLUS 76 = 13510 DATA 5 13520 DATA 7 13530 DATA 6 13540 DATA 9 13550 DATA 0 13600 DATA -32 PLUS -62 = 13610 DATA -94 13620 DATA -93 13630 DATA -89 13640 DATA -91 13650 DATA -98 13700 DATA 58 PLUS 96 = 13710 DATA 154 13720 DATA 163 13730 DATA 152 13740 DATA 145 13750 DATA 162 13800 DATA -55 PLUS 83 = 13810 DATA 28 13820 DATA 27 13830 DATA 24 13840 DATA 33 13850 DATA 23 13900 DATA 25 PLUS 32 = 13910 DATA 57 13920 DATA 60 13930 DATA 58 13940 DATA 56 13950 DATA 61 13960 '***** 30 14000 DATA 250 PLUS 62 = 14010 DATA 312 14020 DATA 303 14030 DATA 316 14040 DATA 302 14050 DATA 310 14100 DATA 741 PLUS 610 = 14110 DATA 1351 14120 DATA 1367 14130 DATA 1423 14140 DATA 1484 14150 DATA 1312 14200 DATA 64 PLUS 875 = 14210 DATA 939 14220 DATA 945 14230 DATA 949 14240 DATA 941 14250 DATA 932 14300 DATA 179 PLUS 591 = 14310 DATA 770 14320 DATA 767 14330 DATA 766 14340 DATA 778 14350 DATA 775 14400 DATA -395 PLUS 738 = 14410 DATA 343 14420 DATA 336 14430 DATA 338 14440 DATA 349 14450 DATA 351 14500 DATA 670 PLUS 38 = 14510 DATA 708 14520 DATA 700 14530 DATA 698 14540 DATA 707 14550 DATA 709 14600 DATA 52 PLUS 978 = 14610 DATA 1030 14620 DATA 1116 14630 DATA 1063 14640 DATA 1025 14650 DATA 1067 14700 DATA 880 PLUS 602 = 14710 DATA 1482 14720 DATA 1534 14730 DATA 1483 14740 DATA 1420 14750 DATA 1567 14800 DATA 940 PLUS -779 = 14810 DATA 161 14820 DATA 152 14830 DATA 162 14840 DATA 169 14850 DATA 154 14900 DATA 192 PLUS 164 = 14910 DATA 356 14920 DATA 351 14930 DATA 357 14940 DATA 359 14950 DATA 347 14960 '***** 40 15000 DATA 267 PLUS -582 = 15010 DATA -315 15020 DATA -305 15030 DATA -313 15040 DATA -324 15050 DATA -312 15100 DATA 349 PLUS 43 = 15110 DATA 392 15120 DATA 391 15130 DATA 382 15140 DATA 388 15150 DATA 401 15200 DATA 628 PLUS -112 = 15210 DATA 516 15220 DATA 506 15230 DATA 508 15240 DATA 507 15250 DATA 519 15300 DATA 972 PLUS 847 = 15310 DATA 1819 15320 DATA 1829 15330 DATA 1754 15340 DATA 1867 15350 DATA 1747 15400 DATA 960 PLUS -33 = 15410 DATA 927 15420 DATA 919 15430 DATA 918 15440 DATA 921 15450 DATA 923 15500 DATA 959 PLUS 927 = 15510 DATA 1886 15520 DATA 1878 15530 DATA 1888 15540 DATA 1935 15550 DATA 1869 15600 DATA 375 PLUS 222 = 15610 DATA 597 15620 DATA 599 15630 DATA 594 15640 DATA 601 15650 DATA 603 15700 DATA -237 PLUS 876 = 15710 DATA 639 15720 DATA 649 15730 DATA 638 15740 DATA 640 15750 DATA 636 15800 DATA -751 PLUS 473 = 15810 DATA -278 15820 DATA -270 15830 DATA -272 15840 DATA -274 15850 DATA -268 15900 DATA 865 PLUS 673 = 15910 DATA 1538 15920 DATA 1571 15930 DATA 1612 15940 DATA 1532 15950 DATA 1564 15960 '***** 50 16000 DATA 477 PLUS 228 = 16010 DATA 705 16020 DATA 697 16030 DATA 715 16040 DATA 714 16050 DATA 708 16100 DATA 889 PLUS -25 = 16110 DATA 864 16120 DATA 862 16130 DATA 871 16140 DATA 856 16150 DATA 866 16200 DATA 973 PLUS -828 = 16210 DATA 145 16220 DATA 136 16230 DATA 144 16240 DATA 135 16250 DATA 152 16300 DATA 823 PLUS -712 = 16310 DATA 111 16320 DATA 109 16330 DATA 119 16340 DATA 105 16350 DATA 120 16400 DATA -679 PLUS -763 = 16410 DATA -1442 16420 DATA -1481 16430 DATA -1375 16440 DATA -1461 16450 DATA -1523 16500 DATA 298 PLUS 743 = 16510 DATA 1041 16520 DATA 979 16530 DATA 995 16540 DATA 1016 16550 DATA 1021 16600 DATA 406 PLUS 972 = 16610 DATA 1378 16620 DATA 1383 16630 DATA 1293 16640 DATA 1374 16650 DATA 1424 16700 DATA 405 PLUS -104 = 16710 DATA 301 16720 DATA 294 16730 DATA 297 16740 DATA 292 16750 DATA 298 16800 DATA 982 PLUS 56 = 16810 DATA 1038 16820 DATA 1104 16830 DATA 1040 16840 DATA 1076 16850 DATA 985 16900 DATA 776 PLUS 781 = 16910 DATA 1557 16920 DATA 1511 16930 DATA 1650 16940 DATA 1469 16950 DATA 1619 16960 '***** 60 17000 DATA 7250 PLUS 2602 = 17010 DATA 9852 17020 DATA 9857 17030 DATA 9778 17040 DATA 9829 17050 DATA 9855 17100 DATA 6410 PLUS 542 = 17110 DATA 6952 17120 DATA 7039 17130 DATA 6852 17140 DATA 7032 17150 DATA 6922 17200 DATA 9475 PLUS 851 = 17210 DATA "10,326" 17220 DATA 9680 17230 DATA "10,021" 17240 DATA 9986 17250 DATA 9738 17300 DATA 9180 PLUS 5220 = 17310 DATA "14,400" 17320 DATA "14,632" 17330 DATA "14,866" 17340 DATA "13,815" 17350 DATA "14,639" 17400 DATA 1717 PLUS 7870 = 17410 DATA 9587 17420 DATA 9578 17430 DATA 9550 17440 DATA 9674 17450 DATA 9576 17500 DATA 9817 PLUS 359 = 17510 DATA "10,176" 17520 DATA 9272 17530 DATA 9296 17540 DATA 9729 17550 DATA 9246 17600 DATA 7061 PLUS 1945 = 17610 DATA 9006 17620 DATA 9092 17630 DATA 8951 17640 DATA 9099 17650 DATA 9044 17700 DATA 9989 PLUS 7445 = 17710 DATA "17,434" 17720 DATA "18,350" 17730 DATA "17,315" 17740 DATA "17,081" 17750 DATA "17,323" 17800 DATA 9558 PLUS 9910 = 17810 DATA "19,468" 17820 DATA "20,377" 17830 DATA "19,553" 17840 DATA "19,757" 17850 DATA "18,778" 17900 DATA 8522 PLUS 278 = 17910 DATA 8800 17920 DATA 8855 17930 DATA 8895 17940 DATA 8725 17950 DATA 8832 17960 '***** 70 18000 DATA 6294 PLUS 1176 = 18010 DATA 7470 18020 DATA 7442 18030 DATA 7423 18040 DATA 7566 18050 DATA 7520 18100 DATA 7845 PLUS 7079 = 18110 DATA "14,924" 18120 DATA "14,921" 18130 DATA "15,620" 18140 DATA "14,827" 18150 DATA "15,462" 18200 DATA 8213 PLUS 8000 = 18210 DATA "16,213" 18220 DATA "15,491" 18230 DATA "16,209" 18240 DATA "17,015" 18250 DATA "15,228" 18300 DATA 9182 PLUS 8899 = 18310 DATA "18,081" 18320 DATA "18,080" 18330 DATA "17,231" 18340 DATA "18,679" 18350 DATA "18,928" 18400 DATA 9684 PLUS 2010 = 18410 DATA "11,694" 18420 DATA "11,351" 18430 DATA "11,175" 18440 DATA "11,486" 18450 DATA "10,932" 18500 DATA 6502 PLUS 4262 = 18510 DATA "10,764" 18520 DATA "11,188" 18530 DATA "11,462" 18540 DATA "10,037" 18550 DATA "10,779" 18600 DATA 6823 PLUS 6981 = 18610 DATA "13,804" 18620 DATA "14,011" 18630 DATA "14,733" 18640 DATA "13,132" 18650 DATA "13,376" 18700 DATA 9212 PLUS 72 = 18710 DATA 9284 18720 DATA 9378 18730 DATA 9189 18740 DATA 9375 18750 DATA 9270 18800 DATA 4564 PLUS -7855 = 18810 DATA -3291 18820 DATA -3389 18830 DATA -3202 18840 DATA -3246 18850 DATA -3314 18900 DATA 3601 PLUS 8754 = 18910 DATA "12,355" 18920 DATA "12,941" 18930 DATA "12,705" 18940 DATA "12,239" 18950 DATA "12,618" 18960 '***** 80 19000 DATA -2476 PLUS -6016 = 19010 DATA -8492 19020 DATA -8544 19030 DATA -8452 19040 DATA -8506 19050 DATA -8425 19100 DATA 3039 PLUS 1655 = 19110 DATA 4694 19120 DATA 4645 19130 DATA 4661 19140 DATA 4641 19150 DATA 4692 19200 DATA 9340 PLUS -811 = 19210 DATA 8529 19220 DATA 8585 19230 DATA 8574 19240 DATA 8490 19250 DATA 8545 19300 DATA 6920 PLUS 8694 = 19310 DATA "15,614" 19320 DATA "15,980" 19330 DATA "16,210" 19340 DATA "15,719" 19350 DATA "15,838" 19400 DATA -6461 PLUS -7329 = 19410 DATA "-13,790" 19420 DATA "-13,526" 19430 DATA "-14,432" 19440 DATA "-14,201" 19450 DATA "-14,371" 19500 DATA 8354 PLUS 4258 = 19510 DATA "12,612" 19520 DATA "12,348" 19530 DATA "11,819" 19540 DATA "12,339" 19550 DATA "13,148" 19600 DATA 9745 PLUS 418 = 19610 DATA "10,163" 19620 DATA 9233 19630 DATA "10,976" 19640 DATA "10,881" 19650 DATA "10,173" 19700 DATA -621 PLUS 9351 = 19710 DATA 8730 19720 DATA 8741 19730 DATA 8720 19740 DATA 8701 19750 DATA 8724 19800 DATA 514 PLUS 4963 = 19810 DATA 5477 19820 DATA 5422 19830 DATA 5412 19840 DATA 5410 19850 DATA 5451 19900 DATA 2358 PLUS 9994 = 19910 DATA "12,352" 19920 DATA "11,995" 19930 DATA "13,220" 19940 DATA "11,400" 19950 DATA "13,316" 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 ADDITION " 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