:Г   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/'7
14640 DATA 187
14650 DATA -177
14700 DATA 378 MINUS 740 =
14710 DATA -362
14720 DATA 362
14730 DATA -368
14740 DATA 368
14750 DATA 371
14800 DATA -460 MINUS 215 =
14810 DATA -675
14820 DATA 675
14830 DATA 245
14840 DATA -245
14850 DATA -671
14900 DATA 275 MINUS 79 =
14910 DATA 196
14920 DATA 189
14930 DATA 193
14940 DATA 188
14950 DATA 200
14960 '***** 40
15000 DATA 325 MINUS 781 =
15010 DATA -456
15020 DATA 456
15030 DATA -464
15040 DATA 464
15050 DATA -454
15100 DATA 678 MINUS 956 =
15110 DATA -278
15120 DATA 284
15130 DATA 278
15140 DATA -284
15150 DATA -282
15200 DATA 381 MINUS 793 =
15210 DATA -412
15220 DATA 412
15230 DATA -421
15240 DATA 421
15250 DATA 404
15030 DATA -464
15040 DATA 464
15050 DATA -454
15100 DATA 678 MINUS 956 =
15110 DATA -278
1512                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
101 README.TXT
102 .
103 ADVSUB.BAS IS A QUIZ GAME
104 TO TEST YOUR KNOWLEDGE OF
105 ADVANCED 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 .
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                T:PRINT "   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 34 MINUS 29 =
11010 DATA 5
11020 DATA 4
11030 DATA 0
11040 DATA 10
11050 DATA 9
11100 DATA 66 MINUS 29 =
11110 DATA 37
11120 DATA 35
11130 DATA 33
11140 DATA 39
11150 DATA 40
11200 DATA 91 MINUS 3 =
11210 DATA 88
11220 DATA 87
11230 DATA 89
11240 DATA 91
11250 DATA 85
11300 DATA 54 MINUS 75 =
11310 DATA -21
11320 DATA 21
11330 DATA -20
11340 DATA 16
11350 DATA -24
11400 DATA 37 MINUS 93 =
11410 DATA -56
11420 DATA 56
11430 DATA -58
11440 DATA -59
11450 DATA 51
11500 DATA -85 MINUS -80 =
11510 DATA -5
11520 DATA 5
11530 DATA -2
11540 DATA 7
11550 DATA -6
11600 DATA 53 MINUS 34 =
11610 DATA 19
11620 DATA 23
11630 DATA 17
11640 DATA 18
11650 DATA 21
11700 DATA 25 MINUS 9 =
11710 DATA 16
11720 DATA 20
11730 DATA 14
11740 DATA 21
11750 DATA 11
11800 DATA -30 MINUS 43 =
11810 DATA -73
11820 DATA 73
11830 DATA -75
11840 DATA -69
11850 DATA 71
11900 DATA 13 MINUS 51 =
11910 DATA -38
11920 DATA 38
11930 DATA -39
11940 DATA -40
11950 DATA 35
11960 '***** 10
12000 DATA -88 MINUS 65 =
12010 DATA -153
12020 DATA 153
12030 DATA -23
12040 DATA 23
12050 DATA -155
12100 DATA -23 MINUS 37 =
12110 DATA -60
12120 DATA 60
12130 DATA -64
12140 DATA 57
12150 DATA 62
12200 DATA 87 MINUS 73 =
12210 DATA 14
12220 DATA 9
12230 DATA 16
12240 DATA 11
12250 DATA 17
12300 DATA 17 MINUS 28 =
12310 DATA -11
12320 DATA 11
12330 DATA -13
12340 DATA 13
12350 DATA 15
12400 DATA 21 MINUS 32 =
12410 DATA -11
12420 DATA 11
12430 DATA -13
12440 DATA 13
12450 DATA 9
12500 DATA 85 MINUS 59 =
12510 DATA 26
12520 DATA 21
12530 DATA 22
12540 DATA 27
12550 DATA 30
12600 DATA -100 MINUS -30 =
12610 DATA -70
12620 DATA 70
12630 DATA -68
12640 DATA 68
12650 DATA 72
12700 DATA 71 MINUS 49 =
12710 DATA 22
12720 DATA 24
12730 DATA 18
12740 DATA 25
12750 DATA 20
12800 DATA 24 MINUS 67 =
12810 DATA -43
12820 DATA 43
12830 DATA -42
12840 DATA 42
12850 DATA 45
12900 DATA 87 MINUS -73 =
12910 DATA 160
12920 DATA -160
12930 DATA -161
12940 DATA -157
12950 DATA 157
12960 '***** 20
13000 DATA 40 MINUS 6 =
13010 DATA 34
13020 DATA 39
13030 DATA 30
13040 DATA 29
13050 DATA 37
13100 DATA 19 MINUS 93 =
13110 DATA -74
13120 DATA 74
13130 DATA -77
13140 DATA 77
13150 DATA -76
13200 DATA 83 MINUS 92 =
13210 DATA -9
13220 DATA 9
13230 DATA -11
13240 DATA 11
13250 DATA -8
13300 DATA 8 MINUS 60 =
13310 DATA -52
13320 DATA 52
13330 DATA -54
13340 DATA 54
13350 DATA -51
13400 DATA 19 MINUS 24 =
13410 DATA -5
13420 DATA 4
13430 DATA 5
13440 DATA -4
13450 DATA -6
13500 DATA -38 MINUS 66 =
13510 DATA -104
13520 DATA 104
13530 DATA -110
13540 DATA 110
13550 DATA -105
13600 DATA 55 MINUS 2 =
13610 DATA 53
13620 DATA 57
13630 DATA 54
13640 DATA 55
13650 DATA 52
13700 DATA 89 MINUS 73 =
13710 DATA 16
13720 DATA 11
13730 DATA 12
13740 DATA 15
13750 DATA 18
13800 DATA -55 MINUS -24 =
13810 DATA -31
13820 DATA 31
13830 DATA -27
13840 DATA 27
13850 DATA -34
13900 DATA 100 MINUS 89 =
13910 DATA 11
13920 DATA 13
13930 DATA 8
13940 DATA 16
13950 DATA 14
13960 '***** 30
14000 DATA 180 MINUS -635 =
14010 DATA 815
14020 DATA -815
14030 DATA 455
14040 DATA -455
14050 DATA 805
14100 DATA 421 MINUS 725 =
14110 DATA -304
14120 DATA 304
14130 DATA 312
14140 DATA -312
14150 DATA -308
14200 DATA 907 MINUS -336 =
14210 DATA 1243
14220 DATA -1243
14230 DATA 1233
14240 DATA -1233
14250 DATA 1313
14300 DATA 476 MINUS -827 =
14310 DATA 1303
14320 DATA -1303
14330 DATA 1285
14340 DATA -1285
14350 DATA 1380
14400 DATA 308 MINUS 805 =
14410 DATA -497
14420 DATA 497
14430 DATA -490
14440 DATA 490
14450 DATA 506
14500 DATA -239 MINUS 615 =
14510 DATA -854
14520 DATA 854
14530 DATA 376
14540 DATA -376
14550 DATA -856
14600 DATA 190 MINUS 371 =
14610 DATA -181
14620 DATA 181
14630 DATA -18
100 '*****
101 '*
102 '* ADVSUB.BAS
103 '* MDJ 2022/01/20
104 '*
105 '* A QUIZ TO TEST
106 '* KNOWLEDGE OF
107 '* ADVANCED 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 PRIN >А&
З@224, SD$&PЗ@256, SD$&+d:Г*****&3e:Г*&Ff:Г* ADVSUB.BAS&]g:Г* MDJ 2022/01/20&eh:Г*&|i:Г* A QUIZ TO TEST&Сj:Г* KNOWLEDGE OF&оk:Г* ADVANCED SUBTRACTION&╢l:Г*&┬m:Г*****&▄n:ГGO TO THE PROGRAM'S&Їx:ГEXECUTIVE ROUTINE'ВБе 4220'Г:Г HEADER 00100'(Д:Г SELECT 00200'<Е:Г EXEC   04000'PЖ:Г MAIN   05000'dЗ:Г DATA   10500'xИ:Г INIT   27500'МЙ:Г SPLASH 29500'Ш╚:Г*****'б╥:Г* '┐▄:Г* SELECTION SUBROUTINE:'╟ц:Г*'чЁ:Г* THIS ROUTINE IS UNIFORM(·:Г* AND REMAINS THE SAME FOR()
:Г* EACH AND EVERY QUIZ GAME(1
:Г*(=
:Г*****(W
":ГRANDOM SELECTION OF(k
,:Г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)J
|:Г            (0, 1, 2, OR 3))k
Ж:Г         = 4 IF "0" ENTRY )К
Р:Г            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*0NJ │ J л 1*BXR2(J) │ R1(I)*JbЛ I*^l:ГSCRAMBLE PASS*qvJ │  Д(24) м 1*БАА I │ 0 е 3*ШКRR(I) │ R2(S(J,I))*аФЛ I*┤Ю:ГPOSITION PASS*─иА I │ 0 е 3*▄▓Е RR(I) ┤▓ 0 Бе 710*ч╝RP │ I*я╞Л I*ї╨Р+
┌:Г*****+	ф:Г*+ю:Г* ENDSUB+ °:Г*+,:Г*****+8а:Г*****+@к:Г*+S┤:Г* EXECUTIVE +[╛:Г*+g╚:Г*****+|╥:ГVARIABLES LIST+Я▄:Г I, J = INDEXES AND COUNTERS+╕ц:Г A = RESPONSE CODE+╬Ё:Г A$ = KEY PRESS+ю·:Г N = NUMBER OF QUESTIONS ,:Г Q$ = QUESTION,':Г QA$ = QUESTION ANSWERS ARRAY,I:Г QD$ = QUESTIONS DATA ARRAY,f":Г QN  = QUESTION NUMBER,И,:Г 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-^r:ГGO DISPLAY SPLASH SCREEN-k|Бж 29600-КЖ:ГGO INITIALIZE THE SYSTEM-ЧРБж 27600-┤Ъ:ГGO LOAD QUESTIONS DATA-┴дБж 10600-со:ГGO ENTER THE MAIN ROUTINE-э╕Бе 5110-∙┬:Г*****.
╠:Г*.╓:Г* END EXECUTIVE.р:Г*.+ъ:Г*****.7И:Г*****.?Т:Г*.LЬ:Г* MAIN.Tж:Г*.`░:Г*****.}║:Г QN  = QUESTION NUMBER.Т─:Г Q$ = QUESTION.╢╬:Г QA$ = QUESTION ANSWERS ARRAY.╪╪:Г QT  = # OF QUESTIONS ASKED.·т:Г QC  = # OF CORRECT ANSWERS/ь:Г QP  = % CORRECT/ЎМ QA$(4)/)QT │ 0/4
QC │ 0/?QP │ 0/W:ГRANDOMLY SELECT A/f(:ГQUESTION/Б2:ГADJUST RND FOR TOTAL/Ы<:ГNUMBER OF QUESTIONS/пFQN │  Д(90) м 1/┬PQ$ │ QD$(QN,0)/▄Z:ГRANDOMLY SELECT AND/Їd:ГSCRAMBLE FOUR OF 0n:ГTHE FIVE ANSWERS0xБж 5000&ВА I │ 0 е 30CМQA$(I) │ QD$(QN,RR(I)л1)0KЦЛ I0eа:ГMAIN DISPLAY SCREEN0ЖкЗ@32,"  WHAT IS THE RESULT:"0Ь┤З@64,"  "лQ$л" ?"0║╛З@128, "      A. "лQA$(0)0╪╚З@160, "      B. "лQA$(1)0Ў╥З@192, "      C. "лQA$(2)1▄З@224, "      D. "лQA$(3)1<цЗ@256, "      E. NONE OF THE ABOVE"1bЁЗ@320, "  PRESS A, B, C, D, OR E"1Р·З@352, "                                "1╛З@384, "                                "1ьЗ@416, "                                "2З@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";2+"A$ │  Т2?,Е A$│"" Бе 54102b6Е (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,23rа 159,234|З@320, "  YOU MUST PRESS ONE OF A TO E"3@ЖБе 54103SРA │ 0: Бе 55703fЪA │ 1: Бе 55703yдA │ 2: Бе 55703МоA │ 3: Бе 55703а╕A │ 4: Бе 5570 3╡┬Е A │ RP Бе 57103└╠а 78,13╦╓а 78,13╓ра 78,13ръа 5,34
ЇЗ@320, "    **SORRY: THAT IS INCORRECT."4&■SD$ │ "  CORRECT = "4LЕ RP│0 з SD$ │ SD$ л "A. "лQA$(0)4rЕ RP│1 з SD$ │ SD$ л "B. "лQA$(1)4ШЕ RP│2 з SD$ │ SD$ л "C. "лQA$(2)4╛&Е RP│3 з SD$ │ SD$ л "D. "лQA$(3)4э0Е RP│4 з SD$ │ SD$ л "E.NONE OF THE ABOVE"4№:З@352, SD$5DБе 57705Nа 204,15 Xа 204,15,bа 204,158lа 218,35bvЗ@320, "    *** THAT IS CORRECT! ***"5rАQC │ QC л 15ВКQT │ QT л 15ЭФQP │  Б(100 н (QCоQT))5╨ЮЗ@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";5¤иЗ@384, "  PRESS C TO CONTINUE;Q TO QUIT"6	▓A$ │  Т6╝Е A$│"" Бе 58106@╞Е (A$│"C" ▒ A$│ Л(99)) Бе 51906d╨Е (A$│"Q" ▒ A$│ Л(113)) Бе 58906p┌а 159,26|фа 159,26бюЗ@384, "  YOU MUST PRESS C OR Q"6н°Бе 58106│Ю6╓З:З "   FINAL SCORE = ";QP;"%"6ўЗ:З "   THANKS FOR PLAYING!"7 З "     COME BACK SOON."72*З:З "   M. DAVID JOHNSON"7O4З "   INFO@BDS-SOFT.COM"7]>З:З:З:З:З7jHБе 327677vR:Г*****7~\:Г*7Пf:Г* END MAIN7Чp:Г*7гz:Г*****7▓&\З@128, SD$7┴&ШЗ@160, SD$7╨&╘З@192, SD$7▄):Г*****7ф):Г*8):Г* STANDARD BASIC QUI                                                                                                                                                                                                                                                                                      ┴ ╔├┼!"#$%&╔()*+├                        ADVSUB  BAS ГADVSUB  TX1 вADVSUB  TX2 'NREADME  TXT ЗLICENSE TXT \MORE    BASз                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Z GAMES8#)":Г* DATA LOADING ROUTINE8+),:Г*87)6:Г*****8O)@:ГTHIS DATA MUST BE8h)J:ГINDIVIDUALIZED FOR8Б)T:ГEACH SPECIFIC QUIZ8Я)^:ГN = NUMBER OF QUESTIONS8к)hN │ 908╦)r:ГQD$ = QUESTIONS DATA ARRAY8┌)|М QD$(N,6)8ь)ЖА I │ 0 е Nм18№)РА J │ 0 е 59)ЪН QD$(I,J)9)дЛ J9)оЛ I9-)╕З "  OKAY -" 9R)┬З "  ALL LOADED AND READY TO GO"9X)╠З9y)╓З "  PRESS ANY KEY TO BEGIN"9)рЗ9Й)ъA$│ Т9Ю)ЇЕ A$│"" Бе 107309д)■Р9░*:Г*****9╕*:Г*9╤*:Г* END DATA LOADING9┘*&:Г*9х*0:Г*****9ё*::Г*****9∙*D:Г*:*N:Г* START OF DATA LIST:*X:Г*:(*b:Г*****:<*°Ж 34 MINUS 29 =:D+Ж 5:L+Ж 4:T+Ж 0:]+ Ж 10:e+*Ж 9:y+\Ж 66 MINUS 29 =:В+fЖ 37:Л+pЖ 35:Ф+zЖ 33:Э+ДЖ 39:ж+ОЖ 40:╣+└Ж 91 MINUS 3 =:┬+╩Ж 88:╦+╘Ж 87:╘+▐Ж 89:▌+шЖ 91:ц+ЄЖ 85:·,$Ж 54 MINUS 75 =;,.Ж -21;
,8Ж 21;,BЖ -20; ,LЖ 16;*,VЖ -24;>,ИЖ 37 MINUS 93 =;H,ТЖ -56;Q,ЬЖ 56;[,жЖ -58;e,░Ж -59;n,║Ж 51;Д,ьЖ -85 MINUS -80 =;Н,ЎЖ -5;Х-Ж 5;Ю-
Ж -2;ж-Ж 7;п-Ж -6;├-PЖ 53 MINUS 34 =;╠-ZЖ 19;╒-dЖ 23;▐-nЖ 17;ч-xЖ 18;Ё-ВЖ 21<-┤Ж 25 MINUS 9 =<-╛Ж 16<-╚Ж 20<-╥Ж 14<'-▄Ж 21<0-цЖ 11<E.Ж -30 MINUS 43 =<O."Ж -73<X.,Ж 73<b.6Ж -75<l.@Ж -69<u.JЖ 71<Й.|Ж 13 MINUS 51 =<У.ЖЖ -38<Ь.РЖ 38<ж.ЪЖ -39<░.дЖ -40<╣.оЖ 35<╚.╕:Г***** 10<▌.рЖ -88 MINUS 65 =<ш.ъЖ -153<Є.ЇЖ 153<№.■Ж -23=/Ж 23=/Ж -155=%/DЖ -23 MINUS 37 ==//NЖ -60=8/XЖ 60=B/bЖ -64=K/lЖ 57=T/vЖ 62=h/иЖ 87 MINUS 73 ==q/▓Ж 14=y/╝Ж 9=В/╞Ж 16=Л/╨Ж 11=Ф/┌Ж 17=и0Ж 17 MINUS 28 ==▓0Ж -11=╗0 Ж 11=┼0*Ж -13=╬04Ж 13=╫0>Ж 15=ы0pЖ 21 MINUS 32 ==ї0zЖ -11=■0ДЖ 11>0ОЖ -13>0ШЖ 13>0вЖ 9>-0╘Ж 85 MINUS 59 =>60▐Ж 26>?0шЖ 21>H0ЄЖ 22>Q0№Ж 27>Z1Ж 30>q18Ж -100 MINUS -30 =>{1BЖ -70>Д1LЖ 70>О1VЖ -68>Ч1`Ж 68>а1jЖ 72>┤1ЬЖ 71 MINUS 49 =>╜1жЖ 22>╞1░Ж 24>╧1║Ж 18>╪1─Ж 25>с1╬Ж 20>ї2Ж 24 MINUS 67 => 2
Ж -43?2Ж 43?2Ж -42?2(Ж 42?$22Ж 45?92dЖ 87 MINUS -73 =?C2nЖ 160?N2xЖ -160?Y2ВЖ -161?d2МЖ -157?n2ЦЖ 157?}2а:Г***** 20?Р2╚Ж 40 MINUS 6 =?Щ2╥Ж 34?в2▄Ж 39?л2цЖ 30?┤2ЁЖ 29?╜2·Ж 37?╤3,Ж 19 MINUS 93 =?█36Ж -74?ф3@Ж 74?ю3JЖ -77?ў3TЖ 77@
3^Ж -76@3РЖ 83 MINUS 92 =@3ЪЖ -9@&3дЖ 9@03оЖ -11@93╕Ж 11@B3┬Ж -8@U3ЇЖ 8 MINUS 60 =@_3■Ж -52@h4Ж 52@r4Ж -54@{4Ж 54@Е4&Ж -51@Щ4XЖ 19 MINUS 24 =@в4bЖ -5@к4lЖ 4@▓4vЖ 5@╗4АЖ -4@─4КЖ -6@┘4╝Ж -38 MINUS 66 =@ф4╞Ж -104@ю4╨Ж 104@∙4┌Ж -110A4фЖ 110A4юЖ -105A!5 Ж 55 MINUS 2 =A*5*Ж 53A354Ж 57A<5>Ж 54AE5HЖ 55AN5RЖ 52Ab5ДЖ 89 MINUS 73 =Ak5ОЖ 16At5ШЖ 11A}5вЖ 12AЖ5мЖ 15AП5╢Ж 18Aе5шЖ -55 MINUS -24 =Aп5ЄЖ -31A╕5№Ж 31A┬6Ж -27A╦6Ж 27A╒6Ж -34Aъ6LЖ 100 MINUS 89 =Aє6VЖ 11A№6`Ж 13B6jЖ 8B
6tЖ 16B6~Ж 14B%6И:Г***** 30B<6░Ж 180 MINUS -635 =BF6║Ж 815BQ6─Ж -815B[6╬Ж 455Bf6╪Ж -455Bp6тЖ 805BЖ7Ж 421 MINUS 725 =BС7Ж -304BЫ7(Ж 304Bе72Ж 312B░7<Ж -312B╗7FЖ -308B╥7xЖ 907 MINUS -336 =B▌7ВЖ 1243Bщ7МЖ -1243BЇ7ЦЖ 1233C7аЖ -1233C7кЖ 1313C"7▄Ж 476 MINUS -827 =C-7цЖ 1303C97ЁЖ -1303CD7·Ж 1285CP8Ж -1285C[8Ж 1380Cq8@Ж 308 MINUS 805 =C|8JЖ -497CЖ8TЖ 497CС8^Ж -490CЫ8hЖ 490Cе8rЖ 506C╝8дЖ -239 MINUS 615 =C╟8оЖ -854C╤8╕Ж 854C█8┬Ж 376Cц8╠Ж -376Cё8╓Ж -856D9Ж 190 MINUS 371 =D9Ж -181D9Ж 181D'9&Ж -187D190Ж 187D<9:Ж -177DR9lЖ 378 MINUS 740 =D]9vЖ -362Dg9АЖ 362Dr9КЖ -368D|9ФЖ 368DЖ9ЮЖ 371DЭ9╨Ж -460 MINUS 215 =Dи9┌Ж -675D▓9фЖ 675D╝9юЖ 245D╟9°Ж -245D╥:Ж -671Dч:4Ж 275 MINUS 79 =Dё:>Ж 196D√:HЖ 189E:RЖ 193E:\Ж 188E:fЖ 200E(:p:Г***** 40E>:ШЖ 325 MINUS 781 =EI:вЖ -456ES:мЖ 456E^:╢Ж -464Eh:└Ж 464Es:╩Ж -454EЙ:№Ж 678 MINUS 956 =EФ;Ж -278EЮ;Ж 284Eи;Ж 278E│;$Ж -284E╛;.Ж -282E╘;`Ж 381 MINUS 793 =E▀;jЖ -412Eщ;tЖ 412EЇ;~Ж -421E■;ИЖ 421F;ТЖ 404F;─Ж 193 MINUS 975 =F);╬Ж -782F3;╪Ж 782F>;тЖ -786FH;ьЖ 786FS;ЎЖ -776Fi<(Ж 564 MINUS 914 =Ft<2Ж -350F~<<Ж 350FЙ<FЖ -348FУ<PЖ 348FЭ<ZЖ 357F│<МЖ 734 MINUS 490 =F╜<ЦЖ 244F╟<аЖ 245F╤<кЖ 240F█<┤Ж 250Fх<╛Ж 246F√<ЁЖ -985 MINUS 22 =G<·Ж -1007G=Ж -963G=Ж 1007G'=Ж 963G3="Ж -1009GJ=TЖ 736 MINUS -689 =GU=^Ж 1425Ga=hЖ -1425Gj=rЖ 47Gt=|Ж -47G=ЖЖ 1435GХ=╕Ж 639 MINUS 111 =GЯ=┬Ж 528Gй=╠Ж 531G│=╓Ж 537G╜=рЖ 526G╟=ъЖ 532G▌>Ж 328 MINUS 317 =Gц>&Ж 11Gю>0Ж 1Gў>:Ж 21H>DЖ 14H	>NЖ 15H>X:Г***** 50H.>АЖ 981 MINUS 819 =H8>КЖ 162HB>ФЖ 169HL>ЮЖ 163HV>иЖ 160H`>▓Ж 158Ht>фЖ 346 MINUS 7 =H~>юЖ 339HИ>°Ж 347HТ?Ж 335HЬ?Ж 331Hж?Ж 346H╝?HЖ 391 MINUS 581 =H╟?RЖ -190H╤?\Ж 190H▄?fЖ -186Hц?pЖ 186Hё?zЖ -197I?мЖ 231 MINUS 251 =I?╢Ж -20I?└Ж 20I$?╩Ж -22I-?╘Ж 22I7?▐Ж -21IM@Ж 498 MINUS 406 =IV@Ж 92I_@$Ж 95Ih@.Ж 97Iq@8Ж 96Iz@BЖ 88IС@tЖ 793 MINUS -989 =IЬ@~Ж 1782Iи@ИЖ -1782I▓@ТЖ 196I╜@ЬЖ -196I╚@жЖ 1792I▐@╪Ж 393 MINUS 279 =Iш@тЖ 114IЄ@ьЖ 108I№@ЎЖ 112JAЖ 124JA
Ж 122J&A<Ж 860 MINUS 820 =J/AFЖ 40J8APЖ 44JAAZЖ 42JJAdЖ 35JSAnЖ 37JjAаЖ -709 MINUS 188 =JuAкЖ -897JA┤Ж 897JЙA╛Ж 521JФA╚Ж -521JЯA╥Ж -895J╡BЖ 796 MINUS 847 =J┐BЖ -51J╚BЖ 51J╥B"Ж -49J█B,Ж 49JхB6Ж -54JЇB@:Г***** 60K
BhЖ 4872 MINUS -3125 =KBrЖ 7997K$B|Ж -7997K/BЖЖ 1747K;BРЖ -1747KFBЪЖ 7999K^B╠Ж 280 MINUS -1272 =KiB╓Ж 1552KuBрЖ -1552KBъЖ 992KКBЇЖ -992KХB■Ж 1554KнC0Ж 1662 MINUS 5812 =K╣C:Ж -4150K─CDЖ 4150K╨CNЖ -4070K█CXЖ 4070KчCbЖ -4188K CФЖ 6130 MINUS 6568 =L
CЮЖ -438LCиЖ 438LC▓Ж -442L)C╝Ж 442L4C╞Ж -430LMC°Ж -4251 MINUS 5863 =L]DЖ "-10,114"LlDЖ "10,114"LwDЖ 1612LГD Ж -1612LУD*Ж "-10,112"LлD\Ж 3129 MINUS 3403 =L╢DfЖ -274L└DpЖ 274L╦DzЖ -276L╒DДЖ 276LрDОЖ -283LўD└Ж 723 MINUS 6564 =MD╩Ж -5841MD╘Ж 5841MD▐Ж -5891M%DшЖ 5891M0DЄЖ 5884MHE$Ж 7945 MINUS 8287 =MSE.Ж -342M]E8Ж 342MhEBЖ -340MrELЖ 340M|EVЖ 341MУEИЖ 129 MINUS 9729 =MЯEТЖ -9600MкEЬЖ 9620M╢EжЖ -9630M┴E░Ж 9630M╠E║Ж 9640MтEьЖ 4403 MINUS 12 =MэEЎЖ 4391M°FЖ 4401NF
Ж 4387NFЖ 4474NFЖ 4386N(F(:Г***** 70N@FPЖ 4556 MINUS 9828 =NLFZЖ -5272NWFdЖ 5272NcFnЖ -5262NnFxЖ 5262NzFВЖ -5240NТF┤Ж 9932 MINUS 1798 =NЭF╛Ж 8134NиF╚Ж 8112N│F╥Ж 8101N╛F▄Ж 8193N╔FцЖ 8162NсGЖ 9946 MINUS 4059 =NьG"Ж 5887NўG,Ж 5877OG6Ж 5965O
G@Ж 5900OGJЖ 5938O/G|Ж 756 MINUS 9697 =O;GЖЖ -8941OFGРЖ 8941OUGЪЖ "10,453"OeGдЖ "-10,453"OpGоЖ 8943OЙGрЖ -5670 MINUS 9071 =OЩGъЖ "-14,741"OиGЇЖ "14,741"O│G■Ж 3401O┐HЖ -3401O╬HЖ "14,299"OцHDЖ 5845 MINUS 7233 =OЄHNЖ -1388O¤HXЖ 1388P	HbЖ -1308PHlЖ 1308P HvЖ -1323P8HиЖ 2843 MINUS 3637 =PCH▓Ж -794PMH╝Ж 794PXH╞Ж -786PbH╨Ж 786PmH┌Ж -802PЕIЖ 9604 MINUS 6310 =PРIЖ 3294PЫI Ж 3264PжI*Ж 3242P▒I4Ж 3373P╝I>Ж 3246P╘IpЖ 1399 MINUS 7699 =PрIzЖ -6300PыIДЖ 6300PўIОЖ -6301QIШЖ 6301QIвЖ -6337Q'I╘Ж -3325 MINUS 4352 =Q3I▐Ж -7677Q>IшЖ 7677QIIЄЖ 1027QUI№Ж -1027QaJЖ -7675QpJ:Г***** 80QИJ8Ж 5909 MINUS 7642 =QФJBЖ -1733QЯJLЖ 1733QлJVЖ -1673Q╢J`Ж 1673Q┴JjЖ 1820Q┘JЬЖ 5375 MINUS 7708 =QхJжЖ -2333QЁJ░Ж 2333Q№J║Ж -2304RJ─Ж 2304RJ╬Ж 2281R)KЖ 150 MINUS 7813 =R5K
Ж -7663R@KЖ 7663RLKЖ -7662RWK(Ж 7662RcK2Ж -7570RzKdЖ 149 MINUS 1294 =RЖKnЖ -1145RСKxЖ 1145RЭKВЖ -1173RйKМЖ -1121R┤KЦЖ 1049R╦K╚Ж 430 MINUS 8300 =R╫K╥Ж -7870RтK▄Ж 7870RюKцЖ -7878R∙KЁЖ 7878SK·Ж 7952SL,Ж 5759 MINUS 4500 =S'L6Ж 1259S2L@Ж 1346S=LJЖ 1199SHLTЖ 1348SSL^Ж 1219SmLРЖ -7654 MINUS -8953 =SxLЪЖ 1299SДLдЖ -1299SФLоЖ "-16,607"SгL╕Ж "16,607"SоL┬Ж 1297S┼LЇЖ 482 MINUS 3328 =S╤L■Ж -2846S▄MЖ 2846SшMЖ -2886SєMЖ 2886S M&Ж -2822TMXЖ 8146 MINUS 9655 =T#MbЖ -1509T.MlЖ 1509T:MvЖ -1508TEMАЖ 1508TQMКЖ -1571TjM╝Ж 7956 MINUS -8800 =TyM╞Ж "16,756"TЙM╨Ж "-16,756"TУM┌Ж 844TЮMфЖ -844TнMюЖ "16,754"T╝M°:Г***** 90T╚N :Г*****T╨N*:Г*TщN4:Г* END OF DATA LISTTёN>:Г*T¤NH:Г*****U	kl:Г*****Ukv:Г*U3kА:Г* STANDARD BASIC QUIZ GAMESURkК:Г* INITIALIZATION ROUTINEUZkФ:Г*UfkЮ:Г*****Ulk╨ЮUrk┌ЗUПkфЗ "  LOADING THE SYSTEM"UеkюЗ "  PLEASE WAIT"Uлk°ЗU╞l:ГRANDOMIZATION ARRAYSU╥lМ R1(5)U▐lМ R2(4)Uъl М RR(4)Vl*:ГSCRAMBLE CODES ARRAYVl4М S(24,4)V4l>:ГRANDOMIZE THE RND FUNCTIONVDlHR │  Д(м Я)VhlШ:ГINITIALIZE THE SCRAMBLE CODESVwlвS(0,0) │ 0VЖlмS(0,1) │ 1VХl╢S(0,2) │ 2Vдl└S(0,3) │ 3V│l╩S(1,0) │ 0V┬l╘S(1,1) │ 1V╤l▐S(1,2) │ 3VрlшS(1,3) │ 2VяlЄS(2,0) │ 0V■l№S(2,1) │ 2W
mS(2,2) │ 1WmS(2,3) │ 3W+mS(3,0) │ 0W:m$S(3,1) │ 2WIm.S(3,2) │ 3WXm8S(3,3) │ 1WgmBS(4,0) │ 0WvmLS(4,1) │ 3WЕmVS(4,2) │ 1WФm`S(4,3) │ 2WгmjS(5,0) │ 0W▓mtS(5,1) │ 3W┴m~S(5,2) │ 2W╨mИS(5,3) │ 1W▀mТS(6,0) │ 1WюmЬS(6,1) │ 0W¤mжS(6,2) │ 2Xm░S(6,3) │ 3Xm║S(7,0) │ 1X*m─S(7,1) │ 0X9m╬S(7,2) │ 3XHm╪S(7,3) │ 2XWmтS(8,0) │ 1XfmьS(8,1) │ 2XumЎS(8,2) │ 0XДnS(8,3) │ 3XУn
S(9,0) │ 1XвnS(9,1) │ 2X▒nS(9,2) │ 3X└n(S(9,3) │ 0X╨n2S(10,0) │ 1Xрn<S(10,1) │ 3XЁnFS(10,2) │ 0YnPS(10,3) │ 2YnZS(11,0) │ 1Y ndS(11,1) │ 3Y0nnS(11,2) │ 2Y@nxS(11,3) │ 0YPnВS(12,0) │ 2Y`nМS(12,1) │ 0YpnЦS(12,2) │ 1YАnаS(12,3) │ 3YРnкS(13,0) │ 2Yаn┤S(13,1) │ 0Y░n╛S(13,2) │ 3Y└n╚S(13,3) │ 1Y╨n╥S(14,0) │ 2Yрn▄S(14,1) │ 1YЁnцS(14,2) │ 0ZnЁS(14,3) │ 3Zn·S(15,0) │ 2Z oS(15,1) │ 1Z0oS(15,2) │ 3Z@oS(15,3) │ 0ZPo"S(16,0) │ 2Z`o,S(16,1) │ 3Zpo6S(16,2) │ 0ZАo@S(16,3) │ 1ZРoJS(17,0) │ 2ZаoTS(17,1) │ 3Z░o^S(17,2) │ 1Z└ohS(17,3) │ 0Z╨orS(18,0) │ 3Zрo|S(18,1) │ 0ZЁoЖS(18,2) │ 1[oРS(18,3) │ 2[oЪS(19,0) │ 3[ oдS(19,1) │ 0[0oоS(19,2) │ 2[@o╕S(19,3) │ 1[Po┬S(20,0) │ 3[`o╠S(20,1) │ 1[po╓S(20,2) │ 0[АoрS(20,3) │ 2[РoъS(21,0) │ 3[аoЇS(21,1) │ 1[░o■S(21,2) │ 2[└pS(21,3) │ 0[╨pS(22,0) │ 3[рpS(22,1) │ 2[Ёp&S(22,2) │ 0\p0S(22,3) │ 1\p:S(23,0) │ 3\ pDS(23,1) │ 2\0pNS(23,2) │ 1\@pXS(23,3) │ 0\FpbР\Rpl:Г*****\Zpv:Г*\upА:Г* END INITIALIZATION\}pК:Г*\ЙpФ:Г*****\Хs<:Г*****\ЭsF:Г*\║sP:Г* DISPLAY THE STANDARD\╙sZ:Г* BASIC QUIZ GAMES\щsd:Г* SPLASH SCREEN\ёsn:Г*\¤sx:Г*****]sаЮ]'sк:ГLINES 0 AND 1 ARE BLANK GREEN]Ms┤:ГDISPLAY UNIFORM STANDARD LINE 2]hs╛SD$ │  Л(32) л  Л(158)]ys╚А I │ 0 е 27]Сs╥SD$ │ SD$ л  Л(156)]Щs▄Л I]║sцSD$ │ SD$ л  Л(157) л  Л(32)]╚sЁЗ@64, SD$]юs·:ГDISPLAY UNIFORM STANDARD LINE 3^tSD$ │  Л(32) л  Л(154) л  Л(206)^$tА I │ 0 е 25^<tSD$ │ SD$ л  Л(204)^Dt"Л I^ot,SD$ │ SD$ л  Л(205) л  Л(149) л  Л(32)^}t6З@96, SD$^гt@:ГDISPLAY UNIFORM STANDARD LINE 4^╚tJSD$ │  Л(32) л  Л(154) л  Л(202)^┘tTА I │ 0 е 25^Ёt^SD$ │ SD$ л  Л(32)^°thЛ I_#trSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)_2t|З@128, SD$_YtЖ:ГDISPLAY SPECIFIC STANDARD LINE 5_~tРSD$ │  Л(32) л  Л(154) л  Л(202)_зtЪ:Г *** CHANGE NEXT LINE AS REQUIRED:_╘tдSD$ │ SD$ л "   ADVANCED SUBTRACTION   "_ tоSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)`t╕З@160, SD$`5t┬:ГDISPLAY SPECIFIC STANDARD LINE 6`Zt╠SD$ │  Л(32) л  Л(154) л  Л(202)`Гt╓:Г *** CHANGE NEXT LINE AS REQUIRED:`░tрSD$ │ SD$ л "        QUIZ GAME         "`█tъSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)`ъtЇЗ@192, SD$at■:ГDISPLAY UNIFORM STANDARD LINE 7a5uSD$ │  Л(32) л  Л(154) л  Л(202)aFuА I │ 0 е 25a]uSD$ │ SD$ л  Л(32)aeu&Л IaРu0SD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)aЯu:З@224, SD$a┼uD:ГDISPLAY UNIFORM STANDARD LINE 8aъuNSD$ │  Л(32) л  Л(154) л  Л(203)a√uXА I │ 0 е 25bubSD$ │ SD$ л  Л(195)bulЛ IbFuvSD$ │ SD$ л  Л(199) л  Л(149) л  Л(32)bUuАЗ@256, SD$b{uК:ГDISPLAY UNIFORM STANDARD LINE 9bЦuФSD$ │  Л(32) л  Л(155)bзuЮА I │ 0 е 27b┐uиSD$ │ SD$ л  Л(147)b╟u▓Л Ibшu╝SD$ │ SD$ л  Л(151) л  Л(32)bўu╞З@288, SD$cu╨:ГLINE 10 IS BLANK GREENc;u┌:ГDISPLAY UNIFORM STANDARD LINE 11ciuфЗ@352, "   PRESS ANY KEY  TO CONTINUE   "cПuю:ГLINES 12 AND 13 ARE BLANK GREENc╖u°:ГDISPLAY SPECIFIC STANDARD LINE 14c▐v:Г *** CHANGE THE YEAR AS REQUIREDd
vЗ@448, "       BDS SOFTWARE  2022       ";d*v:ГLINE 15 IS BLANK GREENd6v A$ │  ТdKv*Е A$│"" Бе 30240dQv4Рd]v>:Г*****devH:Г*dmvR:Г*dyv\:Г*****d КE BLANK GREENc╖u°:ГDISPLAY SPECIFIC STANDARD LINE 14c▐v:Г *** CHANGE THE YEAR AS REQUIREDd
vЗ@448, "       BDS SOFTWARE 
15300 DATA 193 MINUS 975 =
15310 DATA -782
15320 DATA 782
15330 DATA -786
15340 DATA 786
15350 DATA -776
15400 DATA 564 MINUS 914 =
15410 DATA -350
15420 DATA 350
15430 DATA -348
15440 DATA 348
15450 DATA 357
15500 DATA 734 MINUS 490 =
15510 DATA 244
15520 DATA 245
15530 DATA 240
15540 DATA 250
15550 DATA 246
15600 DATA -985 MINUS 22 =
15610 DATA -1007
15620 DATA -963
15630 DATA 1007
15640 DATA 963
15650 DATA -1009
15700 DATA 736 MINUS -689 =
15710 DATA 1425
15720 DATA -1425
15730 DATA 47
15740 DATA -47
15750 DATA 1435
15800 DATA 639 MINUS 111 =
15810 DATA 528
15820 DATA 531
15830 DATA 537
15840 DATA 526
15850 DATA 532
15900 DATA 328 MINUS 317 =
15910 DATA 11
15920 DATA 1
15930 DATA 21
15940 DATA 14
15950 DATA 15
15960 '***** 50
16000 DATA 981 MINUS 819 =
16010 DATA 162
16020 DATA 169
16030 DATA 163
16040 DATA 160
16050 DATA 158
16100 DATA 346 MINUS 7 =
16110 DATA 339
16120 DATA 347
16130 DATA 335
16140 DATA 331
16150 DATA 346
16200 DATA 391 MINUS 581 =
16210 DATA -190
16220 DATA 190
16230 DATA -186
16240 DATA 186
16250 DATA -197
16300 DATA 231 MINUS 251 =
16310 DATA -20
16320 DATA 20
16330 DATA -22
16340 DATA 22
16350 DATA -21
16400 DATA 498 MINUS 406 =
16410 DATA 92
16420 DATA 95
16430 DATA 97
16440 DATA 96
16450 DATA 88
16500 DATA 793 MINUS -989 =
16510 DATA 1782
16520 DATA -1782
16530 DATA 196
16540 DATA -196
16550 DATA 1792
16600 DATA 393 MINUS 279 =
16610 DATA 114
16620 DATA 108
16630 DATA 112
16640 DATA 124
16650 DATA 122
16700 DATA 860 MINUS 820 =
16710 DATA 40
16720 DATA 44
16730 DATA 42
16740 DATA 35
16750 DATA 37
16800 DATA -709 MINUS 188 =
16810 DATA -897
16820 DATA 897
16830 DATA 521
16840 DATA -521
16850 DATA -895
16900 DATA 796 MINUS 847 =
16910 DATA -51
16920 DATA 51
16930 DATA -49
16940 DATA 49
16950 DATA -54
16960 '***** 60
17000 DATA 4872 MINUS -3125 =
17010 DATA 7997
17020 DATA -7997
17030 DATA 1747
17040 DATA -1747
17050 DATA 7999
17100 DATA 280 MINUS -1272 =
17110 DATA 1552
17120 DATA -1552
17130 DATA 992
17140 DATA -992
17150 DATA 1554
17200 DATA 1662 MINUS 5812 =
17210 DATA -4150
17220 DATA 4150
17230 DATA -4070
17240 DATA 4070
17250 DATA -4188
17300 DATA 6130 MINUS 6568 =
17310 DATA -438
17320 DATA 438
17330 DATA -442
17340 DATA 442
17350 DATA -430
17400 DATA -4251 MINUS 5863 =
17410 DATA "-10,114"
17420 DATA "10,114"
17430 DATA 1612
17440 DATA -1612
17450 DATA "-10,112"
17500 DATA 3129 MINUS 3403 =
17510 DATA -274
17520 DATA 274
17530 DATA -276
17540 DATA 276
17550 DATA -283
17600 DATA 723 MINUS 6564 =
17610 DATA -5841
17620 DATA 5841
17630 DATA -5891
17640 DATA 5891
17650 DATA 5884
17700 DATA 7945 MINUS 8287 =
17710 DATA -342
17720 DATA 342
17730 DATA -340
17740 DATA 340
17750 DATA 341
17800 DATA 129 MINUS 9729 =
17810 DATA -9600
17820 DATA 9620
17830 DATA -9630
17840 DATA 9630
17850 DATA 9640
17900 DATA 4403 MINUS 12 =
17910 DATA 4391
17920 DATA 4401
17930 DATA 4387
17940 DATA 4474
17950 DATA 4386
17960 '***** 70
18000 DATA 4556 MINUS 9828 =
18010 DATA -5272
18020 DATA 5272
18030 DATA -5262
18040 DATA 5262
18050 DATA -5240
18100 DATA 9932 MINUS 1798 =
18110 DATA 8134
18120 DATA 8112
18130 DATA 8101
18140 DATA 8193
18150 DATA 8162
18200 DATA 9946 MINUS 4059 =
18210 DATA 5887
18220 DATA 5877
18230 DATA 5965
18240 DATA 5900
18250 DATA 5938
18300 DATA 756 MINUS 9697 =
18310 DATA -8941
18320 DATA 8941
18330 DATA "10,453"
18340 DATA "-10,453"
18350 DATA 8943
18400 DATA -5670 MINUS 9071 =
18410 DATA "-14,741"
18420 DATA "14,741"
18430 DATA 3401
18440 DATA -3401
18450 DATA "14,299"
18500 DATA 5845 MINUS 7233 =
18510 DATA -1388
18520 DATA 1388
18530 DATA -1308
18540 DATA 1308
18550 DATA -1323
18600 DATA 2843 MINUS 3637 =
18610 DATA -794
18620 DATA 794
18630 DATA -786
18640 DATA 786
18650 DATA -802
18700 DATA 9604 MINUS 6310 =
18710 DATA 3294
18720 DATA 3264
18730 DATA 3242
18740 DATA 3373
18750 DATA 3246
18800 DATA 1399 MINUS 7699 =
18810 DATA -6300
18820 DATA 6300
18830 DATA -6301
18840 DATA 6301
18850 DATA -6337
18900 DATA -3325 MINUS 4352 =
18910 DATA -7677
18920 DATA 7677
18930 DATA 1027
18940 DATA -1027
18950 DATA -7675
18960 '***** 80
19000 DATA 5909 MINUS 7642 =
19010 DATA -1733
19020 DATA 1733
19030 DATA -1673
19040 DATA 1673
19050 DATA 1820
19100 DATA 5375 MINUS 7708 =
19110 DATA -2333
19120 DATA 2333
19130 DATA -2304
19140 DATA 2304
19150 DATA 2281
19200 DATA 150 MINUS 7813 =
19210 DATA -7663
19220 DATA 7663
19230 DATA -7662
19240 DATA 7662
19250 DATA -7570
19300 DATA 149 MINUS 1294 =
19310 DATA -1145
19320 DATA 1145
19330 DATA -1173
19340 DATA -1121
19350 DATA 1049
19400 DATA 430 MINUS 8300 =
19410 DATA -7870
19420 DATA 7870
19430 DATA -7878
19440 DATA 7878
19450 DATA 7952
19500 DATA 5759 MINUS 4500 =
19510 DATA 1259
19520 DATA 1346
19530 DATA 1199
19540 DATA 1348
19550 DATA 1219
19600 DATA -7654 MINUS -8953 =
19610 DATA 1299
19620 DATA -1299
19630 DATA "-16,607"
19640 DATA "16,607"
19650 DATA 1297
19700 DATA 482 MINUS 3328 =
19710 DATA -2846
19720 DATA 2846
19730 DATA -2886
19740 DATA 2886
19750 DATA -2822
19800 DATA 8146 MINUS 9655 =
19810 DATA -1509
19820 DATA 1509
19830 DATA -1508
19840 DATA 1508
19850 DATA -1571
19900 DATA 7956 MINUS -8800 =
19910 DATA "16,756"
19920 DATA "-16,756"
19930 DATA 844
19940 DATA -844
19950 DATA "16,754"
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$ + "   ADVANCED SUBTRACTION   "
29870 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
29880 PRINT@160, SD$
29890 'DISPLAY SPECIFIC STANDARD LINE 6
29900 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
29910 ' *** CHANGE NEXT LINE AS REQUIRED:
29920 SD$ = SD$ + "        QUIZ GAME         "
29930 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
29940 PRINT@192, SD$
29950 'DISPLAY UNIFORM STANDARD LINE 7
29960 SD$ = CHR$(32) + CHR$(154) + CHR$(202)
29970 FOR I = 0 TO 25
29980 SD$ = SD$ + CHR$(32)
29990 NEXT I
30000 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32)
30010 PRINT@224, SD$
30020 'DISPLAY UNIFORM STANDARD LINE 8
30030 SD$ = CHR$(32) + CHR$(154) + CHR$(203)
30040 FOR I = 0 TO 25
30050 SD$ = SD$ + CHR$(195)
30060 NEXT I
30070 SD$ = SD$ + CHR$(199) + CHR$(149) + CHR$(32)
30080 PRINT@256, SD$
30090 'DISPLAY UNIFORM STANDARD LINE 9
30100 SD$ = CHR$(32) + CHR$(155)
30110 FOR I = 0 TO 27
30120 SD$ = SD$ + CHR$(147)
30130 NEXT I
30140 SD$ = SD$ + CHR$(151) + CHR$(32)
30150 PRINT@288, SD$
30160 'LINE 10 IS BLANK GREEN
30170 'DISPLAY UNIFORM STANDARD LINE 11
30180 PRINT@352, "   PRESS ANY KEY  TO CONTINUE   "
30190 'LINES 12 AND 13 ARE BLANK GREEN
30200 'DISPLAY SPECIFIC STANDARD LINE 14
30210 ' *** CHANGE THE YEAR AS REQUIRED
30220 PRINT@448, "       BDS SOFTWARE  2022       ";
30230 'LINE 15 IS BLANK GREEN
30240 A$ = INKEY$
30250 IF A$="" GOTO 30240
30260 RETURN
30270 '*****
30280 '*
30290 '*
30300 '*****
32767 END
IFIC STANDARD LINE 14
30210 ' *** CHANGE THE YEAR AS REQUIRED
30220 PRINT@448, "       BDS SOFTWARE  2022       ";
30230 'LINE 15 IS BLANK GREEN
30240 A$ = INKEY$
30250 IF A$=""