:Г 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  д& 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/'TA 5622 17640 DATA 5544 17650 DATA 5589 17700 DATA -70 TIMES 7 = 17710 DATA -490 17720 DATA -493 17730 DATA -494 17740 DATA -492 17750 DATA -489 17800 DATA 57 TIMES 18 = 17810 DATA 1026 17820 DATA 1006 17830 DATA 1069 17840 DATA 942 17850 DATA 1096 7630 DA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 101 README.TXT 102 . 103 ADVMULT.BAS IS A QUIZ GAME 104 TO TEST YOUR KNOWLEDGE OF 105 ADVANCED MULTIPLICATION 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 ----- 14                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                @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 = 80 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 '***** 12500 DATA 35 TIMES 78 = 12510 DATA 2730 12520 DATA 2640 12530 DATA 2784 12540 DATA 2673 12550 DATA 2813 12600 DATA 33 TIMES 45 = 12610 DATA 1485 12620 DATA 1525 12630 DATA 1386 12640 DATA 1414 12650 DATA 1529 12700 DATA 80 TIMES 39 = 12710 DATA 3120 12720 DATA 3070 12730 DATA 3102 12740 DATA 3048 12750 DATA 3209 12800 DATA 60 TIMES -96 = 12810 DATA -5760 12820 DATA -5700 12830 DATA -5703 12840 DATA -5746 12850 DATA -5725 12900 DATA 92 TIMES 76 = 12910 DATA 6992 12920 DATA 6982 12930 DATA 6900 12940 DATA 7063 12950 DATA 7089 13000 DATA 58 TIMES 15 = 13010 DATA 870 13020 DATA 860 13030 DATA 879 13040 DATA 873 13050 DATA 874 13200 DATA 52 TIMES 23 = 13210 DATA 1196 13220 DATA 1246 13230 DATA 1258 13240 DATA 1232 13250 DATA 1129 13300 DATA 94 TIMES 68 = 13310 DATA 6392 13320 DATA 6302 13330 DATA 6317 13340 DATA 6396 13350 DATA 6402 13700 DATA 51 TIMES 98 = 13710 DATA 4998 13720 DATA 4938 13730 DATA 5051 13740 DATA 5035 13750 DATA 4956 13800 DATA 6 TIMES 43 = 13810 DATA 258 13820 DATA 268 13830 DATA 262 13840 DATA 257 13850 DATA 266 13860 '***** 10 13900 DATA 9 TIMES -46 = 13910 DATA -414 13920 DATA -424 13930 DATA -412 13940 DATA 414 13950 DATA 412 14000 DATA -67 TIMES 71 = 14010 DATA -4757 14020 DATA -4747 14030 DATA -4692 14040 DATA 4688 14050 DATA -4829 14100 DATA -87 TIMES 37 = 14110 DATA -3219 14120 DATA -3289 14130 DATA -3295 14140 DATA -3126 14150 DATA -3132 14200 DATA 41 TIMES 14 = 14210 DATA 574 14220 DATA 579 14230 DATA 584 14240 DATA 577 14250 DATA 575 14400 DATA 77 TIMES 40 = 14410 DATA 3080 14420 DATA 3070 14430 DATA 3042 14440 DATA 3024 14450 DATA 3143 14500 DATA 17 TIMES 6 = 14510 DATA 102 14520 DATA 92 14530 DATA 99 14540 DATA 112 14550 DATA 111 14900 DATA 91 TIMES 42 = 14910 DATA 3822 14920 DATA 3872 14930 DATA 3844 14940 DATA 3736 14950 DATA 3735 15000 DATA 39 TIMES 66 = 15010 DATA 2574 15020 DATA 2575 15030 DATA 2654 15040 DATA 2651 15050 DATA 2604 15100 DATA -28 TIMES 41 = 15110 DATA -1148 15120 DATA -1090 15130 DATA -1079 15140 DATA -1188 15150 DATA -1104 15200 DATA 20 TIMES -70 = 15210 DATA -1400 15220 DATA -1390 15230 DATA -1340 15240 DATA -1370 15250 DATA -1300 15260 '***** 20 15300 DATA 34 TIMES 3 = 15310 DATA 102 15320 DATA 92 15330 DATA 97 15340 DATA 95 15350 DATA 112 15400 DATA -44 TIMES -79 = 15410 DATA 3476 15420 DATA 3416 15430 DATA 3396 15440 DATA 3406 15450 DATA 3516 15600 DATA 47 TIMES -69 = 15610 DATA -3243 15620 DATA -3263 15630 DATA -3313 15640 DATA -3341 15650 DATA -3245 15700 DATA 55 TIMES 44 = 15710 DATA 2420 15720 DATA 2330 15730 DATA 2340 15740 DATA 2440 15750 DATA 2500 16100 DATA 30 TIMES 43 = 16110 DATA 1290 16120 DATA 1220 16130 DATA 1330 16140 DATA 1360 16150 DATA 1250 16200 DATA 33 TIMES 59 = 16210 DATA 1947 16220 DATA 1907 16230 DATA 2007 16240 DATA 1957 16250 DATA 1943 16300 DATA 91 TIMES -20 = 16310 DATA -1820 16320 DATA -1880 16330 DATA -1720 16340 DATA -1790 16350 DATA -1760 16400 DATA -61 TIMES 82 = 16410 DATA -5002 16420 DATA -5022 16430 DATA -4912 16440 DATA -5042 16450 DATA -5072 16500 DATA 94 TIMES 2 = 16510 DATA 188 16520 DATA 178 16530 DATA 198 16540 DATA 179 16550 DATA 189 16600 DATA 77 TIMES 26 = 16610 DATA 2002 16620 DATA 1922 16630 DATA 1952 16640 DATA 1932 16650 DATA 2022 16660 '***** 30 16800 DATA 53 TIMES 52 = 16810 DATA 2756 16820 DATA 2686 16830 DATA 2726 16840 DATA 2828 16850 DATA 2854 16900 DATA 8 TIMES 95 = 16910 DATA 760 16920 DATA 750 16930 DATA 764 16940 DATA 765 16950 DATA 762 17300 DATA 13 TIMES 27 = 17310 DATA 351 17320 DATA 361 17330 DATA 355 17340 DATA 343 17350 DATA 341 17400 DATA 25 TIMES 70 = 17410 DATA 1750 17420 DATA 1840 17430 DATA 1703 17440 DATA 1744 17450 DATA 1845 17500 DATA 53 TIMES 41 = 17510 DATA 2173 17520 DATA 2193 17530 DATA 2174 17540 DATA 2127 17550 DATA 2094 17600 DATA 99 TIMES 57 = 17610 DATA 5643 17620 DATA 5683 17630 DA 100 '***** 101 '* 102 '* ADVMULT.BAS 103 '* MDJ 2022/03/15 104 '* 105 '* A QUIZ TO TEST 106 '* KNOWLEDGE OF THE 107 '* ADVANCED MULTIPLICATION 108 '* 109 '***** 110 'GO TO THE PROGRAM'S 120 'EXECUTIVE ROUTINE 130 GOTO 4220 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(80) - 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 " THANKS FOR PLAYING!" 5920 PRINT " COME BACK SOON." 5930 PRINT:PRINT " M. DAVID JOHNSON" 5940 PRINT " INFO <╟& З@224, SD$&PЗ@256, SD$&+d:Г*****&3e:Г*&Gf:Г* ADVMULT.BAS&^g:Г* MDJ 2022/03/15&fh:Г*&}i:Г* A QUIZ TO TEST&Цj:Г* KNOWLEDGE OF THE&╢k:Г* ADVANCED MULTIPLICATION&╛l:Г*&╩m:Г*****&фn:ГGO TO THE PROGRAM'S&№x:ГEXECUTIVE ROUTINE'ВБе 4220'╚:Г*****'╥:Г* ';▄:Г* SELECTION SUBROUTINE:'Cц:Г*'cЁ:Г* THIS ROUTINE IS UNIFORM'Д·:Г* AND REMAINS THE SAME FOR'е:Г* EACH AND EVERY QUIZ GAME'н:Г*'╣:Г*****'╙":ГRANDOM SELECTION OF'ч,:ГFOUR OF FIVE.(6:Г SELECTS FOUR ENTRIES(#@:Г FROM FIVE POSSIBILITIES.(3J:Г INPUTS:(AT:Г NONE(Z^:Г OUTPUTS (GLOBAL)(}h:Г RR(4) = THE SELECTED FOUR(дr:Г RP = POSITION OF "0" ENTRY(╞|:Г (0, 1, 2, OR 3)(чЖ:Г = 4 IF "0" ENTRY )Р:Г NOT INCLUDED)ъ:Г INITIALIZATION),ЇА I │ 0 е 4):■R1(I) │ I)BЛ I)MRP │ 4)^:ГFIRST PASS)p&R │  Д(5) м 1){0J │ м1)Л:А I │ 0 е 4)ЮDЕ R │ I Бе 610)мNJ │ J л 1)╛XR2(J) │ R1(I))╞bЛ I)┌l:ГSCRAMBLE PASS)эvJ │  Д(24) м 1)¤АА I │ 0 е 3*КRR(I) │ R2(S(J,I))*ФЛ I*0Ю:ГPOSITION PASS*@иА I │ 0 е 3*X▓Е RR(I) ┤▓ 0 Бе 710*c╝RP │ I*k╞Л I*q╨Р*}┌:Г******Еф:Г**Фю:Г* ENDSUB*Ь°:Г**и:Г******┤а:Г******╝к:Г**╧┤:Г* EXECUTIVE *╫╛:Г**у╚:Г******°╥:ГVARIABLES LIST+▄:Г I, J = INDEXES AND COUNTERS+4ц:Г A = RESPONSE CODE+JЁ:Г A$ = KEY PRESS+j·:Г N = NUMBER OF QUESTIONS +:Г Q$ = QUESTION+г:Г QA$ = QUESTION ANSWERS ARRAY+┼:Г QD$ = QUESTIONS DATA ARRAY+т":Г QN = QUESTION NUMBER,,:Г QT = # OF QUESTIONS ASKED,&6:Г QC = # OF CORRECT ANSWERS,=@:Г QP = % CORRECT,WJ:Г R, R1, R2, RR, RP ,zT:Г = RANDOMIZATION VARIABLES,Ъ^:Г S = SCRAMBLE CODES ARRAY,╗h:Г SD$ = SCREEN DISPLAY TEXT,┌r:ГGO DISPLAY SPLASH SCREEN,ч|Бж 29600-Ж:ГGO INITIALIZE THE SYSTEM-РБж 27600-0Ъ:ГGO LOAD QUESTIONS DATA-=дБж 10600-]о:ГGO ENTER THE MAIN ROUTINE-i╕Бе 5110-u┬:Г*****-}╠:Г*-У╓:Г* END EXECUTIVE-Ыр:Г*-зъ:Г*****-│И:Г*****-╗Т:Г*-╚Ь:Г* MAIN-╨ж:Г*-▄░:Г*****-∙║:Г QN = QUESTION NUMBER.─:Г Q$ = QUESTION.2╬:Г QA$ = QUESTION ANSWERS ARRAY.T╪:Г QT = # OF QUESTIONS ASKED.vт:Г QC = # OF CORRECT ANSWERS.Нь:Г QP = % CORRECT.ЪЎМ QA$(4).еQT │ 0.░ QC │ 0.╗QP │ 0.╙:ГRANDOMLY SELECT A.т(:ГQUESTION.¤2:ГADJUST RND FOR TOTAL/<:ГNUMBER OF QUESTIONS/+FQN │  Д(80) м 1/>PQ$ │ QD$(QN,0)/XZ:ГRANDOMLY SELECT AND/pd:ГSCRAMBLE FOUR OF /Зn:ГTHE FIVE ANSWERS/ТxБж 500/вВА I │ 0 е 3/┐МQA$(I) │ QD$(QN,RR(I)л1)/╟ЦЛ I/са:ГMAIN DISPLAY SCREEN0кЗ@32," WHAT IS THE RESULT:"0┤З@64," "лQ$л" ?"06╛З@128, " A. "лQA$(0)0T╚З@160, " B. "лQA$(1)0r╥З@192, " C. "лQA$(2)0Р▄З@224, " D. "лQA$(3)0╕цЗ@256, " E. NONE OF THE ABOVE"0▐ЁЗ@320, " PRESS A, B, C, D, OR E"1 ·З@352, " "1:З@384, " "1hЗ@416, " "1ЫЗ@448, " SCORE = ";QC;" OF ";QT;" = ";QP;"%";1з"A$ │  Т1╗,Е A$│"" Бе 54101▐6Е (A$│"A" ▒ A$│ Л(97)) Бе 55202@Е (A$│"B" ▒ A$│ Л(98)) Бе 55302$JЕ (A$│"C" ▒ A$│ Л(99)) Бе 55402HTЕ (A$│"D" ▒ A$│ Л(100)) Бе 55502l^Е (A$│"E" ▒ A$│ Л(101)) Бе 55602xhа 159,22Дrа 159,22░|З@320, " YOU MUST PRESS ONE OF A TO E"2╝ЖБе 54102╧РA │ 0: Бе 55702тЪA │ 1: Бе 55702їдA │ 2: Бе 55703оA │ 3: Бе 55703╕A │ 4: Бе 5570 31┬Е A │ RP Бе 57103<╠а 78,13G╓а 78,13Rра 78,13\ъа 5,33ЙЇЗ@320, " **SORRY: THAT IS INCORRECT."3в■SD$ │ " CORRECT = "3╚Е RP│0 з SD$ │ SD$ л "A. "лQA$(0)3юЕ RP│1 з SD$ │ SD$ л "B. "лQA$(1)4Е RP│2 з SD$ │ SD$ л "C. "лQA$(2)4:&Е RP│3 з SD$ │ SD$ л "D. "лQA$(3)4i0Е RP│4 з SD$ │ SD$ л "E.NONE OF THE ABOVE"4x:З@352, SD$4ДDБе 57704РNа 204,14ЬXа 204,14иbа 204,14┤lа 218,34▐vЗ@320, " *** THAT IS CORRECT! ***"4юАQC │ QC л 14■КQT │ QT л 15ФQP │  Б(100 н (QCоQT))5LЮЗ@448, " SCORE = ";QC;" OF ";QT;" = ";QP;"%";5yиЗ@384, " PRESS C TO CONTINUE;Q TO QUIT"5Е▓A$ │  Т5Щ╝Е A$│"" Бе 58105╝╞Е (A$│"C" ▒ A$│ Л(99)) Бе 51905р╨Е (A$│"Q" ▒ A$│ Л(113)) Бе 58905ь┌а 159,25°фа 159,26юЗ@384, " YOU MUST PRESS C OR Q"6)°Бе 58106/Ю6R З:З " FINAL SCORE = ";QP;"%"6sЗ:З " THANKS FOR PLAYING!"6Р З " COME BACK SOON."6о*З:З " M. DAVID JOHNSON"6╦4З " INFO@BDS-SOFT.COM"6┘>З:З:З:З:З6цHБе 327676ЄR:Г*****6·\:Г*7 f:Г* END MAIN7p:Г*7z:Г*****7+):Г*****73):Г*7U):Г* STANDARD BASIC QUIZ GAMES7r)":Г* DATA LOADING ROUTINE7z),:Г*7Ж)6:Г*****7Ю)@:ГTHIS DATA MUST BE7╖)J:ГINDIVIDUALIZED FOR7╨)T:ГEACH SPECIFIC QUIZ7ю)^:ГN = NUMBER OF QUESTIONS7∙)hN │ 808)r:                                                                                                                                                                                                                                                                                      ┴ ╔┴┼!"#$%&╟()*+┬                        ADVMULT BAS ╩ADVMULT TX1 ∙ADVMULT TX2 'EREADME TXT ЛLICENSE TXT \MORE BASз                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ГQD$ = QUESTIONS DATA ARRAY8))|М QD$(N,6)8;)ЖА I │ 0 е Nм18K)РА J │ 0 е 58Z)ЪН QD$(I,J)8b)дЛ J8j)оЛ I8|)╕З " OKAY -" 8б)┬З " ALL LOADED AND READY TO GO"8з)╠З8╚)╓З " PRESS ANY KEY TO BEGIN"8╬)рЗ8╪)ъA$│ Т8э)ЇЕ A$│"" Бе 107308є)■Р8 *:Г*****9*:Г*9 *:Г* END DATA LOADING9(*&:Г*94*0:Г*****9@*::Г*****9H*D:Г*9c*N:Г* START OF DATA LIST9k*X:Г*9w*b:Г*****9Л0╘Ж 35 TIMES 78 =9Ц0▐Ж 27309б0шЖ 26409м0ЄЖ 27849╖0№Ж 26739┬1Ж 28139╓18Ж 33 TIMES 45 =9с1BЖ 14859ь1LЖ 15259ў1VЖ 1386:1`Ж 1414: 1jЖ 1529:!1ЬЖ 80 TIMES 39 =:,1жЖ 3120:71░Ж 3070:B1║Ж 3102:M1─Ж 3048:X1╬Ж 3209:m2Ж 60 TIMES -96 =:y2 Ж -5760:Е2Ж -5700:С2Ж -5703:Э2(Ж -5746:й22Ж -5725:╜2dЖ 92 TIMES 76 =:╚2nЖ 6992:╙2xЖ 6982:▐2ВЖ 6900:щ2МЖ 7063:Ї2ЦЖ 7089;2╚Ж 58 TIMES 15 =;2╥Ж 870;2▄Ж 860;&2цЖ 879;02ЁЖ 873;:2·Ж 874;N3РЖ 52 TIMES 23 =;Y3ЪЖ 1196;d3дЖ 1246;o3оЖ 1258;z3╕Ж 1232;Е3┬Ж 1129;Щ3ЇЖ 94 TIMES 68 =;д3■Ж 6392;п4Ж 6302;║4Ж 6317;┼4Ж 6396;╨4&Ж 6402;ф5ДЖ 51 TIMES 98 =;я5ОЖ 4998;·5ШЖ 4938<5вЖ 5051<5мЖ 5035<5╢Ж 4956<.5шЖ 6 TIMES 43 =<85ЄЖ 2588оЖ 102>8╕Ж 92>8┬Ж 99>#8╠Ж 112>-8╓Ж 111>A:4Ж 91 TIMES 42 =>L:>Ж 3822>W:HЖ 3872>b:RЖ 3844>m:\Ж 3736>x:fЖ 3735>М:ШЖ 39 TIMES 66 =>Ч:вЖ 2574>в:мЖ 2575>н:╢Ж 2654>╕:└Ж 2651>├:╩Ж 2604>╪:№Ж -28 TIMES 41 =>ф;Ж -1148>Ё;Ж -1090>№;Ж -1079?;$Ж -1188?;.Ж -1104?);`Ж 20 TIMES -70 =?5;jЖ -1400?A;tЖ -1390?M;~Ж -1340?Y;ИЖ -1370?e;ТЖ -1300?t;Ь:Г***** 20?З;─Ж 34 TIMES 3 =?С;╬Ж 102?Ъ;╪Ж 92?г;тЖ 97?м;ьЖ 95?╢;ЎЖ 112?╠<(Ж -44 TIMES -79 =?╫<2Ж 3476?т<<Ж 3416?эI4Ж 1485FII>Ж 1502F]IpЖ 94 TIMES 90 =FhIzЖ 8460FsIДЖ 8360F~IОЖ 8470FЙIШЖ 8538FФIвЖ 8469FиI╘Ж 86 TIMES 83 =F│I▐Ж 7138F╛IшЖ 7178F╔IЄЖ 7111F╘I№Ж 7224F▀JЖ 7143FЄJ8Ж 58 TIMES 3 =F№JBЖ 174GJLЖ 176GJVЖ 164GJ`Ж 170G$JjЖ 173G8KЖ 85 TIMES 92 =GCK Ж 7820GNKЖ 7750GYKЖ 7888GdK(Ж 7873GoK2Ж 7881GГKdЖ 69 TIMES 74 =GОKnЖ 5106GЩKxЖ 5202GдKВЖ 5036GпKМЖ 5143G║KЦЖ 5190G╬LЇЖ 54 TIMES 25 =G┘L■Ж 1350GфMЖ 1340GяMЖ 1377G·MЖ 1264HM&Ж 1329HMXЖ 31 TIMES -70 =H&MbЖ -2170H2MlЖ -2090H>MvЖ -2139HJMАЖ -2143HVMКЖ -2119HeMФ:Г***** 50H{M╝Ж -77 TIMES -96 =HЖM╞Ж 7392HСM╨Ж 7399HЬM┌Ж 7372HзMфЖ 7408H▓MюЖ 7420H╞N Ж 70 TIMES 81 =H╤N*Ж 5670H▄N4Ж 5742HчN>Ж 5725HЄNHЖ 5710H¤NRЖ 5578INДЖ -70 TIMES 98 =INОЖ -6860I*NШЖ -6930I6NвЖ -6892IBNмЖ -6766INN╢Ж -6839IaNшЖ 41 TIMES 6 =IkNЄЖ 246IuN№Ж 256IOЖ 240IЙOЖ 241IУOЖ 237IзO░Ж 92 TIMES 54 =I▓O║Ж 4968I╜O─Ж 5008I╚O╬Ж 5015I╙O╪Ж 4943I▐OтЖ 5046IєPЖ 100 TIMES 17 =I■PЖ 1700J P(Ж 1600JP2Ж 1760JP<Ж 1630J*PFЖ 1610J?QдЖ -80 TIMES 24 =JKQоЖ -1920JWQ╕Ж -1910JcQ┬Ж -1960JoQ╠Ж -2010J{Q╓Ж -1840JПRЖ 62 TIMES 15 =JЩRЖ 930JгRЖ 920JнR&Ж 925J╖R0Ж 937J┴R:Ж 929J╓RlЖ -63 TIMES 94 =JтRvЖ -5922JюRАЖ -5972J·RКЖ -5989KRФЖ -5936KRЮЖ -5836K&R╨Ж 31 TIMES 87 =K1R┌Ж 2697KЖ "869,466"KбSHЖ "870,206K▒SRЖ "868,950"K┴S\Ж "869,324"K╤SfЖ "868,845"KчSШЖ 991 TIMES 573 =KўSвЖ "567,843"LSмЖ "568,653"LS╢Ж "568,561"L'S└Ж "568,603"L7S╩Ж "567,809"LLT`Ж 12 TIMES 988 =L[TjЖ "11,856"LjTtЖ "12,376"LyT~Ж "12,574"LИTИЖ "10,973"LЧTТЖ "10,955"LнT─Ж 716 TIMES 150 =L╜T╬Ж "107,400"L═T╪Ж "106,700"L▌TтЖ "106,521"LэTьЖ "106,670"L¤TЎЖ "107,469"MVTЖ 161 TIMES 290 =M"V^Ж "46,690"M1VhЖ "47,560"M@VrЖ "47,600"MOV|Ж "47,463"M^VЖЖ "46,341"MsV╕Ж 57 TIMES 380 =MВV┬Ж "21,660"MСV╠Ж "21,560"MаV╓Ж "21,736"MпVрЖ "21,120"M╛VъЖ "21,495"M╘WЖ 199 TIMES 157 =MуW&Ж "31,243"MЄW0Ж "30,543"NW:Ж "30,968"NWDЖ "31,530"NWNЖ "31,311"N6WАЖ -679 TIMES 916 =NGWКЖ "-621,964"NXWФЖ "-621,984"NiWЮЖ "-622,962"NzWиЖ "-622,517"NЛW▓Ж "-621,829"NаWфЖ 30 TIMES 773 =NпWюЖ "23,190"N╛W°Ж "22,620"N═XЖ "23,353"N▄X Ж "22,607"NыXЖ "22,954"OXHЖ 966 TIMES 635 =OXRЖ "613,410"O!X\Ж "614,170"O1XfЖ "614,227"OAXpЖ "614,039"OQXzЖ "613,230"O`XД:Г***** 70OwYЖ -439 TIMES 403 =OИYЖ "-176,917"OЩY$Ж "-177,897"OкY.Ж "-176,195"O╗Y8Ж "-176,788"O╠YBЖ "-176,183"OрYtЖ 229 TIMES 4 =OъY~Ж 916OЇYИЖ 906O■YТЖ 907PYЬЖ 908PYжЖ 910P([Ж 48 TIMES -335 =P8[Ж "-16,080"PH[Ж "-16,780"PX["Ж "-15,563"Ph[,Ж "-16,412"Px[6Ж "-16,849"PН[hЖ 315 TIMES 75 =PЬ[rЖ "23,625"Pл[|Ж "23,035"P║[ЖЖ "22,638"P╔[РЖ "22,967"P╪[ЪЖ "22,627"Pэ[╠Ж 120 TIMES 27 =P°[╓Ж 3240Q[рЖ 3294Q[ъЖ 3224Q[ЇЖ 3290Q$[■Ж 3308Q;\0Ж 380 TIMES -364 =QL\:Ж "-138,320"Q]\DЖ "-137,600"Qn\NЖ "-138,767"Q\XЖ "-137,578"QР\bЖ "-138,024"Qе\ФЖ 57 TIMES 141 =Q░\ЮЖ 8037Q╗\иЖ 8137Q╞\▓Ж 7961Q╤\╝Ж 8103Q▄\╞Ж 7952QЄ\°Ж 258 TIMES 195 =R]Ж "50,310"R] Ж "49,950"R]Ж "50,534"R.] Ж "49,556"R=]*Ж "50,167"RS]└Ж 313 TIMES 271 =Rb]╩Ж "84,823"Rq]╘Ж "85,233"RА]▐Ж "84,909"RП]шЖ "84,649"RЮ]ЄЖ "84,293"R▓^$Ж 140 TIMES 9 =R╜^.Ж 1260R╚^8Ж 1160R╙^BЖ 1188R▐^LЖ 1204Rщ^VЖ 1344Rїc8:Г*****R¤cB:Г*ScL:Г* END OF DATA LISTScV:Г*S*c`:Г*****S6kl:Г*****S>kv:Г*S`kА:Г* STANDARD BASIC QUIZ GAMESSkК:Г* INITIALIZATION ROUTINESЗkФ:Г*SУkЮ:Г*****SЩk╨ЮSЯk┌ЗS╝kфЗ " LOADING THE SYSTEM"S╥kюЗ " PLEASE WAIT"S╪k°ЗSєl:ГRANDOMIZATION ARRAYSS l М R1(5)T lМ R2(4)Tl М RR(4)T2l*:ГSCRAMBLE CODES ARRAYT@l4М S(24,4)Tal>:ГRANDOMIZE THE RND FUNCTIONTqlHR │  Д(м Я)TХlШ:ГINITIALIZE THE SCRAMBLE CODESTдlвS(0,0) │ 0T│lмS(0,1) │ 1T┬l╢S(0,2) │ 2T╤l└S(0,3) │ 3Tрl╩S(1,0) │ 0Tяl╘S(1,1) │ 1T■l▐S(1,2) │ 3U lшS(1,3) │ 2UlЄS(2,0) │ 0U+l№S(2,1) │ 2U:mS(2,2) │ 1UImS(2,3) │ 3UXmS(3,0) │ 0Ugm$S(3,1) │ 2Uvm.S(3,2) │ 3UЕm8S(3,3) │ 1UФmBS(4,0) │ 0UгmLS(4,1) │ 3U▓mVS(4,2) │ 1U┴m`S(4,3) │ 2U╨mjS(5,0) │ 0U▀mtS(5,1) │ 3Uюm~S(5,2) │ 2U¤mИS(5,3) │ 1V mТS(6,0) │ 1VmЬS(6,1) │ 0V*mжS(6,2) │ 2V9m░S(6,3) │ 3VHm║S(7,0) │ 1VWm─S(7,1) │ 0Vfm╬S(7,2) │ 3Vum╪S(7,3) │ 2VДmтS(8,0) │ 1VУmьS(8,1) │ 2VвmЎS(8,2) │ 0V▒nS(8,3) │ 3V└n S(9,0) │ 1V╧nS(9,1) │ 2V▐nS(9,2) │ 3Vэn(S(9,3) │ 0V¤n2S(10,0) │ 1W n:Г*****bТvH:Г*bмvR:Г* END SPLASH SCREENb┤v\:Г*b└vf:Г*****b╞ КY SPECIFIC STANDARD LINE 14b v:Г *** CHANGE THE YEAR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 18000 DATA 59 TIMES 11 = 18010 DATA 649 18020 DATA 643 18030 DATA 659 18040 DATA 648 18050 DATA 639 18100 DATA 27 TIMES 65 = 18110 DATA 1755 18120 DATA 1845 18130 DATA 1701 18140 DATA 1807 18150 DATA 1794 18160 '***** 40 18500 DATA 82 TIMES 18 = 18510 DATA 1476 18520 DATA 1516 18530 DATA 1463 18540 DATA 1446 18550 DATA 1399 18600 DATA -53 TIMES 79 = 18610 DATA -4187 18620 DATA -4247 18630 DATA -4197 18640 DATA -4149 18650 DATA -4219 18700 DATA 78 TIMES 19 = 18710 DATA 1482 18720 DATA 1572 18730 DATA 1568 18740 DATA 1485 18750 DATA 1502 18800 DATA 94 TIMES 90 = 18810 DATA 8460 18820 DATA 8360 18830 DATA 8470 18840 DATA 8538 18850 DATA 8469 18900 DATA 86 TIMES 83 = 18910 DATA 7138 18920 DATA 7178 18930 DATA 7111 18940 DATA 7224 18950 DATA 7143 19000 DATA 58 TIMES 3 = 19010 DATA 174 19020 DATA 176 19030 DATA 164 19040 DATA 170 19050 DATA 173 19200 DATA 85 TIMES 92 = 19210 DATA 7820 19220 DATA 7750 19230 DATA 7888 19240 DATA 7873 19250 DATA 7881 19300 DATA 69 TIMES 74 = 19310 DATA 5106 19320 DATA 5202 19330 DATA 5036 19340 DATA 5143 19350 DATA 5190 19700 DATA 54 TIMES 25 = 19710 DATA 1350 19720 DATA 1340 19730 DATA 1377 19740 DATA 1264 19750 DATA 1329 19800 DATA 31 TIMES -70 = 19810 DATA -2170 19820 DATA -2090 19830 DATA -2139 19840 DATA -2143 19850 DATA -2119 19860 '***** 50 19900 DATA -77 TIMES -96 = 19910 DATA 7392 19920 DATA 7399 19930 DATA 7372 19940 DATA 7408 19950 DATA 7420 20000 DATA 70 TIMES 81 = 20010 DATA 5670 20020 DATA 5742 20030 DATA 5725 20040 DATA 5710 20050 DATA 5578 20100 DATA -70 TIMES 98 = 20110 DATA -6860 20120 DATA -6930 20130 DATA -6892 20140 DATA -6766 20150 DATA -6839 20200 DATA 41 TIMES 6 = 20210 DATA 246 20220 DATA 256 20230 DATA 240 20240 DATA 241 20250 DATA 237 20400 DATA 92 TIMES 54 = 20410 DATA 4968 20420 DATA 5008 20430 DATA 5015 20440 DATA 4943 20450 DATA 5046 20500 DATA 100 TIMES 17 = 20510 DATA 1700 20520 DATA 1600 20530 DATA 1760 20540 DATA 1630 20550 DATA 1610 20900 DATA -80 TIMES 24 = 20910 DATA -1920 20920 DATA -1910 20930 DATA -1960 20940 DATA -2010 20950 DATA -1840 21000 DATA 62 TIMES 15 = 21010 DATA 930 21020 DATA 920 21030 DATA 925 21040 DATA 937 21050 DATA 929 21100 DATA -63 TIMES 94 = 21110 DATA -5922 21120 DATA -5972 21130 DATA -5989 21140 DATA -5936 21150 DATA -5836 21200 DATA 31 TIMES 87 = 21210 DATA 2697 21220 DATA 2687 21230 DATA 2774 21240 DATA 2683 21250 DATA 2695 21260 '***** 60 21300 DATA 942 TIMES 923 = 21310 DATA "869,466" 21320 DATA "870,206 21330 DATA "868,950" 21340 DATA "869,324" 21350 DATA "868,845" 21400 DATA 991 TIMES 573 = 21410 DATA "567,843" 21420 DATA "568,653" 21430 DATA "568,561" 21440 DATA "568,603" 21450 DATA "567,809" 21600 DATA 12 TIMES 988 = 21610 DATA "11,856" 21620 DATA "12,376" 21630 DATA "12,574" 21640 DATA "10,973" 21650 DATA "10,955" 21700 DATA 716 TIMES 150 = 21710 DATA "107,400" 21720 DATA "106,700" 21730 DATA "106,521" 21740 DATA "106,670" 21750 DATA "107,469" 22100 DATA 161 TIMES 290 = 22110 DATA "46,690" 22120 DATA "47,560" 22130 DATA "47,600" 22140 DATA "47,463" 22150 DATA "46,341" 22200 DATA 57 TIMES 380 = 22210 DATA "21,660" 22220 DATA "21,560" 22230 DATA "21,736" 22240 DATA "21,120" 22250 DATA "21,495" 22300 DATA 199 TIMES 157 = 22310 DATA "31,243" 22320 DATA "30,543" 22330 DATA "30,968" 22340 DATA "31,530" 22350 DATA "31,311" 22400 DATA -679 TIMES 916 = 22410 DATA "-621,964" 22420 DATA "-621,984" 22430 DATA "-622,962" 22440 DATA "-622,517" 22450 DATA "-621,829" 22500 DATA 30 TIMES 773 = 22510 DATA "23,190" 22520 DATA "22,620" 22530 DATA "23,353" 22540 DATA "22,607" 22550 DATA "22,954" 22600 DATA 966 TIMES 635 = 22610 DATA "613,410" 22620 DATA "614,170" 22630 DATA "614,227" 22640 DATA "614,039" 22650 DATA "613,230" 22660 '***** 70 22800 DATA -439 TIMES 403 = 22810 DATA "-176,917" 22820 DATA "-177,897" 22830 DATA "-176,195" 22840 DATA "-176,788" 22850 DATA "-176,183" 22900 DATA 229 TIMES 4 = 22910 DATA 916 22920 DATA 906 22930 DATA 907 22940 DATA 908 22950 DATA 910 23300 DATA 48 TIMES -335 = 23310 DATA "-16,080" 23320 DATA "-16,780" 23330 DATA "-15,563" 23340 DATA "-16,412" 23350 DATA "-16,849" 23400 DATA 315 TIMES 75 = 23410 DATA "23,625" 23420 DATA "23,035" 23430 DATA "22,638" 23440 DATA "22,967" 23450 DATA "22,627" 23500 DATA 120 TIMES 27 = 23510 DATA 3240 23520 DATA 3294 23530 DATA 3224 23540 DATA 3290 23550 DATA 3308 23600 DATA 380 TIMES -364 = 23610 DATA "-138,320" 23620 DATA "-137,600" 23630 DATA "-138,767" 23640 DATA "-137,578" 23650 DATA "-138,024" 23700 DATA 57 TIMES 141 = 23710 DATA 8037 23720 DATA 8137 23730 DATA 7961 23740 DATA 8103 23750 DATA 7952 23800 DATA 258 TIMES 195 = 23810 DATA "50,310" 23820 DATA "49,950" 23830 DATA "50,534" 23840 DATA "49,556" 23850 DATA "50,167" 24000 DATA 313 TIMES 271 = 24010 DATA "84,823" 24020 DATA "85,233" 24030 DATA "84,909" 24040 DATA "84,649" 24050 DATA "84,293" 24100 DATA 140 TIMES 9 = 24110 DATA 1260 24120 DATA 1160 24130 DATA 1188 24140 DATA 1204 24150 DATA 1344 25400 '***** 25410 '* 25420 '* END OF DATA LIST 25430 '* 25440 '***** 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 MULTIPLICATION " 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 ' *** 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 '*****