REM: Autor: Christian Klein
DIM Z$(29, 3)
Z$(1, 1) = "A nton"
Z$(16, 1) = "P aulua"
Z$(2, 1) = "B erta"
Z$(17, 1) = "Q uelle"
Z$(3, 1) = "C „sar"
Z$(18, 1) = "R ichard"
Z$(4, 1) = "D ora"
Z$(19, 1) = "S amuel"
Z$(5, 1) = "E mil"
Z$(20, 1) = "T heodor"
Z$(6, 1) = "F riedrich"
Z$(21, 1) = "U lrich"
Z$(7, 1) = "G ustav"
Z$(22, 1) = "V iktor"
Z$(8, 1) = "H einrich"
Z$(23, 1) = "W ilhelm"
Z$(9, 1) = "I da"
Z$(24, 1) = "X anthippe"
Z$(10, 1) = "J ulius"
Z$(25, 1) = "Y psilon"
Z$(11, 1) = "K aufmann"
Z$(26, 1) = "Z acharias"
Z$(12, 1) = "L udwig"
Z$(27, 1) = "Žrger"
Z$(13, 1) = "M arta"
Z$(28, 1) = "™konom"
Z$(14, 1) = "N ordpol"
Z$(29, 1) = "šbermut"
Z$(15, 1) = "O tto"

Z$(1, 2) = "A msterdam"
Z$(1, 3) = "A ": REM Erg„nzen Sie
Z$(2, 2) = "B altimore"
Z$(2, 3) = "B ": REM unter Z$(n, 3)
Z$(3, 2) = "C asablanca"
Z$(3, 3) = "C ": REM 1 ó n ó 26 die
Z$(4, 2) = "D „nemark"
Z$(4, 3) = "D ": REM NATO-Tafel
Z$(5, 2) = "E dison"
Z$(5, 3) = "E "
Z$(6, 2) = "F lorida"
Z$(6, 3) = "F "
Z$(7, 2) = "G allipoli"
Z$(7, 3) = "G "
Z$(8, 2) = "H avanna"
Z$(8, 3) = "H "
Z$(9, 2) = "I talia"
Z$(9, 3) = "I "
Z$(10, 2) = "J erusalem"
Z$(10, 3) = "J "
Z$(11, 2) = "K ilogramm"
Z$(11, 3) = "K "
Z$(12, 2) = "L iverpool"
Z$(12, 3) = "L "
Z$(13, 2) = "M adagaskar"
:Z$(13, 3) = "M "
Z$(14, 2) = "N ew York"
Z$(14, 3) = "N "
Z$(15, 2) = "O slo"
Z$(15, 3) = "O "
Z$(16, 2) = "P aris"
Z$(16, 3) = "P "
Z$(17, 2) = "Q uebec"
Z$(17, 3) = "Q "
Z$(18, 2) = "R oma"
Z$(18, 3) = "R "
Z$(19, 2) = "S antiago"
Z$(19, 3) = "S "
Z$(20, 2) = "T ripolis"
Z$(20, 3) = "T "
Z$(21, 2) = "U ppsala"
Z$(21, 3) = "U "
Z$(22, 2) = "V alencia"
Z$(22, 3) = "V "
Z$(23, 2) = "W ashington"
Z$(23, 3) = "W "
Z$(24, 2) = "X anthippe"
Z$(24, 3) = "X "
Z$(25, 2) = "Y okohama"
Z$(25, 3) = "Y "
Z$(26, 2) = "Z rich"
Z$(26, 3) = "Z "

Tafel = 0: CLS
WHILE (Tafel < 1) OR (Tafel > 3)
 PRINT "W„hlen Sie Buchstabiertafel:"
 PRINT
 PRINT "1  Inlandsdienst  (deutsch)"
 PRINT "2  Ausland (international)"
 PRINT "3  NATO"
 PRINT
 INPUT "Eingabe Tafel-Nummer: ", Tafel
 PRINT "Unzul„ssige Tafel !"
 PRINT
WEND
CLS
IF Tafel = 3 THEN
 PRINT "NATO-Tafel erg„nzen";
 PRINT "Sie selbstst„ndig!"
 END
END IF

INPUT "Eingabe Text: ", A$
i = 1: l = LEN(A$)
WHILE i <= l
 C$ = MID$(A$, i, 1): B$ = ""
 IF Tafel <> 1 THEN
  IF C$ = "Ž" OR C$ = "„" THEN
   A$ = MID$(A$, 1, i) + "E" + MID$(A$, i + 1, LEN(A$) - i): C$ = "A"
  END IF
  IF C$ = "™" OR C$ = "”" THEN
   A$ = MID$(A$, 1, i) + "E" + MID$(A$, i + 1, LEN(A$) - i): C$ = "O"
  END IF
  IF C$ = "š" OR C$ = "" THEN
   A$ = MID$(A$, 1, i) + "E" + MID$(A$, i + 1, LEN(A$) - i): C$ = "U"
  END IF
 END IF
 
 IF C$ = "á" THEN
  A$ = MID$(A$, 1, i) + "S" + MID$(A$, i + 1, LEN(A$) - i): C$ = "S"
 END IF

 IF ASC("a") <= ASC(C$) AND ASC(C$) <= ASC("z") THEN C$ = CHR$(ASC(C$) - 32)
 IF ASC("A") <= ASC(C$) AND ASC(C$) <= ASC("Z") THEN B$ = Z$(ASC(C$) - 64, Tafel)
 IF C$ = "Ž" OR C$ = "„" THEN B$ =Z$(27, 1)
 IF C$ = "™" OR C$ = "”" THEN B$ =Z$(28, 1)
 IF C$ = "š" OR C$ = "" THEN B$ =Z$(29, 1)
 IF B$ <> "" THEN PRINT B$; SPACE$(15 - LEN(B$)); " ";
 IF C$ = " " THEN PRINT
 IF (ASC("0") <= ASC(C$) AND ASC(C$) <= ASC("9")) OR (C$ = ".") THEN
  PRINT C$; SPACE$(14); " ";
 END IF
 i = i + 1: l = LEN(A$)
WEND