# Fonedecipherer.bas

draw -1

dim b$(20)

dim v(20)

dim n$(20)

form fld 40,80,70,12, "1-800-",1

form btn 45,147,40,12,"Enter",1

draw "Phone Number Decipherer!",14,25,1

draw "Use lower case letters.",30,40,0

draw "Example: 1-800-hot-pawb",25,52,0

top:

x = asc(input$(1))

abc$="2" : def$="3" : ghi$="4"

jkl$="5" : mno$="6" : prs$="7"

tuv$="8" : wxy$="9"

dash$="-"

for i=1 to 14

b$(i) = mid$(s$(0), i, 1)

n$(i)=i

v(i) = asc(b$(i))

if v(i)>47 and v(i)<58 then n$(i)=v(i)-48

if v(i)>96 and v(i)<100 then n$(i)=abc$

if v(i)>99 and v(i)<103 then n$(i)=def$

if v(i)>102 and v(i)<106 then n$(i)=ghi$

if v(i)>105 and v(i)<109 then n$(i)=jkl$

if v(i)>108 and v(i)<112 then n$(i)=mno$

if v(i)>111 and v(i)<116 then n$(i)=prs$

if v(i)>115 and v(i)<119 then n$(i)=tuv$

if v(i)>118 and v(i)<122 then n$(i)=wxy$

if v(i)=45 then n$(i) =dash$

print n$(i),

next i

print

goto top

end

    Source: geocities.com/greenchile505