home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 24 DOS / 24-DOS.zip / dosrx10b.zip / POETRY.R < prev    next >
Text File  |  1993-01-12  |  5KB  |  126 lines
  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
  126.