home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug004.ark / HAIKU < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.9 KB  |  85 lines
  1. `from Computerized haiku by Margaret Masterman
  2.  in Cybernetics, Art and Ideas`
  3.  
  4. @{ns|haiku|{
  5.     @{get|5|Pick one of the above nouns: }
  6.     @{get|1|Choose a word which goes with @@{5}: }
  7.     @{get|2|and another: }
  8.     @{get|3|and another: }
  9.     @{get|8|and another which is especially close to @@{5}: }
  10.     @{get|9|and yet another: }
  11.     @{get|6|Choose a word which is strongly connected with @@{2}: }
  12.     @{get|4|Choose another which goes with @@{2}: }
  13.     @{get|7|Finally, pick a word which goes with @@{9}: }
  14.     @{print|@@{1}|@@{2}|@@{3}|@@{4}|@@{5}|@@{6}|@@{7}|@@{8}|@@{9}}
  15.     @{haiku}
  16. }}
  17.  
  18. @{ns|get|{
  19.     @{ps|@@{listN|@@{pk|0D0A}     }|}
  20.     @{ns|N|@@{rs|X}}
  21. }}
  22. @{ss|get|N|X}
  23.  
  24. @{ns|print|{
  25.     @{ps||
  26.         All 1 in the 2,|
  27.         I 3 4 5 in the 6.|
  28.         7!  The 8 has 9.||
  29.     }
  30. }}
  31. @{ss|print|1|2|3|4|5|6|7|8|9}
  32.  
  33. @{ns|list1|{
  34.     /white blue red black grey green brown bright pure curved crowned starred
  35. }}
  36.  
  37. @{ns|list2|{
  38.     /buds twigs leaves hills peaks snow ice sun rain
  39.     /cloud sky dawn dusk mist fog spring heat cold
  40. }}
  41.  
  42. @{ns|list3|{
  43.     /see trace glimpse flash smell taste hear seize
  44. }}
  45.  
  46. @{ns|list4|{
  47.     /snow tall pale dark faint white clear red blue green
  48.     /grey black round square straight curved slim fat burst thin bright
  49. }}
  50.  
  51. @{ns|list5|{
  52.     /trees peaks hills streams birds specks arcs grass stems sheep cows deer
  53.     /stars clouds flowers buds leaves trees pools drops stones bells trails
  54. }}
  55.  
  56. @{ns|list6|{
  57.     /spring fall cold heat sun shade dawn dusk
  58.     /day night mist trees woods hills pools
  59. }}
  60.  
  61. @{ns|list7|{
  62.     /Bang Hush Swish Ffttt Whizz Flick Shoo Grrr Whirr Look Crash
  63. }}
  64.  
  65. @{ns|list8|{
  66.     /sun moon star cloud storm streak tree flower
  67.     /bud leaf child crane bird plane moth
  68. }}
  69.  
  70. @{ns|list9|{
  71.     /flit fled dimmed cracked passed shrunk smashed
  72.     /blown sprung crashed gone fogged burst
  73. }}
  74.  
  75. @{ns|ssl|{
  76.     @{ge|9|@@{n}|{
  77.         @{ss|list@@{n}|/}
  78.         @{ns|n|@@{ad|@@{n}|1}}
  79.         @{ssl}
  80.     }}
  81. }}
  82. @{ns|n|1}@{ssl}
  83.  
  84. @{haiku}
  85.