Hello All!

09 Mar 03 17:40, Michael Fisher wrote to All:

 >>Anyone have a rot13 macro available.

 MF> Yes, Prof. Timo Salmi from Finland wrote one some years ago, 
 MF> in his typical elaborate style.

I wrote one some years ago. Probably it's not "elaborate", but it
works for me. Don't know if it will also run under TSEpro4, but if anyone's
interested, here's the source:


   ----- rot13.s begins -----
/* 
ROT-13-encoder by Gerrit Kuehn, version 0.1ß
contact: gerrit{at}nomans.n2411.de, FidoNet 2:246/4020.0
(c) 1997 by GK
*/ 
 
Proc do_rot13() 
  Integer ch,n 
  Message("ROT-13 in progress...") 
  If IsBlockMarked() 
    GotoBlockBegin() 
  Else 
    BegFile() 
  EndIf 
  Repeat 
    Case Chr(CurrChar()) 
      When "A".."M", "a".."m" 
        ch=CurrChar()+13 
      When "N".."Z", "n".."z" 
        ch=CurrChar()-13 
    EndCase 
    Case Chr(CurrChar()) 
      When "A".."Z", "a".."z" 
        InsertText(Chr(ch),_OVERWRITE_) 
        PrevChar() 
    EndCase 
    n=NextChar() 
  Until n==0 Or Not(IsCursorInBlock()) And IsBlockMarked() 
  Message("ROT-13 completed!") 
End 
 
 do_rot13() 
 
Proc Whenloaded() 
  Message("Press F11 for ROT-13") 
End 
   ----- rot13.s ends -----


Regards,
Gerrit

--- Msged/BSD 6.0.0