[Neraphym]

cls
1000
print "Select one of the Following:"
print "1 - Translate to English"
print "2 - Translate to Al Bhed"
print "3 - End Program"
input "Enter a Number:"; choice

if choice = 1 then goto 2000
if choice = 2 then goto 3000
if choice = 3 then 4000
goto 1000

2000
input "Enter the word in Al Bhed (16 Letters Max):"; word$
input "How many letters does it have?:"; letters
for x = 1 to letters step 1
input "Enter Letter:"; letter$(x)

if letter$(x) = "a" then 2001
if letter$(x) = "b" then 2002
if letter$(x) = "c" then 2003
if letter$(x) = "d" then 2004
if letter$(x) = "e" then 2005
if letter$(x) = "f" then 2006
if letter$(x) = "g" then 2007
if letter$(x) = "h" then 2008
if letter$(x) = "i" then 2009
if letter$(x) = "j" then 2010
if letter$(x) = "k" then 2011
if letter$(x) = "l" then 2012
if letter$(x) = "m" then 2013
if letter$(x) = "n" then 2014
if letter$(x) = "o" then 2015
if letter$(x) = "p" then 2016
if letter$(x) = "q" then 2017
if letter$(x) = "r" then 2018
if letter$(x) = "s" then 2019
if letter$(x) = "t" then 2020
if letter$(x) = "u" then 2021
if letter$(x) = "v" then 2022
if letter$(x) = "w" then 2023
if letter$(x) = "x" then 2024
if letter$(x) = "y" then 2025
if letter$(x) = "z" then 2026
goto 2000

2001 Let letter$(x) = "e"
goto 2100
2002 Let letter$(x) = "p"
goto 2100
2003 Let letter$(x) = "s"
goto 2100
2004 Let letter$(x) = "t"
goto 2100
2005 Let letter$(x) = "i"
goto 2100
2006 Let letter$(x) = "w"
goto 2100
2007 Let letter$(x) = "k"
goto 2100
2008 Let letter$(x) = "n"
goto 2100
2009 Let letter$(x) = "u"
goto 2100
2010 Let letter$(x) = "v"
goto 2100
2011 Let letter$(x) = "g"
goto 2100
2012 Let letter$(x) = "c"
goto 2100
2013 Let letter$(x) = "l"
goto 2100
2014 Let letter$(x) = "r"
goto 2100
2015 Let letter$(x) = "y"
goto 2100
2016 Let letter$(x) = "b"
goto 2100
2017 Let letter$(x) = "x"
goto 2100
2018 Let letter$(x) = "h"
goto 2100
2019 Let letter$(x) = "m"
goto 2100
2020 Let letter$(x) = "d"
goto 2100
2021 Let letter$(x) = "o"
goto 2100
2022 Let letter$(x) = "f"
goto 2100
2023 Let letter$(x) = "z"
goto 2100
2024 Let letter$(x) = "q"
goto 2100
2025 Let letter$(x) = "a"
goto 2100
2026 Let letter$(x) = "j"
goto 2100

2100 next x

cls

let F1$ = "/ //////////////////"
Print "Word in Al Behd:"

if letters = 1 then print using F1$ "Word in English", letter$(1)
if letters = 2 then print using F1$ "Word in English", letter$(1), letter$(2)
if letters = 3 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3)
if letters = 4 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4)
if letters = 5 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5)
if letters = 6 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6)
if letters = 7 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7)
if letters = 8 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8)
if letters = 9 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9)
if letters = 10 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10)
if letters = 11 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10), letter$(11)
if letters = 12 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10), letter$(11), letter$(12)
if letters = 13 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10), letter$(11), letter$(12), letter$(13)
if letters = 14 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10), letter$(11), letter$(12), letter$(13), letter$(14)
if letters = 15 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10), letter$(11), letter$(12), letter$(13), letter$(14), letter$(15)
if letters = 16 then print using F1$ "Word in English", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10), letter$(11), letter$(12), letter$(13), letter$(14), letter$(15), letter$(16)

