30 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 '* 30300 '***** 32767 END IFIC STANDARD LINE 14 30210 ' *** CHANGE THE YEAR AS REQUIRED 30220 PRINT@448, " BDS SOFTWARE 2022 "; 30230 'LINE 15 IS BLANK GREEN 30240 A$ =                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  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 296'***** 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 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 15240A 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 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 THANKS FOR PLAYING!" 5920 PRINT " COME BACK SOON." 5930 PRINT:PRINT " M. DAVID JOHNSON" 5940 PRINT " INFO@BDS-SOFT.COM" 5950 PRINT:PRINT:PRINT:PRINT:PRINT 5960 GOTO 32767 5970 '***** 5980 '* 5990 '* END MAIN 6000 '* 6010 '***** 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 100 '***** 101 '* 102 '* ADDITION.BAS 103 '* MDJ 2022/01/08 104 '* 105 '* A QUIZ TO TEST 106 '* KNOWLEDGE OF 107 '* ADDITION 108 '* 109 '***** 110 'GO TO THE PROGRAM'S 120 'EXECUTIVE ROUTINE 130 GOTO 4220 131 ' HEADER 00100 132 ' SELECT 00200 133 ' EXEC 04000 134 ' MAIN 05000 135 ' DATA 10500 136 ' INIT 27500 137 ' SPLASH 29500 200 '***** 210 '* 220 '* SELECTION SUBROUTINE: 230 '* 240 '* THIS ROUTINE IS UNIFORM 250 '* AND REMAINS THE SAME FOR 260 '* EACH AND EVERY QUIZ GAME 270 '* 280 '***** 290 'RANDOM SELECTION OF 300 'FOUR OF FIVE. 310 ' SELECTS FOUR ENTRIES 320 ' FROM FIVE POSSIBILITIES. 330 ' INPUTS: 340 ' NONE 350 ' OUTPUTS (GLOBAL) 360 ' RR(4) = THE SELECTED FOUR 370 ' RP = POSITION OF "0" ENTRY 380 ' (0, 1, 2, OR 3) 390 ' = 4 IF "0" ENTRY 400 ' NOT INCLUDED 490 ' INITIALIZATION 500 FOR I = 0 TO 4 510 R1(I) = I 520 NEXT I 530 RP = 4 540 'FIRST PASS 550 R = RND(5) - 1 560 J = -1 570 FOR I = 0 TO 4 580 IF R = I GOTO 610 590 J = J + 1 600 R2(J) = R1(I) 610 NEXT I 620 'SCRAMBLE PASS 630 J = RND(24) - 1 640 FOR I = 0 TO 3 650 RR(I) = R2(S(J,I)) 660 NEXT I 670 'POSITION PASS 680 FOR I = 0 TO 3 690 IF RR(I) <> 0 GOTO 710 700 RP = I 710 NEXT I 720 RETURN 730 '***** 740 '* 750 '* ENDSUB 760 '* 770 '***** 4000 '***** 4010 '* 4020 '* EXECUTIVE 4030 '* 4040 '***** 4050 'VARIABLES LIST 4060 ' I, J = INDEXES AND COUNTERS 4070 ' A = RESPONSE CODE 4080 ' A$ = KEY PRESS 4090 ' N = NUMBER OF QUESTIONS 4100 ' Q$ = QUESTION 4110 ' QA$ = QUESTION ANSWERS ARRAY 4120 ' QD$ = QUESTIONS DATA ARRAY 4130 ' QN = QUESTION NUMBER 4140 ' QT = # OF QUESTIONS ASKED 4150 ' QC = # OF CORRECT ANSWERS 4160 ' QP = % CORRECT 4170 ' R, R1, R2, RR, RP 4180 ' = RANDOMIZATION VARIABLES 4190 ' S = SCRAMBLE CODES ARRAY 4200 ' SD$ = SCREEN DISPLAY TEXT 4210 'GO DISPLAY SPLASH SCREEN 4220 GOSUB 29600 4230 'GO INITIALIZE THE SYSTEM 4240 GOSUB 27600 4250 'GO LOAD QUESTIONS DATA 4260 GOSUB 10600 4270 'GO ENTER THE MAIN ROUTINE 4280 GOTO 5110 4290 '***** 4300 '* 4310 '* END EXECUTIVE 4320 '* 4330 '***** 5000 '***** 5010 '* 5020 '* MAIN 5030 '* 5040 '***** 5050 ' QN = QUESTION NUMBER 5060 ' Q$ = QUESTION 5070 ' QA$ = QUESTION ANSWERS ARRAY 5080 ' QT = # OF QUESTIONS ASKED 5090 ' QC = # OF CORRECT ANSWERS 5100 ' QP = % CORRECT 5110 DIM QA$(4) 5120 QT = 0 5130 QC = 0 5140 QP = 0 5150 'RANDOMLY SELECT A 5160 'QUESTION 5170 'ADJUST RND FOR TOTAL 5180 'NUMBER OF QUESTIONS 5190 QN = RND(90) - 1 5200 Q$ = QD$(QN,0) 5210 'RANDOMLY SELECT AND 5220 'SCRAMBLE FOUR OF 5230 'THE FIVE ANSWERS 5240 GOSUB 500 5250 FOR I = 0 TO 3 5260 QA$(I) = QD$(QN,RR(I)+1) 5270 NEXT I 5280 'MAIN DISPLAY SCREEN 5290 PRINT@32," WHAT IS THE RESULT:" 5300 PRINT@64," "+Q$+" ?" 5310 PRINT@128, " A. "+QA$(0) 5320 PRINT@160, " B. "+QA$(1) 5330 PRINT@192, " C. "+QA$(2) 5340 PRINT@224, " D. "+QA$(3) 5350 PRINT@256, " E. NONE OF THE ABOVE" 5360 PRINT@320, " PRESS A, B, C, D, OR E" 5370 PRINT@352, " " 5380 PRINT@384, " " 5390 PRINT@416, " " 5400 PRINT@448, " SCORE = ";QC;" OF ";QT;" = ";QP;"%"; 5410 A$ = INKEY$ 5420 IF A$="" GOTO 5410 5430 IF (A$="A" OR A$=CHR$(97)) GOTO 5520 5440 IF (A$="B" OR A$=CHR$(98)) GOTO 5530 5450 IF (A$="C" OR A$=CHR$(99)) GOTO 5540 5460 IF (A$="D" OR A$=CHR$(100)) GOTO 5550 5470 IF (A$="E" OR A$=CHR$(101)) GOTO 5560 5480 SOUND 159,2 5490 SOUND 159,2 5500 PRINT@320, " YOU MUST PRESS ONE OF A TO E" 5510 GOTO 5410 5520 A = 0: GOTO 5570 5530 A = 1: GOTO 5570 5540 A = 2: GOTO 5570 5550 A = 3: GOTO 5570 5560 A = 4: GOTO 5570 5570 IF A = RP GOTO 5710 5580 SOUND 78,1 5590 SOUND 78,1 5600 SOUND 78,1 5610 SOUND 5,3 5620 PRINT@320, " **SORRY: THAT IS INCORRECT." 5630 SD$ = " CORRECT = " 5640 IF RP=0 THEN SD$ = SD$ + "A. "+QA$(0) 5650 IF RP=1 THEN SD$ = SD$ + "B. "+QA$(1) 5660 IF RP=2 THEN SD$ = SD$ + "C. "+QA$(2) 5670 IF RP=3 THEN SD$ = SD$ + "D. "+QA$(3) 5680 IF RP=4 THEN SD$ = SD$ + "E.NONE OF THE ABOVE" 5690 PRINT@352, SD$ 5700 GOTO 5770 5710 SOUND 204,1 5720 SOUND 204,1 5730 SOUND 204,1 5740 SOUND 218,3 5750 PRINT@320, " *** THAT IS CORRECT! ***" 5760 QC = QC + 1 5770 QT = QT + 1 5780 QP = INT(100 * (QC/QT)) 5790 PRINT@448, " SCORE = ";QC;" OF ";QT;" = ";QP;"%"; 5800 PRINT@384, " PRESS C TO CONTINUE;Q TO QUIT" 5810 A$ = INKEY$ 5820 IF A$="" GOTO 5810 5830 IF (A$="C" OR A$=CHR$(99)) GOTO 5190 5840 IF (A$="Q" OR A$=CHR$(113)) GOTO 5890 5850 SOUND 159,2 5860 SOUND 159,2 5870 PRINT@384, " YOU MUST PRESS C OR Q" 5880 GOTO 5810 5890 CLS 5900 PRINT:PRINT " FINAL SCORE = ";QP;"%" 5910 PRINT:PRINT "  9╧&PЗ@256, SD$&d:Г*****&$e:Г*&9f:Г* ADDITION.BAS&Pg:Г* MDJ 2022/01/08&Xh:Г*&oi:Г* A QUIZ TO TEST&Дj:Г* KNOWLEDGE OF&Хk:Г* ADDITION&Эl:Г*&йm:Г*****&├n:ГGO TO THE PROGRAM'S&█x:ГEXECUTIVE ROUTINE&чВБе 4220&√Г:Г HEADER 00100'Д:Г SELECT 00200'#Е:Г EXEC 04000'7Ж:Г MAIN 05000'KЗ:Г DATA 10500'_И:Г INIT 27500'sЙ:Г SPLASH 29500'╚:Г*****'И╥:Г* 'ж▄:Г* SELECTION SUBROUTINE:'оц:Г*'╬Ё:Г* THIS ROUTINE IS UNIFORM'я·:Г* AND REMAINS THE SAME FOR(:Г* EACH AND EVERY QUIZ GAME(:Г*($:Г*****(>":ГRANDOM SELECTION OF(R,:ГFOUR OF FIVE.(n6:Г SELECTS FOUR ENTRIES(О@:Г FROM FIVE POSSIBILITIES.(ЮJ:Г INPUTS:(мT:Г NONE(┼^:Г OUTPUTS (GLOBAL)(шh:Г RR(4) = THE SELECTED FOUR)r:Г RP = POSITION OF "0" ENTRY)1|:Г (0, 1, 2, OR 3))RЖ:Г = 4 IF "0" ENTRY )qР:Г NOT INCLUDED)Зъ:Г INITIALIZATION)ЧЇА I │ 0 е 4)е■R1(I) │ I)нЛ I)╕RP │ 4)╔:ГFIRST PASS)█&R │  Д(5) м 1)ц0J │ м1)Ў:А I │ 0 е 4* DЕ R │ I Бе 610*NJ │ J л 1*)XR2(J) │ R1(I)*1bЛ I*El:ГSCRAMBLE PASS*XvJ │  Д(24) м 1*hАА I │ 0 е 3*КRR(I) │ R2(S(J,I))*ЗФЛ I*ЫЮ:ГPOSITION PASS*лиА I │ 0 е 3*├▓Е RR(I) ┤▓ 0 Бе 710*╬╝RP │ I*╓╞Л I*▄╨Р*ш┌:Г******Ёф:Г** ю:Г* ENDSUB+°:Г*+:Г*****+а:Г*****+'к:Г*+:┤:Г* EXECUTIVE +B╛:Г*+N╚:Г*****+c╥:ГVARIABLES LIST+Ж▄:Г I, J = INDEXES AND COUNTERS+Яц:Г A = RESPONSE CODE+╡Ё:Г A$ = KEY PRESS+╒·:Г N = NUMBER OF QUESTIONS +ъ:Г Q$ = QUESTION,:Г QA$ = QUESTION ANSWERS ARRAY,0:Г QD$ = QUESTIONS DATA ARRAY,M":Г QN = QUESTION NUMBER,o,:Г QT = # OF QUESTIONS ASKED,С6:Г QC = # OF CORRECT ANSWERS,и@:Г QP = % CORRECT,┬J:Г R, R1, R2, RR, RP ,хT:Г = RANDOMIZATION VARIABLES-^:Г S = SCRAMBLE CODES ARRAY-&h:Г SD$ = SCREEN DISPLAY TEXT-Er:ГGO DISPLAY SPLASH SCREEN-R|Бж 29600-qЖ:ГGO INITIALIZE THE SYSTEM-~РБж 27600-ЫЪ:ГGO LOAD QUESTIONS DATA-идБж 10600-╚о:ГGO ENTER THE MAIN ROUTINE-╘╕Бе 5110-р┬:Г*****-ш╠:Г*-■╓:Г* END EXECUTIVE.р:Г*.ъ:Г*****.И:Г*****.&Т:Г*.3Ь:Г* MAIN.;ж:Г*.G░:Г*****.d║:Г QN = QUESTION NUMBER.y─:Г Q$ = QUESTION.Э╬:Г QA$ = QUESTION ANSWERS ARRAY.┐╪:Г QT = # OF QUESTIONS ASKED.ст:Г QC = # OF CORRECT ANSWERS.°ь:Г QP = % CORRECT/ЎМ QA$(4)/QT │ 0/ QC │ 0/&QP │ 0/>:ГRANDOMLY SELECT A/M(:ГQUESTION/h2:ГADJUST RND FOR TOTAL/В<:ГNUMBER OF QUESTIONS/ЦFQN │  Д(90) м 1/йPQ$ │ QD$(QN,0)/├Z:ГRANDOMLY SELECT AND/█d:ГSCRAMBLE FOUR OF /Єn:ГTHE FIVE ANSWERS/¤xБж 5000 ВА I │ 0 е 30*МQA$(I) │ QD$(QN,RR(I)л1)02ЦЛ I0Lа:ГMAIN DISPLAY SCREEN0mкЗ@32," WHAT IS THE RESULT:"0Г┤З@64," "лQ$л" ?"0б╛З@128, " A. "лQA$(0)0┐╚З@160, " B. "лQA$(1)0▌╥З@192, " C. "лQA$(2)0√▄З@224, " D. "лQA$(3)1#цЗ@256, " E. NONE OF THE ABOVE"1IЁЗ@320, " PRESS A, B, C, D, OR E"1w·З@352, " "1еЗ@384, " "1╙З@416, " "2З@448, " SCORE = ";QC;" OF ";QT;" = ";QP;"%";2"A$ │  Т2&,Е A$│"" Бе 54102I6Е (A$│"A" ▒ A$│ Л(97)) Бе 55202l@Е (A$│"B" ▒ A$│ Л(98)) Бе 55302ПJЕ (A$│"C" ▒ A$│ Л(99)) Бе 55402│TЕ (A$│"D" ▒ A$│ Л(100)) Бе 55502╫^Е (A$│"E" ▒ A$│ Л(101)) Бе 55602уhа 159,22яrа 159,23|З@320, " YOU MUST PRESS ONE OF A TO E"3'ЖБе 54103:РA │ 0: Бе 55703MЪA │ 1: Бе 55703`дA │ 2: Бе 55703sоA │ 3: Бе 55703З╕A │ 4: Бе 5570 3Ь┬Е A │ RP Бе 57103з╠а 78,13▓╓а 78,13╜ра 78,13╟ъа 5,33ЇЇЗ@320, " **SORRY: THAT IS INCORRECT."4 ■SD$ │ " CORRECT = "43Е RP│0 з SD$ │ SD$ л "A. "лQA$(0)4YЕ RP│1 з SD$ │ SD$ л "B. "лQA$(1)4Е RP│2 з SD$ │ SD$ л "C. "лQA$(2)4е&Е RP│3 з SD$ │ SD$ л "D. "лQA$(3)4╘0Е RP│4 з SD$ │ SD$ л "E.NONE OF THE ABOVE"4у:З@352, SD$4яDБе 57704√Nа 204,15Xа 204,15bа 204,15lа 218,35IvЗ@320, " *** THAT IS CORRECT! ***"5YАQC │ QC л 15iКQT │ QT л 15ДФQP │  Б(100 н (QCоQT))5╖ЮЗ@448, " SCORE = ";QC;" OF ";QT;" = ";QP;"%";5фиЗ@384, " PRESS C TO CONTINUE;Q TO QUIT"5Ё▓A$ │  Т6╝Е A$│"" Бе 58106'╞Е (A$│"C" ▒ A$│ Л(99)) Бе 51906K╨Е (A$│"Q" ▒ A$│ Л(113)) Бе 58906W┌а 159,26cфа 159,26ИюЗ@384, " YOU MUST PRESS C OR Q"6Ф°Бе 58106ЪЮ6╜ З:З " FINAL SCORE = ";QP;"%"6▐З:З " THANKS FOR PLAYING!"6√ З " COME BACK SOON."7*З:З " M. DAVID JOHNSON"764З " INFO@BDS-SOFT.COM"7D>З:З:З:З:З7QHБе 327677]R:Г*****7e\:Г*7vf:Г* END MAIN7~p:Г*7Кz:Г*****7Ц):Г*****7Ю):Г*7└):Г* STANDARD BASIC QUIZ GAMES7▌)":Г* DATA LOADING ROUTINE7х),:Г*7ё)6:Г*****8 )@:ГTHIS DA                                                                                                                                                                                                                                                                                      ╔ ┬!"#$%&─┼)┴╔                         ADDITIONBAS ╥ADDITIONTX1 README TXT 'ГMORE BAS(зLICENSE TXT *\ADDITIONTX2 d                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TA MUST BE8")J:ГINDIVIDUALIZED FOR8;)T:ГEACH SPECIFIC QUIZ8Y)^:ГN = NUMBER OF QUESTIONS8d)hN │ 908Е)r:ГQD$ = QUESTIONS DATA ARRAY8Ф)|М QD$(N,6)8ж)ЖА I │ 0 е Nм18╢)РА J │ 0 е 58┼)ЪН QD$(I,J)8═)дЛ J8╒)оЛ I8ч)╕З " OKAY -" 9 )┬З " ALL LOADED AND READY TO GO"9)╠З93)╓З " PRESS ANY KEY TO BEGIN"99)рЗ9C)ъA$│ Т9X)ЇЕ A$│"" Бе 107309^)■Р9j*:Г*****9r*:Г*9Л*:Г* END DATA LOADING9У*&:Г*9Я*0:Г*****9л*::Г*****9│*D:Г*9╬*N:Г* START OF DATA LIST9╓*X:Г*9т*b:Г*****9є*°Ж 2 PLUS 2 =9√+Ж 4:+ Ж 2: +Ж 3:+ Ж 5:+*Ж 6:,+\Ж 2 PLUS 3 =:4+fЖ 5:<+pЖ 4:D+zЖ 6:L+ДЖ 7:T+ОЖ 8:e+└Ж 2 PLUS 4 =:m+╩Ж 6:u+╘Ж 4:}+▐Ж 5:Е+шЖ 7:Н+ЄЖ 8:Ю,$Ж 2 PLUS 5 =:ж,.Ж 7:о,8Ж 8:╢,BЖ 9:┐,LЖ 11:╚,VЖ 12:┘,ИЖ 2 PLUS 6 =:с,ТЖ 8:щ,ЬЖ 4:ё,жЖ 6:∙,░Ж 9;,║Ж 10;,ьЖ 2 PLUS 7 =;,ЎЖ 9;#-Ж 8;+- Ж 7;4-Ж 10;=-Ж 11;N-PЖ 2 PLUS 8 =;W-ZЖ 10;_-dЖ 9;g-nЖ 8;p-xЖ 11;y-ВЖ 23;К-┤Ж 2 PLUS 9 =;У-╛Ж 11;Ь-╚Ж 10;е-╥Ж 12;о-▄Ж 14;╖-цЖ 15;╔.Ж 2 PLUS 11 =;╥."Ж 13;█.,Ж 11;ф.6Ж 12;э.@Ж 14;ў.JЖ 15 < .|Ж 2 PLUS 12 =<.ЖЖ 14<.РЖ 12<$.ЪЖ 16<-.дЖ 18<6.оЖ 20Ж 10=;0pЖ 3 PLUS 7 ==D0zЖ 10=L0ДЖ 9=T0ОЖ 8=]0ШЖ 11=f0вЖ 12=w0╘Ж 3 PLUS 8 ==А0▐Ж 11=Й0шЖ 10=С0ЄЖ 9=Ъ0№Ж 12=г1Ж 13=┤18Ж 3 PLUS 9 ==╜1BЖ 12=╞1LЖ 11=╧1VЖ 10=╪1`Ж 13=с1jЖ 14=є1ЬЖ 3 PLUS 10 ==№1жЖ 13>1░Ж 12>1║Ж 11>1─Ж 14> 1╬Ж 15>22Ж 3 PLUS 11 =>;2 Ж 14>D2Ж 13>M2Ж 12>V2(Ж 15>_22Ж 16>q2dЖ 3 PLUS 12 =>z2nЖ 15>Г2xЖ 14>М2ВЖ 13>Х2МЖ 16>Ю2ЦЖ 17>н2а:Г***** 20>╛2╚Ж 4 PLUS 3 =>╞2╥Ж 7>╬2▄Ж 6>╓2цЖ 5>▐2ЁЖ 8>ц2·Ж 9>ў3,Ж 4 PLUS 4 => 36Ж 8?3@Ж 7?3JЖ 6?3TЖ 5?3^Ж 9?03РЖ 4 PLUS 5 =?83ЪЖ 9?@3дЖ 8?H3оЖ 7?P3╕Ж 6?Y3┬Ж 10?j3ЇЖ 4 PLUS 6 =?s3■Ж 10?{4Ж 9?Г4Ж 8?М4Ж 11?Х4&Ж 12?ж4XЖ 4 PLUS 7 =?п4bЖ 11?╕4lЖ 10?└4vЖ 9?╔4АЖ 12?╥4КЖ 13?у4╝Ж 4 PLUS 8 =?ь4╞Ж 12?ї4╨Ж 11?■4┌Ж 10@4фЖ 13@4юЖ 14@!5 Ж 4 PLUS 9 =@*5*Ж 13@354Ж 12@<5>Ж 11@E5HЖ 14@N5RЖ 15@`5ДЖ 4 PLUS 10 =@i5ОЖ 14@r5ШЖ 12@{5вЖ 10@Д5мЖ 15@Н5╢Ж 16@Я5шЖ 4 PLUS 11 =@и5ЄЖ 15@▒5№Ж 14@║6Ж 13@├6Ж 16@╠6Ж 17@▐6LЖ 4 PLUS 12 =@ч6VЖ 16@Ё6`Ж 15@∙6jЖ 14A6tЖ 17A 6~Ж 18A6И:Г***** 30A+6░Ж 5 PLUS 3 =A36║Ж 8A;6─Ж 7AC6╬Ж 6AK6╪Ж 9AT6тЖ 10Ae7Ж 5 PLUS 4 =Am7Ж 9Au7(Ж 8A}72Ж 7AЖ7<Ж 10AП7FЖ 11Aа7xЖ 5 PLUS 5 =Aй7ВЖ 10A▒7МЖ 9A╣7ЦЖ 8A┬7аЖ 11A╦7кЖ 12A▄7▄Ж 5 PLUS 6 =Aх7цЖ 11Aю7ЁЖ 10AЎ7·Ж 9A 8Ж 12B8Ж 13B8@Ж 5 PLUS 7 =B"8JЖ 12B+8TЖ 11B48^Ж 10B=8hЖ 13BF8rЖ 14BW8дЖ 5 PLUS 8 =B`8оЖ 13Bi8╕Ж 12Br8┬Ж 11B{8╠Ж 14BД8╓Ж 15BХ9Ж 5 PLUS 9 =BЮ9Ж 14Bз9Ж 13B░9&Ж 12B╣90Ж 15B┬9:Ж 16B╘9lЖ 5 PLUS 10 =B▌9vЖ 15Bц9АЖ 13Bя9КЖ 11B°9ФЖ 17C9ЮЖ 19C9╨Ж 5 PLUS 11 =C9┌Ж 16C%9фЖ 15C.9юЖ 14C79°Ж 17C@:Ж 18CR:4Ж 5 PLUS 12 =C[:>Ж 17Cd:HЖ 16Cm:RЖ 15Cv:\Ж 18C:fЖ 19CО:p:Г***** 40CЯ:ШЖ 6 PLUS 3 =Cз:вЖ 9Cп:мЖ 8C╖:╢Ж 7C└:└Ж 10C╔:╩Ж 11C┌:№Ж 6 PLUS 4 =Cу;Ж 10Cы;Ж 9Cє;Ж 8C√;$Ж 7D;.Ж 6D;`Ж 6 PLUS 5 =D;jЖ 11D&;tЖ 10D/;~Ж 12D8;ИЖ 13DA;ТЖ 14DR;─Ж 6 PLUS 6 =D[;╬Ж 12Dd;╪Ж 11Dm;тЖ 10Dv;ьЖ 13D;ЎЖ 14DР<(Ж 6 PLUS 7 =DЩ<2Ж 13Dв<<Ж 12DлЖ 116MIpЖ 11 PLUS 8 =M IzЖ 19MIДЖ 17MIОЖ 15M(IШЖ 21M1IвЖ 23MDI╘Ж 11 PLUS 11 =MMI▐Ж 22MVIшЖ 20M_IЄЖ 18MhI№Ж 24MrJЖ 121MБJ:Г***** 80MУJ8Ж 12 PLUS 3 =MЬJBЖ 15MеJLЖ 14MоJVЖ 13M╖J`Ж 16M└JjЖ 17M╥JЬЖ 12 PLUS 4 =M█JжЖ 16MфJ░Ж 15MэJ║Ж 14MЎJ─Ж 17M J╬Ж 18NKЖ 12 PLUS 5 =NK Ж 17N#KЖ 15N,KЖ 13N5K(Ж 19N>K2Ж 21NPKdЖ 12 PLUS 6 =NYKnЖ 18NbKxЖ 16NkKВЖ 15NtKМЖ 20N}KЦЖ 22NПK╚Ж 12 PLUS 7 =NШK╥Ж 19NбK▄Ж 18NкKцЖ 17N│KЁЖ 20N╝K·Ж 21N╬L,Ж 12 PLUS 8 =N╫L6Ж 20NрL@Ж 18NщLJЖ 16NЄLTЖ 22N№L^Ж 128OLРЖ 12 PLUS 9 =OLЪЖ 21O LдЖ 19O)LоЖ 17O2L╕Ж 23O:Г*PLNH:Г*****PXkl:Г*****P`kv:Г*PВkА:Г* STANDARD BASIC QUIZ GAMESPбkК:Г* INITIALIZATION ROUTINEPйkФ:Г*P╡kЮ:Г*****P╗k╨ЮP┴k┌ЗP▐kфЗ " LOADING THE SYSTEM"PЇkюЗ " PLEASE WAIT"P·k°ЗQl:ГRANDOMIZATION ARRAYSQ!l М R1(5)Q-lМ R2(4)Q9l М RR(4)QTl*:ГSCRAMBLE CODES ARRAYQbl4М S(24,4)QГl>:ГRANDOMIZE THE RND FUNCTIONQУlHR │  Д(м Я)Q╖lШ:ГINITIALIZE THE SCRAMBLE CODESQ╞lвS(0,0) │ 0Q╒lмS(0,1) │ 1Qфl╢S(0,2) │ 2Qєl└S(0,3) │ 3Rl╩S(1,0) │ 0Rl╘S(1,1) │ 1R l▐S(1,2) │ 3R/lшS(1,3) │ 2R>lЄS(2,0) │ 0RMl№S(2,1) │ 2R\mS(2,2) │ 1RkmS(2,3) │ 3RzmS(3,0) │ 0RЙm$S(3,1) │ 2RШm.S(3,2) │ 3Rзm8S(3,3) │ 1R╢mBS(4,0) │ 0R┼mLS(4,1) │ 3R╘mVS(4,2) │ 1Rуm`S(4,3) │ 2RЄmjS(5,0) │ 0SmtS(5,1) │ 3Sm~S(5,2) │ 2SmИS(5,3) │ 1S.mТS(6,0) │ 1S=mЬS(6,1) │ 0SLmжS(6,2) │ 2S[m░S(6,3) │ 3Sjm║S(7,0) │ 1Sym─S(7,1) │ 0SИm╬S(7,2) │ 3SЧm╪S(7,3) │ 2SжmтS(8,0) │ 1S╡mьS(8,1) │ 2S─mЎS(8,2) │ 0S╙nS(8,3) │ 3Sтn S(9,0) │ 1SёnS(9,1) │ 2TnS(9,2) │ 3Tn(S(9,3) │ 0Tn2S(10,0) │ 1T/n:Г*****_┤vH:Г*_╝vR:Г*_╚v\:Г*****_╬ КE BLANK GREEN_u°:ГDISPLAY SPECIFIC STANDARD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  101 README.TXT 102 . 103 ADDITION.BAS IS A QUIZ GAME 104 TO TEST YOUR KNOWLEDGE OF 105 BASIC ADDITION IN 106 MATHEMATICS. 107 . 108 YOU CAN ALSO USE IT IN A 109 REPETITIVE FASHION TO HELP 110 IMPROVE THAT KNOWLEDGE. 111 . 112 THE GAME REQUIRES A 64K 113 COLOR COMPUTER 2 OR ANY 114 COLOR COMPUTER 3. (OR VCC 115 OR OTHER COCO EMULATOR). 116 . 117 AS WITH ALL MY SOFTWARE, 118 I PROVIDE THE COMPLETE 119 CODE SO YOU CAN LEARN FROM 120 IT AND USE IT TO DEVELOP 121 YOUR OWN PROGRAMS AND 122 SOFTWARE. SEE THE 123 LICENSE.TXT FILE WHICH IS 124 ALSO ON THIS DISK. 125 . 126 IN ADDITION TO THE .BAS 127 FILE (WHICH IS THE ONE 128 YOU SHOULD RUN), I'M ALSO 129 PROVIDING A .TX1 FILE AND 130 A .TX2 FILE (THE FIRST AND 131 SECOND HALVES OF THE 132 PROGRAM) IN ASCII FORMAT, 133 WHICH CAN BE EXAMINED, 134 PAGE-BY-PAGE, 135 (WHERE ONE "PAGE" IS 136 ONE 32 X 16 COCO SCREEN) 137 USING THE INCLUDED 138 MORE.BAS PROGRAM. 139 . 140 ENJOY! 141 . 142 M. DAVID JOHNSON 143 MDJ@BDS-SOFT.COM 144 . 2022/04/22 145 . 146 ----- 147 . 148 THIS README.TXT FILE CAN 149 BE READ, PAGE-BY-PAGE, 150 USING THE MORE.BAS PROGRAM 151 ON THIS DISK. 152 . 153 ----- 154 . 155 EOF RE.BAS PROGRAM. 139 . 140 ENJOY! 141 . 142 M. DAVID JOHNSON 143 MDJ@BDS-SOFT.COM 144 . 2022/04/22 145 . 146 ----- 147 . 148                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   д& d:Г*****&n:Г*&&x:Г* MORE.BAS&=В:Г* MDJ 2022/04/20&EМ:Г*&^Ц:Г* A PAGE-AT-A-TIME&wа:Г* TEXT FILE LISTER&к:Г*&Л┤:Г*****&Ц╚Х 3000&п,:Г LIST OF VARIABLES&─6:Г F$ = FILENAME&▐@:Г T$ = LINE OF TEXT &ёJ:Г FROM FILE' T:Г L$ = HOLDING ARRAY '^:Г FOR LINES';h:Г LC = COUNT OF LINES 'Ur:Г IN HOLDING ARRAY'q|:Г SC = COUNT OF SCREEN'ЛЖ:Г LINES OCCUPIED ='зР:Г (LEN(T$) / 32) + 1'┬Ъ:Г RC = RUNNING TOTAL '╨д:Г OF SC'уо:Г P$ = PROMPT(╕:Г A$ = KEYBOARD CONTROL(┬:Г I - ARRAY ITERATOR(6Ї:Г INITIALIZE VARIABLES(B■F$ │ ""(NT$ │ ""(YLC │ 0(dSC │ 0(o&RC │ 0(Ч0P$ │ "-- PRESS ANY KEY FOR MORE --"(г:A$ │ ""(нDI │ 0(║NМ L$(12)(╦XА I │ 0 е 11(┌bL$(I) │ ""(тlЛ I(№╝:Г ENTER THE FILENAME)╞:Г IN FORM FILENAME.EXT)0╨З "ENTER FILENAME";)9┌Й F$)Kф:Г WILL THROW)eю:Г "?NE ERROR IN 760")~°:Г IF FILE NOT FOUND)РЩ "I", #1, F$)о :Г EXIT IF AT END OF FILE)╚*Е  М(1) │ м1 Бе 10000)ц4:Г GO IF RUNNING TOTAL OF*>:Г SCREEN LINES > 12*HЕ (RC ▓ 12) Бе 2000*7R:Г GO IF RUNNING TOTAL OF*R\:Г SCREEN LINES = 12*jfЕ (RC │ 12) Бе 3000*Жp:Г GET A LINE FROM FILE*Хz╗ Й #1, T$*оД:Г PUT THE LINE INTO*╔О:Г THE HOLDING ARRAY*┘ШL$(LC) │ T$*щвLC │ LC л 1+ш:Г COUNT HOW MANY SCREEN+$Є:Г LINES THE INPUT LINE+9№:Г WILL OCCUPY+XSC │  Б(( З(T$) о 32) л 1)+uL:Г ADD THAT VALUE TO THE+РV:Г THE RUNNING COUNT+б`RC │ RC л SC+╝j:Г RETURN FOR THE NEXY+╨t:Г INPUT LINE+▄~Бе 810 +∙╨:Г PRINT OUT ALL BUT THE,┌:Г LAST LINE IN THE,*ф:Г HOLDING ARRAY,?юА I │ O е LC м 2,K°З L$(I),SЛ I,Y З,bЗ P$,|Ш:Г ADJUST THE HOLDING,Лв:Г ARRAY,амL$(O) │ L$(LCм1),л╢LC │ 1,╚№:Г COUNT HOW MANY SCREEN,с :Г LINES THAT LINE,Ў :Г WILL OCCUPY- RC │  Б(( З(L$(0)) о 32) л 1)-3 $:Г RETURN FOR THE NEXY-G .:Г INPUT LINE-S 8A$ │  Т-i BЕ A$ │ "" Бе 2360-u LБе 810 -О ╕:Г PRINT OUT ALL THE-д ┬:Г LINES IN THE-╗ ╠:Г HOLDING ARRAY-╨ ╓А I │ O е LC м 1-▄ рЗ L$(I)-ф ъЛ I-ъ ЇЗ-є ■З P$. А:Г ADJUST THE HOLDING. К:Г ARRAY.+ ФL$(O) │ "".6 ЮLC │ 0.P ф:Г ADJUST THE RUNNING.m ю:Г RUNNING SCREEN LINE.~ °:Г COUNTER.Й RC │ 0.д :Г RETURN FOR THE NEXY.╕ :Г INPUT LINE.─ A$ │  Т.┌ *Е A$ │ "" Бе 3360.ц 4Бе 810 .√':Г PRINT OUT THE/':Г FINAL PAGE/%'$Е (RC│0) Бе 32000/>*°:Г PRINT OUT ALL THE/T+:Г LINES IN THE/k+ :Г HOLDING ARRAY/А+А I │ O е LC м 1/М+ З L$(I)/Ф+*Л I/Э}Ъ #1/г К╕ :Г INPUT LINE.─ A$ │  Т.┌ *Е A$ │ "" Бе 3360.ц 4Бе 810 .√':Г PRINT OUT THE/'                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 100 BDS SOFTWARE 101 . 102 NEW SOFTWARE LICENSE 103 . 104 THIS NEW SOFTWARE LICENSE 105 APPLIES TO ALL SOFTWARE 106 FOUND ON THIS SITE, AND 107 SUPERSEDES ALL PREVIOUS 108 COPYRIGHT NOTICES AND 109 LICENSING PROVISIONS WHICH 110 MAY APPEAR IN THE SOFTWARE 111 ITSELF OR IN ANY 112 DOCUMENTATION THEREFOR. 113 . 114 ALL SOFTWARE WHICH HAS 115 PREVIOUSLY BEEN PLACED IN 116 THE PUBLIC DOMAIN REMAINS 117 IN THE PUBLIC DOMAIN. 118 . 119 ALL OTHER SOFTWARE, 120 PROGRAMS, EXPERIMENTS AND 121 REPORTS, DOCUMENTATION, 122 AND ANY OTHER MATERIAL ON 123 THIS SITE (OTHER THAN 124 THAT ATTRIBUTED TO OUTSIDE 125 SOURCES) IS HEREBY 126 COPYRIGHT 2018 (OR LATER 127 IF SO MARKED) 128 BY M. DAVID JOHNSON. 129 . 130 ALL SOFTWARE, 131 DOCUMENTATION, AND OTHER 132 INFORMATION ON THIS SITE 133 IS AVAILABLE FOR YOU TO 134 FREELY DOWNLOAD WITHOUT 135 COST. 136 . 137 WHETHER YOU DOWNLOADED 138 SUCH ITEMS DIRECTLY FROM 139 THIS SITE, OR YOU OBTAINED 140 THEM BY ANY OTHER MEANS, 141 YOU ARE HEREBY LICENSED TO 142 COPY THEM, TO SELL OR GIVE 143 AWAY SUCH COPIES, TO USE 144 THEM, AND TO EXCERPT FROM 145 THEM, IN ANY WAY 146 WHATSOEVER, SO LONG AS 147 NOTHING YOU DO WITH THEM 148 WOULD DENIGRATE THE NAME 149 OF OUR LORD AND SAVIOR, 150 JESUS CHRIST. 151 . 152 I MAKE ABSOLUTELY NO 153 WARRANTY WHATSOEVER FOR 154 ANY OF THESE ITEMS. YOU 155 USE THEM ENTIRELY AT YOUR 156 OWN RISK. 157 . 158 IF THEY DON'T WORK FOR 159 YOU, I COMMISERATE. 160 . 161 IF THEY CRASH YOUR SYSTEM, 162 I SYMPATHIZE. 163 . 164 BUT I ACCEPT NO 165 RESPONSIBILITY WHATSOEVER 166 FOR ANY SUCH CONSEQUENCES. 167 UNDER NO CIRCUMSTANCES 168 WILL BDS SOFTWARE OR 169 M. DAVID JOHNSON BE LIABLE 170 FOR ANY NEGATIVE RESULTS 171 OF ANY KIND WHICH YOU MAY 172 EXPERIENCE FROM 173 DOWNLOADING OR USING THESE 174 ITEMS. 175 . 176 BDS SOFTWARE'S FORMER MAIL 177 ADDRESS AT P.O. BOX 485 IN 178 GLENVIEW, IL IS NO LONGER 179 VALID. ANY MAIL SENT TO 180 THAT ADDRESS WILL BE 181 REJECTED BY THE U.S. 182 POSTAL SERVICE. 183 SEE MY CONTACT PAGE. 184 . 185 M.D.J. 2018/06/08 186 . 187 M. DAVID JOHNSON 188 MDJ@BDS-SOFT.COM 189 . 190 EOF 485 IN 178 GLENVIEW, IL IS NO LONGER 179 VALID. ANY MAIL SENT TO 180 THAT ADDRESS WILL BE 181 REJECTED BY THE U.S. 182 POSTAL SERVICE. 183 SEE MY CONTACT PAGE