:Г   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 'U
r:Г   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/'IMES 4 =
18510 DATA 28
18520 DATA 21
18530 DATA 14
18540 DATA 34
18550 DATA 27
18600 DATA 7 TIMES 5 =
18610 DATA 35
18620 DATA 30
18630 DATA 25
18640 DATA 40
18650 DATA 45
18110 DATA 72
18120 DATA 66
18130 DATA 60
18140 DATA 78
18150 DATA 84
18500 DATA 7 T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
101 README.TXT
102 .
103 MULTIPLY.BAS IS A QUIZ GAME
104 TO TEST YOUR KNOWLEDGE OF
105 BASIC 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 -----
147                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 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 = 88
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 2 TIMES 4 =
12510 DATA 8
12520 DATA 2
12530 DATA 4
12540 DATA 6
12550 DATA 18
12600 DATA 2 TIMES 5 =
12610 DATA 10
12620 DATA 5
12630 DATA 15
12640 DATA 20
12650 DATA 25
12700 DATA 2 TIMES 6 =
12710 DATA 12
12720 DATA 6
12730 DATA 16
12740 DATA 22
12750 DATA 24
12800 DATA 2 TIMES 7 =
12810 DATA 14
12820 DATA 7
12830 DATA 12
12840 DATA 9
12850 DATA 24
12900 DATA 2 TIMES 8 =
12910 DATA 16
12920 DATA 8
12930 DATA 26
12940 DATA 12
12950 DATA 32
12960 '*****
13000 DATA 2 TIMES 9 =
13010 DATA 18
13020 DATA 9
13030 DATA 28
13040 DATA 19
13050 DATA 16
13200 DATA 2 TIMES 11 =
13210 DATA 22
13220 DATA 20
13230 DATA 18
13240 DATA 24
13250 DATA 26
13300 DATA 2 TIMES 12 =
13310 DATA 24
13320 DATA 22
13330 DATA 20
13340 DATA 26
13350 DATA 28
13700 DATA 3 TIMES 4 =
13710 DATA 12
13720 DATA 10
13730 DATA 14
13740 DATA 16
13750 DATA 22
13800 DATA 3 TIMES 5 =
13810 DATA 15
13820 DATA 10
13830 DATA 20
13840 DATA 25
13850 DATA 30
13900 DATA 3 TIMES 6 =
13910 DATA 18
13920 DATA 12
13930 DATA 16
13940 DATA 21
13950 DATA 24
13960 '*****
14000 DATA 3 TIMES 7 =
14010 DATA 21
14020 DATA 14
14030 DATA 24
14040 DATA 31
14050 DATA 28
14100 DATA 3 TIMES 8 =
14110 DATA 24
14120 DATA 16
14130 DATA 30
14140 DATA 32
14150 DATA 28
14200 DATA 3 TIMES 9 =
14210 DATA 27
14220 DATA 18
14230 DATA 37
14240 DATA 17
14250 DATA 30
14400 DATA 3 TIMES 11 =
14410 DATA 33
14420 DATA 22
14430 DATA 30
14440 DATA 44
14450 DATA 43
14500 DATA 3 TIMES 12 =
14510 DATA 36
14520 DATA 24
14530 DATA 40
14540 DATA 32
14550 DATA 46
14900 DATA 4 TIMES 4 =
14910 DATA 16
14920 DATA 12
14930 DATA 26
14940 DATA 22
14950 DATA 18
14960 '*****
15000 DATA 4 TIMES 5 =
15010 DATA 20
15020 DATA 10
15030 DATA 15
15040 DATA 25
15050 DATA 30
15100 DATA 4 TIMES 6 =
15110 DATA 24
15120 DATA 12
15130 DATA 18
15140 DATA 30
15150 DATA 34
15200 DATA 4 TIMES 7 =
15210 DATA 28
15220 DATA 14
15230 DATA 21
15240 DATA 18
15250 DATA 24
15300 DATA 4 TIMES 8 =
15310 DATA 32
15320 DATA 16
15330 DATA 24
15340 DATA 40
15350 DATA 36
15400 DATA 4 TIMES 9 =
15410 DATA 36
15420 DATA 18
15430 DATA 27
15440 DATA 37
15450 DATA 42
15600 DATA 4 TIMES 11 =
15610 DATA 44
15620 DATA 22
15630 DATA 33
15640 DATA 55
15650 DATA 66
15700 DATA 4 TIMES 12 =
15710 DATA 48
15720 DATA 24
15730 DATA 36
15740 DATA 54
15750 DATA 58
16100 DATA 5 TIMES 4 =
16110 DATA 20
16120 DATA 10
16130 DATA 15
16140 DATA 25
16150 DATA 30
16200 DATA 5 TIMES 5 =
16210 DATA 25
16220 DATA 15
16230 DATA 20
16240 DATA 30
16250 DATA 35
16300 DATA 5 TIMES 6 =
16310 DATA 30
16320 DATA 20
16330 DATA 25
16340 DATA 35
16350 DATA 40
16400 DATA 5 TIMES 7 =
16410 DATA 35
16420 DATA 30
16430 DATA 25
16440 DATA 40
16450 DATA 45
16500 DATA 5 TIMES 8 =
16510 DATA 40
16520 DATA 30
16530 DATA 35
16540 DATA 45
16550 DATA 50
16600 DATA 5 TIMES 9 =
16610 DATA 45
16620 DATA 35
16630 DATA 40
16640 DATA 50
16650 DATA 55
16800 DATA 5 TIMES 11 =
16810 DATA 55
16820 DATA 35
16830 DATA 45
16840 DATA 65
16850 DATA 75
16900 DATA 5 TIMES 12 =
16910 DATA 60
16920 DATA 50
16930 DATA 40
16940 DATA 70
16950 DATA 80
16960 '*****
17300 DATA 6 TIMES 4 =
17310 DATA 24
17320 DATA 20
17330 DATA 16
17340 DATA 28
17350 DATA 32
17400 DATA 6 TIMES 5 =
17410 DATA 30
17420 DATA 20
17430 DATA 25
17440 DATA 35
17450 DATA 40
17500 DATA 6 TIMES 6 =
17510 DATA 36
17520 DATA 24
17530 DATA 30
17540 DATA 42
17550 DATA 48
17600 DATA 6 TIMES 7 =
17610 DATA 42
17620 DATA 48
17630 DATA 56
17640 DATA 36
17650 DATA 30
17700 DATA 6 TIMES 8 =
17710 DATA 48
17720 DATA 42
17730 DATA 36
17740 DATA 54
17750 DATA 60
17800 DATA 6 TIMES 9 =
17810 DATA 54
17820 DATA 48
17830 DATA 42
17840 DATA 60
17850 DATA 66
18000 DATA 6 TIMES 11 =
18010 DATA 66
18020 DATA 60
18030 DATA 54
18040 DATA 72
18050 DATA 84
18100 DATA 6 TIMES 12 =
18110 DATA 72
18120 DATA 66
18130 DATA 60
18140 DATA 78
18150 DATA 84
18500 DATA 7 T
100 '*****
101 '*
102 '* MULTIPLY.BAS
103 '* MDJ 2022/01/03
104 '*
105 '* A QUIZ TO TEST
106 '* KNOWLEDGE OF THE
107 '* MULTIPLICATION TABLES
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(88) - 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@ 9в&
d:Г*****&e:Г*&*f:Г* MULTIPLY.BAS&Ag:Г* MDJ 2022/01/03&Ih:Г*&`i:Г* A QUIZ TO TEST&yj:Г* KNOWLEDGE OF THE&Чk:Г* MULTIPLICATION TABLES&Яl:Г*&лm:Г*****&┼n:ГGO TO THE PROGRAM'S&▌x:ГEXECUTIVE ROUTINE&щВБе 4220&ї╚:Г*****&■╥:Г* '▄:Г* SELECTION SUBROUTINE:'$ц:Г*'DЁ:Г* THIS ROUTINE IS UNIFORM'e·:Г* AND REMAINS THE SAME FOR'Ж
:Г* EACH AND EVERY QUIZ GAME'О
:Г*'Ъ
:Г*****'┤
":ГRANDOM SELECTION OF'╚
,:ГFOUR OF FIVE.'ф
6:Г SELECTS FOUR ENTRIES(
@:Г FROM FIVE POSSIBILITIES.(
J:Г  INPUTS:("
T:Г   NONE(;
^:Г  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)#Л I).RP │ 4)?:ГFIRST PASS)Q&R │  Д(5) м 1)\0J │ м1)l:А 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*Ю:ГPOSITION PASS*!иА I │ 0 е 3*9▓Е RR(I) ┤▓ 0 Бе 710*D╝RP │ I*L╞Л I*R╨Р*^┌:Г******fф:Г**uю:Г* ENDSUB*}°:Г**Й:Г******Ха:Г******Эк:Г**░┤:Г* EXECUTIVE *╕╛:Г**─╚:Г******┘╥:ГVARIABLES LIST*№▄:Г I, J = INDEXES AND COUNTERS+ц:Г A = RESPONSE CODE++Ё:Г A$ = KEY PRESS+K·:Г 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,8J:Г R, R1, R2, RR, RP ,[T:Г   = RANDOMIZATION VARIABLES,{^:Г S = SCRAMBLE CODES ARRAY,Ьh:Г SD$ = SCREEN DISPLAY TEXT,╗r:ГGO DISPLAY SPLASH SCREEN,╚|Бж 29600,чЖ:ГGO INITIALIZE THE SYSTEM,ЇРБж 27600-Ъ:ГGO LOAD QUESTIONS DATA-дБж 10600->о:ГGO ENTER THE MAIN ROUTINE-J╕Бе 5110-V┬:Г*****-^╠:Г*-t╓:Г* END EXECUTIVE-|р:Г*-Иъ:Г*****-ФИ:Г*****-ЬТ:Г*-йЬ:Г* MAIN-▒ж:Г*-╜░:Г*****-┌║:Г QN  = QUESTION NUMBER-я─:Г Q$ = QUESTION.╬:Г QA$ = QUESTION ANSWERS ARRAY.5╪:Г QT  = # OF QUESTIONS ASKED.Wт:Г QC  = # OF CORRECT ANSWERS.nь:Г QP  = % CORRECT.{ЎМ QA$(4).ЖQT │ 0.С
QC │ 0.ЬQP │ 0.┤:ГRANDOMLY SELECT A.├(:ГQUESTION.▐2:ГADJUST RND FOR TOTAL.°<:ГNUMBER OF QUESTIONS/FQN │  Д(88) м 1/PQ$ │ QD$(QN,0)/9Z:ГRANDOMLY SELECT AND/Qd:ГSCRAMBLE FOUR OF /hn:ГTHE FIVE ANSWERS/sxБж 500/ГВА I │ 0 е 3/аМQA$(I) │ QD$(QN,RR(I)л1)/иЦЛ I/┬а:ГMAIN DISPLAY SCREEN/укЗ@32,"  WHAT IS THE RESULT:"/°┤З@64,"  "лQ$л"?"0╛З@128, "      A. "лQA$(0)04╚З@160, "      B. "лQA$(1)0R╥З@192, "      C. "лQA$(2)0p▄З@224, "      D. "лQA$(3)0ШцЗ@256, "      E. NONE OF THE ABOVE"0╛ЁЗ@320, "  PRESS A, B, C, D, OR E"0ь·З@352, "                                "1З@384, "                                "1HЗ@416, "                                "1{З@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";1З"A$ │  Т1Ы,Е A$│"" Бе 54101╛6Е (A$│"A" ▒ A$│ Л(97)) Бе 55201с@Е (A$│"B" ▒ A$│ Л(98)) Бе 55302JЕ (A$│"C" ▒ A$│ Л(99)) Бе 55402(TЕ (A$│"D" ▒ A$│ Л(100)) Бе 55502L^Е (A$│"E" ▒ A$│ Л(101)) Бе 55602Xhа 159,22drа 159,22Р|З@320, "  YOU MUST PRESS ONE OF A TO E"2ЬЖБе 54102пРA │ 0: Бе 55702┬ЪA │ 1: Бе 55702╒дA │ 2: Бе 55702шоA │ 3: Бе 55702№╕A │ 4: Бе 5570 3┬Е A │ RP Бе 57103╠а 78,13'╓а 78,132ра 78,13<ъа 5,33iЇЗ@320, "    **SORRY: THAT IS INCORRECT."3В■SD$ │ "  CORRECT = "3иЕ RP│0 з SD$ │ SD$ л "A. "лQA$(0)3╬Е RP│1 з SD$ │ SD$ л "B. "лQA$(1)3ЇЕ 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$4dDБе 57704pNа 204,14|Xа 204,14Иbа 204,14Фlа 218,34╛vЗ@320, "    *** THAT IS CORRECT! ***"4╬АQC │ QC л 14▐КQT │ QT л 14∙ФQP │  Б(100 н (QCоQT))5,ЮЗ@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";5YиЗ@384, "  PRESS C TO CONTINUE;Q TO QUIT"5e▓A$ │  Т5y╝Е A$│"" Бе 58105Ь╞Е (A$│"C" ▒ A$│ Л(99)) Бе 51905└╨Е (A$│"Q" ▒ A$│ Л(113)) Бе 58905╠┌а 159,25╪фа 159,25¤юЗ@384, "  YOU MUST PRESS C OR Q"6	°Бе 58106Ю62З:З "   FINAL SCORE = ";QP;"%"6SЗ:З "   THANKS FOR PLAYING!"6p З "     COME BACK SOON."6О*З:З "   M. DAVID JOHNSON"6л4З "   INFO@BDS-SOFT.COM"6╣>З:З:З:З:З6╞HБе 327676╥R:Г*****6┌\:Г*6ыf:Г* END MAIN6єp:Г*6 z:Г*****7):Г*****7):Г*75):Г* STANDARD BASIC QUIZ GAMES7R)":Г* DATA LOADING ROUTINE7Z),:Г*7f)6:Г*****7~)@:ГTHIS DATA MUST BE7Ч)J:ГINDIVIDUALIZED FOR7░)T:ГEACH SPECIFIC QUIZ7╬)^:ГN = NUMBER OF QUESTIONS7┘)hN │ 887·)r:ГQD$ = QUESTIONS DATA ARRAY8	)|                                                                                                                                                                                                                                                                                      ┴ ╔┴┼!"#$%&─()*╔                         MULTIPLYBAS еMULTIPLYTX1 мMULTIPLYTX2 '~README  TXT ЙLICENSE TXT \MORE    BASз                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                М QD$(N,6)8)ЖА I │ 0 е Nм18+)РА J │ 0 е 58:)ЪН 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▀*:Г*****8ч*:Г*9*:Г* END DATA LOADING9*&:Г*9*0:Г*****9 *::Г*****9(*D:Г*9C*N:Г* START OF DATA LIST9K*X:Г*9W*b:Г*****9i0╘Ж 2 TIMES 4 =9q0▐Ж 89y0шЖ 29Б0ЄЖ 49Й0№Ж 69Т1Ж 189д18Ж 2 TIMES 5 =9н1BЖ 109╡1LЖ 59╛1VЖ 159╟1`Ж 209╨1jЖ 259т1ЬЖ 2 TIMES 6 =9ы1жЖ 129є1░Ж 69№1║Ж 16:1─Ж 22:1╬Ж 24: 2Ж 2 TIMES 7 =:)2
Ж 14:12Ж 7::2Ж 12:B2(Ж 9:K22Ж 24:]2dЖ 2 TIMES 8 =:f2nЖ 16:n2xЖ 8:w2ВЖ 26:А2МЖ 12:Й2ЦЖ 32:Х2а:Г*****:з2╚Ж 2 TIMES 9 =:░2╥Ж 18:╕2▄Ж 9:┴2цЖ 28:╩2ЁЖ 19:╙2·Ж 16:ц3РЖ 2 TIMES 11 =:я3ЪЖ 22:°3дЖ 20;
3оЖ 18;
3╕Ж 24;3┬Ж 26;&3ЇЖ 2 TIMES 12 =;/3■Ж 24;84Ж 22;A4Ж 20;J4Ж 26;S4&Ж 28;e5ДЖ 3 TIMES 4 =;n5ОЖ 12;w5ШЖ 10;А5вЖ 14;Й5мЖ 16;Т5╢Ж 22;д5шЖ 3 TIMES 5 =;н5ЄЖ 15;╢5№Ж 10;┐6Ж 20;╚6Ж 25;╤6Ж 30;у6LЖ 3 TIMES 6 =;ь6VЖ 18;ї6`Ж 12;■6jЖ 16<6tЖ 21<6~Ж 24<6И:Г*****<.6░Ж 3 TIMES 7 =<76║Ж 21<@6─Ж 14<I6╬Ж 24<R6╪Ж 31<[6тЖ 28<m7Ж 3 TIMES 8 =<v7Ж 24<7(Ж 16<И72Ж 30<С7<Ж 32<Ъ7FЖ 28<м7xЖ 3 TIMES 9 =<╡7ВЖ 27<╛7МЖ 18<╟7ЦЖ 37<╨7аЖ 17<┘7кЖ 30<ь8@Ж 3 TIMES 11 =<ї8JЖ 33<■8TЖ 22=8^Ж 30=8hЖ 44=8rЖ 43=,8дЖ 3 TIMES 12 ==58оЖ 36=>8╕Ж 24=G8┬Ж 40=P8╠Ж 32=Y8╓Ж 46=k:4Ж 4 TIMES 4 ==t:>Ж 16=}:HЖ 12=Ж:RЖ 26=П:\Ж 22=Ш:fЖ 18=д:p:Г*****=╢:ШЖ 4 TIMES 5 ==┐:вЖ 20=╚:мЖ 10=╤:╢Ж 15=┌:└Ж 25=у:╩Ж 30=ї:№Ж 4 TIMES 6 ==■;Ж 24>;Ж 12>;Ж 18>;$Ж 30>";.Ж 34>4;`Ж 4 TIMES 7 =>=;jЖ 28>F;tЖ 14>O;~Ж 21>X;ИЖ 18>a;ТЖ 24>s;─Ж 4 TIMES 8 =>|;╬Ж 32>Е;╪Ж 16>О;тЖ 24>Ч;ьЖ 40>а;ЎЖ 36>▓<(Ж 4 TIMES 9 =>╗<2Ж 36>─<<Ж 18>═<FЖ 27>╓<PЖ 37>▀<ZЖ 42>Є<ЁЖ 4 TIMES 11 =>√<·Ж 44?=Ж 22?
=Ж 33?=Ж 55?="Ж 66?2=TЖ 4 TIMES 12 =?;=^Ж 48?D=hЖ 24?M=rЖ 36?V=|Ж 54?_=ЖЖ 58?q>фЖ 5 TIMES 4 =?z>юЖ 20?Г>°Ж 10?М?Ж 15?Х?Ж 25?Ю?Ж 30?░?HЖ 5 TIMES 5 =?╣?RЖ 25?┬?\Ж 15?╦?fЖ 20?╘?pЖ 30?▌?zЖ 35?я?мЖ 5 TIMES 6 =?°?╢Ж 30@
?└Ж 20@
?╩Ж 25@?╘Ж 35@?▐Ж 40@.@Ж 5 TIMES 7 =@7@Ж 35@@@$Ж 30@I@.Ж 25@R@8Ж 40@[@BЖ 45@m@tЖ 5 TIMES 8 =@v@~Ж 40@@ИЖ 30@И@ТЖ 35@С@ЬЖ 45@Ъ@жЖ 50@м@╪Ж 5 TIMES 9 =@╡@тЖ 45@╛@ьЖ 35@╟@ЎЖ 40@╨AЖ 50@┘A
Ж 55@ьAаЖ 5 TIMES 11 =@їAкЖ 55@■A┤Ж 35AA╛Ж 45AA╚Ж 65AA╥Ж 75A,BЖ 5 TIMES 12 =A5BЖ 60A>BЖ 50AGB"Ж 40APB,Ж 70AYB6Ж 80AeB@:Г*****AwCФЖ 6 TIMES 4 =AАCЮЖ 24AЙCиЖ 20AТC▓Ж 16AЫC╝Ж 28AдC╞Ж 32A╢C°Ж 6 TIMES 5 =A┐DЖ 30A╚DЖ 20A╤DЖ 25A┌D Ж 35AуD*Ж 40AїD\Ж 6 TIMES 6 =A■DfЖ 36BDpЖ 24BDzЖ 30BDДЖ 42B"DОЖ 48B4D└Ж 6 TIMES 7 =B=D╩Ж 42BFD╘Ж 48BOD▐Ж 56BXDшЖ 36BaDЄЖ 30BsE$Ж 6 TIMES 8 =B|E.Ж 48BЕE8Ж 42BОEBЖ 36BЧELЖ 54BаEVЖ 60B▓EИЖ 6 TIMES 9 =B╗EТЖ 54B─EЬЖ 48B═EжЖ 42B╓E░Ж 60B▀E║Ж 66BЄFPЖ 6 TIMES 11 =B√FZЖ 66CFdЖ 60C
FnЖ 54CFxЖ 72CFВЖ 84C2F┤Ж 6 TIMES 12 =C;F╛Ж 72CDF╚Ж 66CMF╥Ж 60CVF▄Ж 78C_FцЖ 84CqHDЖ 7 TIMES 4 =CzHNЖ 28CГHXЖ 21CМHbЖ 14CХHlЖ 34CЮHvЖ 27C░HиЖ 7 TIMES 5 =C╣H▓Ж 35C┬H╝Ж 30C╦H╞Ж 25C╘H╨Ж 40C▌H┌Ж 45CяIЖ 7 TIMES 6 =C°IЖ 42D
I Ж 46D
I*Ж 36DI4Ж 37DI>Ж 47D.IpЖ 7 TIMES 7 =D7IzЖ 49D@IДЖ 77DIIОЖ 42DRIШЖ 47D[IвЖ 57DmI╘Ж 7 TIMES 8 =DvI▐Ж 56DIшЖ 49DИIЄЖ 48DСI№Ж 63DЪJЖ 68DжJ:Г*****D╕J8Ж 7 TIMES 9 =D┴JBЖ 63D╩JLЖ 67D╙JVЖ 57D▄J`Ж 56DхJjЖ 47D°KЖ 7 TIMES 11 =E
K
Ж 77E
KЖ 70EKЖ 63EK(Ж 67E%K2Ж 83E8KdЖ 7 TIMES 12 =EAKnЖ 84EJKxЖ 77ESKВЖ 78E\KМЖ 87EeKЦЖ 88EwLЇЖ 8 TIMES 4 =EАL■Ж 32EЙMЖ 24EТMЖ 28EЫMЖ 38EдM&Ж 34E╢MXЖ 8 TIMES 5 =E┐MbЖ 40E╚MlЖ 35E╤MvЖ 30E┌MАЖ 45EуMКЖ 50EїM╝Ж 8 TIMES 6 =E■M╞Ж 48FM╨Ж 42FM┌Ж 36FMфЖ 46F"MюЖ 38F.M°:Г*****F@N Ж 8 TIMES 7 =FIN*Ж 56FRN4Ж 57F[N>Ж 58FdNHЖ 49FmNRЖ 48FNДЖ 8 TIMES 8 =FИNОЖ 64FСNШЖ 60FЪNвЖ 56FгNмЖ 68FмN╢Ж 72F╛NшЖ 8 TIMES 9 =F╟NЄЖ 72F╨N№Ж 98F┘OЖ 89FтOЖ 78FыOЖ 79F■O░Ж 8 TIMES 11 =GO║Ж 88GO─Ж 80GO╬Ж 78G"O╪Ж 96G+OтЖ 98G>PЖ 8 TIMES 12 =GGPЖ 96GQP(Ж 104G[P2Ж 108GdP<Ж 98GnPFЖ 120GАQдЖ 9 TIMES 4 =GЙQоЖ 36GТQ╕Ж 18GЫQ┬Ж 27GдQ╠Ж 40GнQ╓Ж 44G╣Qр:Г*****G╦RЖ 9 TIMES 5 =G╘RЖ 45G▌RЖ 40GцR&Ж 35GяR0Ж 50G°R:Ж 55H
RlЖ 9 TIMES 6 =HRvЖ 54HRАЖ 56H%RКЖ 59H.RФЖ 49H7RЮЖ 44HIR╨Ж 9 TIMES 7 =HRR┌Ж 63H[RфЖ 67HdRюЖ 79HmR°Ж 69HvSЖ 56HИS4Ж 9 TIMES 8 =HСS>Ж 72HЪSHЖ 78HгSRЖ 79HмS\Ж 89H╡SfЖ 98H╟SШЖ 9 TIMES 9 =H╨SвЖ 81H┘SмЖ 72HтS╢Ж 69HыS└Ж 79HЇS╩Ж 89IT`Ж 9 TIMES 11 =ITjЖ 99ITtЖ 119I$T~Ж 109I-TИЖ 91I6TТЖ 89IIT─Ж 9 TIMES 12 =IST╬Ж 108I]T╪Ж 112IgTтЖ 109IpTьЖ 92IzTЎЖ 129IНVTЖ 10 TIMES 4 =IЦV^Ж 40IЯVhЖ 30IиVrЖ 20I▒V|Ж 50I║VЖЖ 60I═V╕Ж 10 TIMES 5 =I╓V┬Ж 50I▀V╠Ж 40IшV╓Ж 30IёVрЖ 60I·VъЖ 70J
WЖ 10 TIMES 6 =JW&Ж 60JW0Ж 50J(W:Ж 40J1WDЖ 70J:WNЖ 80JMWАЖ 10 TIMES 7 =JVWКЖ 70J_WФЖ 60JhWЮЖ 50JqWиЖ 80JzW▓Ж 90JНWфЖ 10 TIMES 8 =JЦWюЖ 80JЯW°Ж 90JиXЖ 70J▒XЖ 60J╗XЖ 108J╬XHЖ 10 TIMES 9 =J╫XRЖ 90JрX\Ж 99JъXfЖ 109JєXpЖ 89J№XzЖ 80KYЖ 10 TIMES 11 =KYЖ 110K$Y$Ж 120K.Y.Ж 111K8Y8Ж 101KBYBЖ 100KVYtЖ 10 TIMES 12 =K`Y~Ж 120KjYИЖ 110KtYТЖ 112K~YЬЖ 121KИYжЖ 130KФY░:Г*****Kз[Ж 11 TIMES 4 =K░[Ж 44K╣[Ж 33K┬["Ж 22K╦[,Ж 55K╘[6Ж 66Kч[hЖ 11 TIMES 5 =KЁ[rЖ 55K∙[|Ж 45L[ЖЖ 35L[РЖ 65L[ЪЖ 75L'[╠Ж 11 TIMES 6 =L0[╓Ж 66L9[рЖ 61LC[ъЖ 116LL[ЇЖ 67LU[■Ж 76Lh\0Ж 11 TIMES 7 =Lq\:Ж 77Lz\DЖ 71LД\NЖ 117LН\XЖ 67LЦ\bЖ 87Lй\ФЖ 11 TIMES 8 =L▓\ЮЖ 88L╝\иЖ 118L┼\▓Ж 81L╬\╝Ж 98L╪\╞Ж 108Lы\°Ж 11 TIMES 9 =LЇ]Ж 99L■]Ж 100M]Ж 109M] Ж 119M]*Ж 91M/]└Ж 11 TIMES 11 =M9]╩Ж 121MC]╘Ж 111MM]▐Ж 131MW]шЖ 122Ma]ЄЖ 112Mu^$Ж 11 TIMES 12 =M^.Ж 132MЙ^8Ж 122MУ^BЖ 112MЭ^LЖ 142Mз^VЖ 121M║_┤Ж 12 TIMES 4 =M├_╛Ж 48M╠_╚Ж 44M╒_╥Ж 42M▐_▄Ж 56Mч_цЖ 46M·`Ж 12 TIMES 5 =N`"Ж 60N`,Ж 55N`6Ж 50N`@Ж 65N'`JЖ 70N:`|Ж 12 TIMES 6 =NC`ЖЖ 72NL`РЖ 76NU`ЪЖ 62N^`дЖ 66Ng`оЖ 78Nz`рЖ 12 TIMES 7 =NГ`ъЖ 84NМ`ЇЖ 72NХ`■Ж 77NЮaЖ 87NзaЖ 82N║aDЖ 12 TIMES 8 =N├aNЖ 96N╠aXЖ 98N╒abЖ 92N▀alЖ 128NшavЖ 84NЇaА:Г*****OaиЖ 12 TIMES 9 =Oa▓Ж 108Oa╝Ж 129O$a╞Ж 92O.a╨Ж 102O8a┌Ж 109OLbpЖ 12 TIMES 11 =OVbzЖ 132O`bДЖ 121OjbОЖ 112OtbШЖ 122O~bвЖ 141OТb╘Ж 12 TIMES 12 =OЬb▐Ж 144OжbшЖ 132O░bЄЖ 122O║b№Ж 156O─cЖ 154O╨c8:Г*****O╪cB:Г*OёcL:Г* END OF DATA LISTO∙cV:Г*Pc`:Г*****Pkl:Г*****Pkv:Г*P;kА:Г* STANDARD BASIC QUIZ GAMESPZkК:Г* INITIALIZATION ROUTINEPbkФ:Г*PnkЮ:Г*****Ptk╨ЮPzk┌ЗPЧkфЗ "  LOADING THE SYSTEM"PнkюЗ "  PLEASE WAIT"P│k°ЗP╬l:ГRANDOMIZATION ARRAYSP┌lМ R1(5)PцlМ R2(4)PЄl М RR(4)Q
l*:ГSCRAMBLE CODES ARRAYQl4М S(24,4)Q<l>:ГRANDOMIZE THE RND FUNCTIONQLlHR │  Д(м Я)QplШ:ГINITIALIZE THE SCRAMBLE CODESQlвS(0,0) │ 0QОlмS(0,1) │ 1QЭl╢S(0,2) │ 2Qмl└S(0,3) │ 3Q╗l╩S(1,0) │ 0Q╩l╘S(1,1) │ 1Q┘l▐S(1,2) │ 3QшlшS(1,3) │ 2QўlЄS(2,0) │ 0Rl№S(2,1) │ 2RmS(2,2) │ 1R$mS(2,3) │ 3R3mS(3,0) │ 0RBm$S(3,1) │ 2RQm.S(3,2) │ 3R`m8S(3,3) │ 1RomBS(4,0) │ 0R~mLS(4,1) │ 3RНmVS(4,2) │ 1RЬm`S(4,3) │ 2RлmjS(5,0) │ 0R║mtS(5,1) │ 3R╔m~S(5,2) │ 2R╪mИS(5,3) │ 1RчmТS(6,0) │ 1RЎmЬS(6,1) │ 0SmжS(6,2) │ 2Sm░S(6,3) │ 3S#m║S(7,0) │ 1S2m─S(7,1) │ 0SAm╬S(7,2) │ 3SPm╪S(7,3) │ 2S_mтS(8,0) │ 1SnmьS(8,1) │ 2S}mЎS(8,2) │ 0SМnS(8,3) │ 3SЫn
S(9,0) │ 1SкnS(9,1) │ 2S╣nS(9,2) │ 3S╚n(S(9,3) │ 0S╪n2S(10,0) │ 1Sшn<S(10,1) │ 3S°nFS(10,2) │ 0TnPS(10,3) │ 2TnZS(11,0) │ 1T(ndS(11,1) │ 3T8nnS(11,2) │ 2THnxS(11,3) │ 0TXnВS(12,0) │ 2ThnМS(12,1) │ 0TxnЦS(12,2) │ 1TИnаS(12,3) │ 3TШnкS(13,0) │ 2Tиn┤S(13,1) │ 0T╕n╛S(13,2) │ 3T╚n╚S(13,3) │ 1T╪n╥S(14,0) │ 2Tшn▄S(14,1) │ 1T°nцS(14,2) │ 0UnЁS(14,3) │ 3Un·S(15,0) │ 2U(oS(15,1) │ 1U8oS(15,2) │ 3UHoS(15,3) │ 0UXo"S(16,0) │ 2Uho,S(16,1) │ 3Uxo6S(16,2) │ 0UИo@S(16,3) │ 1UШoJS(17,0) │ 2UиoTS(17,1) │ 3U╕o^S(17,2) │ 1U╚ohS(17,3) │ 0U╪orS(18,0) │ 3Uшo|S(18,1) │ 0U°oЖS(18,2) │ 1VoРS(18,3) │ 2VoЪS(19,0) │ 3V(oдS(19,1) │ 0V8oоS(19,2) │ 2VHo╕S(19,3) │ 1VXo┬S(20,0) │ 3Vho╠S(20,1) │ 1Vxo╓S(20,2) │ 0VИoрS(20,3) │ 2VШoъS(21,0) │ 3VиoЇS(21,1) │ 1V╕o■S(21,2) │ 2V╚pS(21,3) │ 0V╪pS(22,0) │ 3VшpS(22,1) │ 2V°p&S(22,2) │ 0Wp0S(22,3) │ 1Wp:S(23,0) │ 3W(pDS(23,1) │ 2W8pNS(23,2) │ 1WHpXS(23,3) │ 0WNpbРWZpl:Г*****Wbpv:Г*W}pА:Г* END INITIALIZATIONWЕpК:Г*WСpФ:Г*****WЭs<:Г*****WеsF:Г*W┬sP:Г* DISPLAY THE STANDARDW█sZ:Г* BASIC QUIZ GAMESWёsd:Г* SPLASH SCREENW∙sn:Г*Xsx:Г*****XsаЮX/sк:ГLINES 0 AND 1 ARE BLANK GREENXUs┤:ГDISPLAY UNIFORM STANDARD LINE 2Xps╛SD$ │  Л(32) л  Л(158)XБs╚А I │ 0 е 27XЩs╥SD$ │ SD$ л  Л(156)Xбs▄Л IX┬sцSD$ │ SD$ л  Л(157) л  Л(32)X╨sЁЗ@64, SD$XЎs·:ГDISPLAY UNIFORM STANDARD LINE 3YtSD$ │  Л(32) л  Л(154) л  Л(206)Y,tА I │ 0 е 25YDtSD$ │ SD$ л  Л(204)YLt"Л IYwt,SD$ │ SD$ л  Л(205) л  Л(149) л  Л(32)YЕt6З@96, SD$Yлt@:ГDISPLAY UNIFORM STANDARD LINE 4Y╨tJSD$ │  Л(32) л  Л(154) л  Л(202)YсtTА I │ 0 е 25Y°t^SD$ │ SD$ л  Л(32)ZthЛ IZ+trSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)Z:t|З@128, SD$ZatЖ:ГDISPLAY SPECIFIC STANDARD LINE 5ZЖtРSD$ │  Л(32) л  Л(154) л  Л(202)ZпtЪ:Г *** CHANGE NEXT LINE AS REQUIRED:Z▄tдSD$ │ SD$ л "  MULTIPLICATION  TABLES  "[tоSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)[t╕З@160, SD$[=t┬:ГDISPLAY SPECIFIC STANDARD LINE 6[bt╠SD$ │  Л(32) л  Л(154) л  Л(202)[Лt╓:Г *** CHANGE NEXT LINE AS REQUIRED:[╕tрSD$ │ SD$ л "        QUIZ GAME         "[уtъSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)[ЄtЇЗ@192, SD$\t■:ГDISPLAY UNIFORM STANDARD LINE 7\=uSD$ │  Л(32) л  Л(154) л  Л(202)\NuА I │ 0 е 25\euSD$ │ SD$ л  Л(32)\mu&Л I\Шu0SD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)\зu:З@224, SD$\═uD:ГDISPLAY UNIFORM STANDARD LINE 8\ЄuNSD$ │  Л(32) л  Л(154) л  Л(203)]uXА I │ 0 е 25]ubSD$ │ SD$ л  Л(195)]#ulЛ I]NuvSD$ │ SD$ л  Л(199) л  Л(149) л  Л(32)]]uАЗ@256, SD$]ГuК:ГDISPLAY UNIFORM STANDARD LINE 9]ЮuФSD$ │  Л(32) л  Л(155)]пuЮА I │ 0 е 27]╟uиSD$ │ SD$ л  Л(147)]╧u▓Л I]Ёu╝SD$ │ SD$ л  Л(151) л  Л(32)] u╞З@288, SD$^u╨:ГLINE 10 IS BLANK GREEN^Cu┌:ГDISPLAY UNIFORM STANDARD LINE 11^quфЗ@352, "   PRESS ANY KEY  TO CONTINUE   "^Чuю:ГLINES 12 AND 13 ARE BLANK GREEN^┐u°:ГDISPLAY SPECIFIC STANDARD LINE 14^цv:Г *** CHANGE THE YEAR AS REQUIRED_vЗ@448, "       BDS SOFTWARE  2022       ";_2v:ГLINE 15 IS BLANK GREEN_>v A$ │  Т_Sv*Е A$│"" Бе 30240_Yv4Р_ev>:Г*****_mvH:Г*_ЗvR:Г* END SPLASH SCREEN_Пv\:Г*_Ыvf:Г*****_б КY SPECIFIC STANDARD LINE 14^цv:Г *** CHANGE THE YEAR AS REQUIRED_vЗ@448, "       BDS S`
lМ R1(5)`lМ R2(4)`"l М RR(4)`=l*:ГSCRAMBLE CODES ARRAY`Kl4М S(24,4)`ll>:ГRANDOMIZE THE RND FUNCTION`|lHR │  Д(м Я)`аlШ:ГINITIALIZE THE SCRAMBLE CODES`пlвS(0,0) │ 0`╛lмS(0,1) │ 1`═l╢S(0,2) │ 2`▄l└S(0,3) │ 3`ыl╩S(1,0) │ 0`·l╘S(1,1) │ 1a	l▐S(1,2) │ 3alшS(1,3) │ 2a'lЄS(2,0) │ 0a6l№S(2,1) │ 2aEmS(2,2) │ 1aTmS(2,3) │ 3acmS(3,0) │ 0arm$S(3,1) │ 2aБm.S(3,2) │ 3aРm8S(3,3) │ 1aЯmBS(4,0) │ 0aоmLS(4,1) │ 3a╜mVS(4,2) │ 1a╠m`S(4,3) │ 2a█mjS(5,0) │ 0aъmtS(5,1) │ 3a∙m~S(5,2) │ 2bmИS(5,3) │ 1bmТS(6,0) │ 1b&mЬS(6,1) │ 0b5mжS(6,2) │ 2bDm░S(6,3) │ 3bSm║S(7,0) │ 1bbm─S(7,1) │ 0bqm╬S(7,2) │ 3bАm╪S(7,3) │ 2bПmтS(8,0) │ 1bЮmьS(8,1) │ 2bнmЎS(8,2) │ 0b╝nS(8,3) │ 3b╦n
S(9,0) │ 1b┌nS(9,1) │ 2bщnS(9,2) │ 3b°n(S(9,3) │ 0cn2S(10,0) │ 1cn<S(10,1) │ 3c(nFS(10,2) │ 0c8nPS(10,3) │ 2cHnZS(11,0) │ 1cXndS(11,1) │ 3chnnS(11,2) │ 2cxnxS(11,3) │ 0cИnВS(12,0) │ 2cШnМS(12,1) │ 0cиnЦS(12,2) │ 1c╕nаS(12,3) │ 3c╚nкS(13,0) │ 2c╪n┤S(13,1) │ 0cшn╛S(13,2) │ 3c°n╚S(13,3) │ 1dn╥S(14,0) │ 2dn▄S(14,1) │ 1d(nцS(14,2) │ 0d8nЁS(14,3) │ 3dHn·S(15,0) │ 2dXoS(15,1) │ 1dhoS(15,2) │ 3dxoS(15,3) │ 0dИo"S(16,0) │ 2dШo,S(16,1) │ 3dиo6S(16,2) │ 0d╕o@S(16,3) │ 1d╚oJS(17,0) │ 2d╪oTS(17,1) │ 3dшo^S(17,2) │ 1d°ohS(17,3) │ 0eorS(
18700 DATA 7 TIMES 6 =
18710 DATA 42
18720 DATA 46
18730 DATA 36
18740 DATA 37
18750 DATA 47
18800 DATA 7 TIMES 7 =
18810 DATA 49
18820 DATA 77
18830 DATA 42
18840 DATA 47
18850 DATA 57
18900 DATA 7 TIMES 8 =
18910 DATA 56
18920 DATA 49
18930 DATA 48
18940 DATA 63
18950 DATA 68
18960 '*****
19000 DATA 7 TIMES 9 =
19010 DATA 63
19020 DATA 67
19030 DATA 57
19040 DATA 56
19050 DATA 47
19200 DATA 7 TIMES 11 =
19210 DATA 77
19220 DATA 70
19230 DATA 63
19240 DATA 67
19250 DATA 83
19300 DATA 7 TIMES 12 =
19310 DATA 84
19320 DATA 77
19330 DATA 78
19340 DATA 87
19350 DATA 88
19700 DATA 8 TIMES 4 =
19710 DATA 32
19720 DATA 24
19730 DATA 28
19740 DATA 38
19750 DATA 34
19800 DATA 8 TIMES 5 =
19810 DATA 40
19820 DATA 35
19830 DATA 30
19840 DATA 45
19850 DATA 50
19900 DATA 8 TIMES 6 =
19910 DATA 48
19920 DATA 42
19930 DATA 36
19940 DATA 46
19950 DATA 38
19960 '*****
20000 DATA 8 TIMES 7 =
20010 DATA 56
20020 DATA 57
20030 DATA 58
20040 DATA 49
20050 DATA 48
20100 DATA 8 TIMES 8 =
20110 DATA 64
20120 DATA 60
20130 DATA 56
20140 DATA 68
20150 DATA 72
20200 DATA 8 TIMES 9 =
20210 DATA 72
20220 DATA 98
20230 DATA 89
20240 DATA 78
20250 DATA 79
20400 DATA 8 TIMES 11 =
20410 DATA 88
20420 DATA 80
20430 DATA 78
20440 DATA 96
20450 DATA 98
20500 DATA 8 TIMES 12 =
20510 DATA 96
20520 DATA 104
20530 DATA 108
20540 DATA 98
20550 DATA 120
20900 DATA 9 TIMES 4 =
20910 DATA 36
20920 DATA 18
20930 DATA 27
20940 DATA 40
20950 DATA 44
20960 '*****
21000 DATA 9 TIMES 5 =
21010 DATA 45
21020 DATA 40
21030 DATA 35
21040 DATA 50
21050 DATA 55
21100 DATA 9 TIMES 6 =
21110 DATA 54
21120 DATA 56
21130 DATA 59
21140 DATA 49
21150 DATA 44
21200 DATA 9 TIMES 7 =
21210 DATA 63
21220 DATA 67
21230 DATA 79
21240 DATA 69
21250 DATA 56
21300 DATA 9 TIMES 8 =
21310 DATA 72
21320 DATA 78
21330 DATA 79
21340 DATA 89
21350 DATA 98
21400 DATA 9 TIMES 9 =
21410 DATA 81
21420 DATA 72
21430 DATA 69
21440 DATA 79
21450 DATA 89
21600 DATA 9 TIMES 11 =
21610 DATA 99
21620 DATA 119
21630 DATA 109
21640 DATA 91
21650 DATA 89
21700 DATA 9 TIMES 12 =
21710 DATA 108
21720 DATA 112
21730 DATA 109
21740 DATA 92
21750 DATA 129
22100 DATA 10 TIMES 4 =
22110 DATA 40
22120 DATA 30
22130 DATA 20
22140 DATA 50
22150 DATA 60
22200 DATA 10 TIMES 5 =
22210 DATA 50
22220 DATA 40
22230 DATA 30
22240 DATA 60
22250 DATA 70
22300 DATA 10 TIMES 6 =
22310 DATA 60
22320 DATA 50
22330 DATA 40
22340 DATA 70
22350 DATA 80
22400 DATA 10 TIMES 7 =
22410 DATA 70
22420 DATA 60
22430 DATA 50
22440 DATA 80
22450 DATA 90
22500 DATA 10 TIMES 8 =
22510 DATA 80
22520 DATA 90
22530 DATA 70
22540 DATA 60
22550 DATA 108
22600 DATA 10 TIMES 9 =
22610 DATA 90
22620 DATA 99
22630 DATA 109
22640 DATA 89
22650 DATA 80
22800 DATA 10 TIMES 11 =
22810 DATA 110
22820 DATA 120
22830 DATA 111
22840 DATA 101
22850 DATA 100
22900 DATA 10 TIMES 12 =
22910 DATA 120
22920 DATA 110
22930 DATA 112
22940 DATA 121
22950 DATA 130
22960 '*****
23300 DATA 11 TIMES 4 =
23310 DATA 44
23320 DATA 33
23330 DATA 22
23340 DATA 55
23350 DATA 66
23400 DATA 11 TIMES 5 =
23410 DATA 55
23420 DATA 45
23430 DATA 35
23440 DATA 65
23450 DATA 75
23500 DATA 11 TIMES 6 =
23510 DATA 66
23520 DATA 61
23530 DATA 116
23540 DATA 67
23550 DATA 76
23600 DATA 11 TIMES 7 =
23610 DATA 77
23620 DATA 71
23630 DATA 117
23640 DATA 67
23650 DATA 87
23700 DATA 11 TIMES 8 =
23710 DATA 88
23720 DATA 118
23730 DATA 81
23740 DATA 98
23750 DATA 108
23800 DATA 11 TIMES 9 =
23810 DATA 99
23820 DATA 100
23830 DATA 109
23840 DATA 119
23850 DATA 91
24000 DATA 11 TIMES 11 =
24010 DATA 121
24020 DATA 111
24030 DATA 131
24040 DATA 122
24050 DATA 112
24100 DATA 11 TIMES 12 =
24110 DATA 132
24120 DATA 122
24130 DATA 112
24140 DATA 142
24150 DATA 121
24500 DATA 12 TIMES 4 =
24510 DATA 48
24520 DATA 44
24530 DATA 42
24540 DATA 56
24550 DATA 46
24600 DATA 12 TIMES 5 =
24610 DATA 60
24620 DATA 55
24630 DATA 50
24640 DATA 65
24650 DATA 70
24700 DATA 12 TIMES 6 =
24710 DATA 72
24720 DATA 76
24730 DATA 62
24740 DATA 66
24750 DATA 78
24800 DATA 12 TIMES 7 =
24810 DATA 84
24820 DATA 72
24830 DATA 77
24840 DATA 87
24850 DATA 82
24900 DATA 12 TIMES 8 =
24910 DATA 96
24920 DATA 98
24930 DATA 92
24940 DATA 128
24950 DATA 84
24960 '*****
25000 DATA 12 TIMES 9 =
25010 DATA 108
25020 DATA 129
25030 DATA 92
25040 DATA 102
25050 DATA 109
25200 DATA 12 TIMES 11 =
25210 DATA 132
25220 DATA 121
25230 DATA 112
25240 DATA 122
25250 DATA 141
25300 DATA 12 TIMES 12 =
25310 DATA 144
25320 DATA 132
25330 DATA 122
25340 DATA 156
25350 DATA 154
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$ + "  MULTIPLICATION  TABLES  "
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$ = I