print
print
goto 1000

2000
input "Enter the word in Al Bhed (16 Letters Max):"; word$
input "How many letters does it have?:"; letters
for x = 1 to letters step 1
input "Enter Letter:"; letter$(x)

if letter$(x) = "a" then 2001
if letter$(x) = "b" then 2002
if letter$(x) = "c" then 2003
if letter$(x) = "d" then 2004
if letter$(x) = "e" then 2005
if letter$(x) = "f" then 2006
if letter$(x) = "g" then 2007
if letter$(x) = "h" then 2008
if letter$(x) = "i" then 2009
if letter$(x) = "j" then 2010
if letter$(x) = "k" then 2011
if letter$(x) = "l" then 2012
if letter$(x) = "m" then 2013
if letter$(x) = "n" then 2014
if letter$(x) = "o" then 2015
if letter$(x) = "p" then 2016
if letter$(x) = "q" then 2017
if letter$(x) = "r" then 2018
if letter$(x) = "s" then 2019
if letter$(x) = "t" then 2020
if letter$(x) = "u" then 2021
if letter$(x) = "v" then 2022
if letter$(x) = "w" then 2023
if letter$(x) = "x" then 2024
if letter$(x) = "y" then 2025
if letter$(x) = "z" then 2026
goto 3000

2001 Let letter$(x) = "y"
goto 2100
2002 Let letter$(x) = "p"
goto 2100
2003 Let letter$(x) = "l"
goto 2100
2004 Let letter$(x) = "t"
goto 2100
2005 Let letter$(x) = "a"
goto 2100
2006 Let letter$(x) = "v"
goto 2100
2007 Let letter$(x) = "k"
goto 2100
2008 Let letter$(x) = "r"
goto 2100
2009 Let letter$(x) = "e"
goto 2100
2010 Let letter$(x) = "z"
goto 2100
2011 Let letter$(x) = "g"
goto 2100
2012 Let letter$(x) = "m"
goto 2100
2013 Let letter$(x) = "s"
goto 2100
2014 Let letter$(x) = "h"
goto 2100
2015 Let letter$(x) = "u"
goto 2100
2016 Let letter$(x) = "b"
goto 2100
2017 Let letter$(x) = "x"
goto 2100
2018 Let letter$(x) = "n"
goto 2100
2019 Let letter$(x) = "c"
goto 2100
2020 Let letter$(x) = "d"
goto 2100
2021 Let letter$(x) = "i"
goto 2100
2022 Let letter$(x) = "j"
goto 2100
2023 Let letter$(x) = "f"
goto 2100
2024 Let letter$(x) = "q"
goto 2100
2025 Let letter$(x) = "o"
goto 2100
2026 Let letter$(x) = "w"
goto 2100

2100 next x

cls

let F1$ = "/ //////////////////"
Print "Word in English:"

if letters = 1 then print using F1$ "Word in Al Bhed", letter$(1)
if letters = 2 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2)
if letters = 3 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3)
if letters = 4 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4)
if letters = 5 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5)
if letters = 6 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6)
if letters = 7 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7)
if letters = 8 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8)
if letters = 9 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9)
if letters = 10 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10)
if letters = 11 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10), letter$(11)
if letters = 12 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10), letter$(11), letter$(12)
if letters = 13 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10), letter$(11), letter$(12), letter$(13)
if letters = 14 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10), letter$(11), letter$(12), letter$(13), letter$(14)
if letters = 15 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10), letter$(11), letter$(12), letter$(13), letter$(14), letter$(15)
if letters = 16 then print using F1$ "Word in Al Bhed", letter$(1), letter$(2), letter$(3), letter$(4), letter$(5), letter$(6), letter$(7), letter$(8), letter$(9), letter$(10), letter$(11), letter$(12), letter$(13), letter$(14), letter$(15), letter$(16)

print
print
goto 1000

4000 END

REM Just might work...

[Crescens]

Silly Alpha. The Al Bhed language was dumb. And way too easy to figure out.