CLS
LOCATE 3
PRINT "PROGRAMA QUE CALCULA EL AREA DEL RECTANGULO"
COLOR 12
PRINT
PRINT "1.- CALCULAR AREA DEL"; : COLOR 25: PRINT " R"; : COLOR 12: PRINT "ECTANGULO"
PRINT "2.-"; : COLOR 25: PRINT " S"; : COLOR 12: PRINT "ALIR DEL PROGRAMA"
PRINT
INPUT "ELIGE (1 / R o 2 / S)"; OP1$
SELECT CASE OP1$
CASE "1", "R", "r": GOTO RECTANGULO
CASE "2", "S", "s": GOTO SALIR



