[impersonalis]

kirinnokushiarimoTokatakiari

Dim Cnv$(1,25)

Cnv(0,0)="A":Cnv(1,0)="ka"
Cnv(0,1)="B":Cnv(1,1)="zu"
Cnv(0,2)="C":Cnv(1,2)="mi"
Cnv(0,3)="D":Cnv(1,3)="te"
Cnv(0,4)="E":Cnv(1,4)="ku"
Cnv(0,5)="F":Cnv(1,5)="lu"
Cnv(0,6)="G":Cnv(1,6)="ji"
Cnv(0,7)="H":Cnv(1,7)="ri"
Cnv(0,8)="I":Cnv(1,8)="ki"
Cnv(0,9)="J":Cnv(1,9)="zu"
Cnv(0,10)="K":Cnv(1,10)="me"
Cnv(0,11)="L":Cnv(1,11)="ta"
Cnv(0,12)="M":Cnv(1,12)="rin"
Cnv(0,13)="N":Cnv(1,13)="To"
Cnv(0,14)="O":Cnv(1,14)="mo"
Cnv(0,15)="P":Cnv(1,15)="no"
Cnv(0,16)="Q":Cnv(1,16)="ke"
Cnv(0,17)="R":Cnv(1,17)="shi"
Cnv(0,18)="S":Cnv(1,18)="ari"
Cnv(0,19)="T":Cnv(1,19)="chi"
Cnv(0,20)="U":Cnv(1,20)="do"
Cnv(0,21)="V":Cnv(1,21)="ru"
Cnv(0,22)="W":Cnv(1,22)="mei"
Cnv(0,23)="X":Cnv(1,23)="na"
Cnv(0,24)="Y":Cnv(1,24)="fu"
Cnv(0,25)="Z":Cnv(1,25)="z"

Function Find$(ch$)
    ch=Upper(ch)
    For i=0 To 25
        If ch=Cnv(0,i)
            Return Cnv(1,i)
        EndIf
    Next
End Function

Local Name$="impersonalis"
Local AlterName$=""
For i=1 To Len(name)
    AlterName=AlterName+Find(Mid(Name,i,1))
Next
Print AlterName
DebugLog AlterName

WaitKey()
End