これでコード変換と言えるのでしょうか･･･ちょっと心配なので見てください･･･

文字列(test)に代入した文字列を1文字1文字(work)判定してコードをシフトして、
シフトしたコードの文字を結合(result)すると、この文字列resultが
コード変換後の文字列となると言うことで良いのでしょうか･･･

string test,result
char work
long i

test = \"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 \"

for i = 1 to Len(test)
choose case mid( test, i, 1 )
case \"A\" to \"I\"
work = Char( asc( mid( test, i, 1 ) ) + 128 )
case \"J\" to \"R\"
work = Char( asc( mid( test, i, 1 ) ) + 135 )
case \"S\" to \"Z\"
work = Char( asc( mid( test, i, 1 ) ) + 143 )
case \"0\" to \"9\"
work = Char( asc( mid( test, i, 1 ) ) + 192 )
case \" \"
work = Char( asc( mid( test, i, 1 ) ) + 32 )
end choose
result += string(work)
next

数字と英大文字とスペースのみで構成されるテキストを変換する場合、これで良いのでしょうか？