code:

---

; Kixtart 4.12
; Kixforms 2.1
; Rot13
 
break on
 
$form = createobject("kixtart.form")
$form.text = "Rot13"
$form.fontsize = 10
$form.backcolor = skyblue
$text = $form.textbox("Paste text here.",10,10,394,260)
$text.backcolor = aliceblue
$text.multiline = true
$button = $form.button("Convert",155,285,100,30)
$button.onclick = "$$text.text=rot13($$text.text)"
$form.show
while $form.visible
 $=execute($form.doevents)
loop
 
exit 1
 
FUNCTION Rot13($s)
DIM $i,$c, $o,$u
$o=SetOption("CaseSensitivity","Off")
$u = (Ubound($s) >=0)
IF $u  $s=Join($s,@CRLF)  ENDIF
FOR $i = 1 TO Len($s)
  $c = Substr($s,$i,1)
  SELECT
    CASE $c >= 'a' AND $c <= 'm'
      $c = Chr(Asc($c)+13)
    CASE $c >= 'n' AND $c <= 'z'
      $c = Chr(Asc($c)-13)
  ENDSELECT
  $Rot13 = $Rot13+$c
NEXT
IF $u  $Rot13 = Split($Rot13,@CRLF)  ENDIF
$o=SetOption("CaseSensitivity",$o)
ENDFUNCTION

---