00100 '***** 00101 '* 00102 '* DIVISION.BAS 00103 '* MDJ 2022/03/14 00104 '* 00105 '* A QUIZ TO TEST 00106 '* KNOWLEDGE OF 00107 '* DIVISION 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(60) - 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 QUOTIENT, REMAINDER:" 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$ = " SEE " 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 = 60 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 DIVIDED BY 11 = 11010 DATA QUOT = 1; REM = 1 11020 DATA QUOT = 1; REM = 0 11030 DATA QUOT = 1; REM = 2 11040 DATA QUOT = 1; REM = 3 11050 DATA QUOT = 0; REM = 12 11100 DATA 12 DIVIDED BY 10 = 11110 DATA QUOT = 1; REM = 2 11120 DATA QUOT = 1; REM = 0 11130 DATA QUOT = 1; REM = 1 11140 DATA QUOT = 1; REM = 3 11150 DATA QUOT = 0; REM = 12 11200 DATA 12 DIVIDED BY 9 = 11210 DATA QUOT = 1; REM = 3 11220 DATA QUOT = 1; REM = 0 11230 DATA QUOT = 1; REM = 1 11240 DATA QUOT = 1; REM = 2 11250 DATA QUOT = 1; REM = 4 11300 DATA 12 DIVIDED BY 8 = 11310 DATA QUOT = 1; REM = 4 11320 DATA QUOT = 1; REM = 2 11330 DATA QUOT = 1; REM = 3 11340 DATA QUOT = 1; REM = 1 11350 DATA QUOT = 1; REM = 0 11400 DATA 12 DIVIDED BY 7 = 11410 DATA QUOT = 1; REM = 5 11420 DATA QUOT = 1; REM = 1 11430 DATA QUOT = 1; REM = 2 11440 DATA QUOT = 2; REM = 2 11450 DATA QUOT = 1; REM = 3 11500 DATA 12 DIVIDED BY 6 = 11510 DATA QUOT = 2; REM = 0 11520 DATA QUOT = 1; REM = 4 11530 DATA QUOT = 2; REM = 2 11540 DATA QUOT = 1; REM = 6 11550 DATA QUOT = 1; REM = 5 11600 DATA 12 DIVIDED BY 5 = 11610 DATA QUOT = 2; REM = 2 11620 DATA QUOT = 2; REM = 0 11630 DATA QUOT = 2; REM = 4 11640 DATA QUOT = 1; REM = 7 11650 DATA QUOT = 3; REM = 3 11700 DATA 12 DIVIDED BY 4 = 11710 DATA QUOT = 3; REM = 0 11720 DATA QUOT = 2; REM = 4 11730 DATA QUOT = 2; REM = 2 11740 DATA QUOT = 3; REM = 2 11750 DATA QUOT = 4; REM = 2 11800 DATA 12 DIVIDED BY 3 = 11810 DATA QUOT = 4; REM = 0 11820 DATA QUOT = 3; REM = 3 11830 DATA QUOT = 3; REM = 2 11840 DATA QUOT = 4; REM = 1 11850 DATA QUOT = 2; REM = 6 11900 DATA 12 DIVIDED BY 2 = 11910 DATA QUOT = 6; REM = 0 11920 DATA QUOT = 3; REM = 6 11930 DATA QUOT = 4; REM = 3 11940 DATA QUOT = 4; REM = 4 11950 DATA QUOT = 5; REM = 2 11960 '***** 10 12000 DATA 11 DIVIDED BY 11 = 12010 DATA QUOT = 1; REM = 0 12020 DATA QUOT = 0; REM = 11 12030 DATA QUOT = 1; REM = 1 12040 DATA QUOT = 1; REM = 2 12050 DATA QUOT = 1; REM = 3 12100 DATA 11 DIVIDED BY 10 = 12110 DATA QUOT = 1; REM = 1 12120 DATA QUOT = 1; REM = 0 12130 DATA QUOT = 0; REM = 10 12140 DATA QUOT = 1; REM = 2 12150 DATA QUOT = 1; REM = 3 12200 DATA 11 DIVIDED BY 9 = 12210 DATA QUOT = 1; REM = 2 12220 DATA QUOT = 1; REM = 0 12230 DATA QUOT = 1; REM = 1 12240 DATA QUOT = 1; REM = 3 12250 DATA QUOT = 0; REM = 9 12300 DATA 11 DIVIDED BY 8 = 12310 DATA QUOT = 1; REM = 3 12320 DATA QUOT = 1; REM = 0 12330 DATA QUOT = 1; REM = 1 12340 DATA QUOT = 1; REM = 2 12350 DATA QUOT = 0; REM = 8 12400 DATA 11 DIVIDED BY 7 = 12410 DATA QUOT = 1; REM = 4 12420 DATA QUOT = 1; REM = 0 12430 DATA QUOT = 1; REM = 2 12440 DATA QUOT = 1; REM = 5 12450 DATA QUOT = 0; REM = 7 12500 DATA 11 DIVIDED BY 6 = 12510 DATA QUOT = 1; REM = 5 12520 DATA QUOT = 2; REM = 0 12530 DATA QUOT = 1; REM = 3 12540 DATA QUOT = 1; REM = 7 12550 DATA QUOT = 0; REM = 6 12600 DATA 11 DIVIDED BY 5 = 12610 DATA QUOT = 2; REM = 1 12620 DATA QUOT = 2; REM = 7 12630 DATA QUOT = 2; REM = 3 12640 DATA QUOT = 1; REM = 7 12650 DATA QUOT = 0; REM = 5 12700 DATA 11 DIVIDED BY 4 = 12710 DATA QUOT = 2; REM = 3 12720 DATA QUOT = 1; REM = 7 12730 DATA QUOT = 2; REM = 1 12740 DATA QUOT = 2; REM = 2 12750 DATA QUOT = 0; REM = 4 12800 DATA 11 DIVIDED BY 3 = 12810 DATA QUOT = 3; REM = 2 12820 DATA QUOT = 3; REM = 1 12830 DATA QUOT = 2; REM = 5 12840 DATA QUOT = 2; REM = 4 12850 DATA QUOT = 3; REM = 4 12900 DATA 11 DIVIDED BY 2 = 12910 DATA QUOT = 5; REM = 1 12920 DATA QUOT = 4; REM = 3 12930 DATA QUOT = 3; REM = 5 12940 DATA QUOT = 5; REM = 2 12950 DATA QUOT = 4; REM = 5 12960 '***** 20 13000 DATA 10 DIVIDED BY 11 = 13010 DATA QUOT = 0; REM = 10 13020 DATA QUOT = 1; REM = 1 13030 DATA QUOT = 1; REM = 0 13040 DATA QUOT = 1; REM = 2 13050 DATA QUOT = 1; REM = 3 13100 DATA 10 DIVIDED BY 10 = 13110 DATA QUOT = 1; REM = 0 13120 DATA QUOT = 0; REM = 10 13130 DATA QUOT = 0; REM = 1 13140 DATA QUOT = 1; REM = 1 13150 DATA QUOT = 1; REM = 2 13200 DATA 10 DIVIDED BY 9 = 13210 DATA QUOT = 1; REM = 1 13220 DATA QUOT = 1; REM = 0 13230 DATA QUOT = 0; REM = 9 13240 DATA QUOT = 1; REM = 2 13250 DATA QUOT = 1; REM = 3 13300 DATA 10 DIVIDED BY 8 = 13310 DATA QUOT = 1; REM = 2 13320 DATA QUOT = 2; REM = 1 13330 DATA QUOT = 0; REM = 8 13340 DATA QUOT = 1; REM = 0 13350 DATA QUOT = 1; REM = 1 13400 DATA 10 DIVIDED BY 7 = 13410 DATA QUOT = 1; REM = 3 13420 DATA QUOT = 3; REM = 1 13430 DATA QUOT = 0; REM = 7 13440 DATA QUOT = 1; REM = 1 13450 DATA QUOT = 1; REM = 2 13500 DATA 10 DIVIDED BY 6 = 13510 DATA QUOT = 1; REM = 4 13520 DATA QUOT = 4; REM = 4 13530 DATA QUOT = 0; REM = 6 13540 DATA QUOT = 2; REM = 1 13550 DATA QUOT = 1; REM = 3 13600 DATA 10 DIVIDED BY 5 = 13610 DATA QUOT = 2; REM = 0 13620 DATA QUOT = 0; REM = 2 13630 DATA QUOT = 1; REM = 5 13640 DATA QUOT = 1; REM = 4 13650 DATA QUOT = 1; REM = 3 13700 DATA 10 DIVIDED BY 4 = 13710 DATA QUOT = 2; REM = 2 13720 DATA QUOT = 2; REM = 0 13730 DATA QUOT = 0; REM = 4 13740 DATA QUOT = 2; REM = 1 13750 DATA QUOT = 2; REM = 3 13800 DATA 10 DIVIDED BY 3 = 13810 DATA QUOT = 3; REM = 1 13820 DATA QUOT = 3; REM = 0 13830 DATA QUOT = 2; REM = 4 13840 DATA QUOT = 0; REM = 3 13850 DATA QUOT = 3; REM = 2 13900 DATA 10 DIVIDED BY 2 = 13910 DATA QUOT = 5; REM = 0 13920 DATA QUOT = 4; REM = 2 13930 DATA QUOT = 3; REM = 4 13940 DATA QUOT = 4; REM = 1 13950 DATA QUOT = 5; REM = 1 13960 '***** 30 14000 DATA 9 DIVIDED BY 9 = 14010 DATA QUOT = 1; REM = 0 14020 DATA QUOT = 0; REM = 9 14030 DATA QUOT = 1; REM = 3 14040 DATA QUOT = 1; REM = 2 14050 DATA QUOT = 1; REM = 1 14100 DATA 9 DIVIDED BY 8 = 14110 DATA QUOT = 1; REM = 1 14120 DATA QUOT = 0; REM = 8 14130 DATA QUOT = 1; REM = 0 14140 DATA QUOT = 1; REM = 2 14150 DATA QUOT = 1; REM = 3 14200 DATA 9 DIVIDED BY 7 = 14210 DATA QUOT = 1; REM = 2 14220 DATA QUOT = 0; REM = 7 14230 DATA QUOT = 1; REM = 0 14240 DATA QUOT = 1; REM = 1 14250 DATA QUOT = 1; REM = 3 14300 DATA 9 DIVIDED BY 6 = 14310 DATA QUOT = 1; REM = 3 14320 DATA QUOT = 0; REM = 6 14330 DATA QUOT = 2; REM = 0 14340 DATA QUOT = 1; REM = 2 14350 DATA QUOT = 1; REM = 1 14400 DATA 9 DIVIDED BY 5 = 14410 DATA QUOT = 1; REM = 4 14420 DATA QUOT = 0; REM = 5 14430 DATA QUOT = 2; REM = 0 14440 DATA QUOT = 2; REM = 1 14450 DATA QUOT = 1; REM = 3 14500 DATA 9 DIVIDED BY 4 = 14510 DATA QUOT = 2; REM = 1 14520 DATA QUOT = 2; REM = 0 14530 DATA QUOT = 2; REM = 2 14540 DATA QUOT = 0; REM = 4 14550 DATA QUOT = 1; REM = 5 14600 DATA 9 DIVIDED BY 3 = 14610 DATA QUOT = 3; REM = 0 14620 DATA QUOT = 2; REM = 3 14630 DATA QUOT = 1; REM = 6 14640 DATA QUOT = 0; REM = 3 14650 DATA QUOT = 2; REM = 4 14700 DATA 9 DIVIDED BY 2 = 14710 DATA QUOT = 4; REM = 1 14720 DATA QUOT = 4; REM = 0 14730 DATA QUOT = 0; REM = 2 14740 DATA QUOT = 3; REM = 3 14750 DATA QUOT = 3; REM = 2 14800 DATA 8 DIVIDED BY 8 = 14810 DATA QUOT = 1; REM = 0 14820 DATA QUOT = 0; REM = 8 14830 DATA QUOT = 1; REM = 1 14840 DATA QUOT = 1; REM = 2 14850 DATA QUOT = 1; REM = 3 14900 DATA 8 DIVIDED BY 7 = 14910 DATA QUOT = 1; REM = 1 14920 DATA QUOT = 0; REM = 7 14930 DATA QUOT = 1; REM = 0 14940 DATA QUOT = 1; REM = 2 14950 DATA QUOT = 1; REM = 3 14960 '***** 40 15000 DATA 8 DIVIDED BY 6 = 15010 DATA QUOT = 1; REM = 2 15020 DATA QUOT = 0; REM = 6 15030 DATA QUOT = 1; REM = 0 15040 DATA QUOT = 1; REM = 1 15050 DATA QUOT = 1; REM = 4 15100 DATA 8 DIVIDED BY 5 = 15110 DATA QUOT = 1; REM = 3 15120 DATA QUOT = 0; REM = 5 15130 DATA QUOT = 1; REM = 1 15140 DATA QUOT = 1; REM = 2 15150 DATA QUOT = 1; REM = 4 15200 DATA 8 DIVIDED BY 4 = 15210 DATA QUOT = 2; REM = 0 15220 DATA QUOT = 0; REM = 4 15230 DATA QUOT = 1; REM = 4 15240 DATA QUOT = 2; REM = 2 15250 DATA QUOT = 2; REM = 4 15300 DATA 8 DIVIDED BY 3 = 15310 DATA QUOT = 2; REM = 2 15320 DATA QUOT = 0; REM = 3 15330 DATA QUOT = 1; REM = 5 15340 DATA QUOT = 2; REM = 1 15350 DATA QUOT = 2; REM = 3 15400 DATA 8 DIVIDED BY 2 = 15410 DATA QUOT = 4; REM = 0 15420 DATA QUOT = 0; REM = 2 15430 DATA QUOT = 3; REM = 2 15440 DATA QUOT = 2; REM = 4 15450 DATA QUOT = 1; REM = 6 15500 DATA 8 DIVIDED BY 1 = 15510 DATA QUOT = 8; REM = 0 15520 DATA QUOT = 0; REM = 8 15530 DATA QUOT = 7; REM = 1 15540 DATA QUOT = 6; REM = 2 15550 DATA QUOT = 5; REM = 3 15600 DATA 7 DIVIDED BY 8 = 15610 DATA QUOT = 0; REM = 7 15620 DATA QUOT = 1; REM = 1 15630 DATA QUOT = 1; REM = 0 15640 DATA QUOT = 1; REM = 2 15650 DATA QUOT = 1; REM = 3 15700 DATA 7 DIVIDED BY 7 = 15710 DATA QUOT = 1; REM = 0 15720 DATA QUOT = 0; REM = 7 15730 DATA QUOT = 1; REM = 1 15740 DATA QUOT = 1; REM = 2 15750 DATA QUOT = 1; REM = 3 15800 DATA 7 DIVIDED BY 6 = 15810 DATA QUOT = 1; REM = 1 15820 DATA QUOT = 0; REM = 6 15830 DATA QUOT = 1; REM = 0 15840 DATA QUOT = 1; REM = 2 15850 DATA QUOT = 1; REM = 3 15900 DATA 7 DIVIDED BY 5 = 15910 DATA QUOT = 1; REM = 2 15920 DATA QUOT = 0; REM = 5 15930 DATA QUOT = 1; REM = 1 15940 DATA QUOT = 1; REM = 3 15950 DATA QUOT = 1; REM = 4 15960 '***** 50 16000 DATA 7 DIVIDED BY 4 = 16010 DATA QUOT = 1; REM = 3 16020 DATA QUOT = 2; REM = 1 16030 DATA QUOT = 0; REM = 4 16040 DATA QUOT = 1; REM = 1 16050 DATA QUOT = 1; REM = 2 16100 DATA 7 DIVIDED BY 3 = 16110 DATA QUOT = 2; REM = 1 16120 DATA QUOT = 0; REM = 3 16130 DATA QUOT = 1; REM = 4 16140 DATA QUOT = 2; REM = 0 16150 DATA QUOT = 2; REM = 2 16200 DATA 7 DIVIDED BY 2 = 16210 DATA QUOT = 3; REM = 1 16220 DATA QUOT = 0; REM = 2 16230 DATA QUOT = 2; REM = 3 16240 DATA QUOT = 1; REM = 5 16250 DATA QUOT = 3; REM = 2 16300 DATA 7 DIVIDED BY 1 = 16310 DATA QUOT = 7; REM = 0 16320 DATA QUOT = 6; REM = 1 16330 DATA QUOT = 5; REM = 2 16340 DATA QUOT = 4; REM = 3 16350 DATA QUOT = 3; REM = 4 16400 DATA 6 DIVIDED BY 8 = 16410 DATA QUOT = 0; REM = 6 16420 DATA QUOT = 1; REM = 2 16430 DATA QUOT = 1; REM = 1 16440 DATA QUOT = 1; REM = 0 16450 DATA QUOT = 2; REM = 3 16500 DATA 6 DIVIDED BY 7 = 16510 DATA QUOT = 0; REM = 6 16520 DATA QUOT = 1; REM = 2 16530 DATA QUOT = 1; REM = 1 16540 DATA QUOT = 1; REM = 0 16550 DATA QUOT = 2; REM = 3 16600 DATA 6 DIVIDED BY 6 = 16610 DATA QUOT = 1; REM = 0 16620 DATA QUOT = 1; REM = 1 16630 DATA QUOT = 0; REM = 6 16640 DATA QUOT = 1; REM = 5 16650 DATA QUOT = 1; REM = 2 16700 DATA 6 DIVIDED BY 5 = 16710 DATA QUOT = 1; REM = 1 16720 DATA QUOT = 0; REM = 5 16730 DATA QUOT = 1; REM = 0 16740 DATA QUOT = 1; REM = 2 16750 DATA QUOT = 1; REM = 3 16800 DATA 6 DIVIDED BY 4 = 16810 DATA QUOT = 1; REM = 2 16820 DATA QUOT = 0; REM = 4 16830 DATA QUOT = 1; REM = 0 16840 DATA QUOT = 1; REM = 1 16850 DATA QUOT = 1; REM = 3 16900 DATA 6 DIVIDED BY 3 = 16910 DATA QUOT = 2; REM = 0 16920 DATA QUOT = 0; REM = 3 16930 DATA QUOT = 1; REM = 3 16940 DATA QUOT = 1; REM = 2 16950 DATA QUOT = 2; REM = 1 16960 '***** 60 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$ + " DIVISION 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 30300 '* 30310 '***** 32767 END