INICIO:
CLS
LOCATE 3
COLOR 13
PRINT TAB(9); "ESTE ES UN PROGRAMA QUE CALCULA EL AREA DEL CUADRADO"
COLOR 12
PRINT
PRINT TAB(19); "1.- CALCULAR AREA DEL"; : COLOR 25: PRINT " C"; : COLOR 12: PRINT "UADRADO"
PRINT TAB(19); "2.- "; : COLOR 25: PRINT "S"; : COLOR 12: PRINT "ALIR DEL PROGRAMA"
PRINT
INPUT "¨ ELIGE (1 / C o 2 / S) "; OP1$
SELECT CASE OP1$
CASE "2", "C", "c": GOTO CUADRADO
CASE "3", "S", "s": GOTO SALIR
CASE ELSE: GOTO INICIO
END SELECT

CUADRADO:
CLS
LOCATE 4, 5
INPUT "¨ QUE MIDE EL COSTADO DEL CUADRADO "; C
A = C * C
PRINT "         EL AREA DE TU CUADRADO ES: "; A
PRINT
COLOR 26
INPUT "¨ INTRO PARA CONTINUAR "; I$
GOTO INICIO

SALIR:

