DIM zahl1 AS INTEGER, zahl2 AS INTEGER, summe AS INTEGER
DIM wahl AS INTEGER
COLOR 234
PRINT "Moechten Sie  etwas Rechnen?"
PRINT "1)Subtrahieren"
PRINT "2)DIVIDIEREN" 'GIBTS nicht'
PRINT "3)ADDIEREN" 'gibts auch nicht'
INPUT "Wahl(1-3): ",wahl
IF wahl = 1 THEN
    INPUT "Die erste Zahl die Sie Subtrahieren moechten: ",zahl1
    INPUT "Die zweite Zahl die Sie Subtrahieren moechten: ",zahl2
    summe=zahl1-zahl2
    PRINT zahl1;"-";zahl2;" Ergibt: ";summe
    SLEEP: END
END IF