:Г   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/'9 MINUS 8 =
15010 DATA 1
15020 DATA 3
15030 DATA 4
15040 DATA 0
15050 DATA 6
15100 DATA 9 MINUS 9 =
15110 DATA 0
15120 DATA 5
15130 DATA 4
15140 DATA 3
15150 DATA 2
15200 DATA 8 MINUS 1 =
15210 DATA 7
15220 DATA 6
15230 DATA 2
15240 DATA 10
15250 DATA 11
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
101 README.TXT
102 .
103 SUBTRACT.BAS IS A QUIZ GAME
104 TO TEST YOUR KNOWLEDGE OF
105 BASIC SUBTRACTION 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 .
1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "   THANKS FOR PLAYING!"
5920 PRINT "     COME BACK SOON."
5930 PRINT:PRINT "   M. DAVID JOHNSON"
5940 PRINT "   INFO@BDS-SOFT.COM"
5950 PRINT:PRINT:PRINT:PRINT:PRINT
5960 GOTO 32767
5970 '*****
5980 '*
5990 '* END MAIN
6000 '*
6010 '*****
10500 '*****
10510 '*
10520 '* STANDARD BASIC QUIZ GAMES
10530 '* DATA LOADING ROUTINE
10540 '*
10550 '*****
10560 'THIS DATA MUST BE
10570 'INDIVIDUALIZED FOR
10580 'EACH SPECIFIC QUIZ
10590 'N = NUMBER OF QUESTIONS
10600 N = 90
10610 'QD$ = QUESTIONS DATA ARRAY
10620 DIM QD$(N,6)
10630 FOR I = 0 TO N-1
10640 FOR J = 0 TO 5
10650 READ QD$(I,J)
10660 NEXT J
10670 NEXT I
10680 PRINT "  OKAY -" 
10690 PRINT "  ALL LOADED AND READY TO GO"
10700 PRINT
10710 PRINT "  PRESS ANY KEY TO BEGIN"
10720 PRINT
10730 A$=INKEY$
10740 IF A$="" GOTO 10730
10750 RETURN
10760 '*****
10770 '*
10780 '* END DATA LOADING
10790 '*
10800 '*****
10810 '*****
10820 '*
10830 '* START OF DATA LIST
10840 '*
10850 '*****
11000 DATA 12 MINUS 1 =
11010 DATA 11
11020 DATA 9
11030 DATA 10
11040 DATA 7
11050 DATA 6
11100 DATA 12 MINUS 2 =
11110 DATA 10
11120 DATA 15
11130 DATA 14
11140 DATA 13
11150 DATA 11
11200 DATA 12 MINUS 3 =
11210 DATA 9
11220 DATA 6
11230 DATA 5
11240 DATA 7
11250 DATA 4
11300 DATA 12 MINUS 4 =
11310 DATA 8
11320 DATA 9
11330 DATA 13
11340 DATA 12
11350 DATA 6
11400 DATA 12 MINUS 5 =
11410 DATA 7
11420 DATA 12
11430 DATA 10
11440 DATA 6
11450 DATA 2
11500 DATA 12 MINUS 6 =
11510 DATA 6
11520 DATA 1
11530 DATA 3
11540 DATA 5
11550 DATA 10
11600 DATA 12 MINUS 7 =
11610 DATA 5
11620 DATA 2
11630 DATA 10
11640 DATA 3
11650 DATA 9
11700 DATA 12 MINUS 8 =
11710 DATA 4
11720 DATA 0
11730 DATA 9
11740 DATA 1
11750 DATA 2
11800 DATA 12 MINUS 9 =
11810 DATA 3
11820 DATA 4
11830 DATA 5
11840 DATA 6
11850 DATA 7
11900 DATA 12 MINUS 10 =
11910 DATA 2
11920 DATA 6
11930 DATA 1
11940 DATA 5
11950 DATA 0
11960 '***** 10
12000 DATA 12 MINUS 11 =
12010 DATA 1
12020 DATA 4
12030 DATA 3
12040 DATA 1
12050 DATA 5
12100 DATA 12 MINUS 12 =
12110 DATA 0
12120 DATA 2
12130 DATA 4
12140 DATA 1
12150 DATA 3
12200 DATA 11 MINUS 1 =
12210 DATA 10
12220 DATA 7
12230 DATA 12
12240 DATA 5
12250 DATA 11
12300 DATA 11 MINUS 2 =
12310 DATA 9
12320 DATA 14
12330 DATA 12
12340 DATA 13
12350 DATA 7
12400 DATA 11 MINUS 3 =
12410 DATA 8
12420 DATA 4
12430 DATA 3
12440 DATA 6
12450 DATA 11
12500 DATA 11 MINUS 4 =
12510 DATA 7
12520 DATA 6
12530 DATA 2
12540 DATA 12
12550 DATA 10
12600 DATA 11 MINUS 5 =
12610 DATA 6
12620 DATA 7
12630 DATA 10
12640 DATA 8
12650 DATA 4
12700 DATA 11 MINUS 6 =
12710 DATA 5
12720 DATA 4
12730 DATA 6
12740 DATA 9
12750 DATA 10
12800 DATA 11 MINUS 7 =
12810 DATA 4
12820 DATA 9
12830 DATA 2
12840 DATA 0
12850 DATA 1
12900 DATA 11 MINUS 8 =
12910 DATA 3
12920 DATA 5
12930 DATA 2
12940 DATA 8
12950 DATA 1
12960 '***** 20
13000 DATA 11 MINUS 9 =
13010 DATA 2
13020 DATA 7
13030 DATA 4
13040 DATA 3
13050 DATA 1
13100 DATA 11 MINUS 10 =
13110 DATA 1
13120 DATA 5
13130 DATA 2
13140 DATA 4
13150 DATA 3
13200 DATA 11 MINUS 11 =
13210 DATA 0
13220 DATA 6
13230 DATA 1
13240 DATA 5
13250 DATA 2
13300 DATA 10 MINUS 1 =
13310 DATA 9
13320 DATA 11
13330 DATA 4
13340 DATA 7
13350 DATA 5
13400 DATA 10 MINUS 2 =
13410 DATA 8
13420 DATA 11
13430 DATA 10
13440 DATA 6
13450 DATA 13
13500 DATA 10 MINUS 3 =
13510 DATA 7
13520 DATA 2
13530 DATA 1
13540 DATA 8
13550 DATA 6
13600 DATA 10 MINUS 4 =
13610 DATA 6
13620 DATA 5
13630 DATA 3
13640 DATA 11
13650 DATA 4
13700 DATA 10 MINUS 5 =
13710 DATA 5
13720 DATA 7
13730 DATA 1
13740 DATA 3
13750 DATA 2
13800 DATA 10 MINUS 6 =
13810 DATA 4
13820 DATA 7
13830 DATA 5
13840 DATA 2
13850 DATA 1
13900 DATA 10 MINUS 7 =
13910 DATA 3
13920 DATA 2
13930 DATA 1
13940 DATA 4
13950 DATA 5
13960 '***** 30
14000 DATA 10 MINUS 8 =
14010 DATA 2
14020 DATA 8
14030 DATA 1
14040 DATA 4
14050 DATA 7
14100 DATA 10 MINUS 9 =
14110 DATA 1
14120 DATA 0
14130 DATA 3
14140 DATA 4
14150 DATA 2
14200 DATA 10 MINUS 10 =
14210 DATA 0
14220 DATA 5
14230 DATA 3
14240 DATA 1
14250 DATA 2
14300 DATA 9 MINUS 1 =
14310 DATA 8
14320 DATA 9
14330 DATA 3
14340 DATA 5
14350 DATA 12
14400 DATA 9 MINUS 2 =
14410 DATA 7
14420 DATA 12
14430 DATA 8
14440 DATA 6
14450 DATA 4
14500 DATA 9 MINUS 3 =
14510 DATA 6
14520 DATA 11
14530 DATA 2
14540 DATA 8
14550 DATA 7
14600 DATA 9 MINUS 4 =
14610 DATA 5
14620 DATA 3
14630 DATA 0
14640 DATA 8
14650 DATA 10
14700 DATA 9 MINUS 5 =
14710 DATA 4
14720 DATA 5
14730 DATA 9
14740 DATA 6
14750 DATA 0
14800 DATA 9 MINUS 6 =
14810 DATA 3
14820 DATA 4
14830 DATA 7
14840 DATA 1
14850 DATA 2
14900 DATA 9 MINUS 7 =
14910 DATA 2
14920 DATA 3
14930 DATA 6
14940 DATA 4
14950 DATA 1
14960 '***** 40
15000 DATA 
100 '*****
101 '*
102 '* SUBTRACT.BAS
103 '* MDJ 2022/01/15
104 '*
105 '* A QUIZ TO TEST
106 '* KNOWLEDGE OF
107 '* SUBTRACTION
108 '*
109 '*****
110 'GO TO THE PROGRAM'S
120 'EXECUTIVE ROUTINE
130 GOTO 4220
131 ' HEADER 00100
132 ' SELECT 00200
133 ' EXEC   04000
134 ' MAIN   05000
135 ' DATA   10500
136 ' INIT   27500
137 ' SPLASH 29500
200 '*****
210 '* 
220 '* SELECTION SUBROUTINE:
230 '*
240 '* THIS ROUTINE IS UNIFORM
250 '* AND REMAINS THE SAME FOR
260 '* EACH AND EVERY QUIZ GAME
270 '*
280 '*****
290 'RANDOM SELECTION OF
300 'FOUR OF FIVE.
310 ' SELECTS FOUR ENTRIES
320 ' FROM FIVE POSSIBILITIES.
330 '  INPUTS:
340 '   NONE
350 '  OUTPUTS (GLOBAL)
360 '   RR(4) = THE SELECTED FOUR
370 '   RP    = POSITION OF "0" ENTRY
380 '            (0, 1, 2, OR 3)
390 '         = 4 IF "0" ENTRY 
400 '            NOT INCLUDED
490 ' INITIALIZATION
500 FOR I = 0 TO 4
510 R1(I) = I
520 NEXT I
530 RP = 4
540 'FIRST PASS
550 R = RND(5) - 1
560 J = -1
570 FOR I = 0 TO 4
580 IF R = I GOTO 610
590 J = J + 1
600 R2(J) = R1(I)
610 NEXT I
620 'SCRAMBLE PASS
630 J = RND(24) - 1
640 FOR I = 0 TO 3
650 RR(I) = R2(S(J,I))
660 NEXT I
670 'POSITION PASS
680 FOR I = 0 TO 3
690 IF RR(I) <> 0 GOTO 710
700 RP = I
710 NEXT I
720 RETURN
730 '*****
740 '*
750 '* ENDSUB
760 '*
770 '*****
4000 '*****
4010 '*
4020 '* EXECUTIVE 
4030 '*
4040 '*****
4050 'VARIABLES LIST
4060 ' I, J = INDEXES AND COUNTERS
4070 ' A = RESPONSE CODE
4080 ' A$ = KEY PRESS
4090 ' N = NUMBER OF QUESTIONS 
4100 ' Q$ = QUESTION
4110 ' QA$ = QUESTION ANSWERS ARRAY
4120 ' QD$ = QUESTIONS DATA ARRAY
4130 ' QN  = QUESTION NUMBER
4140 ' QT  = # OF QUESTIONS ASKED
4150 ' QC  = # OF CORRECT ANSWERS
4160 ' QP  = % CORRECT
4170 ' R, R1, R2, RR, RP 
4180 '   = RANDOMIZATION VARIABLES
4190 ' S = SCRAMBLE CODES ARRAY
4200 ' SD$ = SCREEN DISPLAY TEXT
4210 'GO DISPLAY SPLASH SCREEN
4220 GOSUB 29600
4230 'GO INITIALIZE THE SYSTEM
4240 GOSUB 27600
4250 'GO LOAD QUESTIONS DATA
4260 GOSUB 10600
4270 'GO ENTER THE MAIN ROUTINE
4280 GOTO 5110
4290 '*****
4300 '*
4310 '* END EXECUTIVE
4320 '*
4330 '*****
5000 '*****
5010 '*
5020 '* MAIN
5030 '*
5040 '*****
5050 ' QN  = QUESTION NUMBER
5060 ' Q$ = QUESTION
5070 ' QA$ = QUESTION ANSWERS ARRAY
5080 ' QT  = # OF QUESTIONS ASKED
5090 ' QC  = # OF CORRECT ANSWERS
5100 ' QP  = % CORRECT
5110 DIM QA$(4)
5120 QT = 0
5130 QC = 0
5140 QP = 0
5150 'RANDOMLY SELECT A
5160 'QUESTION
5170 'ADJUST RND FOR TOTAL
5180 'NUMBER OF QUESTIONS
5190 QN = RND(90) - 1
5200 Q$ = QD$(QN,0)
5210 'RANDOMLY SELECT AND
5220 'SCRAMBLE FOUR OF 
5230 'THE FIVE ANSWERS
5240 GOSUB 500
5250 FOR I = 0 TO 3
5260 QA$(I) = QD$(QN,RR(I)+1)
5270 NEXT I
5280 'MAIN DISPLAY SCREEN
5290 PRINT@32,"  WHAT IS THE RESULT:"
5300 PRINT@64,"  "+Q$+" ?"
5310 PRINT@128, "      A. "+QA$(0)
5320 PRINT@160, "      B. "+QA$(1)
5330 PRINT@192, "      C. "+QA$(2)
5340 PRINT@224, "      D. "+QA$(3)
5350 PRINT@256, "      E. NONE OF THE ABOVE"
5360 PRINT@320, "  PRESS A, B, C, D, OR E"
5370 PRINT@352, "                                "
5380 PRINT@384, "                                "
5390 PRINT@416, "                                "
5400 PRINT@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";
5410 A$ = INKEY$
5420 IF A$="" GOTO 5410
5430 IF (A$="A" OR A$=CHR$(97)) GOTO 5520
5440 IF (A$="B" OR A$=CHR$(98)) GOTO 5530
5450 IF (A$="C" OR A$=CHR$(99)) GOTO 5540
5460 IF (A$="D" OR A$=CHR$(100)) GOTO 5550
5470 IF (A$="E" OR A$=CHR$(101)) GOTO 5560
5480 SOUND 159,2
5490 SOUND 159,2
5500 PRINT@320, "  YOU MUST PRESS ONE OF A TO E"
5510 GOTO 5410
5520 A = 0: GOTO 5570
5530 A = 1: GOTO 5570
5540 A = 2: GOTO 5570
5550 A = 3: GOTO 5570
5560 A = 4: GOTO 5570 
5570 IF A = RP GOTO 5710
5580 SOUND 78,1
5590 SOUND 78,1
5600 SOUND 78,1
5610 SOUND 5,3
5620 PRINT@320, "    **SORRY: THAT IS INCORRECT."
5630 SD$ = "  CORRECT = "
5640 IF RP=0 THEN SD$ = SD$ + "A. "+QA$(0)
5650 IF RP=1 THEN SD$ = SD$ + "B. "+QA$(1)
5660 IF RP=2 THEN SD$ = SD$ + "C. "+QA$(2)
5670 IF RP=3 THEN SD$ = SD$ + "D. "+QA$(3)
5680 IF RP=4 THEN SD$ = SD$ + "E.NONE OF THE ABOVE"
5690 PRINT@352, SD$
5700 GOTO 5770
5710 SOUND 204,1
5720 SOUND 204,1
5730 SOUND 204,1
5740 SOUND 218,3
5750 PRINT@320, "    *** THAT IS CORRECT! ***"
5760 QC = QC + 1
5770 QT = QT + 1
5780 QP = INT(100 * (QC/QT))
5790 PRINT@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";
5800 PRINT@384, "  PRESS C TO CONTINUE;Q TO QUIT"
5810 A$ = INKEY$
5820 IF A$="" GOTO 5810
5830 IF (A$="C" OR A$=CHR$(99)) GOTO 5190
5840 IF (A$="Q" OR A$=CHR$(113)) GOTO 5890
5850 SOUND 159,2
5860 SOUND 159,2
5870 PRINT@384, "  YOU MUST PRESS C OR Q"
5880 GOTO 5810
5890 CLS
5900 PRINT:PRINT "   FINAL SCORE = ";QP;"%"
5910 PRINT:PRINT 8ё&
d:Г*****&e:Г*&*f:Г* SUBTRACT.BAS&Ag:Г* MDJ 2022/01/15&Ih:Г*&`i:Г* A QUIZ TO TEST&uj:Г* KNOWLEDGE OF&Йk:Г* SUBTRACTION&Сl:Г*&Эm:Г*****&╖n:ГGO TO THE PROGRAM'S&╧x:ГEXECUTIVE ROUTINE&█ВБе 4220&яГ:Г HEADER 00100'Д:Г SELECT 00200'Е:Г EXEC   04000'+Ж:Г MAIN   05000'?З:Г DATA   10500'SИ:Г INIT   27500'gЙ:Г SPLASH 29500's╚:Г*****'|╥:Г* 'Ъ▄:Г* SELECTION SUBROUTINE:'вц:Г*'┬Ё:Г* THIS ROUTINE IS UNIFORM'у·:Г* AND REMAINS THE SAME FOR(
:Г* EACH AND EVERY QUIZ GAME(
:Г*(
:Г*****(2
":ГRANDOM SELECTION OF(F
,:ГFOUR OF FIVE.(b
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))F
Ж:Г         = 4 IF "0" ENTRY )e
Р:Г            NOT INCLUDED){
ъ:Г INITIALIZATION)Л
ЇА I │ 0 е 4)Щ
■R1(I) │ I)бЛ I)мRP │ 4)╜:ГFIRST PASS)╧&R │  Д(5) м 1)┌0J │ м1)ъ:А I │ 0 е 4)¤DЕ R │ I Бе 610*NJ │ J л 1*XR2(J) │ R1(I)*%bЛ I*9l:ГSCRAMBLE PASS*LvJ │  Д(24) м 1*\АА I │ 0 е 3*sКRR(I) │ R2(S(J,I))*{ФЛ I*ПЮ:ГPOSITION PASS*ЯиА I │ 0 е 3*╖▓Е RR(I) ┤▓ 0 Бе 710*┬╝RP │ I*╩╞Л I*╨╨Р*▄┌:Г******фф:Г**єю:Г* ENDSUB*√°:Г*+:Г*****+а:Г*****+к:Г*+.┤:Г* EXECUTIVE +6╛:Г*+B╚:Г*****+W╥:ГVARIABLES LIST+z▄:Г I, J = INDEXES AND COUNTERS+Уц:Г A = RESPONSE CODE+йЁ:Г A$ = KEY PRESS+╔·:Г N = NUMBER OF QUESTIONS +▐:Г Q$ = QUESTION,:Г QA$ = QUESTION ANSWERS ARRAY,$:Г QD$ = QUESTIONS DATA ARRAY,A":Г QN  = QUESTION NUMBER,c,:Г QT  = # OF QUESTIONS ASKED,Е6:Г QC  = # OF CORRECT ANSWERS,Ь@:Г QP  = % CORRECT,╢J:Г R, R1, R2, RR, RP ,┘T:Г   = RANDOMIZATION VARIABLES,∙^:Г S = SCRAMBLE CODES ARRAY-h:Г SD$ = SCREEN DISPLAY TEXT-9r:ГGO DISPLAY SPLASH SCREEN-F|Бж 29600-eЖ:ГGO INITIALIZE THE SYSTEM-rРБж 27600-ПЪ:ГGO LOAD QUESTIONS DATA-ЬдБж 10600-╝о:ГGO ENTER THE MAIN ROUTINE-╚╕Бе 5110-╘┬:Г*****-▄╠:Г*-Є╓:Г* END EXECUTIVE-·р:Г*.ъ:Г*****.И:Г*****.Т:Г*.'Ь:Г* MAIN./ж:Г*.;░:Г*****.X║:Г QN  = QUESTION NUMBER.m─:Г Q$ = QUESTION.С╬:Г QA$ = QUESTION ANSWERS ARRAY.│╪:Г QT  = # OF QUESTIONS ASKED.╒т:Г QC  = # OF CORRECT ANSWERS.ьь:Г QP  = % CORRECT.∙ЎМ QA$(4)/QT │ 0/
QC │ 0/QP │ 0/2:ГRANDOMLY SELECT A/A(:ГQUESTION/\2:ГADJUST RND FOR TOTAL/v<:ГNUMBER OF QUESTIONS/КFQN │  Д(90) м 1/ЭPQ$ │ QD$(QN,0)/╖Z:ГRANDOMLY SELECT AND/╧d:ГSCRAMBLE FOUR OF /цn:ГTHE FIVE ANSWERS/ёxБж 5000
ВА I │ 0 е 30МQA$(I) │ QD$(QN,RR(I)л1)0&ЦЛ I0@а:ГMAIN DISPLAY SCREEN0aкЗ@32,"  WHAT IS THE RESULT:"0w┤З@64,"  "лQ$л" ?"0Х╛З@128, "      A. "лQA$(0)0│╚З@160, "      B. "лQA$(1)0╤╥З@192, "      C. "лQA$(2)0я▄З@224, "      D. "лQA$(3)1цЗ@256, "      E. NONE OF THE ABOVE"1=ЁЗ@320, "  PRESS A, B, C, D, OR E"1k·З@352, "                                "1ЩЗ@384, "                                "1╟З@416, "                                "1·З@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";2"A$ │  Т2,Е A$│"" Бе 54102=6Е (A$│"A" ▒ A$│ Л(97)) Бе 55202`@Е (A$│"B" ▒ A$│ Л(98)) Бе 55302ГJЕ (A$│"C" ▒ A$│ Л(99)) Бе 55402зTЕ (A$│"D" ▒ A$│ Л(100)) Бе 55502╦^Е (A$│"E" ▒ A$│ Л(101)) Бе 55602╫hа 159,22уrа 159,23|З@320, "  YOU MUST PRESS ONE OF A TO E"3ЖБе 54103.РA │ 0: Бе 55703AЪA │ 1: Бе 55703TдA │ 2: Бе 55703gоA │ 3: Бе 55703{╕A │ 4: Бе 5570 3Р┬Е A │ RP Бе 57103Ы╠а 78,13ж╓а 78,13▒ра 78,13╗ъа 5,33шЇЗ@320, "    **SORRY: THAT IS INCORRECT."4
■SD$ │ "  CORRECT = "4'Е RP│0 з SD$ │ SD$ л "A. "лQA$(0)4MЕ RP│1 з SD$ │ SD$ л "B. "лQA$(1)4sЕ RP│2 з SD$ │ SD$ л "C. "лQA$(2)4Щ&Е RP│3 з SD$ │ SD$ л "D. "лQA$(3)4╚0Е RP│4 з SD$ │ SD$ л "E.NONE OF THE ABOVE"4╫:З@352, SD$4уDБе 57704яNа 204,14√Xа 204,15bа 204,15lа 218,35=vЗ@320, "    *** THAT IS CORRECT! ***"5MАQC │ QC л 15]КQT │ QT л 15xФQP │  Б(100 н (QCоQT))5лЮЗ@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";5╪иЗ@384, "  PRESS C TO CONTINUE;Q TO QUIT"5ф▓A$ │  Т5°╝Е A$│"" Бе 58106╞Е (A$│"C" ▒ A$│ Л(99)) Бе 51906?╨Е (A$│"Q" ▒ A$│ Л(113)) Бе 58906K┌а 159,26Wфа 159,26|юЗ@384, "  YOU MUST PRESS C OR Q"6И°Бе 58106ОЮ6▒З:З "   FINAL SCORE = ";QP;"%"6╥З:З "   THANKS FOR PLAYING!"6я З "     COME BACK SOON."7
*З:З "   M. DAVID JOHNSON"7*4З "   INFO@BDS-SOFT.COM"78>З:З:З:З:З7EHБе 327677QR:Г*****7Y\:Г*7jf:Г* END MAIN7rp:Г*7~z:Г*****7К):Г*****7Т):Г*7┤):Г* STANDARD BASIC QUIZ GAMES7╤)":Г* DATA LOADING ROUTINE7┘),:Г*7х)6:Г*****7¤)@:ГTHIS DATA MUST BE8                                                                                                                                                                                                                                                                                      ┴ ╔┴┼!"#$%&├()*╚                         SUBTRACTBAS ЇSUBTRACTTX1  SUBTRACTTX2 'нREADME  TXT ЖLICENSE TXT \MORE    BASз                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                )J:ГINDIVIDUALIZED FOR8/)T:ГEACH SPECIFIC QUIZ8M)^:ГN = NUMBER OF QUESTIONS8X)hN │ 908y)r:ГQD$ = QUESTIONS DATA ARRAY8И)|М QD$(N,6)8Ъ)ЖА I │ 0 е Nм18к)РА J │ 0 е 58╣)ЪН QD$(I,J)8┴)дЛ J8╔)оЛ I8█)╕З "  OKAY -" 9)┬З "  ALL LOADED AND READY TO GO"9)╠З9')╓З "  PRESS ANY KEY TO BEGIN"9-)рЗ97)ъA$│ Т9L)ЇЕ A$│"" Бе 107309R)■Р9^*:Г*****9f*:Г*9*:Г* END DATA LOADING9З*&:Г*9У*0:Г*****9Я*::Г*****9з*D:Г*9┬*N:Г* START OF DATA LIST9╩*X:Г*9╓*b:Г*****9щ*°Ж 12 MINUS 1 =9Є+Ж 119·+Ж 9:+Ж 10:+ Ж 7:+*Ж 6:&+\Ж 12 MINUS 2 =:/+fЖ 10:8+pЖ 15:A+zЖ 14:J+ДЖ 13:S+ОЖ 11:f+└Ж 12 MINUS 3 =:n+╩Ж 9:v+╘Ж 6:~+▐Ж 5:Ж+шЖ 7:О+ЄЖ 4:б,$Ж 12 MINUS 4 =:й,.Ж 8:▒,8Ж 9:║,BЖ 13:├,LЖ 12:╦,VЖ 6:▐,ИЖ 12 MINUS 5 =:ц,ТЖ 7:я,ЬЖ 12:°,жЖ 10;,░Ж 6;,║Ж 2;,ьЖ 12 MINUS 6 =;#,ЎЖ 6;+-Ж 1;3-
Ж 3;;-Ж 5;D-Ж 10;W-PЖ 12 MINUS 7 =;_-ZЖ 5;g-dЖ 2;p-nЖ 10;x-xЖ 3;А-ВЖ 9;У-┤Ж 12 MINUS 8 =;Ы-╛Ж 4;г-╚Ж 0;л-╥Ж 9;│-▄Ж 1;╗-цЖ 2;╬.Ж 12 MINUS 9 =;╓."Ж 3;▐.,Ж 4;ц.6Ж 5;ю.@Ж 6;Ў.JЖ 7<
.|Ж 12 MINUS 10 =<.ЖЖ 2<.РЖ 6<".ЪЖ 1<*.дЖ 5<2.оЖ 0<A.╕:Г***** 10<U.рЖ 12 MINUS 11 =<].ъЖ 1<e.ЇЖ 4<m.■Ж 3<u/Ж 1<}/Ж 5<С/DЖ 12 MINUS 12 =<Щ/NЖ 0<б/XЖ 2<й/bЖ 4<▒/lЖ 1<╣/vЖ 3<╠/иЖ 11 MINUS 1 =<╒/▓Ж 10<▌/╝Ж 7<ц/╞Ж 12<ю/╨Ж 5<ў/┌Ж 11=
0Ж 11 MINUS 2 ==0Ж 9=0 Ж 14=$0*Ж 12=-04Ж 13=50>Ж 7=H0pЖ 11 MINUS 3 ==P0zЖ 8=X0ДЖ 4=`0ОЖ 3=h0ШЖ 6=q0вЖ 11=Д0╘Ж 11 MINUS 4 ==М0▐Ж 7=Ф0шЖ 6=Ь0ЄЖ 2=е0№Ж 12=о1Ж 10=┴18Ж 11 MINUS 5 ==╔1BЖ 6=╤1LЖ 7=┌1VЖ 10=т1`Ж 8=ъ1jЖ 4=¤1ЬЖ 11 MINUS 6 =>1жЖ 5>
1░Ж 4>1║Ж 6>1─Ж 9>&1╬Ж 10>92Ж 11 MINUS 7 =>A2
Ж 4>I2Ж 9>Q2Ж 2>Y2(Ж 0>a22Ж 1>t2dЖ 11 MINUS 8 =>|2nЖ 3>Д2xЖ 5>М2ВЖ 2>Ф2МЖ 8>Ь2ЦЖ 1>л2а:Г***** 20>╛2╚Ж 11 MINUS 9 =>╞2╥Ж 2>╬2▄Ж 7>╓2цЖ 4>▐2ЁЖ 3>ц2·Ж 1>·3,Ж 11 MINUS 10 =?36Ж 1?
3@Ж 5?3JЖ 2?3TЖ 4?"3^Ж 3?63РЖ 11 MINUS 11 =?>3ЪЖ 0?F3дЖ 6?N3оЖ 1?V3╕Ж 5?^3┬Ж 2?q3ЇЖ 10 MINUS 1 =?y3■Ж 9?В4Ж 11?К4Ж 4?Т4Ж 7?Ъ4&Ж 5?н4XЖ 10 MINUS 2 =?╡4bЖ 8?╛4lЖ 11?╟4vЖ 10?╧4АЖ 6?╪4КЖ 13?ы4╝Ж 10 MINUS 3 =?є4╞Ж 7?√4╨Ж 2@4┌Ж 1@4фЖ 8@4юЖ 6@&5 Ж 10 MINUS 4 =@.5*Ж 6@654Ж 5@>5>Ж 3@G5HЖ 11@O5RЖ 4@b5ДЖ 10 MINUS 5 =@j5ОЖ 5@r5ШЖ 7@z5вЖ 1@В5мЖ 3@К5╢Ж 2@Э5шЖ 10 MINUS 6 =@е5ЄЖ 4@н5№Ж 7@╡6Ж 5@╜6Ж 2@┼6Ж 1@╪6LЖ 10 MINUS 7 =@р6VЖ 3@ш6`Ж 2@Ё6jЖ 1@°6tЖ 4A6~Ж 5A6И:Г***** 30A"6░Ж 10 MINUS 8 =A*6║Ж 2A26─Ж 8A:6╬Ж 1AB6╪Ж 4AJ6тЖ 7A]7Ж 10 MINUS 9 =Ae7Ж 1Am7(Ж 0Au72Ж 3A}7<Ж 4AЕ7FЖ 2AЩ7xЖ 10 MINUS 10 =Aб7ВЖ 0Aй7МЖ 5A▒7ЦЖ 3A╣7аЖ 1A┴7кЖ 2A╙7▄Ж 9 MINUS 1 =A█7цЖ 8Aу7ЁЖ 9Aы7·Ж 3Aє8Ж 5A№8Ж 12B8@Ж 9 MINUS 2 =B8JЖ 7B8TЖ 12B'8^Ж 8B/8hЖ 6B78rЖ 4BI8дЖ 9 MINUS 3 =BQ8оЖ 6BZ8╕Ж 11Bb8┬Ж 2Bj8╠Ж 8Br8╓Ж 7BД9Ж 9 MINUS 4 =BМ9Ж 5BФ9Ж 3BЬ9&Ж 0Bд90Ж 8Bн9:Ж 10B┐9lЖ 9 MINUS 5 =B╟9vЖ 4B╧9АЖ 5B╫9КЖ 9B▀9ФЖ 6Bч9ЮЖ 0B∙9╨Ж 9 MINUS 6 =C
9┌Ж 3C	9фЖ 4C9юЖ 7C9°Ж 1C!:Ж 2C3:4Ж 9 MINUS 7 =C;:>Ж 2CC:HЖ 3CK:RЖ 6CS:\Ж 4C[:fЖ 1Cj:p:Г***** 40C|:ШЖ 9 MINUS 8 =CД:вЖ 1CМ:мЖ 3CФ:╢Ж 4CЬ:└Ж 0Cд:╩Ж 6C╢:№Ж 9 MINUS 9 =C╛;Ж 0C╞;Ж 5C╬;Ж 4C╓;$Ж 3C▐;.Ж 2CЁ;`Ж 8 MINUS 1 =C°;jЖ 7D;tЖ 6D;~Ж 2D;ИЖ 10D;ТЖ 11D,;─Ж 8 MINUS 2 =D4;╬Ж 6D<;╪Ж 4DE;тЖ 11DM;ьЖ 7DV;ЎЖ 18Dh<(Ж 8 MINUS 3 =Dp<2Ж 5Dx<<Ж 1DА<FЖ 3DИ<PЖ 9DР<ZЖ 2Dв<МЖ 8 MINUS 4 =Dк<ЦЖ 4D▓<аЖ 3D║<кЖ 1D┬<┤Ж 6D╩<╛Ж 7D▄<ЁЖ 8 MINUS 5 =Dф<·Ж 3Dь=Ж 4DЇ=Ж 1D№=Ж 5E="Ж 2E=TЖ 8 MINUS 6 =E=^Ж 2E&=hЖ 1E.=rЖ 9E6=|Ж 4E>=ЖЖ 3EP=╕Ж 8 MINUS 7 =EX=┬Ж 1E`=╠Ж 2Eh=╓Ж 3Ep=рЖ 4Ex=ъЖ 6EК>Ж 8 MINUS 8 =EТ>&Ж 0EЪ>0Ж 5Eв>:Ж 3Eк>DЖ 1E▓>NЖ 6E┴>X:Г***** 50E╙>АЖ 7 MINUS 1 =E█>КЖ 6Eу>ФЖ 8Eы>ЮЖ 4Eє>иЖ 9E√>▓Ж 2F
>фЖ 7 MINUS 2 =F>юЖ 5F>°Ж 1F&?Ж 10F.?Ж 3F6?Ж 2FH?HЖ 7 MINUS 3 =FP?RЖ 4FX?\Ж 5F`?fЖ 1Fh?pЖ 6Fp?zЖ 2FВ?мЖ 7 MINUS 4 =FК?╢Ж 3FТ?└Ж 1FЪ?╩Ж 0Fв?╘Ж 2Fк?▐Ж 4F╝@Ж 7 MINUS 5 =F─@Ж 2F╠@$Ж 1F╘@.Ж 3F▄@8Ж 4Fф@BЖ 7FЎ@tЖ 7 MINUS 6 =F■@~Ж 1G@ИЖ 5G@ТЖ 6G@ЬЖ 2G@жЖ 4G0@╪Ж 7 MINUS 7 =G8@тЖ 0G@@ьЖ 3GH@ЎЖ 5GPAЖ 1GXA
Ж 2GjA<Ж 6 MINUS 1 =GrAFЖ 5GzAPЖ 2GВAZЖ 4GКAdЖ 7GУAnЖ 10GеAаЖ 6 MINUS 2 =GнAкЖ 4G╡A┤Ж 9G╜A╛Ж 0G┼A╚Ж 2G═A╥Ж 1G▀BЖ 6 MINUS 3 =GчBЖ 3GяBЖ 0GўB"Ж 1G B,Ж 2HB6Ж 7HB@:Г***** 60H(BhЖ 6 MINUS 4 =H0BrЖ 2H8B|Ж 3H@BЖЖ 1HHBРЖ 6HPBЪЖ 4HbB╠Ж 6 MINUS 5 =HjB╓Ж 1HrBрЖ 2HzBъЖ 0HВBЇЖ 3HКB■Ж 4HЬC0Ж 6 MINUS 6 =HдC:Ж 0HмCDЖ 1H┤CNЖ 2H╝CXЖ 3H─CbЖ 4H╓CФЖ 5 MINUS 1 =H▐CЮЖ 4HцCиЖ 6HюC▓Ж 5HЎC╝Ж 1H■C╞Ж 7IC°Ж 5 MINUS 2 =IDЖ 3I DЖ 1I(DЖ 2I0D Ж 4I8D*Ж 5IJD\Ж 5 MINUS 3 =IRDfЖ 2IZDpЖ 1IbDzЖ 5IjDДЖ 3IrDОЖ 4IДD└Ж 5 MINUS 4 =IМD╩Ж 1IФD╘Ж 2IЬD▐Ж 5IдDшЖ 3IмDЄЖ 4I╛E$Ж 5 MINUS 5 =I╞E.Ж 0I╬E8Ж 2I╓EBЖ 5I▐ELЖ 4IцEVЖ 1I°EИЖ 4 MINUS 1 =JEТЖ 3JEЬЖ 2JEжЖ 6JE░Ж 5J E║Ж 7J2EьЖ 4 MINUS 2 =J:EЎЖ 2JBFЖ 1JJF
Ж 3JRFЖ 7JZFЖ 4JiF(:Г***** 70J{FPЖ 4 MINUS 3 =JГFZЖ 1JЛFdЖ 0JУFnЖ 3JЫFxЖ 5JгFВЖ 2J╡F┤Ж 4 MINUS 4 =J╜F╛Ж 0J┼F╚Ж 4J═F╥Ж 2J╒F▄Ж 6J▌FцЖ 5JяGЖ 3 MINUS 1 =JўG"Ж 2J G,Ж 1KG6Ж 6KG@Ж 3KGJЖ 7K)G|Ж 3 MINUS 2 =K1GЖЖ 1K9GРЖ 4KAGЪЖ 5KIGдЖ 2KQGоЖ 3KcGрЖ 3 MINUS 3 =KkGъЖ 0KsGЇЖ 1K{G■Ж 4KГHЖ 5KЛHЖ 2KЭHDЖ 2 MINUS 1 =KеHNЖ 1KнHXЖ 3K╡HbЖ 5K╜HlЖ 4K┼HvЖ 2K╫HиЖ 2 MINUS 2 =K▀H▓Ж 0KчH╝Ж 4KяH╞Ж 2KўH╨Ж 5K H┌Ж 3LIЖ 13 MINUS 1 =LIЖ 12L$I Ж 17L-I*Ж 15L5I4Ж 9L=I>Ж 8LPIpЖ 13 MINUS 2 =LYIzЖ 11LaIДЖ 9LjIОЖ 12LsIШЖ 15L|IвЖ 14LПI╘Ж 13 MINUS 3 =LШI▐Ж 10LаIшЖ 5LйIЄЖ 15L▒I№Ж 7L╣JЖ 9L╚J:Г***** 80L█J8Ж 13 MINUS 4 =LуJBЖ 9LыJLЖ 4LєJVЖ 8L№J`Ж 12MJjЖ 7MJЬЖ 13 MINUS 5 =MJжЖ 8M(J░Ж 13M1J║Ж 10M9J─Ж 7MAJ╬Ж 5MTKЖ 13 MINUS 6 =M\K
Ж 7MdKЖ 4MlKЖ 2MuK(Ж 10M}K2Ж 5MРKdЖ 13 MINUS 7 =MШKnЖ 6MаKxЖ 1MиKВЖ 5M░KМЖ 3M╕KЦЖ 2M╦K╚Ж 13 MINUS 8 =M╙K╥Ж 5M█K▄Ж 7MуKцЖ 8MыKЁЖ 1MєK·Ж 6NL,Ж 13 MINUS 9 =NL6Ж 4NL@Ж 8NLJЖ 3N&LTЖ 2N.L^Ж 1NBLРЖ 13 MINUS 10 =NJLЪЖ 3NRLдЖ 2NZLоЖ 1NbL╕Ж 0NjL┬Ж 4N~LЇЖ 13 MINUS 11 =NЖL■Ж 2NОMЖ 3NЦMЖ 4NЮMЖ 5NжM&Ж 1N║MXЖ 13 MINUS 12 =N┬MbЖ 1N╩MlЖ 4N╥MvЖ 2N┌MАЖ 0NтMКЖ 3NЎM╝Ж 13 MINUS 13 =N■M╞Ж 0OM╨Ж 5OM┌Ж 3OMфЖ 2OMюЖ 4O-M°:Г***** 90O9N :Г*****OAN*:Г*OZN4:Г* END OF DATA LISTObN>:Г*OnNH:Г*****Ozkl:Г*****OВkv:Г*OдkА:Г* STANDARD BASIC QUIZ GAMESO├kК:Г* INITIALIZATION ROUTINEO╦kФ:Г*O╫kЮ:Г*****O▌k╨ЮOуk┌ЗPkфЗ "  LOADING THE SYSTEM"PkюЗ "  PLEASE WAIT"Pk°ЗP7l:ГRANDOMIZATION ARRAYSPClМ R1(5)POlМ R2(4)P[l М RR(4)Pvl*:ГSCRAMBLE CODES ARRAYPДl4М S(24,4)Pеl>:ГRANDOMIZE THE RND FUNCTIONP╡lHR │  Д(м Я)P┘lШ:ГINITIALIZE THE SCRAMBLE CODESPшlвS(0,0) │ 0PўlмS(0,1) │ 1Ql╢S(0,2) │ 2Ql└S(0,3) │ 3Q$l╩S(1,0) │ 0Q3l╘S(1,1) │ 1QBl▐S(1,2) │ 3QQlшS(1,3) │ 2Q`lЄS(2,0) │ 0Qol№S(2,1) │ 2Q~mS(2,2) │ 1QНmS(2,3) │ 3QЬmS(3,0) │ 0Qлm$S(3,1) │ 2Q║m.S(3,2) │ 3Q╔m8S(3,3) │ 1Q╪mBS(4,0) │ 0QчmLS(4,1) │ 3QЎmVS(4,2) │ 1Rm`S(4,3) │ 2RmjS(5,0) │ 0R#mtS(5,1) │ 3R2m~S(5,2) │ 2RAmИS(5,3) │ 1RPmТS(6,0) │ 1R_mЬS(6,1) │ 0RnmжS(6,2) │ 2R}m░S(6,3) │ 3RМm║S(7,0) │ 1RЫm─S(7,1) │ 0Rкm╬S(7,2) │ 3R╣m╪S(7,3) │ 2R╚mтS(8,0) │ 1R╫mьS(8,1) │ 2RцmЎS(8,2) │ 0RїnS(8,3) │ 3Sn
S(9,0) │ 1SnS(9,1) │ 2S"nS(9,2) │ 3S1n(S(9,3) │ 0SAn2S(10,0) │ 1SQn<S(10,1) │ 3SanFS(10,2) │ 0SqnPS(10,3) │ 2SБnZS(11,0) │ 1SСndS(11,1) │ 3SбnnS(11,2) │ 2S▒nxS(11,3) │ 0S┴nВS(12,0) │ 2S╤nМS(12,1) │ 0SсnЦS(12,2) │ 1SёnаS(12,3) │ 3T
nкS(13,0) │ 2Tn┤S(13,1) │ 0T!n╛S(13,2) │ 3T1n╚S(13,3) │ 1TAn╥S(14,0) │ 2TQn▄S(14,1) │ 1TanцS(14,2) │ 0TqnЁS(14,3) │ 3TБn·S(15,0) │ 2TСoS(15,1) │ 1TбoS(15,2) │ 3T▒oS(15,3) │ 0T┴o"S(16,0) │ 2T╤o,S(16,1) │ 3Tсo6S(16,2) │ 0Tёo@S(16,3) │ 1U
oJS(17,0) │ 2UoTS(17,1) │ 3U!o^S(17,2) │ 1U1ohS(17,3) │ 0UAorS(18,0) │ 3UQo|S(18,1) │ 0UaoЖS(18,2) │ 1UqoРS(18,3) │ 2UБoЪS(19,0) │ 3UСoдS(19,1) │ 0UбoоS(19,2) │ 2U▒o╕S(19,3) │ 1U┴o┬S(20,0) │ 3U╤o╠S(20,1) │ 1Uсo╓S(20,2) │ 0UёoрS(20,3) │ 2V
oъS(21,0) │ 3VoЇS(21,1) │ 1V!o■S(21,2) │ 2V1pS(21,3) │ 0VApS(22,0) │ 3VQpS(22,1) │ 2Vap&S(22,2) │ 0Vqp0S(22,3) │ 1VБp:S(23,0) │ 3VСpDS(23,1) │ 2VбpNS(23,2) │ 1V▒pXS(23,3) │ 0V╖pbРV├pl:Г*****V╦pv:Г*VцpА:Г* END INITIALIZATIONVюpК:Г*V·pФ:Г*****Ws<:Г*****WsF:Г*W+sP:Г* DISPLAY THE STANDARDWDsZ:Г* BASIC QUIZ GAMESWZsd:Г* SPLASH SCREENWbsn:Г*Wnsx:Г*****WtsаЮWШsк:ГLINES 0 AND 1 ARE BLANK GREENW╛s┤:ГDISPLAY UNIFORM STANDARD LINE 2W┘s╛SD$ │  Л(32) л  Л(158)Wъs╚А I │ 0 е 27Xs╥SD$ │ SD$ л  Л(156)X
s▄Л IX+sцSD$ │ SD$ л  Л(157) л  Л(32)X9sЁЗ@64, SD$X_s·:ГDISPLAY UNIFORM STANDARD LINE 3XДtSD$ │  Л(32) л  Л(154) л  Л(206)XХtА I │ 0 е 25XнtSD$ │ SD$ л  Л(204)X╡t"Л IXрt,SD$ │ SD$ л  Л(205) л  Л(149) л  Л(32)Xюt6З@96, SD$Yt@:ГDISPLAY UNIFORM STANDARD LINE 4Y9tJSD$ │  Л(32) л  Л(154) л  Л(202)YJtTА I │ 0 е 25Yat^SD$ │ SD$ л  Л(32)YithЛ IYФtrSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)Yгt|З@128, SD$Y╩tЖ:ГDISPLAY SPECIFIC STANDARD LINE 5YяtРSD$ │  Л(32) л  Л(154) л  Л(202)ZtЪ:Г *** CHANGE NEXT LINE AS REQUIRED:ZEtдSD$ │ SD$ л "   SUBTRACTION PRACTICE   "ZptоSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)Zt╕З@160, SD$Zжt┬:ГDISPLAY SPECIFIC STANDARD LINE 6Z╦t╠SD$ │  Л(32) л  Л(154) л  Л(202)ZЇt╓:Г *** CHANGE NEXT LINE AS REQUIRED:[!tрSD$ │ SD$ л "        QUIZ GAME         "[LtъSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)[[tЇЗ@192, SD$[Бt■:ГDISPLAY UNIFORM STANDARD LINE 7[жuSD$ │  Л(32) л  Л(154) л  Л(202)[╖uА I │ 0 е 25[╬uSD$ │ SD$ л  Л(32)[╓u&Л I\
u0SD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)\u:З@224, SD$\6uD:ГDISPLAY UNIFORM STANDARD LINE 8\[uNSD$ │  Л(32) л  Л(154) л  Л(203)\luXА I │ 0 е 25\ДubSD$ │ SD$ л  Л(195)\МulЛ I\╖uvSD$ │ SD$ л  Л(199) л  Л(149) л  Л(32)\╞uАЗ@256, SD$\ьuК:ГDISPLAY UNIFORM STANDARD LINE 9]uФSD$ │  Л(32) л  Л(155)]uЮА I │ 0 е 27]0uиSD$ │ SD$ л  Л(147)]8u▓Л I]Yu╝SD$ │ SD$ л  Л(151) л  Л(32)]hu╞З@288, SD$]Еu╨:ГLINE 10 IS BLANK GREEN]мu┌:ГDISPLAY UNIFORM STANDARD LINE 11]┌uфЗ@352, "   PRESS ANY KEY  TO CONTINUE   "^uю:ГLINES 12 AND 13 ARE BLANK GREEN^(u°:ГDISPLAY SPECIFIC STANDARD LINE 14^Ov:Г *** CHANGE THE YEAR AS REQUIRED^~vЗ@448, "       BDS SOFTWARE  2022       ";^Ыv:ГLINE 15 IS BLANK GREEN^зv A$ │  Т^╝v*Е A$│"" Бе 30240^┬v4Р^╬v>:Г*****^╓vH:Г*^▐vR:Г*^ъv\:Г*****^Ё КE BLANK GREE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
15300 DATA 8 MINUS 2 =
15310 DATA 6
15320 DATA 4
15330 DATA 11
15340 DATA 7
15350 DATA 18
15400 DATA 8 MINUS 3 =
15410 DATA 5
15420 DATA 1
15430 DATA 3
15440 DATA 9
15450 DATA 2
15500 DATA 8 MINUS 4 =
15510 DATA 4
15520 DATA 3
15530 DATA 1
15540 DATA 6
15550 DATA 7
15600 DATA 8 MINUS 5 =
15610 DATA 3
15620 DATA 4
15630 DATA 1
15640 DATA 5
15650 DATA 2
15700 DATA 8 MINUS 6 =
15710 DATA 2
15720 DATA 1
15730 DATA 9
15740 DATA 4
15750 DATA 3
15800 DATA 8 MINUS 7 =
15810 DATA 1
15820 DATA 2
15830 DATA 3
15840 DATA 4
15850 DATA 6
15900 DATA 8 MINUS 8 =
15910 DATA 0
15920 DATA 5
15930 DATA 3
15940 DATA 1
15950 DATA 6
15960 '***** 50
16000 DATA 7 MINUS 1 =
16010 DATA 6
16020 DATA 8
16030 DATA 4
16040 DATA 9
16050 DATA 2
16100 DATA 7 MINUS 2 =
16110 DATA 5
16120 DATA 1
16130 DATA 10
16140 DATA 3
16150 DATA 2
16200 DATA 7 MINUS 3 =
16210 DATA 4
16220 DATA 5
16230 DATA 1
16240 DATA 6
16250 DATA 2
16300 DATA 7 MINUS 4 =
16310 DATA 3
16320 DATA 1
16330 DATA 0
16340 DATA 2
16350 DATA 4
16400 DATA 7 MINUS 5 =
16410 DATA 2
16420 DATA 1
16430 DATA 3
16440 DATA 4
16450 DATA 7
16500 DATA 7 MINUS 6 =
16510 DATA 1
16520 DATA 5
16530 DATA 6
16540 DATA 2
16550 DATA 4
16600 DATA 7 MINUS 7 =
16610 DATA 0
16620 DATA 3
16630 DATA 5
16640 DATA 1
16650 DATA 2
16700 DATA 6 MINUS 1 =
16710 DATA 5
16720 DATA 2
16730 DATA 4
16740 DATA 7
16750 DATA 10
16800 DATA 6 MINUS 2 =
16810 DATA 4
16820 DATA 9
16830 DATA 0
16840 DATA 2
16850 DATA 1
16900 DATA 6 MINUS 3 =
16910 DATA 3
16920 DATA 0
16930 DATA 1
16940 DATA 2
16950 DATA 7
16960 '***** 60
17000 DATA 6 MINUS 4 =
17010 DATA 2
17020 DATA 3
17030 DATA 1
17040 DATA 6
17050 DATA 4
17100 DATA 6 MINUS 5 =
17110 DATA 1
17120 DATA 2
17130 DATA 0
17140 DATA 3
17150 DATA 4
17200 DATA 6 MINUS 6 =
17210 DATA 0
17220 DATA 1
17230 DATA 2
17240 DATA 3
17250 DATA 4
17300 DATA 5 MINUS 1 =
17310 DATA 4
17320 DATA 6
17330 DATA 5
17340 DATA 1
17350 DATA 7
17400 DATA 5 MINUS 2 =
17410 DATA 3
17420 DATA 1
17430 DATA 2
17440 DATA 4
17450 DATA 5
17500 DATA 5 MINUS 3 =
17510 DATA 2
17520 DATA 1
17530 DATA 5
17540 DATA 3
17550 DATA 4
17600 DATA 5 MINUS 4 =
17610 DATA 1
17620 DATA 2
17630 DATA 5
17640 DATA 3
17650 DATA 4
17700 DATA 5 MINUS 5 =
17710 DATA 0
17720 DATA 2
17730 DATA 5
17740 DATA 4
17750 DATA 1
17800 DATA 4 MINUS 1 =
17810 DATA 3
17820 DATA 2
17830 DATA 6
17840 DATA 5
17850 DATA 7
17900 DATA 4 MINUS 2 =
17910 DATA 2
17920 DATA 1
17930 DATA 3
17940 DATA 7
17950 DATA 4
17960 '***** 70
18000 DATA 4 MINUS 3 =
18010 DATA 1
18020 DATA 0
18030 DATA 3
18040 DATA 5
18050 DATA 2
18100 DATA 4 MINUS 4 =
18110 DATA 0
18120 DATA 4
18130 DATA 2
18140 DATA 6
18150 DATA 5
18200 DATA 3 MINUS 1 =
18210 DATA 2
18220 DATA 1
18230 DATA 6
18240 DATA 3
18250 DATA 7
18300 DATA 3 MINUS 2 =
18310 DATA 1
18320 DATA 4
18330 DATA 5
18340 DATA 2
18350 DATA 3
18400 DATA 3 MINUS 3 =
18410 DATA 0
18420 DATA 1
18430 DATA 4
18440 DATA 5
18450 DATA 2
18500 DATA 2 MINUS 1 =
18510 DATA 1
18520 DATA 3
18530 DATA 5
18540 DATA 4
18550 DATA 2
18600 DATA 2 MINUS 2 =
18610 DATA 0
18620 DATA 4
18630 DATA 2
18640 DATA 5
18650 DATA 3
18700 DATA 13 MINUS 1 =
18710 DATA 12
18720 DATA 17
18730 DATA 15
18740 DATA 9
18750 DATA 8
18800 DATA 13 MINUS 2 =
18810 DATA 11
18820 DATA 9
18830 DATA 12
18840 DATA 15
18850 DATA 14
18900 DATA 13 MINUS 3 =
18910 DATA 10
18920 DATA 5
18930 DATA 15
18940 DATA 7
18950 DATA 9
18960 '***** 80
19000 DATA 13 MINUS 4 =
19010 DATA 9
19020 DATA 4
19030 DATA 8
19040 DATA 12
19050 DATA 7
19100 DATA 13 MINUS 5 =
19110 DATA 8
19120 DATA 13
19130 DATA 10
19140 DATA 7
19150 DATA 5
19200 DATA 13 MINUS 6 =
19210 DATA 7
19220 DATA 4
19230 DATA 2
19240 DATA 10
19250 DATA 5
19300 DATA 13 MINUS 7 =
19310 DATA 6
19320 DATA 1
19330 DATA 5
19340 DATA 3
19350 DATA 2
19400 DATA 13 MINUS 8 =
19410 DATA 5
19420 DATA 7
19430 DATA 8
19440 DATA 1
19450 DATA 6
19500 DATA 13 MINUS 9 =
19510 DATA 4
19520 DATA 8
19530 DATA 3
19540 DATA 2
19550 DATA 1
19600 DATA 13 MINUS 10 =
19610 DATA 3
19620 DATA 2
19630 DATA 1
19640 DATA 0
19650 DATA 4
19700 DATA 13 MINUS 11 =
19710 DATA 2
19720 DATA 3
19730 DATA 4
19740 DATA 5
19750 DATA 1
19800 DATA 13 MINUS 12 =
19810 DATA 1
19820 DATA 4
19830 DATA 2
19840 DATA 0
19850 DATA 3
19900 DATA 13 MINUS 13 =
19910 DATA 0
19920 DATA 5
19930 DATA 3
19940 DATA 2
19950 DATA 4
19960 '***** 90
20000 '*****
20010 '*
20020 '* END OF DATA LIST
20030 '*
20040 '*****
27500 '*****
27510 '*
27520 '* STANDARD BASIC QUIZ GAMES
27530 '* INITIALIZATION ROUTINE
27540 '*
27550 '*****
27600 CLS
27610 PRINT
27620 PRINT "  LOADING THE SYSTEM"
27630 PRINT "  PLEASE WAIT"
27640 PRINT
27650 'RANDOMIZATION ARRAYS
27660 DIM R1(5)
27670 DIM R2(4)
27680 DIM RR(4)
27690 'SCRAMBLE CODES ARRAY
27700 DIM S(24,4)
27710 'RANDOMIZE THE RND FUNCTION
27720 R = RND(-TIMER)
27800 'INITIALIZE THE SCRAMBLE CODES
27810 S(0,0) = 0
27820 S(0,1) = 1
27830 S(0,2) = 2
27840 S(0,3) = 3
27850 S(1,0) = 0
27860 S(1,1) = 1
27870 S(1,2) = 3
27880 S(1,3) = 2
27890 S(2,0) = 0
27900 S(2,1) = 2
27910 S(2,2) = 1
27920 S(2,3) = 3
27930 S(3,0) = 0
27940 S(3,1) = 2
27950 S(3,2) = 3
27960 S(3,3) = 1
27970 S(4,0) = 0
27980 S(4,1) = 3
27990 S(4,2) = 1
28000 S(4,3) = 2
28010 S(5,0) = 0
28020 S(5,1) = 3
28030 S(5,2) = 2
28040 S(5,3) = 1
28050 S(6,0) = 1
28060 S(6,1) = 0
28070 S(6,2) = 2
28080 S(6,3) = 3
28090 S(7,0) = 1
28100 S(7,1) = 0
28110 S(7,2) = 3
28120 S(7,3) = 2
28130 S(8,0) = 1
28140 S(8,1) = 2
28150 S(8,2) = 0
28160 S(8,3) = 3
28170 S(9,0) = 1
28180 S(9,1) = 2
28190 S(9,2) = 3
28200 S(9,3) = 0
28210 S(10,0) = 1
28220 S(10,1) = 3
28230 S(10,2) = 0
28240 S(10,3) = 2
28250 S(11,0) = 1
28260 S(11,1) = 3
28270 S(11,2) = 2
28280 S(11,3) = 0
28290 S(12,0) = 2
28300 S(12,1) = 0
28310 S(12,2) = 1
28320 S(12,3) = 3
28330 S(13,0) = 2
28340 S(13,1) = 0
28350 S(13,2) = 3
28360 S(13,3) = 1
28370 S(14,0) = 2
28380 S(14,1) = 1
28390 S(14,2) = 0
28400 S(14,3) = 3
28410 S(15,0) = 2
28420 S(15,1) = 1
28430 S(15,2) = 3
28440 S(15,3) = 0
28450 S(16,0) = 2
28460 S(16,1) = 3
28470 S(16,2) = 0
28480 S(16,3) = 1
28490 S(17,0) = 2
28500 S(17,1) = 3
28510 S(17,2) = 1
28520 S(17,3) = 0
28530 S(18,0) = 3
28540 S(18,1) = 0
28550 S(18,2) = 1
28560 S(18,3) = 2
28570 S(19,0) = 3
28580 S(19,1) = 0
28590 S(19,2) = 2
28600 S(19,3) = 1
28610 S(20,0) = 3
28620 S(20,1) = 1
28630 S(20,2) = 0
28640 S(20,3) = 2
28650 S(21,0) = 3
28660 S(21,1) = 1
28670 S(21,2) = 2
28680 S(21,3) = 0
28690 S(22,0) = 3
28700 S(22,1) = 2
28710 S(22,2) = 0
28720 S(22,3) = 1
28730 S(23,0) = 3
28740 S(23,1) = 2
28750 S(23,2) = 1
28760 S(23,3) = 0
28770 RETURN
28780 '*****
28790 '*
28800 '* END INITIALIZATION
28810 '*
28820 '*****
29500 '*****
29510 '*
29520 '* DISPLAY THE STANDARD
29530 '* BASIC QUIZ GAMES
29540 '* SPLASH SCREEN
29550 '*
29560 '*****
29600 CLS
29610 'LINES 0 AND 1 ARE BLANK GREEN
29620 'DISPLAY UNIFORM STANDARD LINE 2
29630 SD$ = CHR$(32) + CHR$(158)
29640 FOR I = 0 TO 27
29650 SD$ = SD$ + CHR$(156)
29660 NEXT I
29670 SD$ = SD$ + CHR$(157) + CHR$(32)
29680 PRINT@64, SD$
29690 'DISPLAY UNIFORM STANDARD LINE 3
29700 SD$ = CHR$(32) + CHR$(154) + CHR$(206)
29710 FOR I = 0 TO 25
29720 SD$ = SD$ + CHR$(204)
29730 NEXT I
29740 SD$ = SD$ + CHR$(205) + CHR$(149) + CHR$(32)
29750 PRINT@96, SD$
29760 'DISPLAY UNIFORM STANDARD LINE 4
29770 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
29780 FOR I = 0 TO 25
29790 SD$ = SD$ + CHR$(32)
29800 NEXT I
29810 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
29820 PRINT@128, SD$
29830 'DISPLAY SPECIFIC STANDARD LINE 5
29840 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
29850 ' *** CHANGE NEXT LINE AS REQUIRED:
29860 SD$ = SD$ + "   SUBTRACTION PRACTICE   "
29870 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
29880 PRINT@160, SD$
29890 'DISPLAY SPECIFIC STANDARD LINE 6
29900 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
29910 ' *** CHANGE NEXT LINE AS REQUIRED:
29920 SD$ = SD$ + "        QUIZ GAME         "
29930 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
29940 PRINT@192, SD$
29950 'DISPLAY UNIFORM STANDARD LINE 7
29960 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
29970 FOR I = 0 TO 25
29980 SD$ = SD$ + CHR$(32)
29990 NEXT I
30000 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
30010 PRINT@224, SD$
30020 'DISPLAY UNIFORM STANDARD LINE 8
30030 SD$ = CHR$(32) + CHR$(154) + CHR$(203)
30040 FOR I = 0 TO 25
30050 SD$ = SD$ + CHR$(195)
30060 NEXT I
30070 SD$ = SD$ + CHR$(199) + CHR$(149) + CHR$(32)
30080 PRINT@256, SD$
30090 'DISPLAY UNIFORM STANDARD LINE 9
30100 SD$ = CHR$(32) + CHR$(155)
30110 FOR I = 0 TO 27
30120 SD$ = SD$ + CHR$(147)
30130 NEXT I
30140 SD$ = SD$ + CHR$(151) + CHR$(32)
30150 PRINT@288, SD$
30160 'LINE 10 IS BLANK GREEN
30170 'DISPLAY UNIFORM STANDARD LINE 11
30180 PRINT@352, "   PRESS ANY KEY  TO CONTINUE   "
30190 'LINES 12 AND 13 ARE BLANK GREEN
30200 'DISPLAY SPECIFIC STANDARD LINE 14
30210 ' *** CHANGE THE YEAR AS REQUIRED
30220 PRINT@448, "       BDS SOFTWARE  2022       ";
30230 'LINE 15 IS BLANK GREEN
30240 A$ = INKEY$
30250 IF A$="" GOTO 30240
30260 RETURN
30270 '*****
30280 '*
30290 '*
30300 '*****
32767 END
IFIC STANDARD LINE 14
30210 ' *** CHANGE THE YEAR AS REQUIRED
30220 PRINT@448, "