GALICIA RECUPERACION

CLEAR
DEFI WIND imagen FROM 0,0 TO 45,336 FONT "CALIBRI" float
ACTIVATE WIND imagen
@0,0 SAY "C:\Users\MINEDUCYT\Desktop\PROMOCIÓN DE MAYO.jpg" BITMAP
READ
deactivate wind imagen
* Definiendo ventana...
DEFI WIND galicia FROM 2,35 TO 35,190 TITLE "Galicia" FONT "Calibri" CLOSE GROW
ACTIVATE WINDOWS galicia
* Imagen parte de cupón
@0,0 SAY "C:\Users\MINEDUCYT\Desktop\Brown Illustrated Love Coupons  (1).jpg" bitmap

* Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
Ñ = 0
A = 0
AM = 0
TAA = 0
* Retiene el numero de niños...
@4,13 GET Ñ FONT "Arial" STYLE "Bold"
READ

* Retiene numero de adultos...
@4,39 GET A FONT "Arial" STYLE "Bold"
READ

* Retiene numero de adultos mayores...
@4,68 GET AM FONT "Arial" STYLE "Bold"
READ

* Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
Suma = Ñ + A + AM

* Muestra el total de niños y adultos...
@4,103 SAY Suma FONT "Arial" STYLE "Bold"

* Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
PÑ = Ñ * 5.00
PA = A * 10.00
PAM = 0

* Variable que suma los precios y da el total...
TA = PÑ + PA + PAM

* Da el precio de los niños segun la cantidad que haya...
@9,13 SAY PÑ FONT "Arial" STYLE "Bold"

* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Definiendo ventana...
DEFI WIND galicia FROM 2,35 TO 35,190 TITLE "Galicia" FONT "Calibri" CLOSE GROW
ACTIVATE WINDOWS galicia
* Imagen parte de cupón
@0,0 SAY "C:\Users\MINEDUCYT\Desktop\Brown Illustrated Love Coupons  (1).jpg" bitmap

* Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
Ñ = 0
A = 0
AM = 0
TAA = 0
* Retiene el numero de niños...
@4,13 GET Ñ FONT "Arial" STYLE "Bold"
READ

* Retiene numero de adultos...
@4,39 GET A FONT "Arial" STYLE "Bold"
READ

* Retiene numero de adultos mayores...
@4,68 GET AM FONT "Arial" STYLE "Bold"
READ

* Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
Suma = Ñ + A + AM

* Muestra el total de niños y adultos...
@4,103 SAY Suma FONT "Arial" STYLE "Bold"

* Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
PÑ = Ñ * 5.00
PA = A * 10.00
PAM = 0

* Variable que suma los precios y da el total...
TA = PÑ + PA + PAM

* Da el precio de los niños segun la cantidad que haya...
@9,13 SAY PÑ FONT "Arial" STYLE "Bold"

* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Imagen parte de cupón
@0,0 SAY "C:\Users\MINEDUCYT\Desktop\Brown Illustrated Love Coupons  (1).jpg" bitmap

* Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
Ñ = 0
A = 0
AM = 0
TAA = 0
* Retiene el numero de niños...
@4,13 GET Ñ FONT "Arial" STYLE "Bold"
READ

* Retiene numero de adultos...
@4,39 GET A FONT "Arial" STYLE "Bold"
READ

* Retiene numero de adultos mayores...
@4,68 GET AM FONT "Arial" STYLE "Bold"
READ

* Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
Suma = Ñ + A + AM

* Muestra el total de niños y adultos...
@4,103 SAY Suma FONT "Arial" STYLE "Bold"

* Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
PÑ = Ñ * 5.00
PA = A * 10.00
PAM = 0

* Variable que suma los precios y da el total...
TA = PÑ + PA + PAM

* Da el precio de los niños segun la cantidad que haya...
@9,13 SAY PÑ FONT "Arial" STYLE "Bold"

* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
Ñ = 0
A = 0
AM = 0
TAA = 0
* Retiene el numero de niños...
@4,13 GET Ñ FONT "Arial" STYLE "Bold"
READ

* Retiene numero de adultos...
@4,39 GET A FONT "Arial" STYLE "Bold"
READ

* Retiene numero de adultos mayores...
@4,68 GET AM FONT "Arial" STYLE "Bold"
READ

* Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
Suma = Ñ + A + AM

* Muestra el total de niños y adultos...
@4,103 SAY Suma FONT "Arial" STYLE "Bold"

* Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
PÑ = Ñ * 5.00
PA = A * 10.00
PAM = 0

* Variable que suma los precios y da el total...
TA = PÑ + PA + PAM

* Da el precio de los niños segun la cantidad que haya...
@9,13 SAY PÑ FONT "Arial" STYLE "Bold"

* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Retiene el numero de niños...
@4,13 GET Ñ FONT "Arial" STYLE "Bold"
READ

* Retiene numero de adultos...
@4,39 GET A FONT "Arial" STYLE "Bold"
READ

* Retiene numero de adultos mayores...
@4,68 GET AM FONT "Arial" STYLE "Bold"
READ

* Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
Suma = Ñ + A + AM

* Muestra el total de niños y adultos...
@4,103 SAY Suma FONT "Arial" STYLE "Bold"

* Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
PÑ = Ñ * 5.00
PA = A * 10.00
PAM = 0

* Variable que suma los precios y da el total...
TA = PÑ + PA + PAM

* Da el precio de los niños segun la cantidad que haya...
@9,13 SAY PÑ FONT "Arial" STYLE "Bold"

* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Retiene numero de adultos...
@4,39 GET A FONT "Arial" STYLE "Bold"
READ

* Retiene numero de adultos mayores...
@4,68 GET AM FONT "Arial" STYLE "Bold"
READ

* Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
Suma = Ñ + A + AM

* Muestra el total de niños y adultos...
@4,103 SAY Suma FONT "Arial" STYLE "Bold"

* Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
PÑ = Ñ * 5.00
PA = A * 10.00
PAM = 0

* Variable que suma los precios y da el total...
TA = PÑ + PA + PAM

* Da el precio de los niños segun la cantidad que haya...
@9,13 SAY PÑ FONT "Arial" STYLE "Bold"

* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Retiene numero de adultos mayores...
@4,68 GET AM FONT "Arial" STYLE "Bold"
READ

* Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
Suma = Ñ + A + AM

* Muestra el total de niños y adultos...
@4,103 SAY Suma FONT "Arial" STYLE "Bold"

* Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
PÑ = Ñ * 5.00
PA = A * 10.00
PAM = 0

* Variable que suma los precios y da el total...
TA = PÑ + PA + PAM

* Da el precio de los niños segun la cantidad que haya...
@9,13 SAY PÑ FONT "Arial" STYLE "Bold"

* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
Suma = Ñ + A + AM

* Muestra el total de niños y adultos...
@4,103 SAY Suma FONT "Arial" STYLE "Bold"

* Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
PÑ = Ñ * 5.00
PA = A * 10.00
PAM = 0

* Variable que suma los precios y da el total...
TA = PÑ + PA + PAM

* Da el precio de los niños segun la cantidad que haya...
@9,13 SAY PÑ FONT "Arial" STYLE "Bold"

* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Muestra el total de niños y adultos...
@4,103 SAY Suma FONT "Arial" STYLE "Bold"

* Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
PÑ = Ñ * 5.00
PA = A * 10.00
PAM = 0

* Variable que suma los precios y da el total...
TA = PÑ + PA + PAM

* Da el precio de los niños segun la cantidad que haya...
@9,13 SAY PÑ FONT "Arial" STYLE "Bold"

* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
PÑ = Ñ * 5.00
PA = A * 10.00
PAM = 0

* Variable que suma los precios y da el total...
TA = PÑ + PA + PAM

* Da el precio de los niños segun la cantidad que haya...
@9,13 SAY PÑ FONT "Arial" STYLE "Bold"

* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Variable que suma los precios y da el total...
TA = PÑ + PA + PAM

* Da el precio de los niños segun la cantidad que haya...
@9,13 SAY PÑ FONT "Arial" STYLE "Bold"

* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Da el precio de los niños segun la cantidad que haya...
@9,13 SAY PÑ FONT "Arial" STYLE "Bold"

* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Da el precio de los adultos segun la cantidad que haya...
@9,39 SAY PA FONT "Arial" STYLE "Bold"

* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Da el precio de los adultos mayores segun la cantidad que haya...
@9,68 SAY PAM FONT "Arial" STYLE "Bold"

* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Da el total a pagar entre los adultos y niños...
@9,103 SAY TA FONT "Arial" STYLE "Bold"
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Variable de cupon...
C=space(1)
CU=space(8)
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
* Opciones. Cupones/Combos/Renta...
@17.3,50 GET C
read
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
*AL DAR SI EN EL CUPON
    IF UPPER (C)= "S"
        @25.7,39 GET CU
        read
    ELSE
