home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCLING / SPELLBEE / STORY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  5.5 KB  |  145 lines
  1. 10        REM---------------------------------------------------
  2. 20        REM             s  t  o  r  y
  3. 30        REM---------------------------------------------------
  4. 40        REM                     june 16, 1977
  5. 50  KEY OFF: CLS: PRINT
  6. 60        PRINT TAB(15);"S   t   o   r   y"
  7. 70        PRINT:PRINT:PRINT
  8. 80     PRINT
  9. 90     DIM A$(11),B$(5),C$(10)
  10. 100     PRINT "First, we will need to know your name ";
  11. 110     INPUT NAM$
  12. 120      PRINT "thanx, ";NAM$
  13. 130       RANDOMIZE
  14. 140     PRINT CHR$(7);TAB(12);"O.K.  --  We're going to print some stories"
  15. 150     PRINT TAB(12);"together.  You supply the words, I supply the plot."
  16. 160  PRINT TAB(12);"Type the number of the one you would like ";
  17. 170  INPUT N
  18. 180    REM
  19. 190  PRINT TAB(12);"First I need eleven adjectives.  Adjectives modify":PRINT TAB(12);"a noun, like: Red, Dirty, Large, etc."
  20. 200  FOR X=1 TO 11:PRINT TAB(15);"Adjective #";X;" ";:INPUT A$(X):NEXT X:PRINT:PRINT:PRINT TAB(12);"Thanks"
  21. 210  PRINT TAB(12);"Now I need five adverbs.  They modify verbs and end":PRINT TAB(12);"in 'ly', like: Slowly, Greedily."
  22. 220  FOR X=1 TO 5:PRINT TAB(15);"Adverb #";X;" ";:INPUT B$(X):NEXT X:PRINT:PRINT TAB(12);"Thank you, ";NAM$
  23. 230  PRINT:PRINT TAB(12);"Next I'll need 10 nouns!  These are names of things, such":PRINT TAB(12);"as: Insect, Box, Tree, Banana"
  24. 240  FOR X=1 TO 10:PRINT TAB(15);"Noun #";X;" ";:INPUT C$(X):NEXT X
  25. 250  PRINT:PRINT TAB(12);"You're doing great, ";NAM$;", there's not much more."
  26. 260  PRINT:PRINT TAB(12);"How about two first names of men.":PRINT TAB(15);"The first man's name ";:INPUT D$:PRINT TAB(15);"And now the second's ";:INPUT E$
  27. 270  PRINT:PRINT TAB(12);"The first name of a woman ";:INPUT F$:PRINT:PRINT TAB(12);"And someone's last name ";:INPUT G$
  28. 280  PRINT:PRINT TAB(12);"A geographical location ";:INPUT H$:PRINT:PRINT TAB(12);"A kind of liquid ";:INPUT I$
  29. 290  PRINT:PRINT TAB(12);"And finally, an exclamatory word or two ";:INPUT J$
  30. 300  PRINT:PRINT TAB(12);"Well done, ";NAM$;", now. . ."
  31. 310     REM
  32. 320     PRINT
  33. 330     PRINT TAB(12);"Would you like a newspaper ad (1),"
  34. 340     PRINT TAB(12);"               a western (2),"
  35. 350     PRINT TAB(12);"               a story about the army (3),"
  36. 360     PRINT TAB(12);"            or a waterbed (4)."
  37. 365  INPUT N
  38. 370  REM
  39. 380  ON N GOSUB 460,650,910,1180
  40. 390  PRINT TAB(15);"Want another story ";NAM$;" ";
  41. 400  INPUT QQ$
  42. 410  IF LEFT$(QQ$,1)<>"Y" AND LEFT$(QQ$,1)<>"y" THEN PRINT:PRINT:PRINT:PRINT TAB(15);"goodbye "; NAM$:END
  43. 420  PRINT TAB(15);"Want to use the same words ";
  44. 430  INPUT QQ$
  45. 440  IF LEFT$(QQ$,1)<>"Y" AND LEFT$(QQ$,1)<>"y" THEN GOTO 180
  46. 450  GOTO 310
  47. 460  REM
  48. 470  PRINT
  49. 480  PRINT
  50. 490  PRINT
  51. 500  PRINT
  52. 510  PRINT TAB(15);"DAILY GRUNT CLASSIFIEDS"
  53. 520  PRINT "FOR SALE: 1957 Sedan.  This ";A$(1);" car is in a ";A$(2)
  54. 530  PRINT "condition.  It was formerly owned by a ";A$(3);" school teacher"
  55. 540  PRINT "who always drove it ";B$(1);".  There is a ";A$(4);" ";C$(1);" in"
  56. 550  PRINT "the back seat.  It has a chrome ";C$(2);" on the hood, a ";A$(5)
  57. 560  PRINT "paint job, ";A$(6);" tires and the back opens into a ";A$(7)
  58. 570  PRINT C$(3);".  Will consider taking a slightly used ";C$(4);" in trade."
  59. 580  PRINT:PRINT
  60. 590  PRINT "LOST:  In the vicinity of ";H$;", a ";A$(8);" french poodle with"
  61. 600  PRINT A$(9);" hair and a ";A$(10);" tail.  It answers to the name of"
  62. 610  PRINT F$;".  When last seen it was carrying a ";C$(5);" in its mouth."
  63. 620  PRINT "A ";A$(11);" reward is offered."
  64. 630  PRINT :PRINT :PRINT
  65. 640       RETURN
  66. 650  REM
  67. 660  PRINT:PRINT:PRINT:PRINT
  68. 670  PRINT TAB(12);"AN ADULT WESTERN"
  69. 680  PRINT
  70. 690  PRINT "Tex ";G$;", the Marshall of ";D$;" City rode into town.  He sat"
  71. 700  PRINT B$(2);" in the saddle, ready for trouble.  He knew that his ";A$(1)
  72. 710  PRINT "enemy, ";E$;" the Kid was in town.  The Kid was in love with Tex's"
  73. 720  PRINT "horse, ";F$;".  Suddenly, the Kid came out of the ";A$(7);" Nugget"
  74. 730  PRINT "Saloon.  "
  75. 740  PRINT
  76. 750  PRINT "'DRAW TEX', he yelled ";B$(3)
  77. 760  PRINT
  78. 770  PRINT "Tex reached for his ";C$(4);", but before he could get it out of"
  79. 780  PRINT "his ";C$(5);" the Kid fired, hitting Tex in the ";C$(6);" and"
  80. 790  PRINT "the ";C$(7);"."
  81. 800  PRINT
  82. 810  PRINT "As Tex fell he pulled out his own ";C$(8);" and shot the Kid ";
  83. 820  PRINT INT(50*RND+3)
  84. 830  PRINT "times in the ";C$(9);".  The Kid dropped in a pool of ";I$
  85. 840  PRINT
  86. 850  PRINT "'";J$;"', Tex said.  'I hated to do it, but he was on the wrong"
  87. 860  PRINT "side of the ";C$(10);"."
  88. 870   PRINT
  89. 880   PRINT
  90. 890  PRINT
  91. 900      RETURN
  92. 910  REM
  93. 920  PRINT :PRINT:PRINT:PRINT
  94. 930  PRINT "If you plan on joining the army, here are some ";A$(11);" hints"
  95. 940  PRINT "that will help you become a ";A$(10);" soldier."
  96. 950  PRINT
  97. 960  PRINT "The army is made up of Officers, Non-coms, and ";C$(1);"s."
  98. 970  PRINT "You can recognize an Officer by the ";C$(2);"s on his shoulders"
  99. 980  PRINT "and the funny-looking ";C$(3);"s on his cap.  When you address"
  100. 990  PRINT "an Officer, always say ";C$(4);" and say it ";B$(5);".  If you get"
  101. 1000  PRINT "a ";A$(9);" haircut, keep your ";C$(5);"s shined, and see that"
  102. 1010  PRINT "your ";C$(6);" is clean at all times, you will be a credit to the "
  103. 1020  PRINT "slogan:"
  104. 1030  PRINT
  105. 1040  PRINT "       The Army Builds Better ";C$(7);"s!"
  106. 1050  PRINT
  107. 1060  PRINT "At roll call, when the ";A$(8);" sergeant calls your name, shout"
  108. 1070  PRINT "'";J$;"' loud and clear."
  109. 1080  PRINT
  110. 1090  PRINT "You will become familiar with weapons like the .30 calibre ";C$(8)
  111. 1100  PRINT "and the automatic ";C$(9);"."
  112. 1110  PRINT
  113. 1120  PRINT "Follow this advice and you may win the. . ."
  114. 1130  PRINT
  115. 1140  PRINT "******** ";A$(7);" Conduct ";C$(10);" ********"
  116. 1150  PRINT
  117. 1160  PRINT
  118. 1170      RETURN
  119. 1180  REM
  120. 1190  PRINT
  121. 1200  PRINT "Bust-a-Button and Duck Dept. Store"
  122. 1210  PRINT "Dix Hills, New York"
  123. 1220  PRINT
  124. 1230  PRINT
  125. 1240  PRINT "Dear Sirs,"
  126. 1250  PRINT
  127. 1260  PRINT "    Last week I purchased a ";A$(2);" contour water bed in your"
  128. 1270  PRINT "store.  I got it especially for my ";A$(4);" husband who sleeps"
  129. 1280  PRINT "very ";B$(1);" and says that ";A$(6);" water beds that have"
  130. 1290  PRINT C$(1);"s in them make his ";C$(3);" ache.  When the bed arrived "
  131. 1300  PRINT "my husband tested it ";B$(2);" and said the ";A$(8);" ";C$(5)
  132. 1310  PRINT "was bent and kept pressing into his ";C$(6);".  He says this"
  133. 1320  PRINT "could lead to a ";A$(10);" condition of the ";C$(8);"."
  134. 1330  PRINT
  135. 1340  PRINT "    I would like to exchange this ";A$(9);" bed for one that"
  136. 1350  PRINT "will allow my husband to sleep ";B$(4);" and won't make his"
  137. 1360  PRINT C$(10);" sore."
  138. 1370  PRINT
  139. 1380  PRINT
  140. 1390  PRINT TAB(25);"Yours ";B$(5);","
  141. 1400  PRINT TAB(25);F$;" ";G$
  142. 1410  PRINT
  143. 1420  PRINT
  144. 1430      RETURN
  145.