Powershell Funkalphabet

<#
!/bin/ksh ;-)
Name:				FUNKALPHABET.ps1
Author:				Ralf K aus K
Created:				2014-08-07
Last update:			2014-08-07

What's it all about:	Translate word(s) into Funkalphabet ;)  

#>

###########################################
### Adds a pause function to Powershell ###
function Pause ($pmessage="Press any key to continue...")  
{
Write-Host -NoNewLine $pmessage
$null = $Host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")  
Write-Host ""  
}
### Adds a pause function to Powershell ###
###########################################

##########################################################
### Change to directory to where the script is started ###
$parentPath = Split-Path -Parent $MyInvocation.MyCommand.Definition
cd $parentPath
### Change to directory to where the script is started ###
##########################################################

### Create a Date / Time variable
$CDATETIME = get-date -format yyyy-MM-dd-HH-mm

### Create a Filename variable with current Date / Time
$FILENAME = "xxx"+"_"+$CDATETIME  

$TABLEDE = @{
"A"="Anton";"B"="Berta";"C"="Cäsar";"D"="Dora";"E"="Emil";`  
"F"="Friedrich";"G"="Gustav";"H"="Heinrich";"I"="Ida";"J"="Julius";"K"="Konrad";`  
"L"="Ludwig";"M"="Martha";"N"="Nordpol";"O"="Otto";"P"="Paula";"Q"="Quelle";"R"="Richard";`  
"S"="Siegfried";"T"="Theodor";"U"="Ulrich";"V"="Viktor";"W"="Wilhelm";"X"="Xaver";`  
"Y"="Ypsilon";"Z"="Zürich";"ß"="Esszet";"ä"="Ärger";"ö"="Ökonom";"ü"="Übermut";`  
"0"="Null";"1"="Eins";"2"="Zwei";"3"="Drei";"4"="Vier";"5"="Fünf";"6"="Sechs";"7"="Sieben";"8"="Acht";"9"="Neun"}  

$TABLEEN = @{
"A"="Alfa";"B"="Bravo";"C"="Charlie";"D"="Delta";"E"="Echo";"F"="Foxtrot";`  
"G"="Golf";"H"="Hotel";"I"="India";"J"="Juliett";"K"="Kilo";"L"="Lima";"M"="Mike";`  
"N"="November";"O"="Oscar";"P"="Papa";"Q"="Quebec";"R"="Romeo";"S"="Sierra";"T"="Tango";`  
"U"="Uniform";"V"="Victor";"W"="Whiskey";"X"="X-Ray";"Y"="Yankee";"Z"="Zulu";`  
"0"="Zero";"1"="One";"2"="Two";"3"="Three";"4"="Four";"5"="Five";"6"="Six";"7"="Seven";"8"="Eight";"9"="Nine"}  

function TRANSLATEDE {
cls
Write-Host ""  
$INPUTDE = read-host "EINGABE DEUTSCH"  
Write-Host ""  
Write-Host "Deine Eingabe: $INPUTDE"  
Write-Host ""  
Write-Host "Übersetzung:"  
Write-Host ""  
$INPUTDE.ToCharArray() | %{write-host $TABLEDE["$_"]}}  

function TRANSLATEEN {
cls
Write-Host ""  
$INPUTEN = read-host "INPUT INTERNATIONAL"  
Write-Host ""  
Write-Host "Your Input: $INPUTEN"  
Write-Host ""  
Write-Host "Translation:"  
Write-Host ""  
$INPUTEN.ToCharArray() | %{write-host $TABLEEN["$_"]}}  

$COUNTER = 0
do {

# Here we go ...
clear
$1 = New-Object System.Management.Automation.Host.ChoiceDescription "&1 GERMAN", `  
    "Get all AD groups from a specific user"  
$2 = New-Object System.Management.Automation.Host.ChoiceDescription "&2 INTERNATIONAL", `  
    "Get all members of a specific AD group"  
$9 = New-Object System.Management.Automation.Host.ChoiceDescription "&9 Do nothing", `  
    "Do nothing"  

$options = [System.Management.Automation.Host.ChoiceDescription[]]($1, $2, $9)
$result = $host.ui.PromptForChoice($title, $message, $options, 2) # 0 indicates the pre-defined choice, in that case yes. 1 would be no, and so on ...

switch ($result)
    {

########################### Translate to German spelling

        0 {
        TRANSLATEDE
        Write-Host ""  
        #pause
        }
########################### Translate to German spelling
########################### Translate to Internation spelling

        1 {
        TRANSLATEEN
        Write-Host ""  
        #pause
        }
########################### Translate to Internation spelling
########################### Do Nothing

        8 {
        echo "Do nothing"  
        }
########################### Do Nothing
}
$RESPONSE = Read-Host "Start again (Yes|No)?"  
$COUNTER++
}
while ($RESPONSE -eq "Y")