API tools faq
paste
Advertisement
72_DEMON_

Galicia

72_DEMON_
Apr 30th, 2023
573
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualFoxPro 3.12 KB | None | 0 0
raw download clone embed print report
  1. CLEAR
  3. * Definiendo ventana...
  4. DEFI WIND galicia FROM 2,35 TO 35,190 TITLE "Galicia" FONT "Calibri" MINIMIZE CLOSE GROW
  5. ACTIVATE WINDOWS galicia
  6. * Imagen Inicio
  7.  
  8.  
  9. * Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  10. Ñ = 0
  11. A = 0
  12. AM = 0
  13.  
  14. * Retiene el numero de niños...
  15. @1,10 SAY "NUMERO DE NIÑOS:" FONT "Arial" STYLE "Bold"
  16. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  17. READ
  18.  
  19. * Retiene numero de adultos...
  20. @1,38 SAY "NUMERO DE ADULTOS:" FONT "Arial" STYLE "Bold"
  21. @3,38 GET A FONT "Arial" STYLE "Bold"
  22. READ
  23.  
  24. * Retiene numero de adultos mayores...
  25. @1,66 SAY "NUMERO DE ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  26. @3,66 GET AM FONT "Arial" STYLE "Bold"
  27. READ
  28.  
  29. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  30. Suma = Ñ + A + AM
  31.  
  32. * Muestra el total de niños y adultos...
  33. @1,102 SAY "TOTAL DE PERSONAS:" FONT "Arial" STYLE "Bold"
  34. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  35.  
  36. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  37. PÑ = Ñ * 5.00
  38. PA = A * 10.00
  39. PAM = 0
  40.  
  41. * Variable que suma los precios y da el total...
  42. TA = PÑ + PA + PAM
  43.  
  44. * Da el precio de los niños segun la cantidad que haya...
  45. @5,10 SAY "TOTAL NIÑOS:" FONT "Arial" STYLE "Bold"
  46. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  47.  
  48. * Da el precio de los adultos segun la cantidad que haya...
  49. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  50. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  51.  
  52. * Da el precio de los adultos mayores segun la cantidad que haya...
  53. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  54. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  55.  
  56. * Da el total a pagar entre los adultos y niños...
  57. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  58. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  59.  
  60. * Una decoración simple...
  61. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  62.  
  63. * Variable de cupon...
  64. C=space(1)
  65. CU=space(5)
  66. * Opciones. Cupones/Combos/Renta...
  67. @13,10 SAY "QUIERES USAR UN CUPÓN"
  68. @14,12 GET C
  69. read
  70. *AL DAR SI EN EL CUPON
  71.     IF UPPER (C)= "S"
  72. *DEFINIR VENTANA DE CUPON...
  73.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  74.         ACTIVATE WINDOWS CUPON
  75.         @3,15 SAY "Ingrese cupón a usar: S/N"
  76.         @4,15 GET CU
  77.         read       
  78.     else
  79. *EN CASO DE PONER "N"
  80.     WAIT WIND ""
  81.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  82.    
  83.     endif
  84. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  85.         DO CASE
  86.             CASE UPPER (CU)= "FAMIL"
  87.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  88.                 read
  89.                 DEACTIVATE WINDOWS CUPON
  90.                 CASE UPPER (CU)= "SEXOS"
  91.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  92.                 CASE (respuesta) = 6
  93. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  94.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  95.                 activate windows COMIDA
  96.                 @3,35 SAY "MENU PEDORRO"
  97.                 READ
  98.                 endcase
  99.        
  100. * Definiendo ventana...
  101. DEFI WIND galicia FROM 2,35 TO 35,190 TITLE "Galicia" FONT "Calibri" MINIMIZE CLOSE GROW
  102. ACTIVATE WINDOWS galicia
  103. * Imagen Inicio
  104.  
  105.  
  106. * Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  107. Ñ = 0
  108. A = 0
  109. AM = 0
  110.  
  111. * Retiene el numero de niños...
  112. @1,10 SAY "NUMERO DE NIÑOS:" FONT "Arial" STYLE "Bold"
  113. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  114. READ
  115.  
  116. * Retiene numero de adultos...
  117. @1,38 SAY "NUMERO DE ADULTOS:" FONT "Arial" STYLE "Bold"
  118. @3,38 GET A FONT "Arial" STYLE "Bold"
  119. READ
  120.  
  121. * Retiene numero de adultos mayores...
  122. @1,66 SAY "NUMERO DE ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  123. @3,66 GET AM FONT "Arial" STYLE "Bold"
  124. READ
  125.  
  126. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  127. Suma = Ñ + A + AM
  128.  
  129. * Muestra el total de niños y adultos...
  130. @1,102 SAY "TOTAL DE PERSONAS:" FONT "Arial" STYLE "Bold"
  131. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  132.  
  133. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  134. PÑ = Ñ * 5.00
  135. PA = A * 10.00
  136. PAM = 0
  137.  
  138. * Variable que suma los precios y da el total...
  139. TA = PÑ + PA + PAM
  140.  
  141. * Da el precio de los niños segun la cantidad que haya...
  142. @5,10 SAY "TOTAL NIÑOS:" FONT "Arial" STYLE "Bold"
  143. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  144.  
  145. * Da el precio de los adultos segun la cantidad que haya...
  146. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  147. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  148.  
  149. * Da el precio de los adultos mayores segun la cantidad que haya...
  150. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  151. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  152.  
  153. * Da el total a pagar entre los adultos y niños...
  154. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  155. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  156.  
  157. * Una decoración simple...
  158. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  159.  
  160. * Variable de cupon...
  161. C=space(1)
  162. CU=space(5)
  163. * Opciones. Cupones/Combos/Renta...
  164. @13,10 SAY "QUIERES USAR UN CUPÓN"
  165. @14,12 GET C
  166. read
  167. *AL DAR SI EN EL CUPON
  168.     IF UPPER (C)= "S"
  169. *DEFINIR VENTANA DE CUPON...
  170.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  171.         ACTIVATE WINDOWS CUPON
  172.         @3,15 SAY "Ingrese cupón a usar: S/N"
  173.         @4,15 GET CU
  174.         read       
  175.     else
  176. *EN CASO DE PONER "N"
  177.     WAIT WIND ""
  178.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  179.    
  180.     endif
  181. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  182.         DO CASE
  183.             CASE UPPER (CU)= "FAMIL"
  184.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  185.                 read
  186.                 DEACTIVATE WINDOWS CUPON
  187.                 CASE UPPER (CU)= "SEXOS"
  188.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  189.                 CASE (respuesta) = 6
  190. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  191.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  192.                 activate windows COMIDA
  193.                 @3,35 SAY "MENU PEDORRO"
  194.                 READ
  195.                 endcase
  196.        
  197. * Imagen Inicio
  198.  
  199.  
  200. * Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  201. Ñ = 0
  202. A = 0
  203. AM = 0
  204.  
  205. * Retiene el numero de niños...
  206. @1,10 SAY "NUMERO DE NIÑOS:" FONT "Arial" STYLE "Bold"
  207. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  208. READ
  209.  
  210. * Retiene numero de adultos...
  211. @1,38 SAY "NUMERO DE ADULTOS:" FONT "Arial" STYLE "Bold"
  212. @3,38 GET A FONT "Arial" STYLE "Bold"
  213. READ
  214.  
  215. * Retiene numero de adultos mayores...
  216. @1,66 SAY "NUMERO DE ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  217. @3,66 GET AM FONT "Arial" STYLE "Bold"
  218. READ
  219.  
  220. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  221. Suma = Ñ + A + AM
  222.  
  223. * Muestra el total de niños y adultos...
  224. @1,102 SAY "TOTAL DE PERSONAS:" FONT "Arial" STYLE "Bold"
  225. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  226.  
  227. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  228. PÑ = Ñ * 5.00
  229. PA = A * 10.00
  230. PAM = 0
  231.  
  232. * Variable que suma los precios y da el total...
  233. TA = PÑ + PA + PAM
  234.  
  235. * Da el precio de los niños segun la cantidad que haya...
  236. @5,10 SAY "TOTAL NIÑOS:" FONT "Arial" STYLE "Bold"
  237. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  238.  
  239. * Da el precio de los adultos segun la cantidad que haya...
  240. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  241. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  242.  
  243. * Da el precio de los adultos mayores segun la cantidad que haya...
  244. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  245. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  246.  
  247. * Da el total a pagar entre los adultos y niños...
  248. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  249. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  250.  
  251. * Una decoración simple...
  252. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  253.  
  254. * Variable de cupon...
  255. C=space(1)
  256. CU=space(5)
  257. * Opciones. Cupones/Combos/Renta...
  258. @13,10 SAY "QUIERES USAR UN CUPÓN"
  259. @14,12 GET C
  260. read
  261. *AL DAR SI EN EL CUPON
  262.     IF UPPER (C)= "S"
  263. *DEFINIR VENTANA DE CUPON...
  264.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  265.         ACTIVATE WINDOWS CUPON
  266.         @3,15 SAY "Ingrese cupón a usar: S/N"
  267.         @4,15 GET CU
  268.         read       
  269.     else
  270. *EN CASO DE PONER "N"
  271.     WAIT WIND ""
  272.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  273.    
  274.     endif
  275. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  276.         DO CASE
  277.             CASE UPPER (CU)= "FAMIL"
  278.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  279.                 read
  280.                 DEACTIVATE WINDOWS CUPON
  281.                 CASE UPPER (CU)= "SEXOS"
  282.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  283.                 CASE (respuesta) = 6
  284. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  285.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  286.                 activate windows COMIDA
  287.                 @3,35 SAY "MENU PEDORRO"
  288.                 READ
  289.                 endcase
  290.        
  291. * Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  292. Ñ = 0
  293. A = 0
  294. AM = 0
  296. * Retiene el numero de niños...
  297. @1,10 SAY "NUMERO DE NIÑOS:" FONT "Arial" STYLE "Bold"
  298. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  299. READ
  300.  
  301. * Retiene numero de adultos...
  302. @1,38 SAY "NUMERO DE ADULTOS:" FONT "Arial" STYLE "Bold"
  303. @3,38 GET A FONT "Arial" STYLE "Bold"
  304. READ
  305.  
  306. * Retiene numero de adultos mayores...
  307. @1,66 SAY "NUMERO DE ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  308. @3,66 GET AM FONT "Arial" STYLE "Bold"
  309. READ
  310.  
  311. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  312. Suma = Ñ + A + AM
  313.  
  314. * Muestra el total de niños y adultos...
  315. @1,102 SAY "TOTAL DE PERSONAS:" FONT "Arial" STYLE "Bold"
  316. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  317.  
  318. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  319. PÑ = Ñ * 5.00
  320. PA = A * 10.00
  321. PAM = 0
  322.  
  323. * Variable que suma los precios y da el total...
  324. TA = PÑ + PA + PAM
  325.  
  326. * Da el precio de los niños segun la cantidad que haya...
  327. @5,10 SAY "TOTAL NIÑOS:" FONT "Arial" STYLE "Bold"
  328. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  329.  
  330. * Da el precio de los adultos segun la cantidad que haya...
  331. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  332. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  333.  
  334. * Da el precio de los adultos mayores segun la cantidad que haya...
  335. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  336. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  337.  
  338. * Da el total a pagar entre los adultos y niños...
  339. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  340. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  341.  
  342. * Una decoración simple...
  343. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  344.  
  345. * Variable de cupon...
  346. C=space(1)
  347. CU=space(5)
  348. * Opciones. Cupones/Combos/Renta...
  349. @13,10 SAY "QUIERES USAR UN CUPÓN"
  350. @14,12 GET C
  351. read
  352. *AL DAR SI EN EL CUPON
  353.     IF UPPER (C)= "S"
  354. *DEFINIR VENTANA DE CUPON...
  355.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  356.         ACTIVATE WINDOWS CUPON
  357.         @3,15 SAY "Ingrese cupón a usar: S/N"
  358.         @4,15 GET CU
  359.         read       
  360.     else
  361. *EN CASO DE PONER "N"
  362.     WAIT WIND ""
  363.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  364.    
  365.     endif
  366. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  367.         DO CASE
  368.             CASE UPPER (CU)= "FAMIL"
  369.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  370.                 read
  371.                 DEACTIVATE WINDOWS CUPON
  372.                 CASE UPPER (CU)= "SEXOS"
  373.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  374.                 CASE (respuesta) = 6
  375. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  376.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  377.                 activate windows COMIDA
  378.                 @3,35 SAY "MENU PEDORRO"
  379.                 READ
  380.                 endcase
  381.        
  382. * Retiene el numero de niños...
  383. @1,10 SAY "NUMERO DE NIÑOS:" FONT "Arial" STYLE "Bold"
  384. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  385. READ
  387. * Retiene numero de adultos...
  388. @1,38 SAY "NUMERO DE ADULTOS:" FONT "Arial" STYLE "Bold"
  389. @3,38 GET A FONT "Arial" STYLE "Bold"
  390. READ
  391.  
  392. * Retiene numero de adultos mayores...
  393. @1,66 SAY "NUMERO DE ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  394. @3,66 GET AM FONT "Arial" STYLE "Bold"
  395. READ
  396.  
  397. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  398. Suma = Ñ + A + AM
  399.  
  400. * Muestra el total de niños y adultos...
  401. @1,102 SAY "TOTAL DE PERSONAS:" FONT "Arial" STYLE "Bold"
  402. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  403.  
  404. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  405. PÑ = Ñ * 5.00
  406. PA = A * 10.00
  407. PAM = 0
  408.  
  409. * Variable que suma los precios y da el total...
  410. TA = PÑ + PA + PAM
  411.  
  412. * Da el precio de los niños segun la cantidad que haya...
  413. @5,10 SAY "TOTAL NIÑOS:" FONT "Arial" STYLE "Bold"
  414. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  415.  
  416. * Da el precio de los adultos segun la cantidad que haya...
  417. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  418. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  419.  
  420. * Da el precio de los adultos mayores segun la cantidad que haya...
  421. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  422. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  423.  
  424. * Da el total a pagar entre los adultos y niños...
  425. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  426. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  427.  
  428. * Una decoración simple...
  429. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  430.  
  431. * Variable de cupon...
  432. C=space(1)
  433. CU=space(5)
  434. * Opciones. Cupones/Combos/Renta...
  435. @13,10 SAY "QUIERES USAR UN CUPÓN"
  436. @14,12 GET C
  437. read
  438. *AL DAR SI EN EL CUPON
  439.     IF UPPER (C)= "S"
  440. *DEFINIR VENTANA DE CUPON...
  441.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  442.         ACTIVATE WINDOWS CUPON
  443.         @3,15 SAY "Ingrese cupón a usar: S/N"
  444.         @4,15 GET CU
  445.         read       
  446.     else
  447. *EN CASO DE PONER "N"
  448.     WAIT WIND ""
  449.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  450.    
  451.     endif
  452. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  453.         DO CASE
  454.             CASE UPPER (CU)= "FAMIL"
  455.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  456.                 read
  457.                 DEACTIVATE WINDOWS CUPON
  458.                 CASE UPPER (CU)= "SEXOS"
  459.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  460.                 CASE (respuesta) = 6
  461. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  462.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  463.                 activate windows COMIDA
  464.                 @3,35 SAY "MENU PEDORRO"
  465.                 READ
  466.                 endcase
  467.        
  468. * Retiene numero de adultos...
  469. @1,38 SAY "NUMERO DE ADULTOS:" FONT "Arial" STYLE "Bold"
  470. @3,38 GET A FONT "Arial" STYLE "Bold"
  471. READ
  473. * Retiene numero de adultos mayores...
  474. @1,66 SAY "NUMERO DE ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  475. @3,66 GET AM FONT "Arial" STYLE "Bold"
  476. READ
  477.  
  478. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  479. Suma = Ñ + A + AM
  480.  
  481. * Muestra el total de niños y adultos...
  482. @1,102 SAY "TOTAL DE PERSONAS:" FONT "Arial" STYLE "Bold"
  483. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  484.  
  485. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  486. PÑ = Ñ * 5.00
  487. PA = A * 10.00
  488. PAM = 0
  489.  
  490. * Variable que suma los precios y da el total...
  491. TA = PÑ + PA + PAM
  492.  
  493. * Da el precio de los niños segun la cantidad que haya...
  494. @5,10 SAY "TOTAL NIÑOS:" FONT "Arial" STYLE "Bold"
  495. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  496.  
  497. * Da el precio de los adultos segun la cantidad que haya...
  498. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  499. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  500.  
  501. * Da el precio de los adultos mayores segun la cantidad que haya...
  502. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  503. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  504.  
  505. * Da el total a pagar entre los adultos y niños...
  506. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  507. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  508.  
  509. * Una decoración simple...
  510. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  511.  
  512. * Variable de cupon...
  513. C=space(1)
  514. CU=space(5)
  515. * Opciones. Cupones/Combos/Renta...
  516. @13,10 SAY "QUIERES USAR UN CUPÓN"
  517. @14,12 GET C
  518. read
  519. *AL DAR SI EN EL CUPON
  520.     IF UPPER (C)= "S"
  521. *DEFINIR VENTANA DE CUPON...
  522.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  523.         ACTIVATE WINDOWS CUPON
  524.         @3,15 SAY "Ingrese cupón a usar: S/N"
  525.         @4,15 GET CU
  526.         read       
  527.     else
  528. *EN CASO DE PONER "N"
  529.     WAIT WIND ""
  530.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  531.    
  532.     endif
  533. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  534.         DO CASE
  535.             CASE UPPER (CU)= "FAMIL"
  536.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  537.                 read
  538.                 DEACTIVATE WINDOWS CUPON
  539.                 CASE UPPER (CU)= "SEXOS"
  540.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  541.                 CASE (respuesta) = 6
  542. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  543.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  544.                 activate windows COMIDA
  545.                 @3,35 SAY "MENU PEDORRO"
  546.                 READ
  547.                 endcase
  548.        
  549. * Retiene numero de adultos mayores...
  550. @1,66 SAY "NUMERO DE ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  551. @3,66 GET AM FONT "Arial" STYLE "Bold"
  552. READ
  554. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  555. Suma = Ñ + A + AM
  556.  
  557. * Muestra el total de niños y adultos...
  558. @1,102 SAY "TOTAL DE PERSONAS:" FONT "Arial" STYLE "Bold"
  559. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  560.  
  561. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  562. PÑ = Ñ * 5.00
  563. PA = A * 10.00
  564. PAM = 0
  565.  
  566. * Variable que suma los precios y da el total...
  567. TA = PÑ + PA + PAM
  568.  
  569. * Da el precio de los niños segun la cantidad que haya...
  570. @5,10 SAY "TOTAL NIÑOS:" FONT "Arial" STYLE "Bold"
  571. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  572.  
  573. * Da el precio de los adultos segun la cantidad que haya...
  574. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  575. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  576.  
  577. * Da el precio de los adultos mayores segun la cantidad que haya...
  578. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  579. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  580.  
  581. * Da el total a pagar entre los adultos y niños...
  582. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  583. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  584.  
  585. * Una decoración simple...
  586. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  587.  
  588. * Variable de cupon...
  589. C=space(1)
  590. CU=space(5)
  591. * Opciones. Cupones/Combos/Renta...
  592. @13,10 SAY "QUIERES USAR UN CUPÓN"
  593. @14,12 GET C
  594. read
  595. *AL DAR SI EN EL CUPON
  596.     IF UPPER (C)= "S"
  597. *DEFINIR VENTANA DE CUPON...
  598.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  599.         ACTIVATE WINDOWS CUPON
  600.         @3,15 SAY "Ingrese cupón a usar: S/N"
  601.         @4,15 GET CU
  602.         read       
  603.     else
  604. *EN CASO DE PONER "N"
  605.     WAIT WIND ""
  606.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  607.    
  608.     endif
  609. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  610.         DO CASE
  611.             CASE UPPER (CU)= "FAMIL"
  612.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  613.                 read
  614.                 DEACTIVATE WINDOWS CUPON
  615.                 CASE UPPER (CU)= "SEXOS"
  616.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  617.                 CASE (respuesta) = 6
  618. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  619.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  620.                 activate windows COMIDA
  621.                 @3,35 SAY "MENU PEDORRO"
  622.                 READ
  623.                 endcase
  624.        
  625. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  626. Suma = Ñ + A + AM
  628. * Muestra el total de niños y adultos...
  629. @1,102 SAY "TOTAL DE PERSONAS:" FONT "Arial" STYLE "Bold"
  630. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  631.  
  632. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  633. PÑ = Ñ * 5.00
  634. PA = A * 10.00
  635. PAM = 0
  636.  
  637. * Variable que suma los precios y da el total...
  638. TA = PÑ + PA + PAM
  639.  
  640. * Da el precio de los niños segun la cantidad que haya...
  641. @5,10 SAY "TOTAL NIÑOS:" FONT "Arial" STYLE "Bold"
  642. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  643.  
  644. * Da el precio de los adultos segun la cantidad que haya...
  645. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  646. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  647.  
  648. * Da el precio de los adultos mayores segun la cantidad que haya...
  649. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  650. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  651.  
  652. * Da el total a pagar entre los adultos y niños...
  653. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  654. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  655.  
  656. * Una decoración simple...
  657. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  658.  
  659. * Variable de cupon...
  660. C=space(1)
  661. CU=space(5)
  662. * Opciones. Cupones/Combos/Renta...
  663. @13,10 SAY "QUIERES USAR UN CUPÓN"
  664. @14,12 GET C
  665. read
  666. *AL DAR SI EN EL CUPON
  667.     IF UPPER (C)= "S"
  668. *DEFINIR VENTANA DE CUPON...
  669.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  670.         ACTIVATE WINDOWS CUPON
  671.         @3,15 SAY "Ingrese cupón a usar: S/N"
  672.         @4,15 GET CU
  673.         read       
  674.     else
  675. *EN CASO DE PONER "N"
  676.     WAIT WIND ""
  677.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  678.    
  679.     endif
  680. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  681.         DO CASE
  682.             CASE UPPER (CU)= "FAMIL"
  683.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  684.                 read
  685.                 DEACTIVATE WINDOWS CUPON
  686.                 CASE UPPER (CU)= "SEXOS"
  687.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  688.                 CASE (respuesta) = 6
  689. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  690.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  691.                 activate windows COMIDA
  692.                 @3,35 SAY "MENU PEDORRO"
  693.                 READ
  694.                 endcase
  695.        
  696. * Muestra el total de niños y adultos...
  697. @1,102 SAY "TOTAL DE PERSONAS:" FONT "Arial" STYLE "Bold"
  698. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  700. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  701. PÑ = Ñ * 5.00
  702. PA = A * 10.00
  703. PAM = 0
  704.  
  705. * Variable que suma los precios y da el total...
  706. TA = PÑ + PA + PAM
  707.  
  708. * Da el precio de los niños segun la cantidad que haya...
  709. @5,10 SAY "TOTAL NIÑOS:" FONT "Arial" STYLE "Bold"
  710. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  711.  
  712. * Da el precio de los adultos segun la cantidad que haya...
  713. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  714. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  715.  
  716. * Da el precio de los adultos mayores segun la cantidad que haya...
  717. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  718. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  719.  
  720. * Da el total a pagar entre los adultos y niños...
  721. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  722. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  723.  
  724. * Una decoración simple...
  725. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  726.  
  727. * Variable de cupon...
  728. C=space(1)
  729. CU=space(5)
  730. * Opciones. Cupones/Combos/Renta...
  731. @13,10 SAY "QUIERES USAR UN CUPÓN"
  732. @14,12 GET C
  733. read
  734. *AL DAR SI EN EL CUPON
  735.     IF UPPER (C)= "S"
  736. *DEFINIR VENTANA DE CUPON...
  737.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  738.         ACTIVATE WINDOWS CUPON
  739.         @3,15 SAY "Ingrese cupón a usar: S/N"
  740.         @4,15 GET CU
  741.         read       
  742.     else
  743. *EN CASO DE PONER "N"
  744.     WAIT WIND ""
  745.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  746.    
  747.     endif
  748. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  749.         DO CASE
  750.             CASE UPPER (CU)= "FAMIL"
  751.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  752.                 read
  753.                 DEACTIVATE WINDOWS CUPON
  754.                 CASE UPPER (CU)= "SEXOS"
  755.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  756.                 CASE (respuesta) = 6
  757. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  758.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  759.                 activate windows COMIDA
  760.                 @3,35 SAY "MENU PEDORRO"
  761.                 READ
  762.                 endcase
  763.        
  764. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  765. PÑ = Ñ * 5.00
  766. PA = A * 10.00
  767. PAM = 0
  769. * Variable que suma los precios y da el total...
  770. TA = PÑ + PA + PAM
  771.  
  772. * Da el precio de los niños segun la cantidad que haya...
  773. @5,10 SAY "TOTAL NIÑOS:" FONT "Arial" STYLE "Bold"
  774. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  775.  
  776. * Da el precio de los adultos segun la cantidad que haya...
  777. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  778. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  779.  
  780. * Da el precio de los adultos mayores segun la cantidad que haya...
  781. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  782. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  783.  
  784. * Da el total a pagar entre los adultos y niños...
  785. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  786. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  787.  
  788. * Una decoración simple...
  789. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  790.  
  791. * Variable de cupon...
  792. C=space(1)
  793. CU=space(5)
  794. * Opciones. Cupones/Combos/Renta...
  795. @13,10 SAY "QUIERES USAR UN CUPÓN"
  796. @14,12 GET C
  797. read
  798. *AL DAR SI EN EL CUPON
  799.     IF UPPER (C)= "S"
  800. *DEFINIR VENTANA DE CUPON...
  801.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  802.         ACTIVATE WINDOWS CUPON
  803.         @3,15 SAY "Ingrese cupón a usar: S/N"
  804.         @4,15 GET CU
  805.         read       
  806.     else
  807. *EN CASO DE PONER "N"
  808.     WAIT WIND ""
  809.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  810.    
  811.     endif
  812. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  813.         DO CASE
  814.             CASE UPPER (CU)= "FAMIL"
  815.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  816.                 read
  817.                 DEACTIVATE WINDOWS CUPON
  818.                 CASE UPPER (CU)= "SEXOS"
  819.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  820.                 CASE (respuesta) = 6
  821. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  822.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  823.                 activate windows COMIDA
  824.                 @3,35 SAY "MENU PEDORRO"
  825.                 READ
  826.                 endcase
  827.        
  828. * Variable que suma los precios y da el total...
  829. TA = PÑ + PA + PAM
  831. * Da el precio de los niños segun la cantidad que haya...
  832. @5,10 SAY "TOTAL NIÑOS:" FONT "Arial" STYLE "Bold"
  833. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  834.  
  835. * Da el precio de los adultos segun la cantidad que haya...
  836. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  837. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  838.  
  839. * Da el precio de los adultos mayores segun la cantidad que haya...
  840. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  841. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  842.  
  843. * Da el total a pagar entre los adultos y niños...
  844. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  845. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  846.  
  847. * Una decoración simple...
  848. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  849.  
  850. * Variable de cupon...
  851. C=space(1)
  852. CU=space(5)
  853. * Opciones. Cupones/Combos/Renta...
  854. @13,10 SAY "QUIERES USAR UN CUPÓN"
  855. @14,12 GET C
  856. read
  857. *AL DAR SI EN EL CUPON
  858.     IF UPPER (C)= "S"
  859. *DEFINIR VENTANA DE CUPON...
  860.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  861.         ACTIVATE WINDOWS CUPON
  862.         @3,15 SAY "Ingrese cupón a usar: S/N"
  863.         @4,15 GET CU
  864.         read       
  865.     else
  866. *EN CASO DE PONER "N"
  867.     WAIT WIND ""
  868.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  869.    
  870.     endif
  871. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  872.         DO CASE
  873.             CASE UPPER (CU)= "FAMIL"
  874.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  875.                 read
  876.                 DEACTIVATE WINDOWS CUPON
  877.                 CASE UPPER (CU)= "SEXOS"
  878.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  879.                 CASE (respuesta) = 6
  880. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  881.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  882.                 activate windows COMIDA
  883.                 @3,35 SAY "MENU PEDORRO"
  884.                 READ
  885.                 endcase
  886.        
  887. * Da el precio de los niños segun la cantidad que haya...
  888. @5,10 SAY "TOTAL NIÑOS:" FONT "Arial" STYLE "Bold"
  889. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  891. * Da el precio de los adultos segun la cantidad que haya...
  892. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  893. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  894.  
  895. * Da el precio de los adultos mayores segun la cantidad que haya...
  896. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  897. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  898.  
  899. * Da el total a pagar entre los adultos y niños...
  900. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  901. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  902.  
  903. * Una decoración simple...
  904. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  905.  
  906. * Variable de cupon...
  907. C=space(1)
  908. CU=space(5)
  909. * Opciones. Cupones/Combos/Renta...
  910. @13,10 SAY "QUIERES USAR UN CUPÓN"
  911. @14,12 GET C
  912. read
  913. *AL DAR SI EN EL CUPON
  914.     IF UPPER (C)= "S"
  915. *DEFINIR VENTANA DE CUPON...
  916.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  917.         ACTIVATE WINDOWS CUPON
  918.         @3,15 SAY "Ingrese cupón a usar: S/N"
  919.         @4,15 GET CU
  920.         read       
  921.     else
  922. *EN CASO DE PONER "N"
  923.     WAIT WIND ""
  924.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  925.    
  926.     endif
  927. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  928.         DO CASE
  929.             CASE UPPER (CU)= "FAMIL"
  930.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  931.                 read
  932.                 DEACTIVATE WINDOWS CUPON
  933.                 CASE UPPER (CU)= "SEXOS"
  934.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  935.                 CASE (respuesta) = 6
  936. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  937.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  938.                 activate windows COMIDA
  939.                 @3,35 SAY "MENU PEDORRO"
  940.                 READ
  941.                 endcase
  942.        
  943. * Da el precio de los adultos segun la cantidad que haya...
  944. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  945. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  947. * Da el precio de los adultos mayores segun la cantidad que haya...
  948. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  949. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  950.  
  951. * Da el total a pagar entre los adultos y niños...
  952. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  953. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  954.  
  955. * Una decoración simple...
  956. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  957.  
  958. * Variable de cupon...
  959. C=space(1)
  960. CU=space(5)
  961. * Opciones. Cupones/Combos/Renta...
  962. @13,10 SAY "QUIERES USAR UN CUPÓN"
  963. @14,12 GET C
  964. read
  965. *AL DAR SI EN EL CUPON
  966.     IF UPPER (C)= "S"
  967. *DEFINIR VENTANA DE CUPON...
  968.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  969.         ACTIVATE WINDOWS CUPON
  970.         @3,15 SAY "Ingrese cupón a usar: S/N"
  971.         @4,15 GET CU
  972.         read       
  973.     else
  974. *EN CASO DE PONER "N"
  975.     WAIT WIND ""
  976.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  977.    
  978.     endif
  979. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  980.         DO CASE
  981.             CASE UPPER (CU)= "FAMIL"
  982.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  983.                 read
  984.                 DEACTIVATE WINDOWS CUPON
  985.                 CASE UPPER (CU)= "SEXOS"
  986.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  987.                 CASE (respuesta) = 6
  988. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  989.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  990.                 activate windows COMIDA
  991.                 @3,35 SAY "MENU PEDORRO"
  992.                 READ
  993.                 endcase
  994.        
  995. * Da el precio de los adultos mayores segun la cantidad que haya...
  996. @5,66 SAY "TOTAL ADULTOS MAYORES:" FONT "Arial" STYLE "Bold"
  997. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  999. * Da el total a pagar entre los adultos y niños...
  1000. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  1001. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  1002.  
  1003. * Una decoración simple...
  1004. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1005.  
  1006. * Variable de cupon...
  1007. C=space(1)
  1008. CU=space(5)
  1009. * Opciones. Cupones/Combos/Renta...
  1010. @13,10 SAY "QUIERES USAR UN CUPÓN"
  1011. @14,12 GET C
  1012. read
  1013. *AL DAR SI EN EL CUPON
  1014.     IF UPPER (C)= "S"
  1015. *DEFINIR VENTANA DE CUPON...
  1016.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  1017.         ACTIVATE WINDOWS CUPON
  1018.         @3,15 SAY "Ingrese cupón a usar: S/N"
  1019.         @4,15 GET CU
  1020.         read       
  1021.     else
  1022. *EN CASO DE PONER "N"
  1023.     WAIT WIND ""
  1024.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1025.    
  1026.     endif
  1027. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1028.         DO CASE
  1029.             CASE UPPER (CU)= "FAMIL"
  1030.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  1031.                 read
  1032.                 DEACTIVATE WINDOWS CUPON
  1033.                 CASE UPPER (CU)= "SEXOS"
  1034.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  1035.                 CASE (respuesta) = 6
  1036. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  1037.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1038.                 activate windows COMIDA
  1039.                 @3,35 SAY "MENU PEDORRO"
  1040.                 READ
  1041.                 endcase
  1042.        
  1043. * Da el total a pagar entre los adultos y niños...
  1044. @5,102 SAY "TOTAL A PAGAR:" FONT "Arial" STYLE "Bold"
  1045. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  1047. * Una decoración simple...
  1048. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1049.  
  1050. * Variable de cupon...
  1051. C=space(1)
  1052. CU=space(5)
  1053. * Opciones. Cupones/Combos/Renta...
  1054. @13,10 SAY "QUIERES USAR UN CUPÓN"
  1055. @14,12 GET C
  1056. read
  1057. *AL DAR SI EN EL CUPON
  1058.     IF UPPER (C)= "S"
  1059. *DEFINIR VENTANA DE CUPON...
  1060.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  1061.         ACTIVATE WINDOWS CUPON
  1062.         @3,15 SAY "Ingrese cupón a usar: S/N"
  1063.         @4,15 GET CU
  1064.         read       
  1065.     else
  1066. *EN CASO DE PONER "N"
  1067.     WAIT WIND ""
  1068.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1069.    
  1070.     endif
  1071. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1072.         DO CASE
  1073.             CASE UPPER (CU)= "FAMIL"
  1074.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  1075.                 read
  1076.                 DEACTIVATE WINDOWS CUPON
  1077.                 CASE UPPER (CU)= "SEXOS"
  1078.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  1079.                 CASE (respuesta) = 6
  1080. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  1081.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1082.                 activate windows COMIDA
  1083.                 @3,35 SAY "MENU PEDORRO"
  1084.                 READ
  1085.                 endcase
  1086.        
  1087. * Una decoración simple...
  1088. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1090. * Variable de cupon...
  1091. C=space(1)
  1092. CU=space(5)
  1093. * Opciones. Cupones/Combos/Renta...
  1094. @13,10 SAY "QUIERES USAR UN CUPÓN"
  1095. @14,12 GET C
  1096. read
  1097. *AL DAR SI EN EL CUPON
  1098.     IF UPPER (C)= "S"
  1099. *DEFINIR VENTANA DE CUPON...
  1100.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  1101.         ACTIVATE WINDOWS CUPON
  1102.         @3,15 SAY "Ingrese cupón a usar: S/N"
  1103.         @4,15 GET CU
  1104.         read       
  1105.     else
  1106. *EN CASO DE PONER "N"
  1107.     WAIT WIND ""
  1108.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1109.    
  1110.     endif
  1111. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1112.         DO CASE
  1113.             CASE UPPER (CU)= "FAMIL"
  1114.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  1115.                 read
  1116.                 DEACTIVATE WINDOWS CUPON
  1117.                 CASE UPPER (CU)= "SEXOS"
  1118.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  1119.                 CASE (respuesta) = 6
  1120. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  1121.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1122.                 activate windows COMIDA
  1123.                 @3,35 SAY "MENU PEDORRO"
  1124.                 READ
  1125.                 endcase
  1126.        
  1127. * Variable de cupon...
  1128. C=space(1)
  1129. CU=space(5)
  1130. * Opciones. Cupones/Combos/Renta...
  1131. @13,10 SAY "QUIERES USAR UN CUPÓN"
  1132. @14,12 GET C
  1133. read
  1134. *AL DAR SI EN EL CUPON
  1135.     IF UPPER (C)= "S"
  1136. *DEFINIR VENTANA DE CUPON...
  1137.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  1138.         ACTIVATE WINDOWS CUPON
  1139.         @3,15 SAY "Ingrese cupón a usar: S/N"
  1140.         @4,15 GET CU
  1141.         read       
  1142.     else
  1143. *EN CASO DE PONER "N"
  1144.     WAIT WIND ""
  1145.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1146.    
  1147.     endif
  1148. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1149.         DO CASE
  1150.             CASE UPPER (CU)= "FAMIL"
  1151.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  1152.                 read
  1153.                 DEACTIVATE WINDOWS CUPON
  1154.                 CASE UPPER (CU)= "SEXOS"
  1155.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  1156.                 CASE (respuesta) = 6
  1157. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  1158.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1159.                 activate windows COMIDA
  1160.                 @3,35 SAY "MENU PEDORRO"
  1161.                 READ
  1162.                 endcase
  1163.        
  1164. * Opciones. Cupones/Combos/Renta...
  1165. @13,10 SAY "QUIERES USAR UN CUPÓN"
  1166. @14,12 GET C
  1167. read
  1168. *AL DAR SI EN EL CUPON
  1169.     IF UPPER (C)= "S"
  1170. *DEFINIR VENTANA DE CUPON...
  1171.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  1172.         ACTIVATE WINDOWS CUPON
  1173.         @3,15 SAY "Ingrese cupón a usar: S/N"
  1174.         @4,15 GET CU
  1175.         read       
  1176.     else
  1177. *EN CASO DE PONER "N"
  1178.     WAIT WIND ""
  1179.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1180.    
  1181.     endif
  1182. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1183.         DO CASE
  1184.             CASE UPPER (CU)= "FAMIL"
  1185.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  1186.                 read
  1187.                 DEACTIVATE WINDOWS CUPON
  1188.                 CASE UPPER (CU)= "SEXOS"
  1189.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  1190.                 CASE (respuesta) = 6
  1191. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  1192.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1193.                 activate windows COMIDA
  1194.                 @3,35 SAY "MENU PEDORRO"
  1195.                 READ
  1196.                 endcase
  1197.        
  1198. *AL DAR SI EN EL CUPON
  1199.     IF UPPER (C)= "S"
  1200. *DEFINIR VENTANA DE CUPON...
  1201.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  1202.         ACTIVATE WINDOWS CUPON
  1203.         @3,15 SAY "Ingrese cupón a usar: S/N"
  1204.         @4,15 GET CU
  1205.         read       
  1206.     else
  1207. *EN CASO DE PONER "N"
  1208.     WAIT WIND ""
  1209.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1210.    
  1211.     endif
  1212. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1213.         DO CASE
  1214.             CASE UPPER (CU)= "FAMIL"
  1215.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  1216.                 read
  1217.                 DEACTIVATE WINDOWS CUPON
  1218.                 CASE UPPER (CU)= "SEXOS"
  1219.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  1220.                 CASE (respuesta) = 6
  1221. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  1222.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1223.                 activate windows COMIDA
  1224.                 @3,35 SAY "MENU PEDORRO"
  1225.                 READ
  1226.                 endcase
  1227.        
  1228. *DEFINIR VENTANA DE CUPON...
  1229.     DEFI WIND CUPON FROM 2,50 TO 50,60 TITLE "CUPON" FONT "Calibri" MINIMIZE CLOSE GROW
  1230.         ACTIVATE WINDOWS CUPON
  1231.         @3,15 SAY "Ingrese cupón a usar: S/N"
  1232.         @4,15 GET CU
  1233.         read       
  1234.     else
  1235. *EN CASO DE PONER "N"
  1236.     WAIT WIND ""
  1237.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1238.    
  1239.     endif
  1240. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1241.         DO CASE
  1242.             CASE UPPER (CU)= "FAMIL"
  1243.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  1244.                 read
  1245.                 DEACTIVATE WINDOWS CUPON
  1246.                 CASE UPPER (CU)= "SEXOS"
  1247.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  1248.                 CASE (respuesta) = 6
  1249. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  1250.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1251.                 activate windows COMIDA
  1252.                 @3,35 SAY "MENU PEDORRO"
  1253.                 READ
  1254.                 endcase
  1255.        
  1256. *EN CASO DE PONER "N"
  1257.     WAIT WIND ""
  1258.         respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1259.    
  1260.     endif
  1261. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1262.         DO CASE
  1263.             CASE UPPER (CU)= "FAMIL"
  1264.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  1265.                 read
  1266.                 DEACTIVATE WINDOWS CUPON
  1267.                 CASE UPPER (CU)= "SEXOS"
  1268.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  1269.                 CASE (respuesta) = 6
  1270. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  1271.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1272.                 activate windows COMIDA
  1273.                 @3,35 SAY "MENU PEDORRO"
  1274.                 READ
  1275.                 endcase
  1276.        
  1277. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1278.         DO CASE
  1279.             CASE UPPER (CU)= "FAMIL"
  1280.                 @5,10 SAY "Se a aplicado un 35% de descuento:)"
  1281.                 read
  1282.                 DEACTIVATE WINDOWS CUPON
  1283.                 CASE UPPER (CU)= "SEXOS"
  1284.                 @17,25 SAY "Se a aplicado un 10% de descuento:)"
  1285.                 CASE (respuesta) = 6
  1286. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  1287.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1288.                 activate windows COMIDA
  1289.                 @3,35 SAY "MENU PEDORRO"
  1290.                 READ
  1291.                 endcase
  1292.        
  1293. *DEFINIR VENTANA DE EL MENU DE COMIDA...
  1294.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1295.                 activate windows COMIDA
  1296.                 @3,35 SAY "MENU PEDORRO"
  1297.                 READ
  1298.                 endcase
  1299.                
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!