DECLARE SUB PRODUCTO (PRECIO.KG, PRODUCTON$, TOTAL, TOPE)
INICIO:
CLS
LOCATE 4, 4
COLOR 12
PRINT " BUENOS DIAS AL SUPER MERCADO LLAMADO ''MERCATA JOAN'' DE LA CASA JS (JOANSOFT)"
PRINT " UN PROGRAMA ECHO POR LA CASA JOANSOFT IMITANDO A UN SUPERMERCADO, QUE"
PRINT " SE LLAMA MERCATA JOAN V.1.0"
PRINT " EL CREADOR DE ESTE PROGRAMA ES JOAN ALBA MALDONADO ''JAM'', Y CREO LA"
PRINT " CASA JOANSOFT, Y CON ELLA INVENTO EL FABULOSO PROGRAMA JS MERCATA JOAN VARSION"
PRINT " 1.0"
PRINT
COLOR 15
LOCATE 13
PRINT "ELIGE UNA OPCION DE LAS SIGUIENTES"
PRINT
PRINT "1.- SECCION DE CARNES"
PRINT "2.- SECCION DE PESCADOS"
PRINT "3.- SECCION DE FRUTAS"
PRINT "4.- SECCION DE VERDURAS"
PRINT "5.- PASAR POR CAJA Y SALIR"
PRINT
INPUT "¨ ELIGE"; OP1
ON OP1 GOTO CARNES, PESCADOS, FRUTAS, VERDURAS, CAJA
SELECT CASE OP1
CASE ELSE: GOTO INICIO
END SELECT
CARNES:
CLS
LOCATE 4.5
PRINT "ELIGE UN PRODUCTO DE LOS SIGUIENTES QUE QUIERAS COMPRAR:"
PRINT
PRINT "1.- TERNERA DE VACA"
PRINT "2.- CARNE DE CABALLO"
PRINT "3.- SOLOMILLO DE CORDERO"
PRINT "4.- MENU PRINCIPAL"
PRINT
INPUT "ELIGE"; EL1
ON EL1 GOTO VACA, CABALLO, CORDERO, INICIO

VACA:
PRODUCTO 100, "VACA", TOTAL, 50
GOTO INICIO

CABALLO:
PRODUCTO 125, "CABALLO", TOTAL, 45
GOTO INICIO

CORDERO:
PRODUCTO 150, "CORDERO", TOTAL, 57
GOTO INICIO

PESCADOS:
CLS
LOCATE 4.5
PRINT "ELIGE UN PRODUCTO DE LOS SIGUIENTES QUE QUIERAS COMPRAR:"
PRINT
PRINT "1.- ANGULAS"
PRINT "2.- SALMON"
PRINT "3.- PEZ ESPADA"
PRINT "4.- MENU PRINCIPAL"
PRINT
INPUT "ELIGE"; EL2
ON EL2 GOTO ANGULAS, SALMON, ESPADA, INICIO

ANGULAS:
PRODUCTO 100, "ANGULAS", TOTAL, 134
GOTO INICIO

SALMON:
PRODUCTO 125, "SALMON", TOTAL, 345
GOTO INICIO

ESPADA:
PRODUCTO 150, "ESPADA", TOTAL, 245
GOTO INICIO

FRUTAS:
CLS
LOCATE 4.5
PRINT "ELIGE UN PRODUCTO DE LOS SIGUIENTES QUE QUIERAS COMPRAR:"
PRINT
PRINT "1.- NARANJAS"
PRINT "2.- FRESAS"
PRINT "3.- MANZANAS"
PRINT "4.- MENU PRINCIPAL"
PRINT
INPUT "ELIGE"; EL3
ON EL2 GOTO NARANJAS, FRESAS, MANZANAS, INICIO

NARANJAS:
PRODUCTO 100, "NARANJA", TOTAL, 345
GOTO INICIO

FRESAS:
PRODUCTO 125, "FRESAS", TOTAL, 756
GOTO INICIO

MANZANAS:
PRODUCTO 150, "MANZANAS", TOTAL, 1576
GOTO INICIO

VERDURAS:
CLS
LOCATE 4.5
PRINT "ELIGE UN PRODUCTO DE LOS SIGUIENTES QUE QUIERAS COMPRAR:"
PRINT
PRINT "1.- COLIFLOR"
PRINT "2.- ACELGAS"
PRINT "3.- CALOFLOR DE BRUSELAS"
PRINT "4.- MENU PRINCIPAL"
PRINT
INPUT "ELIGE"; EL4
ON EL2 GOTO COLIFLOR, ACELGAS, BRUSELAS, INICIO

COLIFLOR:
PRODUCTO 100, "COLIFLORES", TOTAL, 174
GOTO INICIO

ACELGAS:
PRODUCTO 125, "ACELGAS", TOTAL, 597
GOTO INICIO

BRUSELAS:
PRODUCTO 150, "BRUSELAS", TOTAL, 999
GOTO INICIO

CAJA:
CLS
LOCATE 2.3
PRINT "DEVES: "; TOTAL; " PTS"
INPUT "¨ CUANTO PAGARAS "; PAGAR
IF PAGAR < TOTAL THEN
PRINT "EL IMPORTE NO ES EXACTO, ME HAS DADO MENOS, DEVES: "; TOTAL - PAGAR; " PTS "
GOTO FIN
END IF

IF PAGAR > TOTAL THEN
PRINT "EL IMPORTE NO ES EXACTO, ME HAS DADO MAS, TE DOY: "; PAGAR - TOTAL; " PTS "
GOTO FIN
END IF

IF PAGAR = TOTAL THEN
PRINT "EL IMPORTE ES EXACTO, GRACIAS"
GOTO FIN
END IF

FIN:

SUB PRODUCTO (PRECIO.KG, PRODUCTON$, TOTAL, TOPE)
VOLVER:
CLS
LOCATE 4.5
PRINT "EL Kg DE "; PRODUCTON$; ", CUESTA "; PRECIO.KG
PRINT "NO PODRAS PASARTE DEL TOPE DE Kg, QUE ES: "; TOPE
INPUT "¨ CUANTOS Kg QUIERES "; CANT1
IF CANT = TOPE GOTO SIGUE1
IF CANT < TOPE GOTO SIGUE1
IF CANT1 > TOPE GOTO VOLVER

SIGUE1:
PRECIO = CANT1 * PRECIO.KG
TOTAL = TOTAL + PRECIO
PRINT
PRINT "ESTO CUESTA: "; PRECIO; "PTS"

INPUT "PRESIONA INTRO PARA CONTINUAR"; INTRO1

END SUB

