0 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  ADDITION    "
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$="" GOTO 30240
30260 RETURN
3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
17420 DATA 9578
17430 DATA 9550
17440 DATA 9674
17450 DATA 9576
17500 DATA 9817 PLUS 359 =
17510 DATA "10,176"
17520 DATA 9272
17530 DATA 9296
17540 DATA 9729
17550 DATA 9246
17600 DATA 7061 PLUS 1945 =
17610 DATA 9006
17620 DATA 9092
17630 DATA 8951
17640 DATA 9099
17650 DATA 9044
17700 DATA 9989 PLUS 7445 =
17710 DATA "17,434"
17720 DATA "18,350"
17730 DATA "17,315"
17740 DATA "17,081"
17750 DATA "17,323"
17800 DATA 9558 PLUS 9910 =
17810 DATA "19,468"
17820 DATA "20,377"
17830 DATA "19,553"
17840 DATA "19,757"
17850 DATA "18,778"
17900 DATA 8522 PLUS 278 =
17910 DATA 8800
17920 DATA 8855
17930 DATA 8895
17940 DATA 8725
17950 DATA 8832
17960 '***** 70
18000 DATA 6294 PLUS 1176 =
18010 DATA 7470
18020 DATA 7442
18030 DATA 7423
18040 DATA 7566
18050 DATA 7520
18100 DATA 7845 PLUS 7079 =
18110 DATA "14,924"
18120 DATA "14,921"
18130 DATA "15,620"
18140 DATA "14,827"
18150 DATA "15,462"
18200 DATA 8213 PLUS 8000 =
18210 DATA "16,213"
18220 DATA "15,491"
18230 DATA "16,209"
18240 DATA "17,015"
18250 DATA "15,228"
18300 DATA 9182 PLUS 8899 =
18310 DATA "18,081"
18320 DATA "18,080"
18330 DATA "17,231"
18340 DATA "18,679"
18350 DATA "18,928"
18400 DATA 9684 PLUS 2010 =
18410 DATA "11,694"
18420 DATA "11,351"
18430 DATA "11,175"
18440 DATA "11,486"
18450 DATA "10,932"
18500 DATA 6502 PLUS 4262 =
18510 DATA "10,764"
18520 DATA "11,188"
18530 DATA "11,462"
18540 DATA "10,037"
18550 DATA "10,779"
18600 DATA 6823 PLUS 6981 =
18610 DATA "13,804"
18620 DATA "14,011"
18630 DATA "14,733"
18640 DATA "13,132"
18650 DATA "13,376"
18700 DATA 9212 PLUS 72 =
18710 DATA 9284
18720 DATA 9378
18730 DATA 9189
18740 DATA 9375
18750 DATA 9270
18800 DATA 4564 PLUS -7855 =
18810 DATA -3291
18820 DATA -3389
18830 DATA -3202
18840 DATA -3246
18850 DATA -3314
18900 DATA 3601 PLUS 8754 =
18910 DATA "12,355"
18920 DATA "12,941"
18930 DATA "12,705"
18940 DATA "12,239"
18950 DATA "12,618"
18960 '***** 80
19000 DATA -2476 PLUS -6016 =
19010 DATA -8492
19020 DATA -8544
19030 DATA -8452
19040 DATA -8506
19050 DATA -8425
19100 DATA 3039 PLUS 1655 =
19110 DATA 4694
19120 DATA 4645
19130 DATA 4661
19140 DATA 4641
19150 DATA 4692
19200 DATA 9340 PLUS -811 =
19210 DATA 8529
19220 DATA 8585
19230 DATA 8574
19240 DATA 8490
19250 DATA 8545
19300 DATA 6920 PLUS 8694 =
19310 DATA "15,614"
19320 DATA "15,980"
19330 DATA "16,210"
19340 DATA "15,719"
19350 DATA "15,838"
19400 DATA -6461 PLUS -7329 =
19410 DATA "-13,790"
19420 DATA "-13,526"
19430 DATA "-14,432"
19440 DATA "-14,201"
19450 DATA "-14,371"
19500 DATA 8354 PLUS 4258 =
19510 DATA "12,612"
19520 DATA "12,348"
19530 DATA "11,819"
19540 DATA "12,339"
19550 DATA "13,148"
19600 DATA 9745 PLUS 418 =
19610 DATA "10,163"
19620 DATA 9233
19630 DATA "10,976"
19640 DATA "10,881"
19650 DATA "10,173"
19700 DATA -621 PLUS 9351 =
19710 DATA 8730
19720 DATA 8741
19730 DATA 8720
19740 DATA 8701
19750 DATA 8724
19800 DATA 514 PLUS 4963 =
19810 DATA 5477
19820 DATA 5422
19830 DATA 5412
19840 DATA 5410
19850 DATA 5451
19900 DATA 2358 PLUS 9994 =
19910 DATA "12,352"
19920 DATA "11,995"
19930 DATA "13,220"
19940 DATA "11,400"
19950 DATA "13,316"
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
283980 PLUS 602 =
14710 DATA 1482
14720 DATA 1534
14730 DATA 1483
14740 DATA 1420
14750 DATA 1567
14800 DATA 940 PLUS -779 =
14810 DATA 161
14820 DATA 152
14830 DATA 162
14840 DATA 169
14850 DATA 154
14900 DATA 192 PLUS 164 =
14910 DATA 356
14920 DATA 351
14930 DATA 357
14940 DATA 359
14950 DATA 347
14960 '***** 40
15000 DATA 267 PLUS -582 =
15010 DATA -315
15020 DATA -305
15030 DATA -313
15040 DATA -324
15050 DATA -312
15100 DATA 349 PLUS 43 =
15110 DATA 392
15120 DATA 391
15130 DATA 382
15140 DATA 388
15150 DATA 401
15200 DATA 628 PLUS -112 =
15210 DATA 516
15220 DATA 506
15230 DATA 508
15240 DATA 507
15250 DATA 519
 -305
