Basic - Como hacer un menu en QBasic

hola que tal

alguien me podria ayudar o indicarme como puedo hacer un menu en el lenguaje de programacion de QBasic ?? se lo agradeceria muchisimo, de antemano gracias

CON LA INSTRUCCION

PRINT "1 - CORTAR"
PRINT "2 - COPIAR"
PRINT "3 - PEGAR"
PRINT "X - SALIR"
INPUT "ELIGE UNA OPCION [1,2,3];ELECCION%

SELECT CASE ELECCION%
CASE IS 1 //CALL CORTAR
CASE IS 2 //CALL COPIAR
CASE IS 3 //CALL PEGAR
CASE ELSE //CALL SALIR
END SELECT