rexx/progs/poetry.r

   1 /*===================================================================*/
   2 /*     Bill N. Vlachoudis                                     o o    */
   3 /*     Computer adDREss.......CACZ0200 AT Grtheun1.EARN     ____oo_  */
   4 /*     HomE AdDreSs...........Parodos Filippoy 51          /||    |\ */
   5 /*   !                        TK 555-35 Pylaia              ||    |  */
   6 /* !  tHe bESt Is             ThesSALONIKI, GREECE          '.___.'  */
   7 /*  Y e t  to   Co mE !                                     MARMITA  */
   8 /*===================================================================*/
   9 Lines = 14
  10 I = Random(1,Lines) ; U = 0 ; J = 0 ; K = 0
  11 P = ''
  12 Line1:
  13 Select
  14    When I =  1 then    P = P 'thow shalt not'
  15    When I =  2 then    P = P 'foxe''s hair'
  16    When I =  3 then    P = P 'snail of fear'
  17    When I =  4 then    P = P 'tounge of Turk'
  18    When I =  5 then    P = P 'Slammer'
  19    When I =  6 then    P = P 'yeald of ferms'
  20    When I =  7 then    P = P 'morning dawn'
  21    When I =  8 then    P = P 'tang of sunrise'
  22    When I =  9 then    P = P 'swaying pines'
  23    When I = 10 then    P = P 'living pig'
  24    When I = 11 then    P = P 'trailing feathers'
  25    When I = 12 then    P = P 'barking dogs'
  26    When I = 13 then    P = P 'dying lives'
  27    When I = 14 then    P = P 'earthquakes'
  28 End
  29 Signal Line210
  30 Line2:
  31 Select
  32    When I =  1 then Do;   P = P 'wrestling beings' ;U=2 ; End
  33    When I =  2 then    P = P 'thrilled me'
  34    When I =  3 then    P = P 'still sitting upright...'
  35    When I =  4 then Do;   P = P 'never ever flitting';U=2 ; End
  36    When I =  5 then    P = P 'burt'
  37    When I =  6 then    P = P 'entrances me'
  38    When I =  7 then    P = P 'soothing me'
  39    When I =  8 then    P = P 'rustling leaves'
  40    When I =  9 then    P = P 'radiates calm'
  41    When I = 10 then    P = P 'radiates sun'
  42    When I = 11 then    P = P 'absorbs nature'
  43    When I = 12 then    P = P 'intakes grabs'
  44    When I = 13 then    P = P 'judjing liers'
  45    When I = 14 then    P = P 'fires'
  46 End
  47 Signal Line210
  48 Line3:
  49 Select
  50    When I =  1 then  P = P 'and my heart'
  51    When I =  2 then  P = P 'darkness here'
  52    When I =  3 then  P = P 'shall be lifted and dropped'
  53    When I =  4 then  P = P 'quoth the raven'
  54    When I =  5 then  P = P 'sight of parting'
  55    When I =  6 then  P = P 'mighty Oaks'
  56    When I =  7 then  P = P 'grace and beauty'
  57    When I =  8 then  P = P 'silelntly singing an ever ending'
  58    When I =  9 then  P = P 'nature speaking of glory'
  59    When I = 10 then  P = P 'creatures fearing'
  60    When I = 11 then  P = P 'animals of distruction'
  61    When I = 12 then  P = P 'guns and carnations'
  62    When I = 13 then  P = P 'greenhorns and rapists'
  63    When I = 14 then  P = P 'valuable receptors'
  64 End
  65 Signal Line210
  66 Line4:
  67 Select
  68    When I =  1 then    P = P 'nothing more nothing less'
  69    When I =  2 then    P = P 'Yet again'
  70    When I =  3 then    P = P 'slowly creeping'
  71    When I =  4 then    P = P '... Evermore'
  72    When I =  5 then    P = P 'nevermore'
  73    When I =  6 then    P = P 'untouch, unspoiled'
  74    When I =  7 then    P = P 'shades of green and passion'
  75    When I =  8 then    P = P 'tranquility and faith'
  76    When I =  9 then    P = P '... so peacefully'
  77    When I = 10 then    P = P 'and yet again ... '
  78    When I = 11 then    P = P 'but'
  79    When I = 12 then    P = P 'and...'
  80    When I = 13 then    P = P 'enough.'
  81    When I = 14 then    P = P 'again.'
  82 End
  83
  84 Line210:
  85 If ^(U = 0 | Random(1,100) > 19) then Do
  86    P = P ','  ; U = 2
  87 End
  88
  89 if Random(1,100) < 66 then Do
  90    P = P' ' ; U = U + 1
  91 End
  92 Else Do
  93     say P
  94     U = 0 ; P = ''
  95 End
  96
  97 Line215:
  98 I = random() // Lines + 1
  99 J = J + 1 ; K = K + 1
 100
 101 if ^(U>0 | J%2 ^= J/2) then P = '    '
 102
 103 Interpret 'Signal Line'J
 104
 105 Line5:
 106 J = 0 ;
 107 if K < 21 then signal Line215
 108    say '* -----------------------------------------------'
 109  M.0  = 13
 110  M.1  = 'Wow he is great.'
 111  M.2  = 'He is the best poet of all times.'
 112  M.3  = 'I think that his last frase was the best of them all.'
 113  M.4  = 'Didn''t  you like that ?'
 114  M.5  = 'Well don''t you just love that guy ? '
 115  M.6  = 'What is he talking about ?'
 116  M.7  = 'Do you call this POETRY ?!!!!!!!!!!'
 117  M.8  = 'Rubish.'
 118  M.9  = 'Oh my GOD. What was that ? '
 119  M.10 = 'Send him something else to find out how great he is......'
 120  M.11 = 'I really think that you have something better to do......'
 121  M.12 = 'Well, when the time comes for great men to do their job, they always remind me of him (fazz0100)'
 122  M.13 = 'So, this is all that poetry is about.'
 123  E = random(1,M.0)
 124  say '* POETRY CRITICS *** 'M.E
 125 Exit 0