ENDIF
    IF UPPER (C)= "N"
        TAA= TA
    ELSE
ENDIF
DO CASE
    CASE (CU)= "FAMILIAR"
        TAD = TA*0.35
        TAA = TA - TAD
        TAF = TAA
    CASE (CU)= "AMIGOS"
    TAD = TA*0.1
    TAA = TA - TAD
    TAF = TAA
    ENDCASE
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        END
*CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")


                 C1 = 10.00
                 C2 = 16.00
                 C3 = 14.00
        DO CASE
            CASE (respuesta) = 6
                DEACTIVATE WIND COMIDA
                DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS COMIDA

                * ajustando menu combo xd
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\MENU.jpg" BITMAP
                CM = 0
                @28.6,15 GET CM
                READ
                IF CM = 123
                COM = C1
                ELSE
                ENDIF
                IF CM = 234
                COM = C2
                ELSE
                ENDIF
                IF CM = 456
                COM = C3
                ELSE
                ENDIF
            CASE (respuesta)=7
                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:.............................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:......................................"
                @4,30 SAY PAM PICT "99.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:...................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL A PAGAR:........................................"
                @8,30 SAY TAA PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAA
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAA
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "99.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF




        ENDCASE

            DEACTIVATE WIND Ticket
            DEACTIVATE WIND galicia
            DEACTIVATE WIND ATRACO
            @25,47 SAY "Si selecciona la opción NO se procederá a cancelar"
            respuesta = MESSAGEBOX ("¿Desea ir al menú de atracciones?", 4, "CONFIRMACIÓN")
        TAF = TAA + COM
        DO CASE
            CASE (respuesta)= 6
                DEFI WIND ATRACO FROM 2,35 TO 35,190 TITLE "Atracciones" FONT "Calibri" CLOSE GROW
                ACTIVATE WINDOWS ATRACO
                @0,0 SAY "C:\Users\MINEDUCYT\Desktop\vetana (950 × 490 px) (925 × 490 px) (3).jpg" BITMAP
            CASE (respuesta)= 7
            DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "999.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL A PAGAR:..........................................."
                @10,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
        QUIT
        ENDIF
            endcase

                GK = 5.00
                CP= 6.00
                PB = 4.00
                atra = 0
                @28,89 GET atra
            READ
            DO CASE
                CASE atra = 1
                    ATR = GK
                CASE atra = 2
                    ATR = CP
                CASE atra = 3
                    ATR = PB
            ENDCASE
            TAF = 0
            TAF = TAA + COM + ATR
respuesta = MESSAGEBOX ("¿Desea pasar a la factura?" , "CONFIRMACIÓN")

                DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "CANCELACIÓN" FONT "calibri" CLOSE FLOAT
                ACTIVATE WIND Ticket
                @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
                @2,2 SAY "NIÑOS:..................................................."
                @2,30SAY PÑ PICT "999.99"
                @3,2 SAY "ADULTOS:................................................."
                @3,30 SAY PA PICT "99.99"
                @4,2 SAY "ADULTOS MAYORES:........................................."
                @4,30 SAY PAM PICT "999.99"
                @5,0 SAY "-----------------------------------------------------------------"
                @6,2 SAY "TOTAL DE ENTRADAS:......................................."
                @6,30 SAY TAA PICT "999.99"
                @7,0 SAY "-----------------------------------------------------------------"
                @8,2 SAY "TOTAL COMIDA:............................................"
                @8,30 SAY COM PICT "999.99"
                @9,0 SAY "-----------------------------------------------------------------"
                @10,2 SAY "TOTAL ATRACCIONES:......................................"
                @10,30 SAY ATR PICT "999.99"
                @11,0 SAY "-----------------------------------------------------------------"
                @12,2 SAY "TOTAL A PAGAR:..........................................."
                @12,30 SAY TAF PICT "999.99"
                EFECT = 0.00
                @14,2 SAY "EFECTIVO"
                @15,2 GET EFECT
                READ
                IF EFECT < TAF
                    @17,2 SAY "Cantidad de dinero invalida"
                ELSE
                CAM = EFECT - TAF
                @17,2 SAY "SU CAMBIO"
                @17,30 GET CAM PICT "999.99"
                MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
                WAIT WIND MENSAJE AT 27,27
            QUIT
        ENDIF