home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / comm / Mail+News / UMS11 / rexx / ROT13Decrypt.intui < prev    next >
Text File  |  1995-08-23  |  1KB  |  42 lines
  1. /* ------------------------------------------------------------------------
  2.   :Program.       ROT13Decrypt.intui
  3.   :Contents.      decrypts ROT13 message and shows it in IntuiNews's window
  4.   :Author.        Martin Koyro [mk]
  5.   :Address.       Snail Mail:              EMail:
  6.   :Address.       Salzmannstr. 12          Martin Koyro @ MS3
  7.   :Address.       48147 Münster            mk@bones.westfalen.de
  8.   :History.       v1.0 [mk] 23-Mar-95
  9.   :Copyright.
  10.   :Language.      ARexx
  11.   :Translator.    RexxMast
  12.   :Usage.         ROT13Decrypt.intui
  13. ------------------------------------------------------------------------ */
  14.  
  15. /* Exit if Message Window is not active. */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. STATUS
  20. say RESULT
  21. IF RESULT~="MESSAGE" THEN EXIT 5
  22.  
  23.  
  24. /* We get IntuiNews's message number, ... */
  25.  
  26. GETMSGNUM
  27. MsgNum=RESULT
  28.  
  29. /* ... save the message, ... */
  30.  
  31. 'SAVEMSGBODY' MsgNum 'TO T:rot13.tmp'
  32.  
  33. /* ... call rot13, ... */
  34.  
  35. EXEC 'rot13 T:rot13.tmp >NIL:'
  36.  
  37. /* ... and show the decrypted message. */
  38.  
  39. 'REPLACEMSGBODY WITH T:rot13.tmp'
  40.  
  41. EXEC 'C:Delete T:rot13.tmp QUIET'
  42.