10    PRINT "AUSGABE IN FAHRENHEIT ODER CELSIUS (F/C)":INPUT A$
20    IF A$="" THEN 10
30    IF A$="C" THEN 100
40    IF A$ ="F" THEN 50
45    GOTO 10
50    INPUT "EINGABE VON CELSIUS = ";C
60    F = (C*9)/5+32
70    PRINT ;"GRAD CELSIUS = ";F;"GRAD FAHRENHEIT"
80    PRINT
90    GOTO 10
100   INPUT "EINGABE VON FAHRENHEIT: ";F
110   C = (F-32)*5/9
120   PRINT F;"GRAD FAHRENHEIT = ";C;"GRAD CELSIUS"
130   PRINT
140   GOTO 10
