home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / comm / Fido / Spot / Rexx / Rot13.spot < prev    next >
Text File  |  1993-08-25  |  1KB  |  48 lines
  1. /************* ROT 13 ******************/
  2. /* ARexx Rot13-script by Tom De Mulder */
  3. /* $VER Rot13.spot V1.2 (24.07.93)     */
  4. /*                                     */
  5. /*   Contact me on 2:291/708.10        */
  6. /***************************************/
  7.  
  8. ADDRESS SPOT
  9. OPTIONS RESULTS
  10. cr = '0d'X
  11.  
  12. 'ismessages'
  13. if rc = 5 then do
  14.    'requestnotify "Use in message window only!"'
  15.    exit
  16.    end
  17.  
  18. 'getsubject'
  19. subj = result
  20.  
  21. 'requestresponse "Rotate subject ?"'
  22. if rc = 0 then do
  23.    subj = TRANSLATE(subj,'nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM','abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ')
  24.    end
  25.  
  26. 'saveascii "T:RotSpot13.tmp" OVERWRITE NOTEARLINE'
  27. call open in,"T:RotSpot13.tmp",read
  28. call open out,"T:Rot.tmp",write
  29.  
  30. do dell = 1 to 5
  31.  vidl = readln(in)
  32. end
  33.  
  34. do while ~EOF(in)
  35.  inline = readln(in)
  36.  outline = TRANSLATE(inline,'nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM','abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ')
  37.  call writeln out, outline
  38. end
  39.  
  40. call close in
  41. call close out
  42. address command 'Delete >NIL: T:RotSpot13.tmp'
  43.  
  44. 'edit SUBJECT "'subj'" FILE "T:Rot.tmp" NOREQ'
  45. address command 'Delete >NIL: T:Rot.tmp'
  46.  
  47. Exit
  48.