home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / textra / scripts / scary.textra < prev    next >
Text File  |  1995-02-27  |  922b  |  28 lines
  1.     /*******************************************************************
  2.      *   TEXTRA AREXX script -- Mike Haas, 1991, All Rights Reserved.  *
  3.      * Freely distributable ONLY as a component of the TEXTRA package. *
  4.      * This banner may not be removed or altered (improvements to the  *
  5.      *    actual program welcome).  Please document and send to me.    *
  6.      *        !!! PLACE THIS FILE IN YOUR REXX: DIRECTORY !!!          *
  7.      *******************************************************************/
  8.  
  9. /* example of how to ask a YES/NO question */
  10.  
  11. /* Place in rexx: directory, then
  12.  *
  13.  * Into a TEXTRA/AREXX string gadget...type:
  14.  *
  15.  *     scary
  16.  *
  17.  */
  18.  
  19. OPTIONS results
  20.  
  21. ask "Click YES or NO.   Never mind why.   Trust me (heh, heh)"
  22.  
  23. if (result == YES) then
  24.     notify "That was a nice POSITIVE response!"
  25. else
  26.     /* result MUST be == NO */
  27.     notify "Oooohhh!   Such NEGATIVE energy!!!   See a therapist."
  28.