home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug003.ark / STORY.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  6.6 KB  |  198 lines
  1.     rem---------------------------------------------------
  2.     rem        s  t  o  r  y
  3.     rem---------------------------------------------------
  4.  
  5.     rem            june 16, 1977
  6.  
  7.     print
  8.     print tab(15);"S   t   o   r   y"
  9.     print:print:print
  10.    print
  11.    dim a$(11),b$(5),c$(10)
  12.    print "First, we will need to know your name ";
  13.    input name$
  14.     print "thanx, ";name$
  15.     randomize
  16.    print chr$(7);tab(12);"O.K.  --  We're going to print some stories"
  17.    print tab(12);"together.  You supply the words, I supply the plot."
  18. 125   rem
  19.    print tab(12);"First I need eleven adjectives.  Adjectives modify"
  20.    print tab(12);"a noun, like: Red, Dirty, Large, etc."
  21.    for x=1 to 11
  22.      print tab(15);"Adjective #";x;" ";
  23.      input a$(x)
  24.    next x
  25.    print
  26.    print
  27.    print tab(12);"Thanks"
  28.    print tab(12);"Now I need five adverbs.  They modify verbs and end"
  29.    print tab(12);"in 'ly', like: Slowly, Greedily."
  30.    for x=1 to 5
  31.       print tab(15);"Adverb #";x;" ";
  32.       input b$(x)
  33.    next x
  34.    print
  35.    print tab(12);"Thank you, ";name$
  36.    print
  37.    print tab(12);"Next I'll need 10 nouns!  These are names of things, such"
  38.    print tab(12);"as: Insect, Box, Tree, Banana"
  39.    for x=1 to 10
  40.       print tab(15);"Noun #";x;" ";
  41.       input c$(x)
  42.    next x
  43.    print
  44.    print tab(12);"You're doing great, ";name$;", there's not much more."
  45.    print
  46.    print tab(12);"How about two first names of men."
  47.    print tab(15);"The first man's name ";
  48.    input d$
  49.    print tab(15);"And now the second's ";
  50.    input e$
  51.    print
  52.    print tab(12);"The first name of a woman ";
  53.    input f$
  54.    print 
  55.    print tab(12);"And someone's last name ";
  56.    input g$
  57.    print
  58.    print tab(12);"A geographical location ";
  59.    input h$
  60.    print
  61.    print tab(12);"A kind of liquid ";
  62.    input i$
  63.    print
  64.    print tab(12);"And finally, an exclamatory word or two ";
  65.    input j$
  66.    print
  67.    print tab(12);"Well done, ";name$;", now. . ."
  68. 140    rem
  69.    print 
  70.    print tab(12);"Would you like a newspaper ad (1),"
  71.    print tab(12);"               a western (2),"
  72.    print tab(12);"               a story about the army (3),"
  73.    print tab(12);"            or a waterbed (4)."
  74. 100 print tab(12);"Type the number of the one you would like ";
  75.    input n
  76. 270    rem
  77. on n gosub 400,500,600,700
  78.     print tab(15);"Want another story ";name$;" ";
  79.     input qq$
  80.     if left$(qq$,1)<>"Y" and left$(qq$,1)<>"y" then \
  81.          print:print:print:print tab(15);"goodbye  "; name$:stop
  82.     print tab(15);"Want to use the same words ";
  83.     input qq$
  84.     if left$(qq$,1)<>"Y" and left$(qq$,1)<>"y" then \
  85.          goto 125
  86.     goto 140
  87.  
  88. 400 rem
  89.     print 
  90.     print 
  91.     print
  92.     print
  93.     print tab(15);"DAILY GRUNT CLASSIFIEDS"
  94.     print "FOR SALE: 1957 Sedan.  This ";a$(1);" car is in a ";a$(2)
  95.     print "condition.  It was formerly owned by a ";a$(3);" school teacher"
  96.     print "who always drove it ";b$(1);".  There is a ";a$(4);" ";c$(1);" in"
  97.     print "the back seat.  It has a chrome ";c$(2);" on the hood, a ";a$(5)
  98.     print "paint job, ";a$(6);" tires and the back opens into a ";a$(7)
  99.     print c$(3);".  Will consider taking a slightly used ";c$(4);" in trade."
  100.     print
  101.     print
  102.     print "LOST:  In the vicinity of ";h$;", a ";a$(8);" french poodle with"
  103.     print a$(9);" hair and a ";a$(10);" tail.  It answers to the name of"
  104.     print f$;".  When last seen it was carrying a ";c$(5);" in its mouth."
  105.     print "A ";a$(11);" reward is offered."
  106.     print
  107.     print
  108.     print
  109.      return
  110.  
  111. 500 rem
  112.      print
  113.     print
  114.     print
  115.     print
  116.     print tab(12);"AN ADULT WESTERN"
  117.     print
  118.     print "Tex ";g$;", the Marshall of ";d$;" City rode into town.  He sat"
  119.     print b$(2);" in the saddle, ready for trouble.  He knew that his ";a$(1)
  120.     print "enemy, ";e$;" the Kid was in town.  The Kid was in love with Tex's"
  121.     print "horse, ";f$;".  Suddenly, the Kid came out of the ";a$(7);" Nugget"
  122.     print "Saloon.  "
  123.     print
  124.     print "'DRAW TEX', he yelled ";b$(3)
  125.     print
  126.     print "Tex reached for his ";c$(4);", but before he could get it out of"
  127.     print "his ";c$(5);" the Kid fired, hitting Tex in the ";c$(6);" and"
  128.     print "the ";c$(7);"."
  129.     print 
  130.     print "As Tex fell he pulled out his own ";c$(8);" and shot the Kid ";
  131.     print int(50*rnd+3)
  132.     print "times in the ";c$(9);".  The Kid dropped in a pool of ";i$
  133.     print
  134.     print "'";j$;"', Tex said.  'I hated to do it, but he was on the wrong"
  135.     print "side of the ";c$(10);"."
  136.      print
  137.      print
  138.     print
  139.     return
  140.  
  141. 600 rem
  142.     print
  143.     print
  144.     print
  145.     print
  146.     print "If you plan on joining the army, here are some ";a$(11);" hints"
  147.     print "that will help you become a ";a$(10);" soldier."
  148.     print
  149.     print "The army is made up of Officers, Non-coms, and ";c$(1);"s."
  150.     print "You can recognize an Officer by the ";c$(2);"s on his shoulders"
  151.     print "and the funny-looking ";c$(3);"s on his cap.  When you address"
  152.     print "an Officer, always say ";c$(4);" and say it ";b$(5);".  If you get"
  153.     print "a ";a$(9);" haircut, keep your ";c$(5);"s shined, and see that"
  154.     print "your ";c$(6);" is clean at all times, you will be a credit to the "
  155.     print "slogan:"
  156.     print 
  157.     print "       The Army Builds Better ";c$(7);"s!"
  158.     print
  159.     print "At roll call, when the ";a$(8);" sergeant calls your name, shout"
  160.     print "'";j$;"' loud and clear."
  161.     print
  162.     print "You will become familiar with weapons like the .30 calibre ";c$(8)
  163.     print "and the automatic ";c$(9);"."
  164.     print
  165.     print "Follow this advice and you may win the. . ."
  166.     print
  167.     print "******** ";a$(7);" Conduct ";c$(10);" ********"
  168.     print
  169.     print
  170.     return
  171.  
  172. 700 rem
  173.     print
  174.     print "Bust-a-Button and Duck Dept. Store"
  175.     print "Dix Hills, New York"
  176.     print
  177.     print
  178.     print "Dear Sirs,"
  179.     print
  180.     print "    Last week I purchased a ";a$(2);" contour water bed in your"
  181.     print "store.  I got it especially for my ";a$(4);" husband who sleeps"
  182.     print "very ";b$(1);" and says that ";a$(6);" water beds that have"
  183.     print c$(1);"s in them make his ";c$(3);" ache.  When the bed arrived "
  184.     print "my husband tested it ";b$(2);" and said the ";a$(8);" ";c$(5)
  185.     print "was bent and kept pressing into his ";c$(6);".  He says this"
  186.     print "could lead to a ";a$(10);" condition of the ";c$(8);"."
  187.     print
  188.     print "    I would like to exchange this ";a$(9);" bed for one that"
  189.     print "will allow my husband to sleep ";b$(4);" and won't make his"
  190.     print c$(10);" sore."
  191.     print 
  192.     print
  193.     print tab(25);"Yours ";b$(5);","
  194.     print tab(25);f$;" ";g$
  195.     print
  196.     print
  197.     return
  198.