Print "1 to encrypt, 2 to decrypt..."
input "...";choice$
if choice$ = "1" then
goto [enc]
end if
if choice$ = "2" then
goto [dec]
end if
end
[enc]
cls
prompt "Line to convert?";line$
con = len(line$)
while x <> con
x = x+1
ode$ = left$(line$, x)
code$=right$(ode$, 1)
gosub [char]
final$=final$;letter$
wend
print final$
end
[char]
select case lower$(code$)
case "a"
letter$ = "AP"
case "b"
letter$ = "BV"
case "c"
letter$ = "CL"
case "d"
letter$ = "DT"
case "e"
letter$ = "EC"
case "f"
letter$ = "FT"
case "g"
letter$ = "GF"
case "h"
letter$ = "HT"
case "i"
letter$ = "IA"
case "j"
letter$ = "JL"
case "k"
letter$ = "KL"
case "l"
letter$ = "LM"
case "m"
letter$ = "MK"
case "n"
letter$ = "NV"
case "o"
letter$ = "OC"
case "p"
letter$ = "PP"
case "q"
letter$ = "QB"
case "r"
letter$ = "RM"
case "s"
letter$ = "SH"
case "t"
letter$ = "TG"
case "u"
letter$ = "UF"
case "v"
letter$ = "VC"
case "w"
letter$ = "WK"
case "x"
letter$ = "XR"
case "y"
letter$ = "YK"
case "z"
letter$ = "ZL"
case else
letter$ = " "
end select
return
[dec]
cls
prompt "Line to decrypt?";line$
con = len(line$)
while x < con
x = x+2
ode$ = left$(line$, x)
code$=right$(ode$, 2)
if left$(code$, 1) = " " then
final$=final$;" "
x=x+1
ode$ = left$(line$, x)
code$=right$(ode$, 2)
end if
gosub [char2]
final$=final$;letter$
wend
print final$
end
[char2]
select case lower$(code$)
case "ap"
letter$ = "A"
case "bv"
letter$ = "B"
case "cl"
letter$ = "C"
case "dt"
letter$ = "D"
case "ec"
letter$ = "E"
case "ft"
letter$ = "F"
case "gf"
letter$ = "G"
case "ht"
letter$ = "H"
case "ia"
letter$ = "I"
case "jl"
letter$ = "J"
case "kl"
letter$ = "K"
case "lm"
letter$ = "L"
case "mk"
letter$ = "M"
case "nv"
letter$ = "N"
case "oc"
letter$ = "O"
case "pp"
letter$ = "P"
case "qb"
letter$ = "Q"
case "rm"
letter$ = "R"
case "sh"
letter$ = "S"
case "tg"
letter$ = "T"
case "uf"
letter$ = "U"
case "vc"
letter$ = "V"
case "wk"
letter$ = "W"
case "xr"
letter$ = "X"
case "yk"
letter$ = "Y"
case "zl"
letter$ = "Z"
case else
x=x+1
letter$ = " "
end select
return