) = 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  DIVISION    "
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$="" G                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                T =   18; REM =  26
14330 DATA QUOT =   12; REM =  28
14340 DATA QUOT =   16; REM =  31
14350 DATA QUOT =   15; REM =  35
14400 DATA 607 DIVIDED BY 10 =
14410 DATA QUOT =   60; REM =   7
14420 DATA QUOT =   64; REM =   5
14430 DATA QUOT =   55; REM =   3
14440 DATA QUOT =   57; REM =   2
14450 DATA QUOT =   56; REM =   9
14500 DATA 93 DIVIDED BY 6 =
14510 DATA QUOT =   15; REM =   3
14520 DATA QUOT =   11; REM =  -1
14530 DATA QUOT =   12; REM =   2
14540 DATA QUOT =   10; REM =  -2
14550 DATA QUOT =   19; REM =   1
14600 DATA 985 DIVIDED BY 92 =
14610 DATA QUOT =   10; REM =  65
14620 DATA QUOT =   14; REM =  64
14630 DATA QUOT =   12; REM =  70
14640 DATA QUOT =    7; REM =  62
14650 DATA QUOT =   13; REM =  60
14700 DATA 284 DIVIDED BY 86 =
14710 DATA QUOT =    3; REM =  26
14720 DATA QUOT =    6; REM =  24
14730 DATA QUOT =    4; REM =  27
14740 DATA QUOT =    7; REM =  21
14750 DATA QUOT =   -1; REM =  30
14800 DATA 174 DIVIDED BY 49 =
14810 DATA QUOT =    3; REM =  27
14820 DATA QUOT =    8; REM =  29
14830 DATA QUOT =    0; REM =  23
14840 DATA QUOT =    2; REM =  32
14850 DATA QUOT =    6; REM =  31
14900 DATA 803 DIVIDED BY 83 =
14910 DATA QUOT =    9; REM =  56
14920 DATA QUOT =    4; REM =  60
14930 DATA QUOT =   10; REM =  57
14940 DATA QUOT =   12; REM =  53
14950 DATA QUOT =    5; REM =  54
14960 '***** 40
16000 DATA 9796 DIVIDED BY 724 =
16010 DATA QUOT =   13; REM = 384
16020 DATA QUOT =   14; REM = 394
16030 DATA QUOT =   16; REM = 378
16040 DATA QUOT =    9; REM = 385
16050 DATA QUOT =   10; REM = 387
16100 DATA 4329 DIVIDED BY 470 =
16110 DATA QUOT =    9; REM =  99
16120 DATA QUOT =   12; REM = 103
16130 DATA QUOT =   10; REM =  96
16140 DATA QUOT =    7; REM = 104
16150 DATA QUOT =    6; REM =  98
16200 DATA 5892 DIVIDED BY 437 =
16210 DATA QUOT =   13; REM = 211
16220 DATA QUOT =   18; REM = 207
16230 DATA QUOT =   14; REM = 212
16240 DATA QUOT =   17; REM = 217
16250 DATA QUOT =   15; REM = 213
16300 DATA 3480 DIVIDED BY 695 =
16310 DATA QUOT =    5; REM =   5
16320 DATA QUOT =    3; REM =   4
16330 DATA QUOT =    0; REM =   8
16340 DATA QUOT =    9; REM =   6
16350 DATA QUOT =    6; REM =   2
16400 DATA 4135 DIVIDED BY 328 =
16410 DATA QUOT =   12; REM = 199
16420 DATA QUOT =   10; REM = 190
16430 DATA QUOT =   16; REM = 193
16440 DATA QUOT =   17; REM = 200
16450 DATA QUOT =    9; REM = 206
16500 DATA 9344 DIVIDED BY 928 =
16510 DATA QUOT =   10; REM =  64
16520 DATA QUOT =    7; REM =  66
16530 DATA QUOT =    6; REM =  63
16540 DATA QUOT =   13; REM =  67
16550 DATA QUOT =   12; REM =  68
16600 DATA 7885 DIVIDED BY 255 =
16610 DATA QUOT =   30; REM = 235
16620 DATA QUOT =   28; REM = 232
16630 DATA QUOT =   29; REM = 227
16640 DATA QUOT =   32; REM = 240
16650 DATA QUOT =   31; REM = 228
16700 DATA 213 DIVIDED BY 763 =
16710 DATA QUOT =    0; REM = 213
16720 DATA QUOT =    0; REM = 204
16730 DATA QUOT =    0; REM = 211
16740 DATA QUOT =    0; REM = 210
16750 DATA QUOT =    0; REM = 212
16800 DATA 3960 DIVIDED BY 324 =
16810 DATA QUOT =   12; REM =  72
16820 DATA QUOT =   17; REM =  69
16830 DATA QUOT =   14; REM =  73
16840 DATA QUOT =    9; REM =  71
16850 DATA QUOT =    8; REM =  76
16900 DATA 7331 DIVIDED BY 572 =
16910 DATA QUOT =   12; REM = 467
16920 DATA QUOT =    7; REM = 459
16930 DATA QUOT =   14; REM = 468
16940 DATA QUOT =   11; REM = 464
16950 DATA QUOT =   17; REM = 462
16960 '***** 50
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,20 DATA QUOT =  -38; REM =   0
12820 DATA QUOT =  -40; REM =  -2
12830 DATA QUOT =  -41; REM =  -1
12840 DATA QUOT =  -39; REM =   3
12850 DATA QUOT =  -42; REM =   4
12900 DATA 929 DIVIDED BY 59 =
12910 DATA QUOT =   15; REM =  44
12920 DATA QUOT =   17; REM =  40
12930 DATA QUOT =   10; REM =  49
12940 DATA QUOT =   19; REM =  46
12950 DATA QUOT =   13; REM =  41
12960 '***** 20
13000 DATA 526 DIVIDED BY 61 =
13010 DATA QUOT =    8; REM =  38
13020 DATA QUOT =    6; REM =  37
13030 DATA QUOT =   12; REM =  41
13040 DATA QUOT =    3; REM =  35
13050 DATA QUOT =   13; REM =  43
13100 DATA 296 DIVIDED BY 17 =
13110 DATA QUOT =   17; REM =   7
13120 DATA QUOT =   18; REM =   4
13130 DATA QUOT =   16; REM =   5
13140 DATA QUOT =   19; REM =  12
13150 DATA QUOT =   21; REM =   6
OT =    3; REM =  35
13050 DATA QUOT =   13; REM =  43
13100 DATA 296 DIVIDED BY 17 =
13110 DATA QUOT =   17; REM =   7
13120 DATA QUOT =   18; REM =   4
13130 DATA QUOT =   16; REM =   5
13140 DATA QUOT =   19; REM =  12
13150 DATA QUOT =                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
13200 DATA 515 DIVIDED BY 54 =
13210 DATA QUOT =    9; REM =  29
13220 DATA QUOT =    7; REM =  28
13230 DATA QUOT =   10; REM =  25
13240 DATA QUOT =    5; REM =  32
13250 DATA QUOT =    6; REM =  30
13300 DATA 865 DIVIDED BY 37 =
13310 DATA QUOT =   23; REM =  14
13320 DATA QUOT =   27; REM =   9
13330 DATA QUOT =   22; REM =  13
13340 DATA QUOT =   24; REM =  17
13350 DATA QUOT =   19; REM =  19
13400 DATA 579 DIVIDED BY 59 =
13410 DATA QUOT =    9; REM =  48
13420 DATA QUOT =   10; REM =  50
13430 DATA QUOT =    6; REM =  52
13440 DATA QUOT =    7; REM =  43
13450 DATA QUOT =   14; REM =  45
13500 DATA 89 DIVIDED BY 90 =
13510 DATA QUOT =    0; REM =  89
13520 DATA QUOT =    0; REM =  92
13530 DATA QUOT =    0; REM =  93
13540 DATA QUOT =    0; REM =  91
13550 DATA QUOT =    0; REM =  88
13600 DATA 303 DIVIDED BY 38 =
13610 DATA QUOT =    7; REM =  37
13620 DATA QUOT =    2; REM =  32
13630 DATA QUOT =    4; REM =  36
13640 DATA QUOT =    8; REM =  41
13650 DATA QUOT =   11; REM =  40
13700 DATA 48 DIVIDED BY 10 =
13710 DATA QUOT =    4; REM =   8
13720 DATA QUOT =    5; REM =  12
13730 DATA QUOT =    2; REM =  10
13740 DATA QUOT =    1; REM =   9
13750 DATA QUOT =    7; REM =   6
13800 DATA 618 DIVIDED BY 77 =
13810 DATA QUOT =    8; REM =   2
13820 DATA QUOT =    4; REM =  -2
13830 DATA QUOT =   13; REM =   4
13840 DATA QUOT =    3; REM =   5
13850 DATA QUOT =    9; REM =   3
13900 DATA 116 DIVIDED BY 12 =
13910 DATA QUOT =    9; REM =   8
13920 DATA QUOT =    7; REM =   7
13930 DATA QUOT =   10; REM =  10
13940 DATA QUOT =   13; REM =  12
13950 DATA QUOT =    5; REM =   3
13960 '***** 30
14000 DATA 111 DIVIDED BY 35 =
14010 DATA QUOT =    3; REM =   6
14020 DATA QUOT =    0; REM =  11
14030 DATA QUOT =    2; REM =   9
14040 DATA QUOT =    5; REM =   7
14050 DATA QUOT =   -2; REM =   1
14100 DATA 31 DIVIDED BY 16 =
14110 DATA QUOT =    1; REM =  15
14120 DATA QUOT =    0; REM =  16
14130 DATA QUOT =    5; REM =  12
14140 DATA QUOT =   -4; REM =  10
14150 DATA QUOT =   -2; REM =  19
14200 DATA 452 DIVIDED BY 49 =
14210 DATA QUOT =    9; REM =  11
14220 DATA QUOT =    7; REM =   7
14230 DATA QUOT =   11; REM =   9
14240 DATA QUOT =   14; REM =  15
14250 DATA QUOT =   13; REM =   6
14300 DATA 979 DIVIDED BY 73 =
14310 DATA QUOT =   13; REM =  30
14320 DATA QUO  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 = 50
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 -600 DIVIDED BY 6 =
11010 DATA QUOT = -100; REM =   0
11020 DATA QUOT = -104; REM =  -1
11030 DATA QUOT =  -96; REM =   2
11040 DATA QUOT =  -95; REM =  -4
11050 DATA QUOT = -103; REM =   5
11100 DATA 208 DIVIDED BY 65 =
11110 DATA QUOT =    3; REM =  13
11120 DATA QUOT =    2; REM =  12
11130 DATA QUOT =   -1; REM =  15
11140 DATA QUOT =    8; REM =  10
11150 DATA QUOT =    5; REM =   9
11200 DATA 273 DIVIDED BY 82 =
11210 DATA QUOT =    3; REM =  27
11220 DATA QUOT =   -2; REM =  28
11230 DATA QUOT =    2; REM =  26
11240 DATA QUOT =    7; REM =  31
11250 DATA QUOT =    4; REM =  23
11300 DATA 756 DIVIDED BY -33 =
11310 DATA QUOT =  -22; REM =  30
11320 DATA QUOT =  -21; REM =  -4
11330 DATA QUOT =  -18; REM =  -6
11340 DATA QUOT =  -27; REM =  -1
11350 DATA QUOT =  -26; REM =  -5
11400 DATA 964 DIVIDED BY -14 =
11410 DATA QUOT =  -68; REM =  12
11420 DATA QUOT =  -70; REM =   0
11430 DATA QUOT =  -67; REM =  -4
11440 DATA QUOT =  -74; REM =  -3
11450 DATA QUOT =  -64; REM =  -1
11500 DATA -856 DIVIDED BY 98 =
11510 DATA QUOT =   -8; REM =  72
11520 DATA QUOT =   -6; REM =  21
11530 DATA QUOT =  -10; REM =  23
11540 DATA QUOT =   -8; REM =  22
11550 DATA QUOT =  -13; REM =  28
11600 DATA 480 DIVIDED BY 33 =
11610 DATA QUOT =   14; REM =  18
11620 DATA QUOT =   15; REM =  17
11630 DATA QUOT =   16; REM =  19
11640 DATA QUOT =   13; REM =  22
11650 DATA QUOT =   10; REM =  13
11700 DATA -176 DIVIDED BY 25 =
11710 DATA QUOT =   -7; REM =  1
11720 DATA QUOT =   -7; REM =  26
11730 DATA QUOT =  -13; REM =  27
11740 DATA QUOT =   -3; REM =  22
11750 DATA QUOT =  -12; REM =  25
11800 DATA 727 DIVIDED BY 59 =
11810 DATA QUOT =   12; REM =  19
11820 DATA QUOT =    7; REM =  18
11830 DATA QUOT =   16; REM =  21
11840 DATA QUOT =    9; REM =  16
11850 DATA QUOT =   10; REM =  24
11900 DATA -97 DIVIDED BY 1 =
11910 DATA QUOT =  -97; REM =   0
11920 DATA QUOT = -100; REM =   1
11930 DATA QUOT =  -92; REM =  -2
11940 DATA QUOT = -102; REM =   4
11950 DATA QUOT =  -94; REM =   5
11960 '***** 10
12000 DATA 914 DIVIDED BY 34 =
12010 DATA QUOT =   26; REM =  30
12020 DATA QUOT =   24; REM =  32
12030 DATA QUOT =   30; REM =  35
12040 DATA QUOT =   22; REM =  29
12050 DATA QUOT =   29; REM =  27
12100 DATA 363 DIVIDED BY 59 =
12110 DATA QUOT =    6; REM =   9
12120 DATA QUOT =    2; REM =  14
12130 DATA QUOT =    5; REM =   4
12140 DATA QUOT =    7; REM =  12
12150 DATA QUOT =    3; REM =   8
12200 DATA 635 DIVIDED BY -33 =
12210 DATA QUOT =  -19; REM = 8
12220 DATA QUOT =  -23; REM = -22
12230 DATA QUOT =  -24; REM = -28
12240 DATA QUOT =  -25; REM = -27
12250 DATA QUOT =  -19; REM = -23
12300 DATA 596 DIVIDED BY 60 =
12310 DATA QUOT =    9; REM =  56
12320 DATA QUOT =   10; REM =  59
12330 DATA QUOT =   14; REM =  53
12340 DATA QUOT =    7; REM =  51
12350 DATA QUOT =   11; REM =  61
12400 DATA 826 DIVIDED BY 20 =
12410 DATA QUOT =   41; REM =   6
12420 DATA QUOT =   38; REM =   8
12430 DATA QUOT =   36; REM =   5
12440 DATA QUOT =   43; REM =   7
12450 DATA QUOT =   40; REM =  10
12500 DATA -692 DIVIDED BY 38 =
12510 DATA QUOT =  -18; REM =  8
12520 DATA QUOT =  -15; REM =  33
12530 DATA QUOT =  -23; REM =  26
12540 DATA QUOT =  -21; REM =  34
12550 DATA QUOT =  -22; REM =  27
12600 DATA 600 DIVIDED BY 84 =
12610 DATA QUOT =    7; REM =  12
12620 DATA QUOT =   12; REM =  17
12630 DATA QUOT =    6; REM =   8
12640 DATA QUOT =    3; REM =  16
12650 DATA QUOT =   11; REM =  11
12700 DATA 94 DIVIDED BY 13 =
12710 DATA QUOT =    7; REM =   3
12720 DATA QUOT =    9; REM =   6
12730 DATA QUOT =    8; REM =  -2
12740 DATA QUOT =    3; REM =   1
12750 DATA QUOT =   10; REM =   4
12800 DATA 950 DIVIDED BY -25 =
1281
100 '*****
101 '*
102 '* ADVDIV.BAS
103 '* MDJ 2022/03/15
104 '*
105 '* A QUIZ TO TEST
106 '* KNOWLEDGE OF
107 '* ADVANCED DIVISION
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(50) - 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 QUOTIENT, REMAINDER:"
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$ = "  SEE "
5640 IF RP=0 THEN SD$ = SD$ + "A. "+QA$(0)
5650 IF RP=1 THEN SD$ = SD$ + "B. "+QA$(1)
5660 IF RP=2 THEN SD$ = SD$ + "C. "+QA$(2)
5670 IF RP=3 THEN SD$ = SD$ + "D. "+QA$(3)
5680 IF RP=4 THEN SD$ = SD$ + "E.NONE OF THE ABOVE"
5690 PRINT@352, SD$
5700 GOTO 5770
5710 SOUND 204,1
5720 SOUND 204,1
5730 SOUND 204,1
5740 SOUND 218,3
5750 PRINT@320, "    *** THAT IS CORRECT! ***"
5760 QC = QC + 1
5770 QT = QT + 1
5780 QP = INT(100 * (QC/QT))
5790 PRINT@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";
5800 PRINT@384, "  PRESS C TO CONTINUE;Q TO QUIT"
5810 A$ = INKEY$
5820 IF A$="" GOTO 5810
5830 IF (A$="C" OR A$=CHR$(99)) GOTO 5190
5840 IF (A$="Q" OR A$=CHR$(113)) GOTO 5890
5850 SOUND 159,2
5860 SOUND 159,2
5870 PRINT@384, "  YOU MUST PRESS C OR Q"
5880 GOTO 5810
5890 CLS
5900 PRINT:PRINT "   FINAL SCORE = ";QP;"%"
5910 PRINT:PRINT "  E┤&
З@224, SD$&PЗ@256, SD$&+d:Г*****&3e:Г*&Ff:Г* ADVDIV.BAS&]g:Г* MDJ 2022/03/15&eh:Г*&|i:Г* A QUIZ TO TEST&Сj:Г* KNOWLEDGE OF&лk:Г* ADVANCED DIVISION&│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 │  Д(50) м 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 QUOTIENT, REMAINDER:"0в┤З@64,"  "лQ$л" ?"0╛╛З@128, "    A. "лQA$(0)0┌╚З@160, "    B. "лQA$(1)0Ў╥З@192, "    C. "лQA$(2)1▄З@224, "    D. "лQA$(3)18цЗ@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,230|З@320, "  YOU MUST PRESS ONE OF A TO E"3<ЖБе 54103OРA │ 0: Бе 55703bЪA │ 1: Бе 55703uд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$ │ "  SEE "4BЕ RP│0 з SD$ │ SD$ л "A. "лQA$(0)4hЕ 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$4■DБе 57705
Nа 204,15Xа 204,15"bа 204,15.lа 218,35XvЗ@320, "    *** THAT IS CORRECT! ***"5hАQC │ QC л 15xКQT │ QT л 15УФQP │  Б(100 н (QCоQT))5╞ЮЗ@448, "  SCORE = ";QC;" OF ";QT;" = ";QP;"%";5єиЗ@384, "  PRESS C TO CONTINUE;Q TO QUIT"5 ▓A$ │  Т6╝Е A$│"" Бе 581066╞Е (A$│"C" ▒ A$│ Л(99)) Бе 51906Z╨Е (A$│"Q" ▒ A$│ Л(113)) Бе 58906f┌а 159,26rфа 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"7E4З "   INFO@BDS-SOFT.COM"7S>З:З:З:З:З7`HБе 327677lR:Г*****7t\:Г*7Еf:Г* END MAIN7Нp:Г*7Щz:Г*****7з&З@96, SD$7╢&\З@128, SD$7┼&ШЗ@160, SD$7╘&╘З@192, SD$7р):Г*****7ш):Г*8
):Г* STANDARD BASIC                                                                                                                                                                                                                                                                                      ┼─!"#$%&'╟┼╔+┴                        ADVDIV  BAS ╖ADVDIV  TX1 ADVDIV  TX2 MREADME  TXT (ДLICENSE TXT )\MORE    BAS*з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 QUIZ GAMES8')":Г* DATA LOADING ROUTINE8/),:Г*8;)6:Г*****8S)@:ГTHIS DATA MUST BE8l)J:ГINDIVIDUALIZED FOR8Е)T:ГEACH SPECIFIC QUIZ8г)^:ГN = NUMBER OF QUESTIONS8о)hN │ 508╧)r:ГQD$ = QUESTIONS DATA ARRAY8▐)|М QD$(N,6)8Ё)ЖА I │ 0 е Nм19)РА J │ 0 е 59)ЪН QD$(I,J)9)дЛ J9)оЛ I91)╕З "  OKAY -" 9V)┬З "  ALL LOADED AND READY TO GO"9\)╠З9})╓З "  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:Г*****:F*°Ж -600 DIVIDED BY 6 =:c+Ж QUOT = -100; REM =   0:А+Ж QUOT = -104; REM =  -1:Э+Ж QUOT =  -96; REM =   2:║+ Ж QUOT =  -95; REM =  -4:╫+*Ж QUOT = -103; REM =   5:ё+\Ж 208 DIVIDED BY 65 =;+fЖ QUOT =    3; REM =  13;++pЖ QUOT =    2; REM =  12;H+zЖ QUOT =   -1; REM =  15;e+ДЖ QUOT =    8; REM =  10;В+ОЖ QUOT =    5; REM =   9;Ь+└Ж 273 DIVIDED BY 82 =;╣+╩Ж QUOT =    3; REM =  27;╓+╘Ж QUOT =   -2; REM =  28;є+▐Ж QUOT =    2; REM =  26<+шЖ QUOT =    7; REM =  31<-+ЄЖ QUOT =    4; REM =  23<H,$Ж 756 DIVIDED BY -33 =<e,.Ж QUOT =  -22; REM =  30<В,8Ж QUOT =  -21; REM =  -4<Я,BЖ QUOT =  -18; REM =  -6<╝,LЖ QUOT =  -27; REM =  -1<┘,VЖ QUOT =  -26; REM =  -5<Ї,ИЖ 964 DIVIDED BY -14 ==,ТЖ QUOT =  -68; REM =  12=.,ЬЖ QUOT =  -70; REM =   0=K,жЖ QUOT =  -67; REM =  -4=h,░Ж QUOT =  -74; REM =  -3=Е,║Ж QUOT =  -64; REM =  -1=а,ьЖ -856 DIVIDED BY 98 ==╜,ЎЖ QUOT =   -8; REM =  72=┌-Ж QUOT =   -6; REM =  21=ў-
Ж QUOT =  -10; REM =  23>-Ж QUOT =   -8; REM =  22>1-Ж QUOT =  -13; REM =  28>K-PЖ 480 DIVIDED BY 33 =>h-ZЖ QUOT =   14; REM =  18>Е-dЖ QUOT =   15; REM =  17>в-nЖ QUOT =   16; REM =  19>┐-xЖ QUOT =   13; REM =  22>▄-ВЖ QUOT =   10; REM =  13>ў-┤Ж -176 DIVIDED BY 25 =?-╛Ж QUOT =   -7; REM =   1?1-╚Ж QUOT =   -7; REM =  26?N-╥Ж QUOT =  -13; REM =  27?k-▄Ж QUOT =   -3; REM =  22?И-цЖ QUOT =  -12; REM =  25?в.Ж 727 DIVIDED BY 59 =?┐."Ж QUOT =   12; REM =  19?▄.,Ж QUOT =    7; REM =  18?∙.6Ж QUOT =   16; REM =  21@.@Ж QUOT =    9; REM =  16@3.JЖ QUOT =   10; REM =  24@L.|Ж -97 DIVIDED BY 1 =@i.ЖЖ QUOT =  -97; REM =   0@Ж.РЖ QUOT = -100; REM =   1@г.ЪЖ QUOT =  -92; REM =  -2@└.дЖ QUOT = -102; REM =   4@▌.оЖ QUOT =  -94; REM =   5@ь.╕:Г***** 10A.рЖ 914 DIVIDED BY 34 =A#.ъЖ QUOT =   26; REM =  30A@.ЇЖ QUOT =   24; REM =  32A].■Ж QUOT =   30; REM =  35Az/Ж QUOT =   22; REM =  29AЧ/Ж QUOT =   29; REM =  27A▒/DЖ 363 DIVIDED BY 59 =A╬/NЖ QUOT =    6; REM =   9Aы/XЖ QUOT =    2; REM =  14B/bЖ QUOT =    5; REM =   4B%/lЖ QUOT =    7; REM =  12BB/vЖ QUOT =    3; REM =   8B]/иЖ 635 DIVIDED BY -33 =Bz/▓Ж QUOT =  -19; REM =   8BЧ/╝Ж QUOT =  -23; REM = -22B┤/╞Ж QUOT =  -24; REM = -28B╤/╨Ж QUOT =  -25; REM = -27Bю/┌Ж QUOT =  -19; REM = -23C0Ж 596 DIVIDED BY 60 =C%0Ж QUOT =    9; REM =  56CB0 Ж QUOT =   10; REM =  59C_0*Ж QUOT =   14; REM =  53C|04Ж QUOT =    7; REM =  51CЩ0>Ж QUOT =   11; REM =  61C│0pЖ 826 DIVIDED BY 20 =C╨0zЖ QUOT =   41; REM =   6Cэ0ДЖ QUOT =   38; REM =   8D
0ОЖ QUOT =   36; REM =   5D'0ШЖ QUOT =   43; REM =   7DD0вЖ QUOT =   40; REM =  10D_0╘Ж -692 DIVIDED BY 38 =D|0▐Ж QUOT =  -18; REM =   8DЩ0шЖ QUOT =  -15; REM =  33D╢0ЄЖ QUOT =  -23; REM =  26D╙0№Ж QUOT =  -21; REM =  34DЁ1Ж QUOT =  -22; REM =  27E
18Ж 600 DIVIDED BY 84 =E'1BЖ QUOT =    7; REM =  12ED1LЖ QUOT =   12; REM =  17Ea1VЖ QUOT =    6; REM =   8E~1`Ж QUOT =    3; REM =  16EЫ1jЖ QUOT =   11; REM =  11E┤1ЬЖ 94 DIVIDED BY 13 =E╤1жЖ QUOT =    7; REM =   3Eю1░Ж QUOT =    9; REM =   6F1║Ж QUOT =    8; REM =  -2F(1─Ж QUOT =    3; REM =   1FE1╬Ж QUOT =   10; REM =   4F`2Ж 950 DIVIDED BY -25 =F}2
Ж QUOT =  -38; REM =   0FЪ2Ж QUOT =  -40; REM =  -2F╖2Ж QUOT =  -41; REM =  -1F╘2(Ж QUOT =  -39; REM =   3Fё22Ж QUOT =  -42; REM =   4G2dЖ 929 DIVIDED BY 59 =G(2nЖ QUOT =   15; REM =  44GE2xЖ QUOT =   17; REM =  40Gb2ВЖ QUOT =   10; REM =  49G2МЖ QUOT =   19; REM =  46GЬ2ЦЖ QUOT =   13; REM =  41Gл2а:Г***** 20G┼2╚Ж 526 DIVIDED BY 61 =Gт2╥Ж QUOT =    8; REM =  38G 2▄Ж QUOT =    6; REM =  37H2цЖ QUOT =   12; REM =  41H92ЁЖ QUOT =    3; REM =  35HV2·Ж QUOT =   13; REM =  43Hp3,Ж 296 DIVIDED BY 17 =HН36Ж QUOT =   17; REM =   7Hк3@Ж QUOT =   18; REM =   4H╟3JЖ QUOT =   16; REM =   5Hф3TЖ QUOT =   19; REM =  12I
3^Ж QUOT =   21; REM =   6I3РЖ 515 DIVIDED BY 54 =I83ЪЖ QUOT =    9; REM =  29IU3дЖ QUOT =    7; REM =  28Ir3оЖ QUOT =   10; REM =  25IП3╕Ж QUOT =    5; REM =  32Iм3┬Ж QUOT =    6; REM =  30I╞3ЇЖ 865 DIVIDED BY 37 =Iу3■Ж QUOT =   23; REM =  14J4Ж QUOT =   27; REM =   9J4Ж QUOT =   22; REM =  13J:4Ж QUOT =   24; REM =  17JW4&Ж QUOT =   19; REM =  19Jq4XЖ 579 DIVIDED BY 59 =JО4bЖ QUOT =    9; REM =  48Jл4lЖ QUOT =   10; REM =  50J╚4vЖ QUOT =    6; REM =  52Jх4АЖ QUOT =    7; REM =  43K4КЖ QUOT =   14; REM =  45K4╝Ж 89 DIVIDED BY 90 =K84╞Ж QUOT =    0; REM =  89KU4╨Ж QUOT =    0; REM =  92Kr4┌Ж QUOT =    0; REM =  93KП4фЖ QUOT =    0; REM =  91Kм4юЖ QUOT =    0; REM =  88K╞5 Ж 303 DIVIDED BY 38 =Kу5*Ж QUOT =    7; REM =  37L54Ж QUOT =    2; REM =  32L5>Ж QUOT =    4; REM =  36L:5HЖ QUOT =    8; REM =  41LW5RЖ QUOT =   11; REM =  40Lp5ДЖ 48 DIVIDED BY 10 =LН5ОЖ QUOT =    4; REM =   8Lк5ШЖ QUOT =    5; REM =  12L╟5вЖ QUOT =    2; REM =  10Lф5мЖ QUOT =    1; REM =   9M
5╢Ж QUOT =    7; REM =   6M5шЖ 618 DIVIDED BY 77 =M85ЄЖ QUOT =    8; REM =   2MU5№Ж QUOT =    4; REM =  -2Mr6Ж QUOT =   13; REM =   4MП6Ж QUOT =    3; REM =   5Mм6Ж QUOT =    9; REM =   3M╞6LЖ 116 DIVIDED BY 12 =Mу6VЖ QUOT =    9; REM =   8N6`Ж QUOT =    7; REM =   7N6jЖ QUOT =   10; REM =  10N:6tЖ QUOT =   13; REM =  12NW6~Ж QUOT =    5; REM =   3Nf6И:Г***** 30NА6░Ж 111 DIVIDED BY 35 =NЭ6║Ж QUOT =    3; REM =   6N║6─Ж QUOT =    0; REM =  11N╫6╬Ж QUOT =    2; REM =   9NЇ6╪Ж QUOT =    5; REM =   7O6тЖ QUOT =   -2; REM =   1O*7Ж 31 DIVIDED BY 16 =OG7Ж QUOT =    1; REM =  15Od7(Ж QUOT =    0; REM =  16OБ72Ж QUOT =    5; REM =  12OЮ7<Ж QUOT =   -4; REM =  10O╗7FЖ QUOT =   -2; REM =  19O╒7xЖ 452 DIVIDED BY 49 =OЄ7ВЖ QUOT =    9; REM =  11P7МЖ QUOT =    7; REM =   7P,7ЦЖ QUOT =   11; REM =   9PI7аЖ QUOT =   14; REM =  15Pf7кЖ QUOT =   13; REM =   6PА7▄Ж 979 DIVIDED BY 73 =PЭ7цЖ QUOT =   13; REM =  30P║7ЁЖ QUOT =   18; REM =  26P╫7·Ж QUOT =   12; REM =  28PЇ8Ж QUOT =   16; REM =  31Q8Ж QUOT =   15; REM =  35Q+8@Ж 607 DIVIDED BY 10 =QH8JЖ QUOT =   60; REM =   7Qe8TЖ QUOT =   64; REM =   5QВ8^Ж QUOT =   55; REM =   3QЯ8hЖ QUOT =   57; REM =   2Q╝8rЖ QUOT =   56; REM =   9Q╘8дЖ 93 DIVIDED BY 6 =Qё8оЖ QUOT =   15; REM =   3R8╕Ж QUOT =   11; REM =  -1R+8┬Ж QUOT =   12; REM =   2RH8╠Ж QUOT =   10; REM =  -2Re8╓Ж QUOT =   19; REM =   1R9Ж 985 DIVIDED BY 92 =RЬ9Ж QUOT =   10; REM =  65R╣9Ж QUOT =   14; REM =  64R╓9&Ж QUOT =   12; REM =  70Rє90Ж QUOT =    7; REM =  62S9:Ж QUOT =   13; REM =  60S*9lЖ 284 DIVIDED BY 86 =SG9vЖ QUOT =    3; REM =  26Sd9АЖ QUOT =    6; REM =  24SБ9КЖ QUOT =    4; REM =  27SЮ9ФЖ QUOT =    7; REM =  21S╗9ЮЖ QUOT =   -1; REM =  30S╒9╨Ж 174 DIVIDED BY 49 =SЄ9┌Ж QUOT =    3; REM =  27T9фЖ QUOT =    8; REM =  29T,9юЖ QUOT =    0; REM =  23TI9°Ж QUOT =    2; REM =  32Tf:Ж QUOT =    6; REM =  31TА:4Ж 803 DIVIDED BY 83 =TЭ:>Ж QUOT =    9; REM =  56T║:HЖ QUOT =    4; REM =  60T╫:RЖ QUOT =   10; REM =  57TЇ:\Ж QUOT =   12; REM =  53U:fЖ QUOT =    5; REM =  54U :p:Г***** 40U<>АЖ 9796 DIVIDED BY 724 =UY>КЖ QUOT =   13; REM = 384Uv>ФЖ QUOT =   14; REM = 394UУ>ЮЖ QUOT =   16; REM = 378U░>иЖ QUOT =    9; REM = 385U═>▓Ж QUOT =   10; REM = 387Uщ>фЖ 4329 DIVIDED BY 470 =V>юЖ QUOT =    9; REM =  99V#>°Ж QUOT =   12; REM = 103V@?Ж QUOT =   10; REM =  96V]?Ж QUOT =    7; REM = 104Vz?Ж QUOT =    6; REM =  98VЦ?HЖ 5892 DIVIDED BY 437 =V│?RЖ QUOT =   13; REM = 211V╨?\Ж QUOT =   18; REM = 207Vэ?fЖ QUOT =   14; REM = 212W
?pЖ QUOT =   17; REM = 217W'?zЖ QUOT =   15; REM = 213WC?мЖ 3480 DIVIDED BY 695 =W`?╢Ж QUOT =    5; REM =   5W}?└Ж QUOT =    3; REM =   4WЪ?╩Ж QUOT =    0; REM =   8W╖?╘Ж QUOT =    9; REM =   6W╘?▐Ж QUOT =    6; REM =   2WЁ@Ж 4135 DIVIDED BY 328 =X
@Ж QUOT =   12; REM = 199X*@$Ж QUOT =   10; REM = 190XG@.Ж QUOT =   16; REM = 193Xd@8Ж QUOT =   17; REM = 200XБ@BЖ QUOT =    9; REM = 206XЭ@tЖ 9344 DIVIDED BY 928 =X║@~Ж QUOT =   10; REM =  64X╫@ИЖ QUOT =    7; REM =  66XЇ@ТЖ QUOT =    6; REM =  63Y@ЬЖ QUOT =   13; REM =  67Y.@жЖ QUOT =   12; REM =  68YJ@╪Ж 7885 DIVIDED BY 255 =Yg@тЖ QUOT =   30; REM = 235YД@ьЖ QUOT =   28; REM = 232Yб@ЎЖ QUOT =   29; REM = 227Y╛AЖ QUOT =   32; REM = 240Y█A
Ж QUOT =   31; REM = 228YЎA<Ж 213 DIVIDED BY 763 =ZAFЖ QUOT =    0; REM = 213Z0APЖ QUOT =    0; REM = 204ZMAZЖ QUOT =    0; REM = 211ZjAdЖ QUOT =    0; REM = 210ZЗAnЖ QUOT =    0; REM = 212ZгAаЖ 3960 DIVIDED BY 324 =Z└AкЖ QUOT =   12; REM =  72Z▌A┤Ж QUOT =   17; REM =  69Z·A╛Ж QUOT =   14; REM =  73[A╚Ж QUOT =    9; REM =  71[4A╥Ж QUOT =    8; REM =  76[PBЖ 7331 DIVIDED BY 572 =[mBЖ QUOT =   12; REM = 467[КBЖ QUOT =    7; REM = 459[зB"Ж QUOT =   14; REM = 468[─B,Ж QUOT =   11; REM = 464[сB6Ж QUOT =   17; REM = 462[ЁB@:Г***** 50[№N :Г*****\N*:Г*\N4:Г* END OF DATA LIST\%N>:Г*\1NH:Г*****\=kl:Г*****\Ekv:Г*\gkА:Г* STANDARD BASIC QUIZ GAMES\ЖkК:Г* INITIALIZATION ROUTINE\ОkФ:Г*\ЪkЮ:Г*****\аk╨Ю\жk┌З\├kфЗ "  LOADING THE SYSTEM"\┘kюЗ "  PLEASE WAIT"\▀k°З\·l:ГRANDOMIZATION ARRAYS]lМ R1(5)]lМ R2(4)]l М RR(4)]9l*:ГSCRAMBLE CODES ARRAY]Gl4М S(24,4)]hl>:ГRANDOMIZE THE RND FUNCTION]xlHR │  Д(м Я)]ЬlШ:ГINITIALIZE THE SCRAMBLE CODES]лlвS(0,0) │ 0]║lмS(0,1) │ 1]╔l╢S(0,2) │ 2]╪l└S(0,3) │ 3]чl╩S(1,0) │ 0]Ўl╘S(1,1) │ 1^l▐S(1,2) │ 3^lшS(1,3) │ 2^#lЄS(2,0) │ 0^2l№S(2,1) │ 2^AmS(2,2) │ 1^PmS(2,3) │ 3^_mS(3,0) │ 0^nm$S(3,1) │ 2^}m.S(3,2) │ 3^Мm8S(3,3) │ 1^ЫmBS(4,0) │ 0^кmLS(4,1) │ 3^╣mVS(4,2) │ 1^╚m`S(4,3) │ 2^╫mjS(5,0) │ 0^цmtS(5,1) │ 3^їm~S(5,2) │ 2_mИS(5,3) │ 1_mТS(6,0) │ 1_"mЬS(6,1) │ 0_1mжS(6,2) │ 2_@m░S(6,3) │ 3_Om║S(7,0) │ 1_^m─S(7,1) │ 0_mm╬S(7,2) │ 3_|m╪S(7,3) │ 2_ЛmтS(8,0) │ 1_ЪmьS(8,1) │ 2_йmЎS(8,2) │ 0_╕nS(8,3) │ 3_╟n
S(9,0) │ 1_╓nS(9,1) │ 2_хnS(9,2) │ 3_Їn(S(9,3) │ 0`n2S(10,0) │ 1`n<S(10,1) │ 3`$nFS(10,2) │ 0`4nPS(10,3) │ 2`DnZS(11,0) │ 1`TndS(11,1) │ 3`dnnS(11,2) │ 2`tnxS(11,3) │ 0`ДnВS(12,0) │ 2`ФnМS(12,1) │ 0`дnЦS(12,2) │ 1`┤nаS(12,3) │ 3`─nкS(13,0) │ 2`╘n┤S(13,1) │ 0`фn╛S(13,2) │ 3`Їn╚S(13,3) │ 1an╥S(14,0) │ 2an▄S(14,1) │ 1a$nцS(14,2) │ 0a4nЁS(14,3) │ 3aDn·S(15,0) │ 2aToS(15,1) │ 1adoS(15,2) │ 3atoS(15,3) │ 0aДo"S(16,0) │ 2aФo,S(16,1) │ 3aдo6S(16,2) │ 0a┤o@S(16,3) │ 1a─oJS(17,0) │ 2a╘oTS(17,1) │ 3aфo^S(17,2) │ 1aЇohS(17,3) │ 0borS(18,0) │ 3bo|S(18,1) │ 0b$oЖS(18,2) │ 1b4oРS(18,3) │ 2bDoЪS(19,0) │ 3bToдS(19,1) │ 0bdoоS(19,2) │ 2bto╕S(19,3) │ 1bДo┬S(20,0) │ 3bФo╠S(20,1) │ 1bдo╓S(20,2) │ 0b┤oрS(20,3) │ 2b─oъS(21,0) │ 3b╘oЇS(21,1) │ 1bфo■S(21,2) │ 2bЇpS(21,3) │ 0cpS(22,0) │ 3cpS(22,1) │ 2c$p&S(22,2) │ 0c4p0S(22,3) │ 1cDp:S(23,0) │ 3cTpDS(23,1) │ 2cdpNS(23,2) │ 1ctpXS(23,3) │ 0czpbРcЖpl:Г*****cОpv:Г*cйpА:Г* END INITIALIZATIONc▒pК:Г*c╜pФ:Г*****c╔s<:Г*****c╤sF:Г*cюsP:Г* DISPLAY THE STANDARDdsZ:Г* BASIC QUIZ GAMESdsd:Г* SPLASH SCREENd%sn:Г*d1sx:Г*****d7sаЮd[sк:ГLINES 0 AND 1 ARE BLANK GREENdБs┤:ГDISPLAY UNIFORM STANDARD LINE 2dЬs╛SD$ │  Л(32) л  Л(158)dнs╚А I │ 0 е 27d┼s╥SD$ │ SD$ л  Л(156)d═s▄Л IdюsцSD$ │ SD$ л  Л(157) л  Л(32)d№sЁЗ@64, SD$e"s·:ГDISPLAY UNIFORM STANDARD LINE 3eGtSD$ │  Л(32) л  Л(154) л  Л(206)eXtА I │ 0 е 25eptSD$ │ SD$ л  Л(204)ext"Л Ieгt,SD$ │ SD$ л  Л(205) л  Л(149) л  Л(32)e▒t6З@96, SD$e╫t@:ГDISPLAY UNIFORM STANDARD LINE 4e№tJSD$ │  Л(32) л  Л(154) л  Л(202)f
tTА I │ 0 е 25f$t^SD$ │ SD$ л  Л(32)f,thЛ IfWtrSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)fft|З@128, SD$fНtЖ:ГDISPLAY SPECIFIC STANDARD LINE 5f▓tРSD$ │  Л(32) л  Л(154) л  Л(202)f█tЪ:Г *** CHANGE NEXT LINE AS REQUIRED:gtдSD$ │ SD$ л "    ADVANCED  DIVISION    "g3tоSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)gBt╕З@160, SD$git┬:ГDISPLAY SPECIFIC STANDARD LINE 6gОt╠SD$ │  Л(32) л  Л(154) л  Л(202)g╖t╓:Г *** CHANGE NEXT LINE AS REQUIRED:gфtрSD$ │ SD$ л "        QUIZ GAME         "htъSD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)htЇЗ@192, SD$hDt■:ГDISPLAY UNIFORM STANDARD LINE 7hiuSD$ │  Л(32) л  Л(154) л  Л(202)hzuА I │ 0 е 25hСuSD$ │ SD$ л  Л(32)hЩu&Л Ih─u0SD$ │ SD$ л  Л(197) л  Л(149) л  Л(32)h╙u:З@224, SD$h∙uD:ГDISPLAY UNIFORM STANDARD LINE 8iuNSD$ │  Л(32) л  Л(154) л  Л(203)i/uXА I │ 0 е 25iGubSD$ │ SD$ л  Л(195)iOulЛ IizuvSD$ │ SD$ л  Л(199) л  Л(149) л  Л(32)iЙuАЗ@256, SD$iпuК:ГDISPLAY UNIFORM STANDARD LINE 9i╩uФSD$ │  Л(32) л  Л(155)i█uЮА I │ 0 е 27iєuиSD$ │ SD$ л  Л(147)i√u▓Л Iju╝SD$ │ SD$ л  Л(151) л  Л(32)j+u╞З@288, SD$jHu╨:ГLINE 10 IS BLANK GREENjou┌:ГDISPLAY UNIFORM STANDARD LINE 11jЭuфЗ@352, "   PRESS ANY KEY  TO CONTINUE   "j├uю:ГLINES 12 AND 13 ARE BLANK GREENjыu°:ГDISPLAY SPECIFIC STANDARD LINE 14kv:Г *** CHANGE THE YEAR AS REQUIREDkAvЗ@448, "       BDS SOFTWARE  2022       ";k^v:ГLINE 15 IS BLANK GREENkjv A$ │  Тkv*Е A$│"" Бе 30240kЕv4РkСv>:Г*****kЩvH:Г*kбvR:Г*kнv\:Г*****k│ КE BLANK GREENjыu°:ГDISPLAY SPECIFIC STANDARD LINE 14kv:Г *** CHANGE T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
101 README.TXT
102 .
103 ADVDIV.BAS IS A QUIZ GAME
104 TO TEST YOUR KNOWLEDGE OF
105 ADVANCED DIVISION 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/'