home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / HAIKU.TRU < prev    next >
Encoding:
Text File  |  1984-12-19  |  1.2 KB  |  48 lines
  1. ! Haiku creator.
  2. !
  3. RANDOMIZE
  4. DECLARE DEF Pick$
  5.  
  6. DIM article$(3), adjective$(15), noun$(12), verb$(15), prep$(4)
  7.  
  8. MAT READ article$, adjective$
  9. MAT READ noun$, verb$, prep$
  10.  
  11. LET line$ = Pick$(article$) & " " & Pick$(adjective$)
  12. LET line$ = line$ & ", " & Pick$(adjective$) & " "
  13. LET line$ = line$ & Pick$(noun$) & "--"
  14. PRINT line$
  15.  
  16. LET line$ = Pick$(prep$) & " " & Pick$(article$) & " "
  17. LET line$ = line$ & Pick$(adjective$) & " " & Pick$(noun$)
  18. PRINT line$
  19.  
  20. LET line$ =  Pick$(article$) & " " & Pick$(noun$) & " "
  21. LET line$ = line$ & Pick$(verb$) & "."
  22. PRINT line$
  23.  
  24. DATA the, a, this
  25. DATA distant, foggy, wet, black, snowy, spring, sighing
  26. DATA broken, hidden, cold, ruined, stiff, forgotten
  27. DATA drowsy, gleaming
  28.  
  29. DATA mountain, garden, shack, cloud, bamboo, stone
  30. DATA wheelbarrow, pine, field, sparrow, pathway, pond
  31.  
  32. DATA rings, appears, disappears, remains, dissolves, shows
  33. DATA huddles, rises up, is still, creaks, sways, is hidden
  34. DATA seems lost, forgets itself, sleeps
  35.  
  36. DATA under, by, within, beneath
  37.  
  38. END
  39. !
  40. ! Pick$.  Choose an element of an array.
  41. !
  42. DEF Pick$(array$())
  43.  
  44.     LET n = Int(Rnd * Ubound(array$)) + 1
  45.     LET Pick$ = array$(n)
  46.  
  47. END DEF
  48.