QBasic Menú simple de texto con QuickBasic con select case y gosub

[César Krall]

Este código es un ejemplo de menú simple de texto con QuickBasic:

Código: [Seleccionar]

'TxtMenu.bas       Ray Thomas     February 2002

'Declarar las variables (no es estrictamente necesario para INTEGERS or STRINGS)

DIM MenuIn AS INTEGER    'Número que el usuario ha de elegir


DO
        GOSUB MainMenu          'Llamar al menu  principal
        SELECT CASE MenuIn
        CASE 1
                GOSUB AddRec    'Añadir un dato
        CASE 2
                GOSUB DelRec    'Borrar un dato
        CASE 3
                GOSUB ModRec    'Modificar un dato
        CASE 4
                GOSUB SrchRec   'Buscar un dato
        CASE 5
                GOSUB PrnRec    'Mostrar un dato
        CASE 6
                GOSUB ShwRec    'Mostrar los datos
        END SELECT

LOOP UNTIL MenuIn = 7

CLOSE                   'Cerrar archivos abiertos
END                     'Final del programa

MainMenu:
CLS
PRINT
PRINT "Indica que quieres hacer"
PRINT "**********************"
PRINT "1. Añadir un dato"
PRINT "2. Borrar un dato"
PRINT "3. Modificar un dato"
PRINT "4. Buscar un dato"
PRINT "5. Mostrar un dato"
PRINT "6. Mostrar todos los datos"
PRINT "7. Salir"
PRINT
PRINT "Por favor elige un numero..."
PRINT
PRINT "(7 hara que se salga del programa)"
PRINT
INPUT "Que eliges?  ", MenuIn
RETURN

AddRec:
RETURN

DelRec:
RETURN

ModRec:
RETURN

SrchRec:
RETURN

PrnRec:
RETURN

ShwRec:
RETURN
...