666 Anti-Christ program calculation freely given

Greetings: This  is a basic program to calculate for 666 and antichrist names. You need to download a basic program compiler in order to run the program. Here is the direct download link www.justbasic.com/

Copy and past the program into your basic program that you download(ed) The program is as follows:

[alphabet]
a$ = “a”
b$ = “b”
c$ = “c”
d$ = “d”
e$ = “e”
f$ = “f”
g$ = “g”
h$ = “h”
i$ = “i”
j$ = “j”
k$ = “k”
l$ = “l”
m$ = “m”
n$ = “n”
o$ = “o”
p$ = “p”
q$ = “q”
r$ = “r”
s$ = “s”
t$ = “t”
u$ = “u”
v$ = “v”
w$ = “w”
x$ = “x”
y$ = “y”
z$ = “z”

[start]
totalletters = 0
count = 0
total = 0

print “Input or enter all letters in lowercase and “
print “input or ehter below  the total amount of letters, and press enter “
print
input “How many letters in the total name or word? (don’t count spaces) “;totalletters
cls

[lettercount]

input “What is letter “; letter$

if letter$ = a$ then lettervalue = 6
if letter$ = b$ then lettervalue = 12
if letter$ = c$ then lettervalue = 18
if letter$ = d$ then lettervalue = 24
if letter$ = e$ then lettervalue = 30
if letter$ = f$ then lettervalue = 36
if letter$ = g$ then lettervalue = 42
if letter$ = h$ then lettervalue = 48
if letter$ = i$ then lettervalue = 54
if letter$ = j$ then lettervalue = 60
if letter$ = k$ then lettervalue = 66
if letter$ = l$ then lettervalue = 72
if letter$ = m$ then lettervalue = 78
if letter$ = n$ then lettervalue = 84
if letter$ = o$ then lettervalue = 90
if letter$ = p$ then lettervalue = 96
if letter$ = q$ then lettervalue = 102
if letter$ = r$ then lettervalue = 108
if letter$ = s$ then lettervalue = 114
if letter$ = t$ then lettervalue = 120
if letter$ = u$ then lettervalue = 126
if letter$ = v$ then lettervalue = 132
if letter$ = w$ then lettervalue = 138
if letter$ = x$ then lettervalue = 144
if letter$ = y$ then lettervalue = 150
if letter$ = z$ then lettervalue = 156

total = total + lettervalue
count = count + 1

if count < totalletters then goto [lettercount]

cls
print “The total of the name or word = “;total
print
input “Do you want to run another name ?, Yes = 1, No = 2 “;another
cls

if another < 2 then goto [start]

end