This page has been visited times.
|
A Basic Progam written by me
If you have Qbasic or Xbasic you can cut and paste the code on this page. Open notepad and paste. Save the file as Bible.bas or anything else {anything}.bas; but .bas must be the extension. Then open either Qbasic or Xbasic and you can run this program. Three verses are then printed on your screen. Press the letter "r" if you want to run it again or any other key to exit. The only glitch in this program is if there is any incorrect data. Most of the data is simply the number of verses in each chapter. In the event an error exists you may get a nonexistent verse, but this will not happen very often. I need to double check my data soon, but in the mean time the program runs very well anyway. Getting an incorrect verse should not happen very often. Note: when you save the program it must be in the same directory as your basic software. GO TO your MSDOS prompt. For example if it is in the DOS directory you would type: first--> cd\dos second--> dir xbasic*.* or qbasic*.* and you will see if it is in your dos directory. If it is there you can save the program in your dos directory. If it isn't there you can open up your filemanager program and search. The following code can be cut and pasted. Warning it is copyrighted as of 1998, so don't sell it to anyone:
1 R = TIMER 2 PRINT 3 C$ = TIME$ 4 PRINT "This takes a short while please be patient." 5 RANDOMIZE R 6 FOR TC = 1 TO 3 7 X(TC) = INT(RND(77) * 31154) + 1 8 NEXT TC 9 DIM B(66) 10 DIM A$(66) 11 FOR Z = 1 TO 66 12 READ A$(Z) 13 NEXT Z 14 FOR Z = 1 TO 66 15 READ B(Z) 16 NEXT Z 17 FOR Z = 1 TO 66 18 FOR Y = 1 TO B(Z) 19 READ EV 20 FOR Q = 1 TO EV 21 C = C + 1 22 FOR TC = 1 TO 3 23 IF C = X(TC) THEN PRINT A$(Z); Y; Q: XS = XS + 1 24 IF XS = 3 THEN 29 25 NEXT TC 26 NEXT Q 27 NEXT Y 28 NEXT Z 29 PRINT "PRESS LETTER .R. TO RUN AGAIN" 30 PRINT "PRESS ANY KEY TO EXIT" 31 A$ = INKEY$ 32 IF A$ = "" THEN 31 33 IF A$ = "r" THEN RUN 34 IF A$ = "R" THEN RUN 35 SYSTEM 36 DATA "GENESIS", "EXODUS", "LEVITICUS", "NUMBERS" 37 DATA "DEUTERONOMY", "JOSHUA", "JUDGES", "RUTH" 38 DATA "I SAMUEL", "II SAMUEL", "I KINGS", "II KINGS" 39 DATA "I CHRONICLES", "II CHRONICLES", "EZRA", "NEHEMIAH" 40 DATA "ESTHER", "JOB", "PSALMS", "PROVERBS" 440 DATA "ECCLESIASTES", "SONG OF SOLOMON", "ISAIAH", "JEREMIAH" 450 DATA "LAMENTATIONS", "EZEKIEL", "DANIEL", "HOSEA", "JOEL" 460 DATA "AMOS", "OBADIAH", "JONAH", "MICAH", "NAHUM", "HABBAKKUK" 470 DATA "ZEPHANIAH", "HAGGAI", "ZECHARIAH", "MALACHI" 480 DATA "MATTHEW", "MARK", "LUKE", "JOHN", "ACTS" 490 DATA "ROMANS", "I CORINTHIANS", "II CORINTHIANS", "GALATIANS" 500 DATA "EPHESIANS", "PHILIPPIANS", "COLOSSIANS" 510 DATA "I THESSALONIANS", "II THESSALONIANS", "I TIMOTHY" 520 DATA "II TIMOTHY", "TITUS", "PHILEMON", "HEBREWS" 530 DATA "JAMES", "I PETER", "II PETER", "I JOHN" 540 DATA "II JOHN", "III JOHN", "JUDE", "REVELATION" 550 DATA 50, 40, 27, 36, 34, 24, 21, 4, 31, 24, 22, 25, 29 560 DATA 36, 10, 13, 10, 42, 150, 31, 12, 8, 66, 52, 5, 48 570 DATA 12, 14, 3, 9, 1, 4, 7, 3, 3, 3, 2, 14, 4 580 DATA 28, 16, 24, 21, 28, 16, 16, 13, 6, 6, 4, 4 590 DATA 5, 3, 6, 4, 3, 1, 13, 5, 5, 3, 5, 1, 1, 1, 22 600 REM GENESIS 610 DATA 31, 25, 24, 26, 32 620 DATA 22, 24, 22, 29, 32 630 DATA 32, 20, 18, 24, 21 640 DATA 16, 27, 33, 38, 18 650 DATA 34, 24, 20, 67, 34 660 DATA 35, 46, 22, 35, 43 670 DATA 55, 32, 20, 31, 29 680 DATA 43, 36, 30, 23, 23 690 DATA 57, 38, 34, 34, 28 700 DATA 34, 31, 22, 33, 26 710 REM EXODUS 720 DATA 22, 25, 22, 31, 23 730 DATA 30, 25, 32, 35, 29 740 DATA 10, 51, 22, 31, 27 750 DATA 36, 16, 27, 25, 26 760 DATA 36, 31, 33, 18, 40 770 DATA 37, 21, 43, 46, 38 780 DATA 18, 35, 23, 35, 35 790 DATA 38, 29, 31, 43, 38 800 REM LEVITICUS 810 DATA 17, 16, 17, 35, 19 820 DATA 30, 38, 36, 24, 20 830 DATA 47, 8, 59, 57, 33 840 DATA 34, 16, 30, 37, 27 850 DATA 24, 33, 44, 23, 55 860 DATA 46, 34 870 REM NUMBERS 880 DATA 54, 34, 51, 49, 31 890 DATA 27, 89, 26, 23, 36 900 DATA 35, 16, 33, 45, 41 910 DATA 50, 13, 32, 22, 29 920 DATA 35, 41, 30, 25, 18 930 DATA 65, 23, 31, 40, 16 940 DATA 54, 42, 56, 29, 34 950 DATA 13 960 REM DEUTERONOMY 970 DATA 46, 37, 29, 49 980 DATA 33, 25, 26, 20, 29 990 DATA 22, 32, 32, 18, 29 1000 DATA 23, 22, 20, 22, 21 1010 DATA 20, 23, 30, 25, 22 1020 DATA 19, 19, 26, 68, 29 1030 DATA 20, 30, 52, 29, 12 1040 REM JOSHUA 1050 DATA 18, 24, 17, 24, 15 1060 DATA 27, 26, 35, 27, 43 1070 DATA 23, 24, 33, 15, 63 1080 DATA 10, 18, 28, 51, 9 1090 DATA 45, 34, 16, 33 1100 REM JUDGES 1110 DATA 36, 23, 31, 24, 31 1120 DATA 40, 25, 35, 57, 18 1130 DATA 40, 15, 25, 20, 20 1140 DATA 31, 13, 31, 30, 48 1150 DATA 25 1160 REM RUTH 1170 DATA 22, 23, 18, 22 1180 REM I SAMUEL 1190 DATA 28, 36, 21, 22, 12 1200 DATA 21, 17, 22, 27, 27 1210 DATA 15, 25, 23, 52, 35 1220 DATA 23, 58, 30, 24, 42 1230 DATA 15, 23, 29, 22, 44 1240 DATA 25, 12, 25, 11, 31 1250 DATA 13 1260 REM II SAMUEL 1270 DATA 27, 32, 39, 12, 25 1280 DATA 23, 29, 18, 13, 19 1290 DATA 27, 31, 39, 33, 37 1300 DATA 23, 29, 33, 43, 26 1310 DATA 22, 51, 39, 25 1320 REM I KINGS 1330 DATA 53, 46, 28, 34, 18 1340 DATA 38, 51, 66, 28, 29 1350 DATA 43, 33, 34, 31, 34 1360 DATA 34, 24, 46, 21, 43 1370 DATA 29, 53 1380 REM II KINGS 1390 DATA 18, 25, 27, 44, 27 1400 DATA 33, 20, 29, 37, 36 1410 DATA 21, 21, 25, 29, 38 1420 DATA 20, 41, 37, 37, 21 1430 DATA 26, 20, 37, 20, 30 1440 REM I CHRONICLES 1450 DATA 54, 55, 24, 43, 26 1460 DATA 81, 40, 40, 44, 14 1470 DATA 47, 40, 14, 17, 29 1480 DATA 43, 27, 17, 19, 8 1490 DATA 30, 19, 32, 31, 31 1500 DATA 32, 34, 21, 30 1510 REM II CHRONICLES 1520 DATA 17, 18, 17, 22, 14 1530 DATA 42, 22, 18, 31, 19 1540 DATA 23, 16, 22, 15, 19 1550 DATA 14, 19, 34, 11, 37 1560 DATA 20, 12, 21, 27, 28 1570 DATA 23, 9, 27, 36, 27 1580 DATA 21, 33, 25, 33, 27 1590 DATA 23 1600 REM EZRA 1610 DATA 11, 70, 13, 24, 17 1620 DATA 22, 28, 36, 15, 44 1630 REM NEHEMIAH 1640 DATA 11, 20, 32, 23, 19 1650 DATA 19, 73, 18, 38, 39 1660 DATA 36, 47, 31 1670 REM ESTHER 1680 DATA 22, 23, 15, 17, 14 1690 DATA 14, 10, 17, 32, 3 1700 REM JOB 1710 DATA 22, 13, 26, 21, 27 1720 DATA 30, 21, 22, 35, 22 1730 DATA 20, 25, 28, 22, 35 1740 DATA 22, 16, 21, 29, 29 1750 DATA 34, 30, 17, 25, 6 1760 DATA 14, 23, 28, 25, 31 1770 DATA 40, 22, 33, 37, 16 1780 DATA 33, 24, 41, 30, 24 1790 DATA 34, 17 1800 REM PSALMS 1810 DATA 6, 12, 8, 8, 12 1820 DATA 10, 17, 9, 20, 18 1830 DATA 7, 8 ,6, 7, 5 1840 DATA 11, 15, 50, 14, 9 1850 DATA 13, 31, 6, 10, 22 1860 DATA 12, 14, 9, 11, 12 1870 DATA 24, 11, 22, 22, 28 1880 DATA 12, 40, 22, 13, 17 1890 DATA 13, 11, 5, 26, 17 1900 DATA 11, 9, 14, 20, 23 1910 DATA 19, 9, 6, 7, 23 1920 DATA 13, 11, 11, 17, 12 1930 DATA 8, 12, 11, 10, 13 1940 DATA 20, 7, 35, 36, 5 1950 DATA 24, 20, 28, 23, 10 1960 DATA 12, 20, 72, 13, 19 1970 DATA 16, 8, 18, 12, 13 1980 DATA 17, 7, 18, 52, 17 1990 DATA 16, 15, 5, 23, 11 2000 DATA 13, 12, 9, 9, 5 2010 DATA 8, 28, 22, 35, 45 2020 DATA 48, 43, 13, 31, 7 2030 DATA 10, 10, 9, 8, 18 2040 DATA 19, 2, 29, 176 2045 data 7 2050 DATA 8, 9, 4, 8, 5 2060 DATA 6, 5, 6, 8, 8 2070 DATA 3, 18, 3, 3, 21 2080 DATA 26, 9, 8, 24, 13 2090 DATA 10, 7, 12, 15, 21 2100 DATA 10, 20, 14, 9, 6 2110 REM PROVERBS 2120 DATA 33, 22, 35, 27, 23 2130 DATA 35, 27, 36, 18, 32 2140 DATA 31, 28, 25, 35, 33 2150 DATA 33, 28, 24, 29, 30 2160 DATA 31, 29, 35, 34, 28 2170 DATA 28, 27, 28, 27, 33 2180 DATA 31 2190 REM ECCLESIASTES 2200 DATA 18, 26, 22, 16, 20 2210 DATA 12, 29, 17, 18, 20 2220 DATA 10, 14 2230 REM SONG OF SOLOMON 2240 DATA 17, 17, 11, 16, 16 2250 DATA 13, 13, 14 2260 REM ISAIAH 2270 DATA 31, 22, 26, 6, 30 2280 DATA 13, 25, 22, 21, 34 2290 DATA 16, 6, 22, 32, 9 2300 DATA 14, 14, 7, 25, 6 2310 DATA 17, 25, 18, 23, 12 2320 DATA 21, 13, 29, 24, 33 2330 DATA 9, 20, 24, 17, 10 2340 DATA 22, 38, 22, 8, 31 2350 DATA 29, 25, 28, 28, 25 2360 DATA 13, 15, 22, 26, 11 2370 DATA 23, 15, 12, 17, 13 2380 DATA 12, 21, 14, 21, 22 2390 DATA 11, 12, 19, 12, 25 2400 DATA 24 2410 REM JEREMIAH 2420 DATA 19, 37, 25, 31, 31 2430 DATA 30, 34, 22, 26, 25 2440 DATA 23, 17, 27, 22, 21 2450 DATA 21, 27, 23, 15, 18 2460 DATA 14, 30, 40, 10, 38 2470 DATA 24, 22, 17, 32, 24 2480 DATA 40, 44, 26, 22, 19 2490 DATA 32, 21, 28, 18, 16 2500 DATA 18, 22, 13, 30, 5 2510 DATA 28, 7, 47, 39, 46 2520 DATA 64, 34 2530 REM LAMENTATIONS 2540 DATA 22, 22, 66, 22, 22 2550 REM EZEKIEL 2560 DATA 28, 10, 27, 17, 17 2570 DATA 14, 27, 18, 11, 22 2580 DATA 25, 28, 23, 23, 8 2590 DATA 63, 24, 32, 14, 49 2600 DATA 32, 31, 49, 27, 17 2610 DATA 21, 36, 26, 21, 26 2620 DATA 18, 32, 33, 31, 15 2630 DATA 38, 28, 23, 29, 49 2640 DATA 26, 20, 27, 31, 25 2650 DATA 24, 23, 35 2660 REM DANIEL 2670 DATA 21, 49, 30, 37, 31 2680 DATA 28, 28, 27, 27, 21 2690 DATA 45, 13 2700 REM HOSEA 2710 DATA 11, 23, 5, 19, 15 2720 DATA 11, 16, 14, 17, 15 2730 DATA 12, 14, 16, 9 2740 REM JOEL 2750 DATA 20, 32, 21 2760 REM AMOS 2770 DATA 15, 16, 15, 13, 27 2780 DATA 14, 17, 14, 15 2790 REM OBADIAH 2800 DATA 21 2810 REM JONAH 2820 DATA 17, 10, 10, 11 2830 REM MICAH 2840 DATA 16, 13, 12, 13, 15 2850 DATA 16, 20 2860 REM NAHUM 2870 DATA 15, 13, 19 2880 REM HABAKKUK 2890 DATA 17, 20, 19 2900 REM ZEPHANIAH 2910 DATA 18, 15, 20 2920 REM HAGGAI 2930 DATA 15, 23 2940 REM ZECHARIAH 2950 DATA 21, 13, 10, 14, 11 2960 DATA 15, 14, 23, 17, 12 2970 DATA 17, 14, 9, 21 2980 REM MALACHI 2990 DATA 14, 17, 18, 6 3000 REM MATTHEW 3010 DATA 25, 23, 17, 25, 48 3020 DATA 34, 29, 34, 38, 42 3030 DATA 30, 50, 58, 36, 39 3040 DATA 28, 27, 35, 30, 34 3050 DATA 46, 46, 39, 51, 46 3060 DATA 75, 66, 20 3070 REM MARK 3080 DATA 45, 28, 35, 41, 43 3090 DATA 56, 37 ,38, 50, 52 3100 DATA 33, 44, 37, 72, 47 3110 DATA 20 3120 REM LUKE 3130 DATA 80, 52, 38, 44, 39 3140 DATA 49, 50, 56, 62, 42 3150 DATA 54, 59, 35, 35, 32 3160 DATA 31, 37, 43, 48, 47 3170 DATA 38, 71, 56, 53 3180 REM JOHN 3190 DATA 51, 25, 36, 54, 47 3200 DATA 71, 53, 59, 41, 42 3210 DATA 57, 50, 38, 31, 27 3220 DATA 33, 26, 40, 42, 31 3230 DATA 25 3240 REM ACTS 3250 DATA 26, 47, 26, 37, 42 3260 DATA 15, 60, 40, 43, 48 3270 DATA 30, 25, 52, 28, 41 3280 DATA 40, 34, 28, 41, 38 3290 DATA 40, 30, 35, 27, 27 3300 DATA 32, 44, 31 3310 REM ROMANS 3320 DATA 32, 29, 31, 25, 21 3330 DATA 23, 25, 39, 33, 21 3340 DATA 36, 21, 14, 23, 33 3350 DATA 27 3360 REM I CORINTHIANS 3370 DATA 31, 16, 23, 21, 13 3380 DATA 20, 40, 13, 27, 33 3390 DATA 34, 31, 13, 40, 58 3400 DATA 24 3410 REM II CORINTHIANS 3420 DATA 24, 17, 18, 18, 21 3430 DATA 18, 16, 24, 15, 18 3440 DATA 33, 21, 14 3450 REM GALATIANS 3460 DATA 24, 21, 29, 31, 26 3470 DATA 18 3480 REM EPHESIANS 3490 DATA 23, 22, 21, 32, 33 3500 DATA 24 3510 REM PHILIPPIANS 3520 DATA 30, 30, 21, 23 3530 REM COLOSSIANS 3540 DATA 29, 23, 25, 18 3550 REM I THESSALONIANS 3560 DATA 10, 20, 13, 18, 28 3570 REM II THESSALONIANS 3580 DATA 12, 17, 18 3590 REM I TIMOTHY 3600 DATA 20, 15, 16, 16, 25 3610 DATA 21 3620 REM II TIMOTHY 3630 DATA 18, 26, 17, 22 3640 REM TITUS 3650 DATA 16, 15, 15 3660 REM PHILEMON 3670 DATA 25 3680 REM HEBREWS 3690 DATA 14, 18, 19, 16, 14 3700 DATA 20, 28, 13, 28, 39 3710 DATA 40, 29, 25 3720 REM JAMES 3730 DATA 27, 26, 18, 17, 20 3740 REM I PETER 3750 DATA 25, 25, 22, 19, 14 3760 REM II PETER 3770 DATA 21, 22, 18 3780 REM I JOHN 3790 DATA 10, 29, 24, 21, 21 3800 REM II JOHN 3810 DATA 13 3820 REM III JOHN 3830 DATA 14 3840 REM JUDE 3850 DATA 25 3860 REM REVELATION 3870 DATA 20, 29, 22, 11, 14 3880 DATA 17, 17, 13, 21, 11 3890 DATA 19, 17, 18, 20, 8 3900 DATA 21, 18, 24, 21, 15 3910 DATA 27, 21
|