15030 DATA -313
15040 DATA -324
15050 DATA -312
15100 DATA 349 PLUS 43 =
15110 DATA 392
15120 DATA 391
15130 DATA 382
15140 DATA 388
15150 D                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
15300 DATA 972 PLUS 847 =
15310 DATA 1819
15320 DATA 1829
15330 DATA 1754
15340 DATA 1867
15350 DATA 1747
15400 DATA 960 PLUS -33 =
15410 DATA 927
15420 DATA 919
15430 DATA 918
15440 DATA 921
15450 DATA 923
15500 DATA 959 PLUS 927 =
15510 DATA 1886
15520 DATA 1878
15530 DATA 1888
15540 DATA 1935
15550 DATA 1869
15600 DATA 375 PLUS 222 =
15610 DATA 597
15620 DATA 599
15630 DATA 594
15640 DATA 601
15650 DATA 603
15700 DATA -237 PLUS 876 =
15710 DATA 639
15720 DATA 649
15730 DATA 638
15740 DATA 640
15750 DATA 636
15800 DATA -751 PLUS 473 =
15810 DATA -278
15820 DATA -270
15830 DATA -272
15840 DATA -274
15850 DATA -268
15900 DATA 865 PLUS 673 =
15910 DATA 1538
15920 DATA 1571
15930 DATA 1612
15940 DATA 1532
15950 DATA 1564
15960 '***** 50
16000 DATA 477 PLUS 228 =
16010 DATA 705
16020 DATA 697
16030 DATA 715
16040 DATA 714
16050 DATA 708
16100 DATA 889 PLUS -25 =
16110 DATA 864
16120 DATA 862
16130 DATA 871
16140 DATA 856
16150 DATA 866
16200 DATA 973 PLUS -828 =
16210 DATA 145
16220 DATA 136
16230 DATA 144
16240 DATA 135
16250 DATA 152
16300 DATA 823 PLUS -712 =
16310 DATA 111
16320 DATA 109
16330 DATA 119
16340 DATA 105
16350 DATA 120
16400 DATA -679 PLUS -763 =
16410 DATA -1442
16420 DATA -1481
16430 DATA -1375
16440 DATA -1461
16450 DATA -1523
16500 DATA 298 PLUS 743 =
16510 DATA 1041
16520 DATA 979
16530 DATA 995
16540 DATA 1016
16550 DATA 1021
16600 DATA 406 PLUS 972 =
16610 DATA 1378
16620 DATA 1383
16630 DATA 1293
16640 DATA 1374
16650 DATA 1424
16700 DATA 405 PLUS -104 =
16710 DATA 301
16720 DATA 294
16730 DATA 297
16740 DATA 292
16750 DATA 298
16800 DATA 982 PLUS 56 =
16810 DATA 1038
16820 DATA 1104
16830 DATA 1040
16840 DATA 1076
16850 DATA 985
16900 DATA 776 PLUS 781 =
16910 DATA 1557
16920 DATA 1511
16930 DATA 1650
16940 DATA 1469
16950 DATA 1619
16960 '***** 60
17000 DATA 7250 PLUS 2602 =
17010 DATA 9852
17020 DATA 9857
17030 DATA 9778
17040 DATA 9829
17050 DATA 9855
17100 DATA 6410 PLUS 542 =
17110 DATA 6952
17120 DATA 7039
17130 DATA 6852
17140 DATA 7032
17150 DATA 6922
17200 DATA 9475 PLUS 851 =
17210 DATA "10,326"
17220 DATA 9680
17230 DATA "10,021"
17240 DATA 9986
17250 DATA 9738
17300 DATA 9180 PLUS 5220 =
17310 DATA "14,400"
17320 DATA "14,632"
17330 DATA "14,866"
17340 DATA "13,815"
17350 DATA "14,639"
17400 DATA 1717 PLUS 7870 =
17410 DATA 9587RINT "   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 27 PLUS 86 =
11010 DATA 113
11020 DATA 116
11030 DATA 104
11040 DATA 111
11050 DATA 114
11100 DATA 32 PLUS 58 =
11110 DATA 90
11120 DATA 89
11130 DATA 92
11140 DATA 91
11150 DATA 85
11200 DATA 45 PLUS 55 =
11210 DATA 100
11220 DATA 98
11230 DATA 96
11240 DATA 102
11250 DATA 95
11300 DATA 17 PLUS 38 =
11310 DATA 55
11320 DATA 57
11330 DATA 52
11340 DATA 59
11350 DATA 58
11400 DATA 99 PLUS 45 =
11410 DATA 144
11420 DATA 142
11430 DATA 149
11440 DATA 140
11450 DATA 146
11500 DATA 42 PLUS 79 =
11510 DATA 121
11520 DATA 124
11530 DATA 114
11540 DATA 111
11550 DATA 127
11600 DATA 79 PLUS 25 =
11610 DATA 104
11620 DATA 108
11630 DATA 107
11640 DATA 95
11650 DATA 114
11700 DATA 2 PLUS -11 =
11710 DATA -9
11720 DATA -7
11730 DATA -13
11740 DATA -11
11750 DATA -5
11800 DATA 39 PLUS 48 =
11810 DATA 87
11820 DATA 90
11830 DATA 88
11840 DATA 86
11850 DATA 89
11900 DATA 34 PLUS 51 =
11910 DATA 85
11920 DATA 82
11930 DATA 81
11940 DATA 80
11950 DATA 88
11960 '***** 10
12000 DATA 53 PLUS 43 =
12010 DATA 96
12020 DATA 93
12030 DATA 99
12040 DATA 101
12050 DATA 95
12100 DATA 23 PLUS 37 =
12110 DATA 60
12120 DATA 64
12130 DATA 55
12140 DATA 56
12150 DATA 57
12200 DATA 58 PLUS 38 =
12210 DATA 96
12220 DATA 99
12230 DATA 95
12240 DATA 91
12250 DATA 93
12300 DATA 64 PLUS 83 =
12310 DATA 147
12320 DATA 145
12330 DATA 154
12340 DATA 157
12350 DATA 141
12400 DATA 64 PLUS 91 =
12410 DATA 155
12420 DATA 164
12430 DATA 163
12440 DATA 149
12450 DATA 157
12500 DATA 54 PLUS 52 =
12510 DATA 106
12520 DATA 107
12530 DATA 111
12540 DATA 115
12550 DATA 109
12600 DATA -9 PLUS 6 =
12610 DATA -3
12620 DATA -1
12630 DATA 1
12640 DATA 0
12650 DATA -7
12700 DATA 6 PLUS 33 =
12710 DATA 39
12720 DATA 41
12730 DATA 35
12740 DATA 38
12750 DATA 43
12800 DATA -38 PLUS 2 =
12810 DATA -36
12820 DATA -40
12830 DATA -35
12840 DATA -37
12850 DATA -34
12900 DATA 19 PLUS 24 =
12910 DATA 43
12920 DATA 38
12930 DATA 41
12940 DATA 46
12950 DATA 48
12960 '***** 20
13000 DATA 63 PLUS 53 =
13010 DATA 116
13020 DATA 122
13030 DATA 115
13040 DATA 112
13050 DATA 118
13100 DATA 38 PLUS 90 =
13110 DATA 128
13120 DATA 118
13130 DATA 120
13140 DATA 126
13150 DATA 133
13200 DATA 68 PLUS 24 =
13210 DATA 92
13220 DATA 91
13230 DATA 90
13240 DATA 96
13250 DATA 93
13300 DATA 1 PLUS -74 =
13310 DATA -73
13320 DATA -70
13330 DATA -74
13340 DATA -69
13350 DATA -77
13400 DATA 98 PLUS 62 =
13410 DATA 160
13420 DATA 162
13430 DATA 159
13440 DATA 154
13450 DATA 150
13500 DATA -71 PLUS 76 =
13510 DATA 5
13520 DATA 7
13530 DATA 6
13540 DATA 9
13550 DATA 0
13600 DATA -32 PLUS -62 =
13610 DATA -94
13620 DATA -93
13630 DATA -89
13640 DATA -91
13650 DATA -98
13700 DATA 58 PLUS 96 =
13710 DATA 154
13720 DATA 163
13730 DATA 152
13740 DATA 145
13750 DATA 162
13800 DATA -55 PLUS 83 =
13810 DATA 28
13820 DATA 27
13830 DATA 24
13840 DATA 33
13850 DATA 23
13900 DATA 25 PLUS 32 =
13910 DATA 57
13920 DATA 60
13930 DATA 58
13940 DATA 56
13950 DATA 61
13960 '***** 30
14000 DATA 250 PLUS 62 =
14010 DATA 312
14020 DATA 303
14030 DATA 316
14040 DATA 302
14050 DATA 310
14100 DATA 741 PLUS 610 =
14110 DATA 1351
14120 DATA 1367
14130 DATA 1423
14140 DATA 1484
14150 DATA 1312
14200 DATA 64 PLUS 875 =
14210 DATA 939
14220 DATA 945
14230 DATA 949
14240 DATA 941
14250 DATA 932
14300 DATA 179 PLUS 591 =
14310 DATA 770
14320 DATA 767
14330 DATA 766
14340 DATA 778
14350 DATA 775
14400 DATA -395 PLUS 738 =
14410 DATA 343
14420 DATA 336
14430 DATA 338
14440 DATA 349
14450 DATA 351
14500 DATA 670 PLUS 38 =
14510 DATA 708
14520 DATA 700
14530 DATA 698
14540 DATA 707
14550 DATA 709
14600 DATA 52 PLUS 978 =
14610 DATA 1030
14620 DATA 1116
14630 DATA 1063
14640 DATA 1025
14650 DATA 1067
14700 DATA 8
100 '*****
101 '*
102 '* ADVADD.BAS
103 '* MDJ 2022/01/12
104 '*
105 '* A QUIZ TO TEST
106 '* KNOWLEDGE OF
107 '* ADVANCED ADDITION
108 '*
109 '*****
110 'GO TO THE PROGRAM'S
120 'EXECUTIVE ROUTINE
130 GOTO 4220
131 ' HEADER 00100
132 ' SELECT 00200
133 ' EXEC   04000
134 ' MAIN   05000
135 ' DATA   10500
136 ' INIT   27500
137 ' SPLASH 29500
200 '*****
210 '* 
220 '* SELECTION SUBROUTINE:
230 '*
240 '* THIS ROUTINE IS UNIFORM
250 '* AND REMAINS THE SAME FOR
260 '* EACH AND EVERY QUIZ GAME
270 '*
280 '*****
290 'RANDOM SELECTION OF
300 'FOUR OF FIVE.
310 ' SELECTS FOUR ENTRIES
320 ' FROM FIVE POSSIBILITIES.
330 '  INPUTS:
340 '   NONE
350 '  OUTPUTS (GLOBAL)
360 '   RR(4) = THE SELECTED FOUR
370 '   RP    = POSITION OF "0" ENTRY
380 '            (0, 1, 2, OR 3)
390 '         = 4 IF "0" ENTRY 
400 '            NOT INCLUDED
490 ' INITIALIZATION
500 FOR I = 0 TO 4
510 R1(I) = I
520 NEXT I
530 RP = 4
540 'FIRST PASS
550 R = RND(5) - 1
560 J = -1
570 FOR I = 0 TO 4
580 IF R = I GOTO 610
590 J = J + 1
600 R2(J) = R1(I)
610 NEXT I
620 'SCRAMBLE PASS
630 J = RND(24) - 1
640 FOR I = 0 TO 3
650 RR(I) = R2(S(J,I))
660 NEXT I
670 'POSITION PASS
680 FOR I = 0 TO 3
690 IF RR(I) <> 0 GOTO 710
700 RP = I
710 NEXT I
720 RETURN
730 '*****
740 '*
750 '* ENDSUB
760 '*
770 '*****
4000 '*****
4010 '*
4020 '* EXECUTIVE 
4030 '*
4040 '*****
4050 'VARIABLES LIST
4060 ' I, J = INDEXES AND COUNTERS
4070 ' A = RESPONSE CODE
4080 ' A$ = KEY PRESS
4090 ' N = NUMBER OF QUESTIONS 
4100 ' Q$ = QUESTION
4110 ' QA$ = QUESTION ANSWERS ARRAY
4120 ' QD$ = QUESTIONS DATA ARRAY
4130 ' QN  = QUESTION NUMBER
4140 ' QT  = # OF QUESTIONS ASKED
4150 ' QC  = # OF CORRECT ANSWERS
4160 ' QP  = % CORRECT
4170 ' R, R1, R2, RR, RP 
4180 '   = RANDOMIZATION VARIABLES
4190 ' S = SCRAMBLE CODES ARRAY
4200 ' SD$ = SCREEN DISPLAY TEXT
4210 'GO DISPLAY SPLASH SCREEN
4220 GOSUB 29600
4230 'GO INITIALIZE THE SYSTEM
4240 GOSUB 27600
4250 'GO LOAD QUESTIONS DATA
4260 GOSUB 10600
4270 'GO ENTER THE MAIN ROUTINE
4280 GOTO 5110
4290 '*****
4300 '*
4310 '* END EXECUTIVE
4320 '*
4330 '*****
5000 '*****
5010 '*
5020 '* MAIN
5030 '*
5040 '*****
5050 ' QN  = QUESTION NUMBER
5060 ' Q$ = QUESTION
5070 ' QA$ = QUESTION ANSWERS ARRAY
5080 ' QT  = # OF QUESTIONS ASKED
5090 ' QC  = # OF CORRECT ANSWERS
5100 ' QP  = % CORRECT
5110 DIM QA$(4)
5120 QT = 0
5130 QC = 0
5140 QP = 0
5150 'RANDOMLY SELECT A
5160 'QUESTION
5170 'ADJUST RND FOR TOTAL
5180 'NUMBER OF QUESTIONS
5190 QN = RND(90) - 1
5200 Q$ = QD$(QN,0)
5210 'RANDOMLY SELECT AND
5220 'SCRAMBLE FOUR OF 
5230 'THE FIVE ANSWERS
5240 GOSUB 500
5250 FOR I = 0 TO 3
5260 QA$(I) = QD$(QN,RR(I)+1)
5270 NEXT I
5280 'MAIN DISPLAY SCREEN
5290 PRINT@32,"  WHAT IS THE RESULT:"
5300 PRINT@64,"  "+Q$+" ?"
5310 PRINT@128, "      A. "+QA$(0)
5320 PRINT@160, "      B. "+QA$(1)
5330 PRINT@192, "      C. "+QA$(2)
5340 PRINT@224, "      D. "+QA$(3)
5350 PRINT@256, "      E. NONE OF THE ABOVE"
5360 PRINT@320, "  PRESS A, B, C, D, OR E"
5370 PRINT@352, "                                "
5380 PRINT@384, "                                "
5390 PRINT@416, "                                "
5400 PRINT@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";
5410 A$ = INKEY$
5420 IF A$="" GOTO 5410
5430 IF (A$="A" OR A$=CHR$(97)) GOTO 5520
5440 IF (A$="B" OR A$=CHR$(98)) GOTO 5530
5450 IF (A$="C" OR A$=CHR$(99)) GOTO 5540
5460 IF (A$="D" OR A$=CHR$(100)) GOTO 5550
5470 IF (A$="E" OR A$=CHR$(101)) GOTO 5560
5480 SOUND 159,2
5490 SOUND 159,2
5500 PRINT@320, "  YOU MUST PRESS ONE OF A TO E"
5510 GOTO 5410
5520 A = 0: GOTO 5570
5530 A = 1: GOTO 5570
5540 A = 2: GOTO 5570
5550 A = 3: GOTO 5570
5560 A = 4: GOTO 5570 
5570 IF A = RP GOTO 5710
5580 SOUND 78,1
5590 SOUND 78,1
5600 SOUND 78,1
5610 SOUND 5,3
5620 PRINT@320, "    **SORRY: THAT IS INCORRECT."
5630 SD$ = "  CORRECT = "
5640 IF RP=0 THEN SD$ = SD$ + "A. "+QA$(0)
5650 IF RP=1 THEN SD$ = SD$ + "B. "+QA$(1)
5660 IF RP=2 THEN SD$ = SD$ + "C. "+QA$(2)
5670 IF RP=3 THEN SD$ = SD$ + "D. "+QA$(3)
5680 IF RP=4 THEN SD$ = SD$ + "E.NONE OF THE ABOVE"
5690 PRINT@352, SD$
5700 GOTO 5770
5710 SOUND 204,1
5720 SOUND 204,1
5730 SOUND 204,1
5740 SOUND 218,3
5750 PRINT@320, "    *** THAT IS CORRECT! ***"
5760 QC = QC + 1
5770 QT = QT + 1
5780 QP = INT(100 * (QC/QT))
5790 PRINT@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";
5800 PRINT@384, "  PRESS C TO CONTINUE;Q TO QUIT"
5810 A$ = INKEY$
5820 IF A$="" GOTO 5810
5830 IF (A$="C" OR A$=CHR$(99)) GOTO 5190
5840 IF (A$="Q" OR A$=CHR$(113)) GOTO 5890
5850 SOUND 159,2
5860 SOUND 159,2
5870 PRINT@384, "  YOU MUST PRESS C OR Q"
5880 GOTO 5810
5890 CLS
5900 PRINT:PRINT "   FINAL SCORE = ";QP;"%"
5910 PRINT:P ?A&
З@224, SD$&PЗ@256, SD$&+d:Г*****&3e:Г*&Ff:Г* ADVADD.BAS&]g:Г* MDJ 2022/01/12&eh:Г*&|i:Г* A QUIZ TO TEST&Сj:Г* KNOWLEDGE OF&лk:Г* ADVANCED ADDITION&│l:Г*&┐m:Г*****&┘n:ГGO TO THE PROGRAM'S&ёx:ГEXECUTIVE ROUTINE&¤ВБе 4220'Г:Г HEADER 00100'%Д:Г SELECT 00200'9Е:Г EXEC   04000'MЖ:Г MAIN   05000'aЗ:Г DATA   10500'uИ:Г INIT   27500'ЙЙ:Г SPLASH 29500'Х╚:Г*****'Ю╥:Г* '╝▄:Г* SELECTION SUBROUTINE:'─ц:Г*'фЁ:Г* THIS ROUTINE IS UNIFORM(·:Г* AND REMAINS THE SAME FOR(&
:Г* EACH AND EVERY QUIZ GAME(.
:Г*(:
:Г*****(T
":ГRANDOM SELECTION OF(h
,:Г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)G
|:Г            (0, 1, 2, OR 3))h
Ж:Г         = 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*-NJ │ J л 1*?XR2(J) │ R1(I)*GbЛ I*[l:ГSCRAMBLE PASS*nvJ │  Д(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+°:Г*+):Г*****+5а:Г*****+=к:Г*+P┤:Г* EXECUTIVE +X╛:Г*+d╚:Г*****+y╥:ГVARIABLES LIST+Ь▄:Г I, J = INDEXES AND COUNTERS+╡ц:Г A = RESPONSE CODE+╦Ё:Г A$ = KEY PRESS+ы·:Г N = NUMBER OF QUESTIONS ,:Г Q$ = QUESTION,$:Г QA$ = QUESTION ANSWERS ARRAY,F:Г QD$ = QUESTIONS DATA ARRAY,c":Г 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-h|Бж 29600-ЗЖ:ГGO INITIALIZE THE SYSTEM-ФРБж 27600-▒Ъ:ГGO LOAD QUESTIONS DATA-╛дБж 10600-▐о:ГGO ENTER THE MAIN ROUTINE-ъ╕Бе 5110-Ў┬:Г*****-■╠:Г*.╓:Г* END EXECUTIVE.р:Г*.(ъ:Г*****.4И:Г*****.<Т:Г*.IЬ:Г* MAIN.Qж:Г*.]░:Г*****.z║:Г QN  = QUESTION NUMBER.П─:Г Q$ = QUESTION.│╬:Г QA$ = QUESTION ANSWERS ARRAY.╒╪:Г QT  = # OF QUESTIONS ASKED.ўт:Г QC  = # OF CORRECT ANSWERS/ь:Г QP  = % CORRECT/ЎМ QA$(4)/&QT │ 0/1
QC │ 0/<QP │ 0/T:ГRANDOMLY SELECT A/c(:Г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 е 30@МQA$(I) │ QD$(QN,RR(I)л1)0HЦЛ I0bа:Г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)19цЗ@256, "      E. NONE OF THE ABOVE"1_ЁЗ@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$│"" Бе 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,23rа 159,231|З@320, "  YOU MUST PRESS ONE OF A TO E"3=ЖБе 54103PРA │ 0: Бе 55703cЪA │ 1: Бе 55703vд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 = "4IЕ RP│0 з SD$ │ SD$ л "A. "лQA$(0)4oЕ 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,15Xа 204,15)bа 204,155lа 218,35_vЗ@320, "    *** THAT IS CORRECT! ***"5oА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)) Бе 51906a╨Е (A$│"Q" ▒ A$│ Л(113)) Бе 58906m┌а 159,26yфа 159,26ЮюЗ@384, "  YOU MUST PRESS C OR Q"6к°Бе 58106░Ю6╙З:З "   FINAL SCORE = ";QP;"%"6ЇЗ:З "   THANKS FOR PLAYING!"7 З "     COME BACK SOON."7/*З:З "   M. DAVID JOHNSON"7L4З "   INFO@BDS-SOFT.COM"7Z>З:З:З:З:З7gHБе 327677sR:Г*****7{\:Г*7Мf:Г* END MAIN7Фp:Г*7аz:Г*****7о&З@96, SD$7╜&\З@128, SD$7╠&ШЗ@160, SD$7█&╘З@192, SD$7ч):Г*****7я):Г*8):Г* STANDAR                                                                                                                                                                                                                                                                                      ─├!"#$%&'┴┼╔+┴                        ADVADD  BAS DADVADD  TX1 nADVADD  TX2 5README  TXT (ДLICENSE TXT )\MORE    BAS*з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                D BASIC QUIZ GAMES8.)":Г* DATA LOADING ROUTINE86),:Г*8B)6:Г*****8Z)@:ГTHIS DATA MUST BE8s)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м19)РА J │ 0 е 59)ЪН QD$(I,J)9)дЛ J9&)оЛ I98)╕З "  OKAY -" 9])┬З "  ALL LOADED AND READY TO GO"9c)╠З9Д)╓З "  PRESS ANY KEY TO BEGIN"9К)рЗ9Ф)ъA$│ Т9й)ЇЕ A$│"" Бе 107309п)■Р9╗*:Г*****9├*:Г*9▄*:Г* END DATA LOADING9ф*&:Г*9Ё*0:Г*****9№*::Г*****:*D:Г*:*N:Г* START OF DATA LIST:'*X:Г*:3*b:Г*****:F*°Ж 27 PLUS 86 =:P+Ж 113:Z+Ж 116:d+Ж 104:n+ Ж 111:x+*Ж 114:Л+\Ж 32 PLUS 58 =:Ф+fЖ 90:Э+pЖ 89:ж+zЖ 92:п+ДЖ 91:╕+ОЖ 85:╦+└Ж 45 PLUS 55 =:╒+╩Ж 100:▐+╘Ж 98:ч+▐Ж 96:ё+шЖ 102:·+ЄЖ 95;
,$Ж 17 PLUS 38 =;,.Ж 55;,8Ж 57;(,BЖ 52;1,LЖ 59;:,VЖ 58;M,ИЖ 99 PLUS 45 =;W,ТЖ 144;a,ЬЖ 142;k,жЖ 149;u,░Ж 140;,║Ж 146;Т,ьЖ 42 PLUS 79 =;Ь,ЎЖ 121;ж-Ж 124;░-
Ж 114;║-Ж 111;─-Ж 127;╫-PЖ 79 PLUS 25 =;с-ZЖ 104;ы-dЖ 108;ї-nЖ 107;■-xЖ 95<-ВЖ 114<-┤Ж 2 PLUS -11 =<$-╛Ж -9<--╚Ж -7<7-╥Ж -13<A-▄Ж -11<J-цЖ -5<].Ж 39 PLUS 48 =<f."Ж 87<o.,Ж 90<x.6Ж 88<Б.@Ж 86<К.JЖ 89<Э.|Ж 34 PLUS 51 =<ж.ЖЖ 85<п.РЖ 82<╕.ЪЖ 81<┴.дЖ 80<╩.оЖ 88<┘.╕:Г***** 10<ь.рЖ 53 PLUS 43 =<ї.ъЖ 96<■.ЇЖ 93=.■Ж 99=/Ж 101=/Ж 95=-/DЖ 23 PLUS 37 ==6/NЖ 60=?/XЖ 64=H/bЖ 55=Q/lЖ 56=Z/vЖ 57=m/иЖ 58 PLUS 38 ==v/▓Ж 96=/╝Ж 99=И/╞Ж 95=С/╨Ж 91=Ъ/┌Ж 93=н0Ж 64 PLUS 83 ==╖0Ж 147=┴0 Ж 145=╦0*Ж 154=╒04Ж 157=▀0>Ж 141=Є0pЖ 64 PLUS 91 ==№0zЖ 155>0ДЖ 164>0ОЖ 163>0ШЖ 149>$0вЖ 157>70╘Ж 54 PLUS 52 =>A0▐Ж 106>K0шЖ 107>U0ЄЖ 111>_0№Ж 115>i1Ж 109>{18Ж -9 PLUS 6 =>Д1BЖ -3>Н1LЖ -1>Х1VЖ 1>Э1`Ж 0>ж1jЖ -7>╕1ЬЖ 6 PLUS 33 =>┴1жЖ 39>╩1░Ж 41>╙1║Ж 35>▄1─Ж 38>х1╬Ж 43>°2Ж -38 PLUS 2 =?2
Ж -36?2Ж -40?2Ж -35? 2(Ж -37?*22Ж -34?=2dЖ 19 PLUS 24 =?F2nЖ 43?O2xЖ 38?X2ВЖ 41?a2МЖ 46?j2ЦЖ 48?y2а:Г***** 20?М2╚Ж 63 PLUS 53 =?Ц2╥Ж 116?а2▄Ж 122?к2цЖ 115?┤2ЁЖ 112?╛2·Ж 118?╤3,Ж 38 PLUS 90 =?█36Ж 128?х3@Ж 118?я3JЖ 120?∙3TЖ 126@3^Ж 133@3РЖ 68 PLUS 24 =@3ЪЖ 92@(3дЖ 91@13оЖ 90@:3╕Ж 96@C3┬Ж 93@V3ЇЖ 1 PLUS -74 =@`3■Ж -73@j4Ж -70@t4Ж -74@~4Ж -69@И4&Ж -77@Ы4XЖ 98 PLUS 62 =@е4bЖ 160@п4lЖ 162@╣4vЖ 159@├4АЖ 154@═4КЖ 150@с4╝Ж -71 PLUS 76 =@щ4╞Ж 5@ё4╨Ж 7@∙4┌Ж 6A
4фЖ 9A	4юЖ 0A5 Ж -32 PLUS -62 =A(5*Ж -94A254Ж -93A<5>Ж -89AF5HЖ -91AP5RЖ -98Ac5ДЖ 58 PLUS 96 =Am5ОЖ 154Aw5ШЖ 163AБ5вЖ 152AЛ5мЖ 145AХ5╢Ж 162Aй5шЖ -55 PLUS 83 =A▓5ЄЖ 28A╗5№Ж 27A─6Ж 24A═6Ж 33A╓6Ж 23Aщ6LЖ 25 PLUS 32 =AЄ6VЖ 57A√6`Ж 60B6jЖ 58B
6tЖ 56B6~Ж 61B%6И:Г***** 30B96░Ж 250 PLUS 62 =BC6║Ж 312BM6─Ж 303BW6╬Ж 316Ba6╪Ж 302Bk6тЖ 310BА7Ж 741 PLUS 610 =BЛ7Ж 1351BЦ7(Ж 1367Bб72Ж 1423Bм7<Ж 1484B╖7FЖ 1312B╦7xЖ 64 PLUS 875 =B╒7ВЖ 939B▀7МЖ 945Bщ7ЦЖ 949Bє7аЖ 941B¤7кЖ 932C7▄Ж 179 PLUS 591 =C7цЖ 770C&7ЁЖ 767C07·Ж 766C:8Ж 778CD8Ж 775CZ8@Ж -395 PLUS 738 =Cd8JЖ 343Cn8TЖ 336Cx8^Ж 338CВ8hЖ 349CМ8rЖ 351Cа8дЖ 670 PLUS 38 =Cк8оЖ 708C┤8╕Ж 700C╛8┬Ж 698C╚8╠Ж 707C╥8╓Ж 709Cц9Ж 52 PLUS 978 =Cё9Ж 1030C№9Ж 1116D9&Ж 1063D90Ж 1025D9:Ж 1067D29lЖ 880 PLUS 602 =D=9vЖ 1482DH9АЖ 1534DS9КЖ 1483D^9ФЖ 1420Di9ЮЖ 1567D9╨Ж 940 PLUS -779 =DЙ9┌Ж 161DУ9фЖ 152DЭ9юЖ 162Dз9°Ж 169D▒:Ж 154D╞:4Ж 192 PLUS 164 =D╨:>Ж 356D┌:HЖ 351Dф:RЖ 357Dю:\Ж 359D°:fЖ 347E:p:Г***** 40E:ШЖ 267 PLUS -582 =E(:вЖ -315E3:мЖ -305E>:╢Ж -313EI:└Ж -324ET:╩Ж -312Eh:№Ж 349 PLUS 43 =Er;Ж 392E|;Ж 391EЖ;Ж 382EР;$Ж 388EЪ;.Ж 401E░;`Ж 628 PLUS -112 =E║;jЖ 516E─;tЖ 506E╬;~Ж 508E╪;ИЖ 507Eт;ТЖ 519Eў;─Ж 972 PLUS 847 =F;╬Ж 1819F
;╪Ж 1829F;тЖ 1754F#;ьЖ 1867F.;ЎЖ 1747FC<(Ж 960 PLUS -33 =FM<2Ж 927FW<<Ж 919Fa<FЖ 918Fk<PЖ 921Fu<ZЖ 923FК<МЖ 959 PLUS 927 =FХ<ЦЖ 1886Fа<аЖ 1878Fл<кЖ 1888F╢<┤Ж 1935F┴<╛Ж 1869F╓<ЁЖ 375 PLUS 222 =Fр<·Ж 597Fъ=Ж 599FЇ=Ж 594F■=Ж 601G="Ж 603G=TЖ -237 PLUS 876 =G(=^Ж 639G2=hЖ 649G<=rЖ 638GF=|Ж 640GP=ЖЖ 636Gf=╕Ж -751 PLUS 473 =Gq=┬Ж -278G|=╠Ж -270GЗ=╓Ж -272GТ=рЖ -274GЭ=ъЖ -268G▓>Ж 865 PLUS 673 =G╜>&Ж 1538G╚>0Ж 1571G╙>:Ж 1612G▐>DЖ 1532Gщ>NЖ 1564G°>X:Г***** 50H
>АЖ 477 PLUS 228 =H>КЖ 705H!>ФЖ 697H+>ЮЖ 715H5>иЖ 714H?>▓Ж 708HT>фЖ 889 PLUS -25 =H^>юЖ 864Hh>°Ж 862Hr?Ж 871H|?Ж 856HЖ?Ж 866HЬ?HЖ 973 PLUS -828 =Hж?RЖ 145H░?\Ж 136H║?fЖ 144H─?pЖ 135H╬?zЖ 152Hф?мЖ 823 PLUS -712 =Hю?╢Ж 111H°?└Ж 109I?╩Ж 119I?╘Ж 105I?▐Ж 120I-@Ж -679 PLUS -763 =I9@Ж -1442IE@$Ж -1481IQ@.Ж -1375I]@8Ж -1461Ii@BЖ -1523I~@tЖ 298 PLUS 743 =IЙ@~Ж 1041IУ@ИЖ 979IЭ@ТЖ 995Iи@ЬЖ 1016I│@жЖ 1021I╚@╪Ж 406 PLUS 972 =I╙@тЖ 1378I▐@ьЖ 1383Iщ@ЎЖ 1293IЇAЖ 1374I A
Ж 1424JA<Ж 405 PLUS -104 =JAFЖ 301J)APЖ 294J3AZЖ 297J=AdЖ 292JGAnЖ 298J[AаЖ 982 PLUS 56 =JfAкЖ 1038JqA┤Ж 1104J|A╛Ж 1040JЗA╚Ж 1076JСA╥Ж 985JжBЖ 776 PLUS 781 =J▒BЖ 1557J╝BЖ 1511J╟B"Ж 1650J╥B,Ж 1469J▌B6Ж 1619JьB@:Г***** 60KBhЖ 7250 PLUS 2602 =KBrЖ 9852KB|Ж 9857K$BЖЖ 9778K/BРЖ 9829K:BЪЖ 9855KPB╠Ж 6410 PLUS 542 =K[B╓Ж 6952KfBрЖ 7039KqBъЖ 6852K|BЇЖ 7032KЗB■Ж 6922KЭC0Ж 9475 PLUS 851 =KмC:Ж "10,326"K╖CDЖ 9680K╞CNЖ "10,021"K╤CXЖ 9986K▄CbЖ 9738KєCФЖ 9180 PLUS 5220 =LCЮЖ "14,400"LCиЖ "14,632"L C▓Ж "14,866"L/C╝Ж "13,815"L>C╞Ж "14,639"LUC°Ж 1717 PLUS 7870 =L`DЖ 9587LkDЖ 9578LvDЖ 9550LБD Ж 9674LМD*Ж 9576LвD\Ж 9817 PLUS 359 =L▒DfЖ "10,176"L╝DpЖ 9272L╟DzЖ 9296L╥DДЖ 9729L▌DОЖ 9246LЇD└Ж 7061 PLUS 1945 =L D╩Ж 9006M
D╘Ж 9092MD▐Ж 8951M DшЖ 9099M+DЄЖ 9044MBE$Ж 9989 PLUS 7445 =MQE.Ж "17,434"M`E8Ж "18,350"MoEBЖ "17,315"M~ELЖ "17,081"MНEVЖ "17,323"MдEИЖ 9558 PLUS 9910 =M│EТЖ "19,468"M┬EЬЖ "20,377"M╤EжЖ "19,553"MрE░Ж "19,757"MяE║Ж "18,778"NEьЖ 8522 PLUS 278 =NEЎЖ 8800NFЖ 8855N&F
Ж 8895N1FЖ 8725N<FЖ 8832NKF(:Г***** 70NbFPЖ 6294 PLUS 1176 =NmFZЖ 7470NxFdЖ 7442NГFnЖ 7423NОFxЖ 7566NЩFВЖ 7520N░F┤Ж 7845 PLUS 7079 =N┐F╛Ж "14,924"N╬F╚Ж "14,921"N▌F╥Ж "15,620"NьF▄Ж "14,827"N√FцЖ "15,462"OGЖ 8213 PLUS 8000 =O!G"Ж "16,213"O0G,Ж "15,491"O?G6Ж "16,209"ONG@Ж "17,015"O]GJЖ "15,228"OtG|Ж 9182 PLUS 8899 =OГGЖЖ "18,081"OТGРЖ "18,080"OбGЪЖ "17,231"O░GдЖ "18,679"O┐GоЖ "18,928"O╓GрЖ 9684 PLUS 2010 =OхGъЖ "11,694"OЇGЇЖ "11,351"PG■Ж "11,175"PHЖ "11,486"P!HЖ "10,932"P8HDЖ 6502 PLUS 4262 =PGHNЖ "10,764"PVHXЖ "11,188"PeHbЖ "11,462"PtHlЖ "10,037"PГHvЖ "10,779"PЪHиЖ 6823 PLUS 6981 =PйH▓Ж "13,804"P╕H╝Ж "14,011"P╟H╞Ж "14,733"P╓H╨Ж "13,132"PхH┌Ж "13,376"P·IЖ 9212 PLUS 72 =QIЖ 9284QI Ж 9378QI*Ж 9189Q&I4Ж 9375Q1I>Ж 9270QIIpЖ 4564 PLUS -7855 =QUIzЖ -3291QaIДЖ -3389QmIОЖ -3202QyIШЖ -3246QЕIвЖ -3314QЬI╘Ж 3601 PLUS 8754 =QлI▐Ж "12,355"Q║IшЖ "12,941"Q╔IЄЖ "12,705"Q╪I№Ж "12,239"QчJЖ "12,618"QЎJ:Г***** 80RJ8Ж -2476 PLUS -6016 =RJBЖ -8492R'JLЖ -8544R3JVЖ -8452R?J`Ж -8506RKJjЖ -8425RbJЬЖ 3039 PLUS 1655 =RmJжЖ 4694RxJ░Ж 4645RГJ║Ж 4661RОJ─Ж 4641RЩJ╬Ж 4692R░KЖ 9340 PLUS -811 =R╗K
Ж 8529R╞KЖ 8585R╤KЖ 8574R▄K(Ж 8490RчK2Ж 8545R■KdЖ 6920 PLUS 8694 =S
KnЖ "15,614"SKxЖ "15,980"S+KВЖ "16,210"S:KМЖ "15,719"SIKЦЖ "15,838"SbK╚Ж -6461 PLUS -7329 =SrK╥Ж "-13,790"SВK▄Ж "-13,526"SТKцЖ "-14,432"SвKЁЖ "-14,201"S▓K·Ж "-14,371"S╔L,Ж 8354 PLUS 4258 =S╪L6Ж "12,612"SчL@Ж "12,348"SЎLJЖ "11,819"TLTЖ "12,339"TL^Ж "13,148"T*LРЖ 9745 PLUS 418 =T9LЪЖ "10,163"TDLдЖ 9233TSLоЖ "10,976"TbL╕Ж "10,881"TqL┬Ж "10,173"TИLЇЖ -621 PLUS 9351 =TУL■Ж 8730TЮMЖ 8741TйMЖ 8720T┤MЖ 8701T┐M&Ж 8724T╒MXЖ 514 PLUS 4963 =TрMbЖ 5477TыMlЖ 5422TЎMvЖ 5412U
MАЖ 5410UMКЖ 5451U#M╝Ж 2358 PLUS 9994 =U2M╞Ж "12,352"UAM╨Ж "11,995"UPM┌Ж "13,220"U_MфЖ "11,400"UnMюЖ "13,316"U}M°:Г***** 90UЙN :Г*****UСN*:Г*UкN4:Г* END OF DATA LISTU▓N>:Г*U╛NH:Г*****U╩kl:Г*****U╥kv:Г*UЇkА:Г* STANDARD BASIC QUIZ GAMESVkК:Г* INITIALIZATION ROUTINEVkФ:Г*V'kЮ:Г*****V-k╨ЮV3k┌ЗVPkфЗ "  LOADING THE SYSTEM"VfkюЗ "  PLEASE WAIT"Vlk°ЗVЗl:ГRANDOMIZATION ARRAYSVУlМ R1(5)VЯlМ R2(4)Vлl М RR(4)V╞l*:ГSCRAMBLE CODES ARRAYV╘l4М S(24,4)Vїl>:ГRANDOMIZE THE RND FUNCTIONWlHR │  Д(м Я)W)lШ:ГINITIALIZE THE SCRAMBLE CODESW8lвS(0,0) │ 0WGlмS(0,1) │ 1WVl╢S(0,2) │ 2Wel└S(0,3) │ 3Wtl╩S(1,0) │ 0WГl╘S(1,1) │ 1WТl▐S(1,2) │ 3WбlшS(1,3) │ 2W░lЄS(2,0) │ 0W┐l№S(2,1) │ 2W╬mS(2,2) │ 1W▌mS(2,3) │ 3WьmS(3,0) │ 0W√m$S(3,1) │ 2X
m.S(3,2) │ 3Xm8S(3,3) │ 1X(mBS(4,0) │ 0X7mLS(4,1) │ 3XFmVS(4,2) │ 1XUm`S(4,3) │ 2XdmjS(5,0) │ 0XsmtS(5,1) │ 3XВm~S(5,2) │ 2XСmИS(5,3) │ 1XаmТS(6,0) │ 1XпmЬS(6,1) │ 0X╛mжS(6,2) │ 2X═m░S(6,3) │ 3X▄m║S(7,0) │ 1Xыm─S(7,1) │ 0X·m╬S(7,2) │ 3Y	m╪S(7,3) │ 2YmтS(8,0) │ 1Y'mьS(8,1) │ 2Y6mЎS(8,2) │ 0YEnS(8,3) │ 3YTn
S(9,0) │ 1YcnS(9,1) │ 2YrnS(9,2) │ 3YБn(S(9,3) │ 0YСn2S(10,0) │ 1Yбn<S(10,1) │ 3Y▒nFS(10,2) │ 0Y┴nPS(10,3) │ 2Y╤nZS(11,0) │ 1YсndS(11,1) │ 3YёnnS(11,2) │ 2Z
nxS(11,3) │ 0ZnВS(12,0) │ 2Z!nМS(12,1) │ 0Z1nЦS(12,2) │ 1ZAnаS(12,3) │ 3ZQnкS(13,0) │ 2Zan┤S(13,1) │ 0Zqn╛S(13,2) │ 3ZБn╚S(13,3) │ 1ZСn╥S(14,0) │ 2Zбn▄S(14,1) │ 1Z▒nцS(14,2) │ 0Z┴nЁS(14,3) │ 3Z╤n·S(15,0) │ 2ZсoS(15,1) │ 1ZёoS(15,2) │ 3[
oS(15,3) │ 0[o"S(16,0) │ 2[!o,S(16,1) │ 3[1o6S(16,2) │ 0[Ao@S(16,3) │ 1[QoJS(17,0) │ 2[aoTS(17,1) │ 3[qo^S(17,2) │ 1[БohS(17,3) │ 0[СorS(18,0) │ 3[бo|S(18,1) │ 0[▒oЖS(18,2) │ 1[┴oРS(18,3) │ 2[╤oЪS(19,0) │ 3[сoдS(19,1) │ 0[ёoоS(19,2) │ 2\
o╕S(19,3) │ 1\o┬S(20,0) │ 3\!o╠S(20,1) │ 1\1o╓S(20,2) │ 0\AoрS(20,3) │ 2\QoъS(21,0) │ 3\aoЇS(21,1) │ 1\qo■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\ёpNS(23,2) │ 1]
pXS(23,3) │ 0]pbР]pl:Г*****]pv:Г*]6pА:Г* END INITIALIZATION]>pК:Г*]JpФ:Г*****]Vs<:Г*****]^sF:Г*]{sP:Г* DISPLAY THE STANDARD]ФsZ:Г* BASIC QUIZ GAMES]кsd:Г* SPLASH SCREEN]▓sn:Г*]╛sx:Г*****]─sаЮ]шsк:ГLINES 0 AND 1 ARE BLANK GREEN^s┤:ГDISPLAY UNIFORM STANDARD LINE 2^)s╛SD$ │  Л(32) л  Л(158)^:s╚А I │ 0 е 27^Rs╥SD$ │ SD$ л  Л(156)^Zs▄Л 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)_t"Л I_0t,SD$ │ SD$ л  Л(205) л  Л(149) л  Л(32)_>t6З@96, SD$_dt@:ГDISPLAY UNIFORM STANDARD LINE 4_ЙtJSD$ │  Л(32) л  Л(154) л  Л(202)_ЪtTА I │ 0 е 25_▒t^SD$ │ SD$ л  Л(32)_╣thЛ I_фtrSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)_єt|З@128, SD$`tЖ:ГDISPLAY SPECIFIC STANDARD LINE 5`?tРSD$ │  Л(32) л  Л(154) л  Л(202)`htЪ:Г *** CHANGE NEXT LINE AS REQUIRED:`ХtдSD$ │ SD$ л "    ADVANCED  ADDITION    "`└tоSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)`╧t╕З@160, SD$`Ўt┬:ГDISPLAY SPECIFIC STANDARD LINE 6at╠SD$ │  Л(32) л  Л(154) л  Л(202)aDt╓:Г *** CHANGE NEXT LINE AS REQUIRED:aqtрSD$ │ SD$ л "        QUIZ GAME         "aЬtъSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)aлtЇЗ@192, SD$a╤t■:ГDISPLAY UNIFORM STANDARD LINE 7aЎuSD$ │  Л(32) л  Л(154) л  Л(202)buА I │ 0 е 25buSD$ │ SD$ л  Л(32)b&u&Л IbQu0SD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)b`u:З@224, SD$bЖuD:ГDISPLAY UNIFORM STANDARD LINE 8bлuNSD$ │  Л(32) л  Л(154) л  Л(203)b╝uXА I │ 0 е 25b╘ubSD$ │ SD$ л  Л(195)b▄ulЛ IcuvSD$ │ SD$ л  Л(199) л  Л(149) л  Л(32)cuАЗ@256, SD$c<uК:ГDISPLAY UNIFORM STANDARD LINE 9cWuФSD$ │  Л(32) л  Л(155)chuЮА I │ 0 е 27cАuиSD$ │ SD$ л  Л(147)cИu▓Л Icйu╝SD$ │ SD$ л  Л(151) л  Л(32)c╕u╞З@288, SD$c╒u╨:ГLINE 10 IS BLANK GREENc№u┌:ГDISPLAY UNIFORM STANDARD LINE 11d*uфЗ@352, "   PRESS ANY KEY  TO CONTINUE   "dPuю:ГLINES 12 AND 13 ARE BLANK GREENdxu°:ГDISPLAY SPECIFIC STANDARD LINE 14dЯv:Г *** CHANGE THE YEAR AS REQUIREDd╬vЗ@448, "       BDS SOFTWARE  2022       ";dыv:ГLINE 15 IS BLANK GREENdўv A$ │  Тev*Е A$│"" Бе 30240ev4Рev>:Г*****e&vH:Г*e.vR:Г*e:v\:Г*****e@ КE BLANK GREENdxu°:ГDISPLAY SPECIFIC STANDARD LINE 14dЯv:Г *** CHANGE THE YEAR AS REQUIREDd╬vЗ@448, "       BDS SOFTWARE  2022       ";dыv:ГLINE 15 IS BLANK GREENdўv A$ │  Тev*Е A                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
101 README.TXT
102 .
103 ADVADD.BAS IS A QUIZ GAME
104 TO TEST YOUR KNOWLEDGE OF
105 ADVANCED ADDITION IN
106 MATHEMATICS.
107 .
108 YOU CAN ALSO USE IT IN A
109 REPETITIVE FASHION TO HELP
110 IMPROVE THAT KNOWLEDGE.
111 .
112 THE GAME REQUIRES A 64K
113 COLOR COMPUTER 2 OR ANY
114 COLOR COMPUTER 3. (OR VCC
115 OR OTHER COCO EMULATOR).
116 .
117 AS WITH ALL MY SOFTWARE,
118 I PROVIDE THE COMPLETE
119 CODE SO YOU CAN LEARN FROM
120 IT AND USE IT TO DEVELOP
121 YOUR OWN PROGRAMS AND
122 SOFTWARE. SEE THE
123 LICENSE.TXT FILE WHICH IS
124 ALSO ON THIS DISK.
125 .
126 IN ADDITION TO THE .BAS
127 FILE (WHICH IS THE ONE
128 YOU SHOULD RUN), I'M ALSO
129 PROVIDING A .TX1 FILE AND
130 A .TX2 FILE (THE FIRST AND
131 SECOND HALVES OF THE
132 PROGRAM) IN ASCII FORMAT, 
133 WHICH CAN BE EXAMINED, 
134 PAGE-BY-PAGE,
135 (WHERE ONE "PAGE" IS
136 ONE 32 X 16 COCO SCREEN)
137 USING THE INCLUDED 
138 MORE.BAS PROGRAM.
139 .
140 ENJOY!
141 .
142 M. DAVID  JOHNSON
143 MDJ@BDS-SOFT.COM
144 . 2022/04/22
145 .
146 -----
147 .
148 THIS README.TXT FILE CAN
149 BE READ, PAGE-BY-PAGE,
150 USING THE MORE.BAS PROGRAM
151 ON THIS DISK.
152 .
153 -----
154 .
155 EOF
RE.BAS PROGRAM.
139 .
140 ENJOY!
141 .
142 M. DAVID  JOHNSON
143 MDJ@BDS-SOFT.COM
144 . 2022/04/22
145 .
146 -----
147 .
148                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
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/':Г   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/'