28210 S(10,0) = 1 28220 S(10,1) = 3 28230 S(10,2) = 0 28240 S(10,3) = 2 28250 S(11,0) = 1 28260 S(11,1) = 3 28270 S(11,2) = 2 28280 S(11,3) = 0 28290 S(12,0) = 2 28300 S(12,1) = 0 28310 S(12,2) = 1 28320 S(12,3) = 3 28330 S(13,0) = 2 28340 S(13,1) = 0 28350 S(13,2) = 3 28360 S(13,3) = 1 28370 S(14,0) = 2 28380 S(14,1) = 1 28390 S(14,2) = 0 28400 S(14,3) = 3 28410 S(15,0) = 2 28420 S(15,1) = 1 28430 S(15,2) = 3 28440 S(15,3) = 0 28450 S(16,0) = 2 28460 S(16,1) = 3 28470 S(16,2) = 0 28480 S(16,3) = 1 28490 S(17,0) = 2 28500 S(17,1) = 3 28510 S(17,2) = 1 28520 S(17,3) = 0 28530 S(18,0) = 3 28540 S(18,1) = 0 28550 S(18,2) = 1 28560 S(18,3) = 2 28570 S(19,0) = 3 28580 S(19,1) = 0 28590 S(19,2) = 2 28600 S(19,3) = 1 28610 S(20,0) = 3 28620 S(20,1) = 1 28630 S(20,2) = 0 28640 S(20,3) = 2 28650 S(21,0) = 3 28660 S(21,1) = 1 28670 S(21,2) = 2 28680 S(21,3) = 0 28690 S(22,0) = 3 28700 S(22,1) = 2 28710 S(22,2) = 0 28720 S(22,3) = 1 28730 S(23,0) = 3 28740 S(23,1) = 2 28750 S(23,2) = 1 28760 S(23,3) = 0 28770 RETURN 28780 '***** 28790 '* 28800 '* END INITIALIZATION 28810 '* 28820 '***** 29500 '***** 29510 '* 29520 '* DISPLAY THE STANDARD 29530 '* BASIC QUIZ GAMES 29540 '* SPLASH SCREEN 29550 '* 29560 '***** 29600 CLS 29610 'LINES 0 AND 1 ARE BLANK GREEN 29620 'DISPLAY UNIFORM STANDARD LINE 2 29630 SD$ = CHR$(32) + CHR$(158) 29640 FOR I = 0 TO 27 29650 SD$ = SD$ + CHR$(156) 29660 NEXT I 29670 SD$ = SD$ + CHR$(157) + CHR$(32) 29680 PRINT@64, SD$ 29690 'DISPLAY UNIFORM STANDARD LINE 3 29700 SD$ = CHR$(32) + CHR$(154) + CHR$(206) 29710 FOR I = 0 TO 25 29720 SD$ = SD$ + CHR$(204) 29730 NEXT I 29740 SD$ = SD$ + CHR$(205) + CHR$(149) + CHR$(32) 29750 PRINT@96, SD$ 29760 'DISPLAY UNIFORM STANDARD LINE 4 29770 SD$ = CHR$(32) + CHR$(154) + CHR$(202) 29780 FOR I = 0 TO 25 29790 SD$ = SD$ + CHR$(32) 29800 NEXT I 29810 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32) 29820 PRINT@128, SD$ 29830 'DISPLAY SPECIFIC STANDARD LINE 5 29840 SD$ = CHR$(32) + CHR$(154) + CHR$(202) 29850 ' *** CHANGE NEXT LINE AS REQUIRED: 29860 SD$ = SD$ + " DIVISION PRACTICE " 29870 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32) 29880 PRINT@160, SD$ 29890 'DISPLAY SPECIFIC STANDARD LINE 6 29900 SD$ = CHR$(32) + CHR$(154) + CHR$(202) 29910 ' *** CHANGE NEXT LINE AS REQUIRED: 29920 SD$ = SD$ + " QUIZ GAME " 29930 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32) 29940 PRINT@192, SD$ 29950 'DISPLAY UNIFORM STANDARD LINE 7 29960 SD$ = CHR$(32) + CHR$(154) + CHR$(202) 29970 FOR I = 0 TO 25 29980 SD$ = SD$ + CHR$(32) 29990 NEXT I 30000 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32) 30010 PRINT@224, SD$ 30020 'DISPLAY UNIFORM STANDARD LINE 8 30030 SD$ = CHR$(32) + CHR$(154) + CHR$(203) 30040 FOR I = 0 TO 25 30050 SD$ = SD$ + CHR$(195) 30060 NEXT I 30070 SD$ = SD$ + CHR$(199) + CHR$(149) + CHR$(32) 30080 PRINT@256, SD$ 30090 'DISPLAY UNIFORM STANDARD LINE 9 30100 SD$ = CHR$(32) + CHR$(155) 30110 FOR I = 0 TO 27 30120 SD$ = SD$ + CHR$(147) 30130 NEXT I 30140 SD$ = SD$ + CHR$(151) + CHR$(32) 30150 PRINT@288, SD$ 30160 'LINE 10 IS BLANK GREEN 30170 'DISPLAY UNIFORM STANDARD LINE 11 30180 PRINT@352, " PRESS ANY KEY TO CONTINUE " 30190 'LINES 12 AND 13 ARE BLANK GREEN 30200 'DISPLAY SPECIFIC STANDARD LINE 14 30210 ' *** CHANGE THE YEAR AS REQUIRED 30220 PRINT@448, " BDS SOFTWARE 2022 "; 30230 'LINE 15 IS BLANK GREEN 30240 A$ = INKEY$ 30250 IF A$="" GOTO 30240 30260 RETURN 30270 '***** 30280 '* 30290 '* END SPLASH SCREEN 30300 '* 30310 '***** 32767 END ' *** CHANGE THE YEAR AS REQUIRED 30220 PRINT@448, " BDS SOFTWARE 2022 "; 30230 'LINE 15 I                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 = 0; REM = 5 15130 DATA QUOT = 1; REM = 1 15140 DATA QUOT = 1; REM = 2 15150 DATA QUOT = 1; REM = 4 15200 DATA 8 DIVIDED BY 4 = 15210 DATA QUOT = 2; REM = 0 15220 DATA QUOT = 0; REM = 4 15230 DATA QUOT = 1; REM = 4 15240 DATA QUOT = 2; REM = 2 15250 DATA QUOT = 2; REM = 4 15300 DATA 8 DIVIDED BY 3 = 15310 DATA QUOT = 2; REM = 2 15320 DATA QUOT = 0; REM = 3 15330 DATA QUOT = 1; REM = 5 15340 DATA QUOT = 2; REM = 1 15350 DATA QUOT = 2; REM = 3 15400 DATA 8 DIVIDED BY 2 = 15410 DATA QUOT = 4; REM = 0 15420 DATA QUOT = 0; REM = 2 15430 DATA QUOT = 3; REM = 2 15440 DATA QUOT = 2; REM = 4 15450 DATA QUOT = 1; REM = 6 15500 DATA 8 DIVIDED BY 1 = 15510 DATA QUOT = 8; REM = 0 15520 DATA QUOT = 0; REM = 8 15530 DATA QUOT = 7; REM = 1 15540 DATA QUOT = 6; REM = 2 15550 DATA QUOT = 5; REM = 3 15600 DATA 7 DIVIDED BY 8 = 15610 DATA QUOT = 0; REM = 7 15620 DATA QUOT = 1; REM = 1 15630 DATA QUOT = 1; REM = 0 15640 DATA QUOT = 1; REM = 2 15650 DATA QUOT = 1; REM = 3 15700 DATA 7 DIVIDED BY 7 = 15710 DATA QUOT = 1; REM = 0 15720 DATA QUOT = 0; REM = 7 15730 DATA QUOT = 1; REM = 1 15740 DATA QUOT = 1; REM = 2 15750 DATA QUOT = 1; REM = 3 15800 DATA 7 DIVIDED BY 6 = 15810 DATA QUOT = 1; REM = 1 15820 DATA QUOT = 0; REM = 6 15830 DATA QUOT = 1; REM = 0 15840 DATA QUOT = 1; REM = 2 15850 DATA QUOT = 1; REM = 3 15900 DATA 7 DIVIDED BY 5 = 15910 DATA QUOT = 1; REM = 2 15920 DATA QUOT = 0; REM = 5 15930 DATA QUOT = 1; REM = 1 15940 DATA QUOT = 1; REM = 3 15950 DATA QUOT = 1; REM = 4 15960 '***** 50 16000 DATA 7 DIVIDED BY 4 = 16010 DATA QUOT = 1; REM = 3 16020 DATA QUOT = 2; REM = 1 16030 DATA QUOT = 0; REM = 4 16040 DATA QUOT = 1; REM = 1 16050 DATA QUOT = 1; REM = 2 16100 DATA 7 DIVIDED BY 3 = 16110 DATA QUOT = 2; REM = 1 16120 DATA QUOT = 0; REM = 3 16130 DATA QUOT = 1; REM = 4 16140 DATA QUOT = 2; REM = 0 16150 DATA QUOT = 2; REM = 2 16200 DATA 7 DIVIDED BY 2 = 16210 DATA QUOT = 3; REM = 1 16220 DATA QUOT = 0; REM = 2 16230 DATA QUOT = 2; REM = 3 16240 DATA QUOT = 1; REM = 5 16250 DATA QUOT = 3; REM = 2 16300 DATA 7 DIVIDED BY 1 = 16310 DATA QUOT = 7; REM = 0 16320 DATA QUOT = 6; REM = 1 16330 DATA QUOT = 5; REM = 2 16340 DATA QUOT = 4; REM = 3 16350 DATA QUOT = 3; REM = 4 16400 DATA 6 DIVIDED BY 8 = 16410 DATA QUOT = 0; REM = 6 16420 DATA QUOT = 1; REM = 2 16430 DATA QUOT = 1; REM = 1 16440 DATA QUOT = 1; REM = 0 16450 DATA QUOT = 2; REM = 3 16500 DATA 6 DIVIDED BY 7 = 16510 DATA QUOT = 0; REM = 6 16520 DATA QUOT = 1; REM = 2 16530 DATA QUOT = 1; REM = 1 16540 DATA QUOT = 1; REM = 0 16550 DATA QUOT = 2; REM = 3 16600 DATA 6 DIVIDED BY 6 = 16610 DATA QUOT = 1; REM = 0 16620 DATA QUOT = 1; REM = 1 16630 DATA QUOT = 0; REM = 6 16640 DATA QUOT = 1; REM = 5 16650 DATA QUOT = 1; REM = 2 16700 DATA 6 DIVIDED BY 5 = 16710 DATA QUOT = 1; REM = 1 16720 DATA QUOT = 0; REM = 5 16730 DATA QUOT = 1; REM = 0 16740 DATA QUOT = 1; REM = 2 16750 DATA QUOT = 1; REM = 3 16800 DATA 6 DIVIDED BY 4 = 16810 DATA QUOT = 1; REM = 2 16820 DATA QUOT = 0; REM = 4 16830 DATA QUOT = 1; REM = 0 16840 DATA QUOT = 1; REM = 1 16850 DATA QUOT = 1; REM = 3 16900 DATA 6 DIVIDED BY 3 = 16910 DATA QUOT = 2; REM = 0 16920 DATA QUOT = 0; REM = 3 16930 DATA QUOT = 1; REM = 3 16940 DATA QUOT = 1; REM = 2 16950 DATA QUOT = 2; REM = 1 16960 '***** 60 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 2 12950 DATA QUOT = 4; REM = 5 12960 '***** 20 13000 DATA 10 DIVIDED BY 11 = 13010 DATA QUOT = 0; REM = 10 13020 DATA QUOT = 1; REM = 1 13030 DATA QUOT = 1; REM = 0 13040 DATA QUOT = 1; REM = 2 13050 DATA QUOT = 1; REM = 3 13100 DATA 10 DIVIDED BY 10 = 13110 DATA QUOT = 1; REM = 0 13120 DATA QUOT = 0; REM = 10 13130 DATA QUOT = 0; REM = 1 13140 DATA QUOT = 1; REM = 1 13150 DATA QUOT = 1; REM = 2 13200 DATA 10 DIVIDED BY 9 = 13210 DATA QUOT = 1; REM = 1 13220 DATA QUOT = 1; REM = 0 13230 DATA QUOT = 0; REM = 9 13240 DATA QUOT = 1; REM = 2 13250 DATA QUOT = 1; REM = 3 13300 DATA 10 DIVIDED BY 8 = 13310 DATA QUOT = 1; REM = 2 13320 DATA QUOT = 2; REM = 1 13330 DATA QUOT = 0; REM = 8 13340 DATA QUOT = 1; REM = 0 13350 DATA QUOT = 1; REM = 1 13400 DATA 10 DIVIDED BY 7 = 13410 DATA QUOT = 1; REM = 3 13420 DATA QUOT = 3; REM = 1 13430 DATA QUOT = 0; REM = 7 13440 DATA QUOT = 1; REM = 1 13450 DATA QUOT = 1; REM = 2 13500 DATA 10 DIVIDED BY 6 = 13510 DATA QUOT = 1; REM = 4 13520 DATA QUOT = 4; REM = 4 13530 DATA QUOT = 0; REM = 6 13540 DATA QUOT = 2; REM = 1 13550 DATA QUOT = 1; REM = 3 13600 DATA 10 DIVIDED BY 5 = 13610 DATA QUOT = 2; REM = 0 13620 DATA QUOT = 0; REM = 2 13630 DATA QUOT = 1; REM = 5 13640 DATA QUOT = 1; REM = 4 13650 DATA QUOT = 1; REM = 3 13700 DATA 10 DIVIDED BY 4 = 13710 DATA QUOT = 2; REM = 2 13720 DATA QUOT = 2; REM = 0 13730 DATA QUOT = 0; REM = 4 13740 DATA QUOT = 2; REM = 1 13750 DATA QUOT = 2; REM = 3 13800 DATA 10 DIVIDED BY 3 = 13810 DATA QUOT = 3; REM = 1 13820 DATA QUOT = 3; REM = 0 13830 DATA QUOT = 2; REM = 4 13840 DATA QUOT = 0; REM = 3 13850 DATA QUOT = 3; REM = 2 REM = 4 13740 DATA QUOT = 2; REM = 1 13750 DATA QUOT = 2; REM = 3 13800 DATA 10                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 13900 DATA 10 DIVIDED BY 2 = 13910 DATA QUOT = 5; REM = 0 13920 DATA QUOT = 4; REM = 2 13930 DATA QUOT = 3; REM = 4 13940 DATA QUOT = 4; REM = 1 13950 DATA QUOT = 5; REM = 1 13960 '***** 30 14000 DATA 9 DIVIDED BY 9 = 14010 DATA QUOT = 1; REM = 0 14020 DATA QUOT = 0; REM = 9 14030 DATA QUOT = 1; REM = 3 14040 DATA QUOT = 1; REM = 2 14050 DATA QUOT = 1; REM = 1 14100 DATA 9 DIVIDED BY 8 = 14110 DATA QUOT = 1; REM = 1 14120 DATA QUOT = 0; REM = 8 14130 DATA QUOT = 1; REM = 0 14140 DATA QUOT = 1; REM = 2 14150 DATA QUOT = 1; REM = 3 14200 DATA 9 DIVIDED BY 7 = 14210 DATA QUOT = 1; REM = 2 14220 DATA QUOT = 0; REM = 7 14230 DATA QUOT = 1; REM = 0 14240 DATA QUOT = 1; REM = 1 14250 DATA QUOT = 1; REM = 3 14300 DATA 9 DIVIDED BY 6 = 14310 DATA QUOT = 1; REM = 3 14320 DATA QUOT = 0; REM = 6 14330 DATA QUOT = 2; REM = 0 14340 DATA QUOT = 1; REM = 2 14350 DATA QUOT = 1; REM = 1 14400 DATA 9 DIVIDED BY 5 = 14410 DATA QUOT = 1; REM = 4 14420 DATA QUOT = 0; REM = 5 14430 DATA QUOT = 2; REM = 0 14440 DATA QUOT = 2; REM = 1 14450 DATA QUOT = 1; REM = 3 14500 DATA 9 DIVIDED BY 4 = 14510 DATA QUOT = 2; REM = 1 14520 DATA QUOT = 2; REM = 0 14530 DATA QUOT = 2; REM = 2 14540 DATA QUOT = 0; REM = 4 14550 DATA QUOT = 1; REM = 5 14600 DATA 9 DIVIDED BY 3 = 14610 DATA QUOT = 3; REM = 0 14620 DATA QUOT = 2; REM = 3 14630 DATA QUOT = 1; REM = 6 14640 DATA QUOT = 0; REM = 3 14650 DATA QUOT = 2; REM = 4 14700 DATA 9 DIVIDED BY 2 = 14710 DATA QUOT = 4; REM = 1 14720 DATA QUOT = 4; REM = 0 14730 DATA QUOT = 0; REM = 2 14740 DATA QUOT = 3; REM = 3 14750 DATA QUOT = 3; REM = 2 14800 DATA 8 DIVIDED BY 8 = 14810 DATA QUOT = 1; REM = 0 14820 DATA QUOT = 0; REM = 8 14830 DATA QUOT = 1; REM = 1 14840 DATA QUOT = 1; REM = 2 14850 DATA QUOT = 1; REM = 3 14900 DATA 8 DIVIDED BY 7 = 14910 DATA QUOT = 1; REM = 1 14920 DATA QUOT = 0; REM = 7 14930 DATA QUOT = 1; REM = 0 14940 DATA QUOT = 1; REM = 2 14950 DATA QUOT = 1; REM = 3 14960 '***** 40 15000 DATA 8 DIVIDED BY 6 = 15010 DATA QUOT = 1; REM = 2 15020 DATA QUOT = 0; REM = 6 15030 DATA QUOT = 1; REM = 0 15040 DATA QUOT = 1; REM = 1 15050 DATA QUOT = 1; REM = 4 15100 DATA 8 DIVIDED BY 5 = 15110 DATA QUOT = 1; REM = 3 15120 DATA QUOT " 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 = 60 10610 'QD$ = QUESTIONS DATA ARRAY 10620 DIM QD$(N,6) 10630 FOR I = 0 TO N-1 10640 FOR J = 0 TO 5 10650 READ QD$(I,J) 10660 NEXT J 10670 NEXT I 10680 PRINT " OKAY -" 10690 PRINT " ALL LOADED AND READY TO GO" 10700 PRINT 10710 PRINT " PRESS ANY KEY TO BEGIN" 10720 PRINT 10730 A$=INKEY$ 10740 IF A$="" GOTO 10730 10750 RETURN 10760 '***** 10770 '* 10780 '* END DATA LOADING 10790 '* 10800 '***** 10810 '***** 10820 '* 10830 '* START OF DATA LIST 10840 '* 10850 '***** 11000 DATA 12 DIVIDED BY 11 = 11010 DATA QUOT = 1; REM = 1 11020 DATA QUOT = 1; REM = 0 11030 DATA QUOT = 1; REM = 2 11040 DATA QUOT = 1; REM = 3 11050 DATA QUOT = 0; REM = 12 11100 DATA 12 DIVIDED BY 10 = 11110 DATA QUOT = 1; REM = 2 11120 DATA QUOT = 1; REM = 0 11130 DATA QUOT = 1; REM = 1 11140 DATA QUOT = 1; REM = 3 11150 DATA QUOT = 0; REM = 12 11200 DATA 12 DIVIDED BY 9 = 11210 DATA QUOT = 1; REM = 3 11220 DATA QUOT = 1; REM = 0 11230 DATA QUOT = 1; REM = 1 11240 DATA QUOT = 1; REM = 2 11250 DATA QUOT = 1; REM = 4 11300 DATA 12 DIVIDED BY 8 = 11310 DATA QUOT = 1; REM = 4 11320 DATA QUOT = 1; REM = 2 11330 DATA QUOT = 1; REM = 3 11340 DATA QUOT = 1; REM = 1 11350 DATA QUOT = 1; REM = 0 11400 DATA 12 DIVIDED BY 7 = 11410 DATA QUOT = 1; REM = 5 11420 DATA QUOT = 1; REM = 1 11430 DATA QUOT = 1; REM = 2 11440 DATA QUOT = 2; REM = 2 11450 DATA QUOT = 1; REM = 3 11500 DATA 12 DIVIDED BY 6 = 11510 DATA QUOT = 2; REM = 0 11520 DATA QUOT = 1; REM = 4 11530 DATA QUOT = 2; REM = 2 11540 DATA QUOT = 1; REM = 6 11550 DATA QUOT = 1; REM = 5 11600 DATA 12 DIVIDED BY 5 = 11610 DATA QUOT = 2; REM = 2 11620 DATA QUOT = 2; REM = 0 11630 DATA QUOT = 2; REM = 4 11640 DATA QUOT = 1; REM = 7 11650 DATA QUOT = 3; REM = 3 11700 DATA 12 DIVIDED BY 4 = 11710 DATA QUOT = 3; REM = 0 11720 DATA QUOT = 2; REM = 4 11730 DATA QUOT = 2; REM = 2 11740 DATA QUOT = 3; REM = 2 11750 DATA QUOT = 4; REM = 2 11800 DATA 12 DIVIDED BY 3 = 11810 DATA QUOT = 4; REM = 0 11820 DATA QUOT = 3; REM = 3 11830 DATA QUOT = 3; REM = 2 11840 DATA QUOT = 4; REM = 1 11850 DATA QUOT = 2; REM = 6 11900 DATA 12 DIVIDED BY 2 = 11910 DATA QUOT = 6; REM = 0 11920 DATA QUOT = 3; REM = 6 11930 DATA QUOT = 4; REM = 3 11940 DATA QUOT = 4; REM = 4 11950 DATA QUOT = 5; REM = 2 11960 '***** 10 12000 DATA 11 DIVIDED BY 11 = 12010 DATA QUOT = 1; REM = 0 12020 DATA QUOT = 0; REM = 11 12030 DATA QUOT = 1; REM = 1 12040 DATA QUOT = 1; REM = 2 12050 DATA QUOT = 1; REM = 3 12100 DATA 11 DIVIDED BY 10 = 12110 DATA QUOT = 1; REM = 1 12120 DATA QUOT = 1; REM = 0 12130 DATA QUOT = 0; REM = 10 12140 DATA QUOT = 1; REM = 2 12150 DATA QUOT = 1; REM = 3 12200 DATA 11 DIVIDED BY 9 = 12210 DATA QUOT = 1; REM = 2 12220 DATA QUOT = 1; REM = 0 12230 DATA QUOT = 1; REM = 1 12240 DATA QUOT = 1; REM = 3 12250 DATA QUOT = 0; REM = 9 12300 DATA 11 DIVIDED BY 8 = 12310 DATA QUOT = 1; REM = 3 12320 DATA QUOT = 1; REM = 0 12330 DATA QUOT = 1; REM = 1 12340 DATA QUOT = 1; REM = 2 12350 DATA QUOT = 0; REM = 8 12400 DATA 11 DIVIDED BY 7 = 12410 DATA QUOT = 1; REM = 4 12420 DATA QUOT = 1; REM = 0 12430 DATA QUOT = 1; REM = 2 12440 DATA QUOT = 1; REM = 5 12450 DATA QUOT = 0; REM = 7 12500 DATA 11 DIVIDED BY 6 = 12510 DATA QUOT = 1; REM = 5 12520 DATA QUOT = 2; REM = 0 12530 DATA QUOT = 1; REM = 3 12540 DATA QUOT = 1; REM = 7 12550 DATA QUOT = 0; REM = 6 12600 DATA 11 DIVIDED BY 5 = 12610 DATA QUOT = 2; REM = 1 12620 DATA QUOT = 2; REM = 7 12630 DATA QUOT = 2; REM = 3 12640 DATA QUOT = 1; REM = 7 12650 DATA QUOT = 0; REM = 5 12700 DATA 11 DIVIDED BY 4 = 12710 DATA QUOT = 2; REM = 3 12720 DATA QUOT = 1; REM = 7 12730 DATA QUOT = 2; REM = 1 12740 DATA QUOT = 2; REM = 2 12750 DATA QUOT = 0; REM = 4 12800 DATA 11 DIVIDED BY 3 = 12810 DATA QUOT = 3; REM = 2 12820 DATA QUOT = 3; REM = 1 12830 DATA QUOT = 2; REM = 5 12840 DATA QUOT = 2; REM = 4 12850 DATA QUOT = 3; REM = 4 12900 DATA 11 DIVIDED BY 2 = 12910 DATA QUOT = 5; REM = 1 12920 DATA QUOT = 4; REM = 3 12930 DATA QUOT = 3; REM = 5 12940 DATA QUOT = 5; REM = 100 '***** 101 '* 102 '* DIVISION.BAS 103 '* MDJ 2022/03/14 104 '* 105 '* A QUIZ TO TEST 106 '* KNOWLEDGE OF 107 '* 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(60) - 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 Hg& З@224, SD$&PЗ@256, SD$&+d:Г*****&3e:Г*&Hf:Г* DIVISION.BAS&_g:Г* MDJ 2022/03/14&gh:Г*&~i:Г* A QUIZ TO TEST&Уj:Г* KNOWLEDGE OF&дk:Г* DIVISION&мl:Г*&╕m:Г*****&╥n:ГGO TO THE PROGRAM'S&ъx:ГEXECUTIVE ROUTINE&ЎВБе 4220' Г:Г HEADER 00100'Д:Г SELECT 00200'2Е:Г EXEC 04000'FЖ:Г MAIN 05000'ZЗ:Г DATA 10500'nИ:Г INIT 27500'ВЙ:Г SPLASH 29500'О╚:Г*****'Ч╥:Г* '╡▄:Г* SELECTION SUBROUTINE:'╜ц:Г*'▌Ё:Г* THIS ROUTINE IS UNIFORM'■·:Г* AND REMAINS THE SAME FOR(:Г* EACH AND EVERY QUIZ GAME(':Г*(3:Г*****(M":ГRANDOM SELECTION OF(a,:ГFOUR OF FIVE.(}6:Г SELECTS FOUR ENTRIES(Э@:Г FROM FIVE POSSIBILITIES.(нJ:Г INPUTS:(╗T:Г NONE(╘^:Г OUTPUTS (GLOBAL)(ўh:Г RR(4) = THE SELECTED FOUR)r:Г RP = POSITION OF "0" ENTRY)@|:Г (0, 1, 2, OR 3))aЖ:Г = 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*8XR2(J) │ R1(I)*@bЛ I*Tl:ГSCRAMBLE PASS*gvJ │  Д(24) м 1*wАА I │ 0 е 3*ОКRR(I) │ R2(S(J,I))*ЦФЛ I*кЮ:ГPOSITION PASS*║иА I │ 0 е 3*╥▓Е RR(I) ┤▓ 0 Бе 710*▌╝RP │ I*х╞Л I*ы╨Р*ў┌:Г****** ф:Г*+ю:Г* ENDSUB+°:Г*+":Г*****+.а:Г*****+6к:Г*+I┤:Г* EXECUTIVE +Q╛:Г*+]╚:Г*****+r╥:ГVARIABLES LIST+Х▄:Г I, J = INDEXES AND COUNTERS+оц:Г A = RESPONSE CODE+─Ё:Г A$ = KEY PRESS+ф·:Г N = NUMBER OF QUESTIONS +∙:Г Q$ = QUESTION,:Г QA$ = QUESTION ANSWERS ARRAY,?:Г QD$ = QUESTIONS DATA ARRAY,\":Г 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-5h:Г SD$ = SCREEN DISPLAY TEXT-Tr:ГGO DISPLAY SPLASH SCREEN-a|Бж 29600-АЖ:ГGO INITIALIZE THE SYSTEM-НРБж 27600-кЪ:ГGO LOAD QUESTIONS DATA-╖дБж 10600-╫о:ГGO ENTER THE MAIN ROUTINE-у╕Бе 5110-я┬:Г*****-ў╠:Г*. ╓:Г* END EXECUTIVE.р:Г*.!ъ:Г*****.-И:Г*****.5Т:Г*.BЬ:Г* MAIN.Jж:Г*.V░:Г*****.s║:Г QN = QUESTION NUMBER.И─:Г Q$ = QUESTION.м╬:Г QA$ = QUESTION ANSWERS ARRAY.╬╪:Г QT = # OF QUESTIONS ASKED.Ёт:Г QC = # OF CORRECT ANSWERS/ь:Г QP = % CORRECT/ЎМ QA$(4)/QT │ 0/* QC │ 0/5QP │ 0/M:ГRANDOMLY SELECT A/\(:ГQUESTION/w2:ГADJUST RND FOR TOTAL/С<:ГNUMBER OF QUESTIONS/еFQN │  Д(60) м 1/╕PQ$ │ QD$(QN,0)/╥Z:ГRANDOMLY SELECT AND/ъd:ГSCRAMBLE FOUR OF 0n:ГTHE FIVE ANSWERS0 xБж 5000ВА I │ 0 е 309МQA$(I) │ QD$(QN,RR(I)л1)0AЦЛ I0[а:Г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)1;цЗ@256, " E. NONE OF THE ABOVE"1aЁЗ@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$│"" Бе 54102a6Е (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,233|З@320, " YOU MUST PRESS ONE OF A TO E"3?ЖБе 54103RРA │ 0: Бе 55703eЪA │ 1: Бе 55703xд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 "4EЕ RP│0 з SD$ │ SD$ л "A. "лQA$(0)4kЕ 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Бе 57705 Nа 204,15Xа 204,15%bа 204,151lа 218,35[vЗ@320, " *** THAT IS CORRECT! ***"5kА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$│"" Бе 581069╞Е (A$│"C" ▒ A$│ Л(99)) Бе 51906]╨Е (A$│"Q" ▒ A$│ Л(113)) Бе 58906i┌а 159,26uфа 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"7H4З " INFO@BDS-SOFT.COM"7V>З:З:З:З:З7cHБе 327677oR:Г*****7w\:Г*7Иf:Г* END MAIN7Рp:Г*7Ьz:Г*****7к&З@96, SD$7╣&\З@128, SD$7╚&ШЗ@160, SD$7╫&╘З@192, SD$7у):Г*****7ы):Г*8 ):Г* STANDARD BA                                                                                                                                                                                                                                                                                      ┼╟!"#$%&'(┴┼╔,┴                       DIVISIONBAS jDIVISIONTX1 лDIVISIONTX2 ШREADME TXT )ГLICENSE TXT *\MORE BAS+з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                SIC QUIZ GAMES8*)":Г* DATA LOADING ROUTINE82),:Г*8>)6:Г*****8V)@:ГTHIS DATA MUST BE8o)J:ГINDIVIDUALIZED FOR8И)T:ГEACH SPECIFIC QUIZ8ж)^:ГN = NUMBER OF QUESTIONS8▒)hN │ 608╥)r:ГQD$ = QUESTIONS DATA ARRAY8с)|М QD$(N,6)8є)ЖА I │ 0 е Nм19)РА J │ 0 е 59)ЪН QD$(I,J)9)дЛ J9")оЛ I94)╕З " OKAY -" 9Y)┬З " 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°*::Г*****:*D:Г*:*N:Г* START OF DATA LIST:#*X:Г*:/*b:Г*****:H*°Ж 12 DIVIDED BY 11 =:b+Ж QUOT = 1; REM = 1:|+ Ж QUOT = 1; REM = 0:Ц+Ж QUOT = 1; REM = 2:░+ Ж QUOT = 1; REM = 3:╩+*Ж QUOT = 0; REM = 12:у+\Ж 12 DIVIDED BY 10 =:¤+fЖ QUOT = 1; REM = 2;+pЖ QUOT = 1; REM = 0;1+zЖ QUOT = 1; REM = 1;K+ДЖ QUOT = 1; REM = 3;e+ОЖ QUOT = 0; REM = 12;}+└Ж 12 DIVIDED BY 9 =;Ч+╩Ж QUOT = 1; REM = 3;▒+╘Ж QUOT = 1; REM = 0;╦+▐Ж QUOT = 1; REM = 1;х+шЖ QUOT = 1; REM = 2; +ЄЖ QUOT = 1; REM = 4<,$Ж 12 DIVIDED BY 8 =<1,.Ж QUOT = 1; REM = 4-dЖ QUOT = 2; REM = 0>3-nЖ QUOT = 2; REM = 4>M-xЖ QUOT = 1; REM = 7>g-ВЖ QUOT = 3; REM = 3>-┤Ж 12 DIVIDED BY 4 =>Щ-╛Ж QUOT = 3; REM = 0>│-╚Ж QUOT = 2; REM = 4>═-╥Ж QUOT = 2; REM = 2>ч-▄Ж QUOT = 3; REM = 2?-цЖ QUOT = 4; REM = 2?.Ж 12 DIVIDED BY 3 =?3."Ж QUOT = 4; REM = 0?M.,Ж QUOT = 3; REM = 3?g.6Ж QUOT = 3; REM = 2?Б.@Ж QUOT = 4; REM = 1?Ы.JЖ QUOT = 2; REM = 6?│.|Ж 12 DIVIDED BY 2 =?═.ЖЖ QUOT = 6; REM = 0?ч.РЖ QUOT = 3; REM = 6@.ЪЖ QUOT = 4; REM = 3@.дЖ QUOT = 4; REM = 4@5.оЖ QUOT = 5; REM = 2@D.╕:Г***** 10@].рЖ 11 DIVIDED BY 11 =@w.ъЖ QUOT = 1; REM = 0@С.ЇЖ QUOT = 0; REM = 11@л.■Ж QUOT = 1; REM = 1@┼/Ж QUOT = 1; REM = 2@▀/Ж QUOT = 1; REM = 3@°/DЖ 11 DIVIDED BY 10 =A/NЖ QUOT = 1; REM = 1A,/XЖ QUOT = 1; REM = 0AF/bЖ QUOT = 0; REM = 10A`/lЖ QUOT = 1; REM = 2Az/vЖ QUOT = 1; REM = 3AТ/иЖ 11 DIVIDED BY 9 =Aм/▓Ж QUOT = 1; REM = 2A╞/╝Ж QUOT = 1; REM = 0Aр/╞Ж QUOT = 1; REM = 1A·/╨Ж QUOT = 1; REM = 3B/┌Ж QUOT = 0; REM = 9B,0 Ж 11 DIVIDED BY 8 =BF0Ж QUOT = 1; REM = 3B`0 Ж QUOT = 1; REM = 0Bz0*Ж QUOT = 1; REM = 1BФ04Ж QUOT = 1; REM = 2Bо0>Ж QUOT = 0; REM = 8B╞0pЖ 11 DIVIDED BY 7 =Bр0zЖ QUOT = 1; REM = 4B·0ДЖ QUOT = 1; REM = 0C0ОЖ QUOT = 1; REM = 2C.0ШЖ QUOT = 1; REM = 5CH0вЖ QUOT = 0; REM = 7C`0╘Ж 11 DIVIDED BY 6 =Cz0▐Ж QUOT = 1; REM = 5CФ0шЖ QUOT = 2; REM = 0Cо0ЄЖ QUOT = 1; REM = 3C╚0№Ж QUOT = 1; REM = 7Cт1Ж QUOT = 0; REM = 6C·18Ж 11 DIVIDED BY 5 =D1BЖ QUOT = 2; REM = 1D.1LЖ QUOT = 2; REM = 7DH1VЖ QUOT = 2; REM = 3Db1`Ж QUOT = 1; REM = 7D|1jЖ QUOT = 0; REM = 5DФ1ЬЖ 11 DIVIDED BY 4 =Dо1жЖ QUOT = 2; REM = 3D╚1░Ж QUOT = 1; REM = 7Dт1║Ж QUOT = 2; REM = 1D№1─Ж QUOT = 2; REM = 2E1╬Ж QUOT = 0; REM = 4E.2Ж 11 DIVIDED BY 3 =EH2 Ж QUOT = 3; REM = 2Eb2Ж QUOT = 3; REM = 1E|2Ж QUOT = 2; REM = 5EЦ2(Ж QUOT = 2; REM = 4E░22Ж QUOT = 3; REM = 4E╚2dЖ 11 DIVIDED BY 2 =Eт2nЖ QUOT = 5; REM = 1E№2xЖ QUOT = 4; REM = 3F2ВЖ QUOT = 3; REM = 5F02МЖ QUOT = 5; REM = 2FJ2ЦЖ QUOT = 4; REM = 5FY2а:Г***** 20Fr2╚Ж 10 DIVIDED BY 11 =FМ2╥Ж QUOT = 0; REM = 10Fж2▄Ж QUOT = 1; REM = 1F└2цЖ QUOT = 1; REM = 0F┌2ЁЖ QUOT = 1; REM = 2FЇ2·Ж QUOT = 1; REM = 3G 3,Ж 10 DIVIDED BY 10 =G'36Ж QUOT = 1; REM = 0GA3@Ж QUOT = 0; REM = 10G[3JЖ QUOT = 0; REM = 1Gu3TЖ QUOT = 1; REM = 1GП3^Ж QUOT = 1; REM = 2Gз3РЖ 10 DIVIDED BY 9 =G┴3ЪЖ QUOT = 1; REM = 1G█3дЖ QUOT = 1; REM = 0Gї3оЖ QUOT = 0; REM = 9H3╕Ж QUOT = 1; REM = 2H)3┬Ж QUOT = 1; REM = 3HA3ЇЖ 10 DIVIDED BY 8 =H[3■Ж QUOT = 1; REM = 2Hu4Ж QUOT = 2; REM = 1HП4Ж QUOT = 0; REM = 8Hй4Ж QUOT = 1; REM = 0H├4&Ж QUOT = 1; REM = 1H█4XЖ 10 DIVIDED BY 7 =Hї4bЖ QUOT = 1; REM = 3I4lЖ QUOT = 3; REM = 1I)4vЖ QUOT = 0; REM = 7IC4АЖ QUOT = 1; REM = 1I]4КЖ QUOT = 1; REM = 2Iu4╝Ж 10 DIVIDED BY 6 =IП4╞Ж QUOT = 1; REM = 4Iй4╨Ж QUOT = 4; REM = 4I├4┌Ж QUOT = 0; REM = 6I▌4фЖ QUOT = 2; REM = 1Iў4юЖ QUOT = 1; REM = 3J5 Ж 10 DIVIDED BY 5 =J)5*Ж QUOT = 2; REM = 0JC54Ж QUOT = 0; REM = 2J]5>Ж QUOT = 1; REM = 5Jw5HЖ QUOT = 1; REM = 4JС5RЖ QUOT = 1; REM = 3Jй5ДЖ 10 DIVIDED BY 4 =J├5ОЖ QUOT = 2; REM = 2J▌5ШЖ QUOT = 2; REM = 0Jў5вЖ QUOT = 0; REM = 4K5мЖ QUOT = 2; REM = 1K+5╢Ж QUOT = 2; REM = 3KC5шЖ 10 DIVIDED BY 3 =K]5ЄЖ QUOT = 3; REM = 1Kw5№Ж QUOT = 3; REM = 0KС6Ж QUOT = 2; REM = 4Kл6Ж QUOT = 0; REM = 3K┼6Ж QUOT = 3; REM = 2K▌6LЖ 10 DIVIDED BY 2 =Kў6VЖ QUOT = 5; REM = 0L6`Ж QUOT = 4; REM = 2L+6jЖ QUOT = 3; REM = 4LE6tЖ QUOT = 4; REM = 1L_6~Ж QUOT = 5; REM = 1Ln6И:Г***** 30LЕ6░Ж 9 DIVIDED BY 9 =LЯ6║Ж QUOT = 1; REM = 0L╣6─Ж QUOT = 0; REM = 9L╙6╬Ж QUOT = 1; REM = 3Lэ6╪Ж QUOT = 1; REM = 2M6тЖ QUOT = 1; REM = 1M7Ж 9 DIVIDED BY 8 =M87Ж QUOT = 1; REM = 1MR7(Ж QUOT = 0; REM = 8Ml72Ж QUOT = 1; REM = 0MЖ7<Ж QUOT = 1; REM = 2Mа7FЖ QUOT = 1; REM = 3M╖7xЖ 9 DIVIDED BY 7 =M╤7ВЖ QUOT = 1; REM = 2Mы7МЖ QUOT = 0; REM = 7N7ЦЖ QUOT = 1; REM = 0N7аЖ QUOT = 1; REM = 1N97кЖ QUOT = 1; REM = 3NP7▄Ж 9 DIVIDED BY 6 =Nj7цЖ QUOT = 1; REM = 3NД7ЁЖ QUOT = 0; REM = 6NЮ7·Ж QUOT = 2; REM = 0N╕8Ж QUOT = 1; REM = 2N╥8Ж QUOT = 1; REM = 1Nщ8@Ж 9 DIVIDED BY 5 =O8JЖ QUOT = 1; REM = 4O8TЖ QUOT = 0; REM = 5O78^Ж QUOT = 2; REM = 0OQ8hЖ QUOT = 2; REM = 1Ok8rЖ QUOT = 1; REM = 3OВ8дЖ 9 DIVIDED BY 4 =OЬ8оЖ QUOT = 2; REM = 1O╢8╕Ж QUOT = 2; REM = 0O╨8┬Ж QUOT = 2; REM = 2Oъ8╠Ж QUOT = 0; REM = 4P8╓Ж QUOT = 1; REM = 5P9Ж 9 DIVIDED BY 3 =P59Ж QUOT = 3; REM = 0PO9Ж QUOT = 2; REM = 3Pi9&Ж QUOT = 1; REM = 6PГ90Ж QUOT = 0; REM = 3PЭ9:Ж QUOT = 2; REM = 4P┤9lЖ 9 DIVIDED BY 2 =P╬9vЖ QUOT = 4; REM = 1Pш9АЖ QUOT = 4; REM = 0Q9КЖ QUOT = 0; REM = 2Q9ФЖ QUOT = 3; REM = 3Q69ЮЖ QUOT = 3; REM = 2QM9╨Ж 8 DIVIDED BY 8 =Qg9┌Ж QUOT = 1; REM = 0QБ9фЖ QUOT = 0; REM = 8QЫ9юЖ QUOT = 1; REM = 1Q╡9°Ж QUOT = 1; REM = 2Q╧:Ж QUOT = 1; REM = 3Qц:4Ж 8 DIVIDED BY 7 =R:>Ж QUOT = 1; REM = 1R:HЖ QUOT = 0; REM = 7R4:RЖ QUOT = 1; REM = 0RN:\Ж QUOT = 1; REM = 2Rh:fЖ QUOT = 1; REM = 3Rw:p:Г***** 40RО:ШЖ 8 DIVIDED BY 6 =Rи:вЖ QUOT = 1; REM = 2R┬:мЖ QUOT = 0; REM = 6R▄:╢Ж QUOT = 1; REM = 0RЎ:└Ж QUOT = 1; REM = 1S:╩Ж QUOT = 1; REM = 4S':№Ж 8 DIVIDED BY 5 =SA;Ж QUOT = 1; REM = 3S[;Ж QUOT = 0; REM = 5Su;Ж QUOT = 1; REM = 1SП;$Ж QUOT = 1; REM = 2Sй;.Ж QUOT = 1; REM = 4S└;`Ж 8 DIVIDED BY 4 =S┌;jЖ QUOT = 2; REM = 0SЇ;tЖ QUOT = 0; REM = 4T;~Ж QUOT = 1; REM = 4T(;ИЖ QUOT = 2; REM = 2TB;ТЖ QUOT = 2; REM = 4TY;─Ж 8 DIVIDED BY 3 =Ts;╬Ж QUOT = 2; REM = 2TН;╪Ж QUOT = 0; REM = 3Tз;тЖ QUOT = 1; REM = 5T┴;ьЖ QUOT = 2; REM = 1T█;ЎЖ QUOT = 2; REM = 3TЄ<(Ж 8 DIVIDED BY 2 =U <2Ж QUOT = 4; REM = 0U&<<Ж QUOT = 0; REM = 2U@<·Ж QUOT = 0; REM = 7VX=Ж QUOT = 1; REM = 1Vr=Ж QUOT = 1; REM = 0VМ=Ж QUOT = 1; REM = 2Vж="Ж QUOT = 1; REM = 3V╜=TЖ 7 DIVIDED BY 7 =V╫=^Ж QUOT = 1; REM = 0Vё=hЖ QUOT = 0; REM = 7W =rЖ QUOT = 1; REM = 1W%=|Ж QUOT = 1; REM = 2W?=ЖЖ QUOT = 1; REM = 3WV=╕Ж 7 DIVIDED BY 6 =Wp=┬Ж QUOT = 1; REM = 1WК=╠Ж QUOT = 0; REM = 6Wд=╓Ж QUOT = 1; REM = 0W╛=рЖ QUOT = 1; REM = 2W╪=ъЖ QUOT = 1; REM = 3Wя>Ж 7 DIVIDED BY 5 =X >&Ж QUOT = 1; REM = 2X#>0Ж QUOT = 0; REM = 5X=>:Ж QUOT = 1; REM = 1XW>DЖ QUOT = 1; REM = 3Xq>NЖ QUOT = 1; REM = 4XА>X:Г***** 50XЧ>АЖ 7 DIVIDED BY 4 =X▒>КЖ QUOT = 1; REM = 3X╦>ФЖ QUOT = 2; REM = 1Xх>ЮЖ QUOT = 0; REM = 4X >иЖ QUOT = 1; REM = 1Y>▓Ж QUOT = 1; REM = 2Y0>фЖ 7 DIVIDED BY 3 =YJ>юЖ QUOT = 2; REM = 1Yd>°Ж QUOT = 0; REM = 3Y~?Ж QUOT = 1; REM = 4YШ? Ж QUOT = 2; REM = 0Y▓?Ж QUOT = 2; REM = 2Y╔?HЖ 7 DIVIDED BY 2 =Yу?RЖ QUOT = 3; REM = 1Y¤?\Ж QUOT = 0; REM = 2Z?fЖ QUOT = 2; REM = 3Z1?pЖ QUOT = 1; REM = 5ZK?zЖ QUOT = 3; REM = 2Zb?мЖ 7 DIVIDED BY 1 =Z|?╢Ж QUOT = 7; REM = 0ZЦ?└Ж QUOT = 6; REM = 1Z░?╩Ж QUOT = 5; REM = 2Z╩?╘Ж QUOT = 4; REM = 3Zф?▐Ж QUOT = 3; REM = 4Z√@Ж 6 DIVIDED BY 8 =[@Ж QUOT = 0; REM = 6[/@$Ж QUOT = 1; REM = 2[I@.Ж QUOT = 1; REM = 1[c@8Ж QUOT = 1; REM = 0[}@BЖ QUOT = 2; REM = 3[Ф@tЖ 6 DIVIDED BY 7 =[о@~Ж QUOT = 0; REM = 6[╚@ИЖ QUOT = 1; REM = 2[т@ТЖ QUOT = 1; REM = 1[№@ЬЖ QUOT = 1; REM = 0\@жЖ QUOT = 2; REM = 3\-@╪Ж 6 DIVIDED BY 6 =\G@тЖ QUOT = 1; REM = 0\a@ьЖ QUOT = 1; REM = 1\{@ЎЖ QUOT = 0; REM = 6\ХAЖ QUOT = 1; REM = 5\пA Ж QUOT = 1; REM = 2\╞A<Ж 6 DIVIDED BY 5 =\рAFЖ QUOT = 1; REM = 1\·APЖ QUOT = 0; REM = 5]AZЖ QUOT = 1; REM = 0].AdЖ QUOT = 1; REM = 2]HAnЖ QUOT = 1; REM = 3]_AаЖ 6 DIVIDED BY 4 =]yAкЖ QUOT = 1; REM = 2]УA┤Ж QUOT = 0; REM = 4]нA╛Ж QUOT = 1; REM = 0]╟A╚Ж QUOT = 1; REM = 1]сA╥Ж QUOT = 1; REM = 3]°BЖ 6 DIVIDED BY 3 =^BЖ QUOT = 2; REM = 0^,BЖ QUOT = 0; REM = 3^FB"Ж QUOT = 1; REM = 3^`B,Ж QUOT = 1; REM = 2^zB6Ж QUOT = 2; REM = 1^ЙB@:Г***** 60^ХN :Г*****^ЭN*:Г*^╢N4:Г* END OF DATA LIST^╛N>:Г*^╩NH:Г*****^╓kl:Г*****^▐kv:Г*_kА:Г* STANDARD BASIC QUIZ GAMES_kК:Г* INITIALIZATION ROUTINE_'kФ:Г*_3kЮ:Г*****_9k╨Ю_?k┌З_\kфЗ " LOADING THE SYSTEM"_rkюЗ " PLEASE WAIT"_xk°З_Уl:ГRANDOMIZATION ARRAYS_Яl М R1(5)_лlМ R2(4)_╖l М RR(4)_╥l*:ГSCRAMBLE CODES ARRAY_рl4М S(24,4)`l>:ГRANDOMIZE THE RND FUNCTION`lHR │  Д(м Я)`5lШ:ГINITIALIZE THE SCRAMBLE CODES`DlвS(0,0) │ 0`SlмS(0,1) │ 1`bl╢S(0,2) │ 2`ql└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`╦l№S(2,1) │ 2`┌mS(2,2) │ 1`щmS(2,3) │ 3`°mS(3,0) │ 0am$S(3,1) │ 2am.S(3,2) │ 3a%m8S(3,3) │ 1a4mBS(4,0) │ 0aCmLS(4,1) │ 3aRmVS(4,2) │ 1aam`S(4,3) │ 2apmjS(5,0) │ 0amtS(5,1) │ 3aОm~S(5,2) │ 2aЭmИS(5,3) │ 1aмmТS(6,0) │ 1a╗mЬS(6,1) │ 0a╩mжS(6,2) │ 2a┘m░S(6,3) │ 3aшm║S(7,0) │ 1aўm─S(7,1) │ 0bm╬S(7,2) │ 3bm╪S(7,3) │ 2b$mтS(8,0) │ 1b3mьS(8,1) │ 2bBmЎS(8,2) │ 0bQnS(8,3) │ 3b`n S(9,0) │ 1bonS(9,1) │ 2b~nS(9,2) │ 3bНn(S(9,3) │ 0bЭn2S(10,0) │ 1bнn:Г*****n2vH:Г*nLvR:Г* END SPLASH SCREENnTv\:Г*n`vf:Г*****nf КY SPECIFIC STANDARD LINE 14mлv:Г *** CHANGE THE YEAR AS REQUIREDm┌v З@448, " BDS SOFTWARE 2022 ";mўv:ГLINE 15 IS BLANK GREENnv A$ u╝SD$ │ SD$ л  Л(151) л  Л(32)o,u╞З@288, SD$oIu╨:ГLINE 10 IS BLANK GREENopu┌:ГDISPLAY UNIFORM STANDARD LINE 11oЮuфЗ@352, " PRESS ANY KEY TO CONTINUE "o─uю:ГLINES 12 AND 13 ARE BLANK GREENoьu°:ГDISPLAY SPECIFIC STANDARD LINE 14pv:Г *** CHANGE THE YEAR AS REQUIREDpBv З@448, " BDS SOFTWARE 2022 ";p_v:ГLINE 15 IS BLANK GREENpkv A$ │  ТpАv*Е A$│"" Бе 30240pЖv4РpТv>:Г*****pЪvH:Г*p┤vR:Г* END SPLASH SCREENp╝v\:Г*p╚vf:Г*****p╬ КY SPECIFIC STANDARD LINE 14pv:Г *** CHANGE vR:Г*qv\:Г* END SPLASH SCREENq*vf:Г*****q0 КY SPECIFIC STANDARD LINE 14puv:Г *** CHANGE THE YEAR AS REQUIREDpдv З@448, " BDS SOFTWARE 2022 ";p┴v:ГLINE 15 IS BLANK GREENp═v A$ │  Тpтv*Е A$│"" Бе 30240pшv4РpЇv>:Г*****p№vH:Г*q                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 101 README.TXT 102 . 103 DIVISION.BAS IS A QUIZ GAME 104 TO TEST YOUR KNOWLEDGE OF 105 BASIC 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 'Ur:Г 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/'