¿Calculadora en Qbasic?

Bueno, Aquí Esta La Calculadora Programada En Qbasic.

CLS
LOCATE 8, 30
COLOR 2
PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"
LOCATE 9, 29
PRINT "³"
LOCATE 10, 29
PRINT "³"
LOCATE 11, 29
PRINT "³"
LOCATE 12, 29
PRINT "³"
LOCATE 13, 29
PRINT "³"
LOCATE 14, 29
PRINT "³"
LOCATE 15, 29
PRINT "³"
LOCATE 16, 29
PRINT "³"
LOCATE 10, 30
PRINT "1 Ä Suma"
LOCATE 11, 30
PRINT "2 Ä Resta"
LOCATE 12, 30
PRINT "3 Ä Dividir"
LOCATE 13, 30
PRINT "4 Ä Multiplicar"
LOCATE 14, 30
PRINT "5 Ä Salir"

LOCATE 9, 58
PRINT "³"
LOCATE 10, 58
PRINT "³"
LOCATE 11, 58
PRINT "³"
LOCATE 12, 58
PRINT "³"
LOCATE 13, 58
PRINT "³"
LOCATE 14, 58
PRINT "³"
LOCATE 15, 58
PRINT "³"
LOCATE 16, 58
PRINT "³"
LOCATE 17, 30
COLOR 2
PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"


INPUT "Numero (1-5:):", numero


SELECT CASE numero

CASE 1 TO 1
          
PRINT "1- Sumar"

CASE 2

PRINT "2- Restar"

CASE 3

PRINT "3- Dividir"

CASE 4

PRINT "4 - Multiplicar"

CASE 5

PRINT "5 - Salir"

END SELECT

INPUT "Numero 1"; y
INPUT "Numero 2"; n

SELECT CASE numero

CASE 1
PRINT n + y
CASE 2
PRINT y - n
CASE 3
PRINT y / n
CASE 4
PRINT n * y
CASE 5
 PRINT "Si Desea Salir Precione Enter"
END SELECT