home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / tipi / tabloid.tpi < prev    next >
Text File  |  1993-11-06  |  746b  |  38 lines
  1. # TABLOID.TPI
  2. # by Kent Peterson
  3. # This is a silly little program
  4. # that generates tabloid-style headlines
  5.  
  6. deftable subjects
  7.   "Elvis" "Bigfoot" "Princess Di"
  8.   "98 Year-old Grandmother"
  9.   "Space Alien" "Madonna" "Michael Jackson"
  10.   "Bat-Child" "Loch Ness Monster"
  11. endtable
  12.  
  13. define subject
  14.  9 random subjects
  15.  print$ cr
  16. enddef
  17.  
  18. define verb
  19.  7 random
  20.  case 1 of "gives birth to" endof
  21.       2 of "found living with" endof
  22.       3 of "is actually" endof
  23.       4 of "to marry" endof
  24.       5 of "declares love for" endof
  25.       6 of "found in love nest with"
  26.            endof
  27.       7 of "reveals the hidden truth about"
  28.            endof
  29.  endcase
  30.  print$ cr
  31. enddef
  32.  
  33. randomize
  34. subject verb subject
  35. begin
  36.  key
  37. until
  38.