Make your own free website on Tripod.com

This page has been visited times.

A Basic Progam written by me

Home:
Religion:
Swedenborg:

     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