home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / DIVERSEN / TIPI2A / HAIKU.TPI < prev    next >
Text File  |  1994-09-29  |  4KB  |  144 lines
  1. # HAIKU.TPI by Kent Peterson
  2. # 11/28/93
  3.  
  4. deftable preps
  5.  "on"      "beside" "in" "beneath" "of"
  6.  "above"   "under"  "by" "over"
  7.  "against" "near"
  8. endtable
  9.  
  10. define prep
  11.  11 random preps
  12.  print$ " " print$
  13. enddef
  14.  
  15. defvar artflag
  16.  
  17. define art
  18.  2 random 1 - dup
  19.  if "a"  else "the"
  20.  endif artflag store
  21.  print$ " " print$
  22. enddef
  23.  
  24. define makean
  25.  row column 1 - locate "n " print$
  26. enddef
  27.  
  28. deftable adjs
  29.  "autumn"    "hidden"    "bitter"    "misty"
  30.  "silent"    "empty"     "dry"       "dark"
  31.  "summer"    "icy"       "delicate"  "quiet"
  32.  "white"     "cool"      "spring"    "winter"
  33.  "dappled"   "twilight"  "dawn"      "crimson"
  34.  "wispy"     "azure"     "blue"      "billowing"
  35.  "broken"    "cold"      "damp"      "falling"
  36.  "frosty"    "green"     "long"      "late"
  37.  "lingering" "limpid"    "little"    "morning"
  38.  "muddy"     "old"       "red"       "rough"
  39.  "still"     "small"     "sparkling" "throbbing"
  40.  "vermilion" "wandering" "withered"  "wild"
  41.  "black"     "young"     "holy"      "solitary"
  42.  "fragrant"  "aged"      "snowy"     "proud"
  43.  "floral"    "solitary"  "divine"    "polished"
  44.  "ancient"   "purple"    "lively"    "nameless"
  45. endtable
  46.  
  47. deftable nouns
  48.  "waterfall"  "river"   "breeze"   "moon"
  49.  "rain"       "wind"    "sea"      "morning"
  50.  "snow"       "lake"    "sunset"   "pine"
  51.  "shadow"     "leaf"    "dawn"     "turtle"
  52.  "forest"     "hill"    "cloud"    "meadow"
  53.  "sun"        "glade"   "bird"     "brook"
  54.  "butterfly"  "bush"    "dew"      "dust"
  55.  "field"      "fir"     "flower"   "firefly"
  56.  "feather"    "grass"   "haze"     "mountain"
  57.  "night"      "pond"    "darkness" "snowflake"
  58.  "silence"    "sound"   "sky"      "shape"
  59.  "surf"       "thunder" "violet"   "water"
  60.  "wildflower" "wave"    "stone"    "mouse"
  61.  "sun"        "wood"    "dream"    "cherry"
  62.  "tree"       "fog"     "frost"    "voice"
  63.  "paper"      "frog"    "smoke"    "star"
  64. endtable
  65.  
  66. deftable verbs
  67.  "shakes"      "drifts"      "has stopped" "struggles"
  68.  "has fallen"  "has passed"  "sleeps"      "creeps"
  69.  "flutters"    "has risen"   "is falling"  "trickles"
  70.  "murmers"     "is floating" "breaking"    "jumps"
  71.  "is dreaming" "sleeps"      "falls"       "wanders"
  72.  "waits"       "fades"       "stands"      "dying"
  73.  "is drawing"  "singing"     "rises"       "paints"
  74.  "capturing"   "flying"      "lies"        "picked up"
  75.  "gathers in"  "invites"     "separates"   "eats"
  76.  "plants"      "digs into"   "hears"       "weeping"
  77.  "facing"      "mourns"      "tastes"      "hear"
  78.  "shaking"     "walks"       "builds"      "searches for"
  79.  "piercing"    "craves"      "departing"   "opens"
  80.  "falling"     "confronts"   "illuminates" "breaking"
  81.  "settles"     "reaches"     "keeps"       "closes"
  82.  "leaves"      "warms"       "explodes"    "drawing"
  83. endtable
  84.  
  85. define phrase
  86.  artflag fetch
  87.  if 0 artflag store
  88.   dup$ 1 left$ "aeiou" swap$
  89.   instr drop$ drop$ if makean endif
  90.  endif
  91.  print$ " " print$
  92. enddef
  93.  
  94. define adj
  95.  64 random adjs phrase
  96. enddef
  97.  
  98. define noun
  99.  64 random nouns phrase
  100. enddef
  101.  
  102. define verb
  103.  64 random verbs phrase
  104. enddef
  105.  
  106. define h1
  107.  art adj noun cr
  108.  art noun verb prep art noun cr
  109.  adj adj noun cr
  110. enddef
  111.  
  112. define h2
  113.  art adj noun verb cr
  114.  art adj adj noun cr
  115.  verb art adj noun cr
  116. enddef
  117.  
  118. define h3
  119.  art adj adj noun cr
  120.  prep art adj noun cr
  121.  art noun verb cr
  122. enddef
  123.  
  124. define h4
  125.  noun prep art noun cr
  126.  art adj noun prep art noun cr
  127.  adj noun cr
  128. enddef
  129.  
  130. deftable haikus
  131.  h1 h2 h3 h4
  132. endtable
  133.  
  134. define haiku
  135.  4 random haikus
  136. enddef
  137.  
  138. randomize
  139. begin
  140.  cls haiku
  141.  begin key dup if dup endif until
  142.  27 =
  143. until
  144.