dim Taste as string
screen 19

do
cls
color 14
locate 6,20
print "A   Addieren"
locate 9,20
print "S   Subtrahieren"
locate 12,20
print "M   Multiplizieren"
locate 15,20
print "D   Dividieren"
locate 18,20
print "1   erste Zahl eingeben"
locate 21,20
print "2   zweite Zahl eingeben"
locate 26,20
print "E   Ende"

do
Taste=inkey$
loop until Taste<>""

select case Taste
case "A","a"
    cls
    locate 6,20
    print ersteZahl;" + ";zweiteZahl;" = ";ersteZahl+zweiteZahl
    locate 15,20
    print "Weiter mit Taste"
    sleep
case "S","s"
    cls
    locate 6,20
    print ersteZahl;" - ";zweiteZahl;" = ";ersteZahl-zweiteZahl
    locate 15,20
    print "Weiter mit Taste"
    sleep
case "M","m"
    cls
    locate 6,20
    print ersteZahl;" * ";zweiteZahl;" = ";ersteZahl*zweiteZahl
    locate 15,20
    print "Weiter mit Taste"
    sleep
case "D","d"
    cls
    locate 6,20
    print ersteZahl;" / ";zweiteZahl;" = ";ersteZahl/zweiteZahl
    locate 15,20
    print "Weiter mit Taste"
    sleep
case "1"
    locate 32,20
    input "Bitte die erste Zahl eingeben: ";ersteZahl
case "2"
    locate 32,20
    input "Bitte die zweite Zahl eingeben: ";zweiteZahl
end select

    
loop until Taste="E" or Taste="e"