10 PRINT CHR$(26)
15 LET V=87:LET U=10:REM V = # OF VERSES; U = # OF SELECTIONS
20 DIM T$(V)
30 FOR X=0 TO V
40 READ T$(X)
50 NEXT X
55 PRINT:PRINT TAB(34);"P S A L M S"
60 PRINT:PRINT "     This program will offer you a menu of passages from the Psalms.  Choose"
70 PRINT "     the passage you wish to test yourself on and enter its number.  Then,"
80 PRINT "     the screen will clear and you may begin to type in the passage.  If you"
90 PRINT "     make an error, the bell will sound and the program will wait for you to"
100 PRINT "     try again."
102 PRINT:PRINT "     If you get stuck, enter a question mark (";CHR$(34);"?";CHR$(34);"), and the program will"
104 PRINT "     display the next character for you.  Do not use any other punctuation."
106 PRINT "     However, the program will automatically split the material into verses"
108 PRINT "     and lines for you."
110 PRINT:PRINT "     You may enter the verses in either upper or lower case, but if the"
120 PRINT "     program prints the character for you, it will display normal upper"
130 PRINT "     or lower case usage."
140 PRINT:PRINT "     All passages are from the King James Version."
150 PRINT:PRINT "     Press any key to go to the menu."
160 A$=INKEY$:IF A$="" THEN 160
170 FOR X=1 TO U
180 READ B(X),E(X)
190 NEXT X
200 PRINT CHR$(26)
205 PRINT:PRINT:PRINT
210 PRINT:PRINT "     (1) Psalm 1                         (2) Psalm 8"
220 PRINT "     (3) Psalm 19                        (4) Psalm 23"
230 PRINT "     (5) Psalm 24                        (6) Psalm 34.1-8"
240 PRINT "     (7) Psalm 100                       (8) Psalm 121"
250 PRINT "     (9) Psalm 139.7-14, 17-24          (10) Psalm 150"
300 PRINT : INPUT "     Which do you wish to try";A
310 A=INT(A):IF A<1 OR A>U THEN 200
320 LET Y=B(A):LET Z=E(A)
330 PRINT CHR$(26)
340 PRINT
400 FOR X=Y TO Z
405 FOR C=1 TO LEN(T$(X))
410 LET A$=INKEY$:IF A$="" THEN 410
415 LET B$=A$
420 LET C$=MID$(T$(X),C,1)
422 IF C$="#" THEN C=C+1:PRINT:PRINT "   ";:GOTO 420
425 IF B$="?" THEN PRINT C$;:GOTO 472
430 IF B$=C$ THEN 470
435 IF ASC(C$)=(ASC(B$)-32) THEN 470
440 IF ASC(C$)=(ASC(B$)+32) THEN 470
445 PRINT CHR$(7);
450 LET A$="":GOTO 410
470 PRINT A$;
472 LET A$=""
475 NEXT C
480 PRINT
485 NEXT X
500 PRINT:PRINT:PRINT:INPUT "Do you wish to try another passage";B$
510 B$=LEFT$(B$,1)
520 IF B$="Y" OR B$="y" THEN PRINT CHR$(26):GOTO 200
525 PRINT CHR$(27)+"B"+"4"
530 SYSTEM
1000 DATA "Blessed is the man that walketh not in the counsel of the ungodly #nor standeth in the way of sinners #nor sitteth in the seat of the scornful "
1010 DATA "But his delight is in the law of the Lord #and in his law doth he meditate day and night "
1020 DATA "And he shall be like a tree planted by the rivers of water #that bringeth forth his fruit in his season #his leaf also shall not wither #and whatsoever he doeth shall prosper "
1030 DATA "The ungodly are not so #but are like the chaff which the wind driveth away "
1040 DATA "Therefore the ungodly shall not stand in the judgment #nor sinners in the congregation of the righteous "
1050 DATA "For the Lord knoweth the way of the righteous #but the way of the ungodly shall perish"
1060 DATA "O Lord our Lord #how excellent is they name in all the earth #who hast set they glory above the heavens "
1070 DATA "Out of the mouth of babes and sucklings hast thou ordained strength #because of thine enemies that thou mightest still the enemy and the avenger "
1080 DATA "When I consider thy heavens the work of thy fingers #the moon and the stars which thou hast ordained "
1090 DATA "What is man that thou art mindful of him #and the son of man that thou visitest him "
1100 DATA "For thou hast made him a little lower than the angels #and hast crowned him with glory and honor "
1110 DATA "Thou madest him to have dominion over the works of thy hands #Thou hast put all things under his feet "
1120 DATA "All sheep and oxen #yea and the beasts of the field "
1130 DATA "The fowl of the air #and the fish of the sea #and whatsoever passeth though the paths of the seas "
1140 DATA "O Lord our Lord #how excellent is thy name in all the earth"
1150 DATA "The heavens declare the glory of God #and the firmament sheweth his handywork "
1160 DATA "Day unto day uttereth speech #and night unto night sheweth knowledge "
1170 DATA "There is not speech nor language #where their voice is not heard "
1180 DATA "Their line is gone out through all the earth #and their words to the end of the world #In them hath he set a tabernacle for the sun "
1185 DATA "Which is as a bridegroom coming out of his chamber #and rejoiceth as a strong man to run a race "
1190 DATA "His going forth is from the end of the heaven #and his circuit unto the ends of it #and there is nothing hid from the heat thereof "
1200 DATA "The law of the Lord is perfect #converting the soul #the testimony of the Lord is sure #making wise the simple "
1205 DATA "The statutes of the Lord are right #rejoicing the heart #the commandment of the Lord is pure #enlightening the eyes "
1210 DATA "The fear of the Lord is clean #enduring for ever #the judgments of the Lord are true and righteous altogether "
1215 DATA "More to be desired are they than gold #yea than much find gold #sweeter also than honey and the honeycomb "
1220 DATA "Moreover by them is thy servant warned #and in keeping them there is great reward "
1230 DATA "Who can understand his errors #Cleanse thou me from secret faults "
1240 DATA "Keep back thy servant also from presumptuous sins #let them not have dominion over me #then shall I be upright #and I shall be innocent from the great transgression "
1250 DATA "Let the words of my mouth and the meditation of my heart #be acceptable in the sight O Lord #my strength and my redeemer"
1260 DATA "The Lord is my shepherd #I shall not want "
1270 DATA "He maketh me to lie down in green pastures #He leadeth me beside the still waters "
1280 DATA "He restoreth my soul #He leadeth me in the paths of righteousness for his names sake "
1290 DATA "Yea though I walk through the valley of the shadow of death #I will fear no evil #for Thou art with me #Thy rod and Thy staff they comfort me "
1300 DATA "Thou preparest a table before me in the presence of mine enemies #Thou anointest my head with oil #my cup runneth over "
1310 DATA "Surely goodness and mercy shall follow me all the days of my life #and I will dwell in the house of the Lord for ever"
1320 DATA "The earth is the Lords and the fulness thereof #the world and they that dwell therein "
1330 DATA "For he hath founded it upon the seas #and established it upon the floods "
1340 DATA "Who shall ascend into the hill of the Lord #or who shall stand in his holy place "
1350 DATA "He that hath clean hands and a pure heart #who hath not lifted up his soul unto vanity #nor sworn deceitfully "
1360 DATA "He shall receive the blessing from the Lord #and righteousness from the God of his salvation "
1370 DATA "This is the generation of them that seek him #that seek thy face O Jacob #Selah "
1380 DATA "Lift up your heads O ye gates #and be ye lift up ye everlasting doors #and the king of glory shall come in "
1390 DATA "Who is this King of glory #The Lord strong and mighty #the Lord mighty in battle "
1400 DATA "Lift up your heads O ye gates #even lift them up ye everlasting doors #and the King of glory shall come in "
1410 DATA "Who is this King of glory #The Lord of hosts #He is the King of glory #Selah"
1420 DATA "I will bless the Lord at all times #his praise shall continually be in my mouth "
1430 DATA "My soul shall make her boast in the Lord #the humble shall hear thereof and be glad "
1440 DATA "O magnify the Lord with me #and let us exalt his name together "
1450 DATA "I sought the Lord and he heard me #and delivered me from all my fears "
1460 DATA "They looked unto him and were lightened #and their faces were not ashamed "
1470 DATA "This poor man cried and the Lord heard him #and saved him out of all his troubles "
1480 DATA "The angel of the Lord encampeth round about them that fear him #and delivereth them "
1490 DATA "O taste and see that the Lord is good #blessed is the man that trusteth in him"
1500 DATA "Make a joyful noise unto the Lord all ye lands "
1510 DATA "Serve the Lord with gladness #come before his presence with singing "
1520 DATA "Know ye that the Lord he is God #it is he that hath made us and not we ourselves #we are his people and the sheep of his pasture "
1530 DATA "Enter into his gates with thanksgiving #and into his courts with praise #be thankful unto him and bless his name "
1540 DATA "For the Lord is good #his mercy is everlasting ##and his truth endureth to all generations"
1550 DATA "I will lift up mine eyes unto the hills #from whence cometh my help "
1560 DATA "My help cometh from the Lord #which made heaven and earth "
1570 DATA "He will not suffer thy foot to be moved #he that keepeth thee will not slumber "
1580 DATA "Behold he that keepeth Israel shall neither slumber nor sleep "
1590 DATA "The Lord is thy keeper #the Lord is thy shade upon thy right hand "
1600 DATA "The sun shall not smite thee by day #nor the moon by night "
1610 DATA "The Lord shall preserve thee from all evil #he shall preserve thy soul "
1620 DATA "The Lord shall preserve thy going out and thy coming in #from this time forth and even for evermore"
1630 DATA "Whither shall I go from thy spirit #or whither shall I flee from thy presence "
1640 DATA "If I ascend up into heaven thou art there #if I make my bed in hell #behold thou art there "
1650 DATA "If I take the wings of the morning #and dwell in the uttermost parts of the sea "
1660 DATA "Even there shall thy hand lead me #and thy right hand shall hold me "
1670 DATA "If I say #Surely the darkness shall cover me #even the night shall be light about me "
1680 DATA "Yea the darkness hideth not from thee #but the night shineth as the day #the darkness and the light are both alike to thee "
1690 DATA "For thou hast possessed my reins #thou hast covered me in my mothers womb "
1700 DATA "I will praise thee #for I am fearfully and wonderfully made #marvellous are thy works #and that my soul knoweth right well "
1710 DATA "How precious also are thy thoughts unto me O God #how great is the sum of them "
1720 DATA "If I should count them they are more in number than the sand #when I awake I am still with thee "
1730 DATA "Surely thou wilt slay the wicked O God #depart from me therefore ye bloody men "
1740 DATA "For they speak against thee wickedly #and thine enemies take thy name in vain "
1750 DATA "Do not I hate them O Lord that hate thee #and am not I grieved with those that rise up against thee "
1760 DATA "I hate them with perfect hatred #I count them mine enemies "
1770 DATA "Search me O God and know my heart #try me and know my thoughts "
1780 DATA "And see if there be any wicked way in me #and lead me in the way everlasting"
1790 DATA "Praise ye the Lord #Praise God in his sanctuary #praise him in the firmament of his power "
1800 DATA "Praise him for his mighty acts #praise him according to his excellent greatness "
1810 DATA "Praise him with the sound of the trumpet #praise him with the psaltery and harp "
1820 DATA "Praise him with the timbrel and dance #praise him with stringed instruments and organs "
1830 DATA "Praise him upon the loud cymbals #praise him upon the high sounding cymbals "
1840 DATA "Let every thing that hath breath praise the Lord #Praise ye the Lord"
5000 DATA 0,5,6,14,15,28,29,34,35,44,45,52,53,57,58,65,66,81,82,87