home *** CD-ROM | disk | FTP | other *** search
/ The California Collection / TheCaliforniaCollection.cdr / his018 / biblelst.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-07-02  |  8.1 KB  |  96 lines
  1. 10  COLOR 2,8,0
  2. 50  CLS
  3. 100  PRINT "Enter a topic of your choice:(1-5)"
  4. 200  PRINT "1)Love             "
  5. 300  PRINT "2)Marriage/Children"
  6. 400  PRINT "3)Money            "
  7. 500  PRINT "4)Discipline       "
  8. 600  PRINT "5)Work, Health     "
  9. 650  PRINT "6)Sex          "
  10. 700  INPUT W
  11. 1000  IF W=1  THEN GOSUB 5000
  12. 1100  IF W=2  THEN GOSUB 6000
  13. 1200  IF W=3  THEN GOSUB 7000
  14. 1300  IF W=4  THEN GOSUB 8000
  15. 1400  IF W=5  THEN GOSUB 8500
  16. 1450  IF W=6 THEN GOSUB 4000
  17. 1500  CLS
  18. 2000  INPUT"Would you like another topic?";Z$
  19. 2050  IF Z$ < "y" AND Z$<"n" THEN 2000
  20. 2100  IF Z$="y" THEN GOTO 50
  21. 2200  IF Z$="n" THEN GOTO 10000
  22. 4000  REM morality
  23. 4010  CLS:PRINT:PRINT:PRINT:PRINT"No temptation has siezed you except what is common to man.  And God is faithful; he will not let you be tempted beyond what you can bear.":GOSUB 4900
  24. 4012  CLS:PRINT:PRINT"But when you are tempted, He will also provide a way out so that you can stand  up under it.  1 Corinthians 10:13":GOSUB 4900
  25. 4014  CLS:PRINT:PRINT:PRINT"The Lord is faithful, and he will strengthen and protect you from the evil one.  2 Thessalonians 3:3 NIV":GOSUB 4900
  26. 4016  CLS:PRINT:PRINT:PRINT:PRINT:PRINT"For this is the will of God, your santification; that is, that you abstain from sexual immorality;....."
  27. 4017  PRINT"....that each of you know how to possess his own vessel in santification and honor,......"
  28. 4018  PRINT"....not in lustful passion, like the Gentiles who do not know God;....            1 Thessalonians 4:3-5  NIV":GOSUB 4900
  29. 4020  CLS:PRINT:PRINT:PRINT"Or do you not know that the unrighteous shall not inherit the kingdom of God? Do not be decieved; neither fornicators, nor idolaters, nor adulterers, nor effminate, nor homosexuals,....."
  30. 4021  PRINT"...nor thieves, nor the covetous, nor drunkards, nor revilers, nor swindlers,   shall inherit the kingdom of God.   1 Corinthians 6:9-10":GOSUB 4900
  31. 4022  CLS:PRINT:PRINT"And such were some of you; but you were washed, but you were santified, but you were justified in the name of the Lord Jesus Christ, and in the Spirit of our   God.  1 Corinthians 6-10":GOSUB 4900
  32. 4024  CLS:PRINT:PRINT:PRINT"Food is for the stomach, and the stomach is for food; but God will do away with both of them.  Yet the body is not for immorality, but for the Lord; and the    Lord is for the body.  1 Corinthians 6-13 NAS":GOSUB 4900
  33. 4899  RETURN
  34. 4900  PRINT:PRINT:PRINT:PRINT"Press space to continue"
  35. 4910  R$=INKEY$:IF LEN(R$)=0 THEN 4910
  36. 4920  IF ASC(R$)=32 THEN RETURN
  37. 5000  REM love
  38. 5010  CLS:PRINT"The greatest of the gifts is love. Romans 10:10":GOSUB 5900
  39. 5020  CLS:PRINT"Love is patient, love is kind.  It does not envy, it does not boast, it is not  proud. It is not rude, it is not self-seeking,it is not easily angered, it keeps no records of wrongs.  Love does not delight in evil but rejoices with the"
  40. 5022  PRINT"truth.  It always protects, always trusts, always hopes, always perseveres.              Corinthians 13:4-7":GOSUB 5900
  41. 5025  CLS:PRINT"You shall love the Lord your God with all your heart, and with all your soul,   and with all your mind. This is the great and foremost commandment.             Matthew 22:37-38 NAS":GOSUB 5900
  42. 5030  CLS:PRINT:PRINT:PRINT"The second is like it, 'You shall love your neighbor as yourself.'              Matthew 22:39 NAS":GOSUB 5900
  43. 5035  CLS:PRINT:PRINT"A friend loves at all times. Proverbs 17:17 NAS":GOSUB 5900
  44. 5040  CLS:PRINT:PRINT:PRINT:PRINT:PRINT"Beloved, let us love one another, for love is from God; and every one who loves is born of God and knows God. 1 John 4:7 NAS":GOSUB 5900
  45. 5042  CLS:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"The one who does not love does not know God, for God is love. 1 John 7:8 NAS":GOSUB 5900
  46. 5045  CLS:PRINT:PRINT:PRINT:PRINT:PRINT"No one has beheld God at any time; if we love one another, God abides in us, and His love is perfected in us.  1 John 4:12 NAS":GOSUB 5900
  47. 5050  CLS:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"Little children, let us not love with word or with tongue, but in deed and      truth.  1 John 3:18":GOSUB 5900
  48. 5052  CLS:PRINT:PRINT:PRINT"Greater love has no one than this, that one lay down his life for his friends.  John 15:13  NIV":GOSUB 5900
  49. 5054  CLS:PRINT:PRINT:PRINT"Above all, love each other deeply, because love covers over a multitude of sins.   1 Peter 4:8 NIV":GOSUB 5900
  50. 5899  RETURN
  51. 5900  PRINT:PRINT:PRINT:PRINT"Press space to continue"
  52. 5910  R$=INKEY$:IF LEN(R$)=0 THEN 5910
  53. 5920  IF ASC(R$)=32 THEN RETURN
  54. 6000  REM marriage
  55. 6020  CLS:PRINT"Wives,submit to your husbands as to the Lord. For the husband is the head of the wife as Christ is the head of the church, his body, of which he is the savior."
  56. 6022  PRINT"Now as the church submits to Christ,so also wives should submit to their         husbands in everything.  Ephesians 5:22-24":GOSUB 6900
  57. 6024  CLS:PRINT"Husbands, love your wives, just as Christ also loved the church and gave Himself up for her;   Ephesians 5:25 NAS":GOSUB 6900
  58. 6026  CLS:PRINT"So husbands ought also to love their own wives as their own bodies. He who loves his own wife loves himself;   Ephesians 5:28 NAS":GOSUB 6900
  59. 6028  CLS:PRINT:PRINT:PRINT:PRINT"For this cause a man shall leave his father and mother, and shall cleave to his wife; and the two shall become one flesh.  Ephesians 5:31 NAS":GOSUB 6900
  60. 6030  CLS:PRINT:PRINT:PRINT"Nevertheless let each individual among you also love his own wife even as        himself; and let the wife see to it that she respect her husband.                       Ephesians 5:33 NAS":GOSUB 6900
  61. 6032  CLS:PRINT:PRINT"Let the husband fulfill his duty to his wife, and likewise also the wife to her husband.  1 Corinthians 7:3 NAS":GOSUB 6900
  62. 6034  CLS:PRINT:PRINT:PRINT "The wife does not have authority over her own body, but the husband does, and   likewise also the husband does not have authority over his own body, but the    wife does.  1 Corinthians 7:4 NAS":GOSUB 6900
  63. 6036  CLS:PRINT:PRINT:PRINT:PRINT:PRINT"Stop depriving one another, except by agreement for a time that you may devote  yourselves to prayer, and come together again lest Satan tempt you because of   your lack of self control.  1 Corinthians 7:5 NAS"
  64. 6037  GOSUB 6900
  65. 6038  CLS:PRINT:PRINT:PRINT"Better to live on a corner of the roof than to share a house with a quarrelsome wife. Proverbs 21:9":GOSUB 6900
  66. 6040  CLS:PRINT:PRINT"He who finds a wife finds what is good and receives favor from the Lord.          Proverbs 18:22":GOSUB 6900
  67. 6045  CLS:PRINT:PRINT"But I tell you that anyone who divorces his wife, except for marital unfaith-   fulness, causes her to commit adultery, and anyone who marries a woman so       divorced commits adultery."
  68. 6046  PRINT"Matthew 5:32 NIV":GOSUB 6900
  69. 6490  CLS:PRINT:PRINT"A foolish son is his father's ruin, and a quarrelsome wife is like a constant   dripping.  Proverbs 19:13":GOSUB 6900
  70. 6492  CLS:PRINT:PRINT:PRINT"Are you bound to a wife?  Do not seek to be released.  Are you released from a  wife?  Do not seek a wife.   1 Corinthians 7:27 NAS":GOSUB 6900
  71. 6500  CLS:PRINT:PRINT:PRINT:PRINT"*********************************** Children ***********************************":FOR X=1 TO 3000:NEXT
  72. 6504  CLS:PRINT:PRINT:PRINT"Behold, children are a gift of the Lord; the fruit of the womb is a reward.   Psalms 127:3 NIV":GOSUB 6900
  73. 6505  CLS:PRINT:PRINT:PRINT"Train a child in the way he should go, and when he is old he will not turn from it. Proverbs 22:6 NIV":GOSUB 6900
  74. 6510  CLS:PRINT:PRINT:PRINT"Children, obey your parents in the Lord, for this is right.  'Honor your father and mother'-which is the first commandment with a promise-'that it may go well  with you and that you may enjoy long life on the earth."
  75. 6512  PRINT"Ephesians 6:1-3 NIV":GOSUB 6900
  76. 6515  CLS:PRINT:PRINT:PRINT"Fathers, do not exasperate your children; instead, bring them up in the training and instruction of the Lord.  Ephesians 6:4 NIV"
  77. 6516  GOSUB 6900
  78. 6520  CLS:PRINT:PRINT"Discipline your son, for in that there is hope; do not be a willing party to his death.  Proverbs 19:18 NIV":GOSUB 6900
  79. 6525  CLS:PRINT:PRINT:PRINT:PRINT"If a man curses his father or mother, his lamp will be snuffed out in pitch     darkness.  Proverbs 20:20 NIV" :GOSUB 6900
  80. 6530  CLS:PRINT:PRINT:PRINT:PRINT:PRINT"Do not withhold discipline from a child; if you punish him with the rod, he will not die.  Proverbs 23:13 NIV":GOSUB 6900
  81. 6535  CLS:PRINT:PRINT"My son, if your heart is wise, then my heart will be glad; my inmost being will rejoice when your lips speak what is right. Proverbs 23:17 NIV":GOSUB 6900
  82. 6540  CLS:PRINT:PRINT"Listen, my son and be wise, and keep your heart on the right path.              Proverbs 23:19 NIV":GOSUB 6900
  83. 6545  CLS:PRINT"Do not join those who drink too much wine or gorge themselves on meat, for      drunkards and gluttons become poor, and drowsiness clothes them in rags.        Proverbs 23:20-21 NIV":GOSUB 6900
  84. 6550  CLS:PRINT:PRINT:PRINT"Listen to your father, who gave you life, and do not despise your mother when   she is old.  Proverbs 23:22 NIV":GOSUB 6900
  85. 6899  RETURN
  86. 6900  PRINT:PRINT:PRINT:PRINT"Press space to continue"
  87. 6910  R$=INKEY$:IF LEN(R$)=0 THEN 6910
  88. 6920  IF ASC(R$)=32 THEN RETURN
  89. 7000  REM money
  90. 7005  CLS:PRINT:PRINT:PRINT"But godliness actually is a means of great gain, when accompanied by            contentment.  1 Timothy 6:6":GOSUB 7900
  91. 7899  RETURN
  92. 7900  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"Press space to continue"
  93. 7910  R$=INKEY$:IF LEN(R$)=0 THEN 7910
  94. 7920  IF ASC(R$)=32 THEN RETURN
  95. 10000  CLS:PRINT:PRINT:PRINT:PRINT"**************  For additional information read the Bible  ***************"
  96.