Ok here's my program that takes a word or phrase and translates it into a phone number, complete with all algorithms. It is a command line program, you would type "phonltr" + the phrase to translate into numbers.
$COMPILE EXE
DEFINT a-z
clp$ = COMMAND$
IF RTRIM$(clp$) = "" THEN
CLS
PRINT
PRINT "USAGE:"
PRINT "PHONLTR + The letters or words comprising the phone number."
PRINT "EXAMPLE: PHONLTR deliver"
PRINT
END
END IF
strlen% = LEN(clp$)
IF LEFT$(clp$,1) = "1" THEN clp$ = RIGHT$(clp$,strlen%-1)
FOR j% = 1 TO LEN(clp$)
letter$ = MID$(clp$,j%,1)
get_number letter$
NEXT
result$ = RTRIM$(result$)
SELECT CASE LEN(result$)
CASE 7
result$ = LEFT$(result$,3)+"-"+RIGHT$(result$,4)
CASE 10
result$ ="1-"+ LEFT$(result$,3)+"-"+MID$(result$,4,3)+"-"+RIGHT$(result$,4)
CASE ELSE
FOR j% = 1 TO LEN(result$)
t$ = MID$(result$,j%,1)
IF j% <> LEN(result$) THEN
target$ = target$+t$+"-"
ELSE
target$ = target$+t$
END IF
NEXT
result$ = target$
PRINT "The phone letters used generate a non-standard phone number length."
END SELECT
PRINT
PRINT "The number is ";result$
PRINT "--------------"+STRING$(LEN(result$),"-")
END
SUB get_number(letter$)
SHARED result$
letter$ = UCASE$(letter$)
SELECT CASE letter$
CASE "-"
EXIT SUB
CASE "1","2","3","4","5","6","7","8","9","0"
number$ = letter$
CASE "A","B","C"
number$ = "2"
CASE "D","E","F"
number$ = "3"
CASE "G","H","I"
number$ = "4"
CASE "J","K","L"
number$ = "5"
CASE "M","N","O"
number$ = "6"
CASE "P","Q","R","S"
number$ = "7"
CASE "T","U","V"
number$ = "8"
CASE "W","X","Y","Z"
number$ = "9"
CASE ELSE
number$ = number$
END SELECT
result$ = result$ + number$
EXIT SUB
END SUB
