Miscellany

#asciitxt on
on *:input:*: {
  if ($left($1,1) = /) return
  if ($left($1,1) = @) return
  %txtsc = $1-
  %txtsc = $replace(%txtsc,a,ã)
  %txtsc = $replace(%txtsc,b,ß)
  %txtsc = $replace(%txtsc,c,¢)
  %txtsc = $replace(%txtsc,d,Ð)
  %txtsc = $replace(%txtsc,e,è)
  %txtsc = $replace(%txtsc,f,ƒ)
  %txtsc = $replace(%txtsc,g,g)
  %txtsc = $replace(%txtsc,h,h)
  %txtsc = $replace(%txtsc,i,î)
  %txtsc = $replace(%txtsc,j,j)
  %txtsc = $replace(%txtsc,k,k)
  %txtsc = $replace(%txtsc,l,£)
  %txtsc = $replace(%txtsc,m,m)
  %txtsc = $replace(%txtsc,n,ñ)
  %txtsc = $replace(%txtsc,o,ø)
  %txtsc = $replace(%txtsc,p,þ)
  %txtsc = $replace(%txtsc,q,q)
  %txtsc = $replace(%txtsc,r,®)
  %txtsc = $replace(%txtsc,s,š)
  %txtsc = $replace(%txtsc,t,†)
  %txtsc = $replace(%txtsc,u,ü)
  %txtsc = $replace(%txtsc,v,\')
  %txtsc = $replace(%txtsc,w,\\')
  %txtsc = $replace(%txtsc,x,×)
  %txtsc = $replace(%txtsc,y,ý)
  %txtsc = $replace(%txtsc,z,Ž)
  /say @** %txtsc ** @ | unset %txtsc | halt 
}
#asciitxt end
menu status,menubar {
  [Ascii Text %kelsh $+ ]
  .[On]:set %kelsh On | enable #asciitxt 
  .[Off]:set %kelsh Off | disable #asciitxt