API tools faq
paste
Advertisement
72_DEMON_

Galicia original

72_DEMON_
May 2nd, 2023
641
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualFoxPro 3.64 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 parte de cupón
  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 "MENORES DE EDAD:" FONT "Arial" STYLE "Bold"
  16. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  17. READ
  18.  
  19. * Retiene numero de adultos...
  20. @1,38 SAY "MAYORES DE EDAD:" 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 "TERCERA EDAD:" 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 ENTRADAS:" 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 DE MENORES:" 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 DE TERCERA EDAD:" 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 DE ENTRADAS:" 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(8)
  66. * Opciones. Cupones/Combos/Renta...
  67. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  68. @14,21 GET C
  69. read
  70. *AL DAR SI EN EL CUPON
  71.     IF UPPER (C)= "S"
  72.         @15,15 SAY "Ingrese cupón a usar:"
  73.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  74.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  75.         @16,15 GET CU
  76.         read       
  77.     ELSE
  78. ENDIF
  79. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  80. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  81. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  82.         DO CASE
  83.             CASE (respuesta) = 6
  84.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  85.                
  86.                 ACTIVATE WINDOWS COMIDA
  87.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  88.                
  89.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  90.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  91.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  92.                
  93.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  94.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  95.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  96.                
  97.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  98.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  99.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  100.              
  101.            
  102.             CASE UPPER (CU)= "FAMILIAR"
  103.                 TF=TA*0.35
  104.                 TAF=TA-TF
  105.            
  106.             CASE UPPER (CU)= "AMIGOS"
  107.                 TF=TA*0.1
  108.                 TAF=TA-TF
  109.         ENDCASE
  110.  
  111. * MENU PRODUCTOS
  112. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  113. read
  114.        
  115. * Definiendo ventana...
  116. DEFI WIND galicia FROM 2,35 TO 35,190 TITLE "Galicia" FONT "Calibri" MINIMIZE CLOSE GROW
  117. ACTIVATE WINDOWS galicia
  118. * Imagen parte de cupón
  119.  
  120.  
  121. * Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  122. Ñ = 0
  123. A = 0
  124. AM = 0
  125.  
  126. * Retiene el numero de niños...
  127. @1,10 SAY "MENORES DE EDAD:" FONT "Arial" STYLE "Bold"
  128. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  129. READ
  130.  
  131. * Retiene numero de adultos...
  132. @1,38 SAY "MAYORES DE EDAD:" FONT "Arial" STYLE "Bold"
  133. @3,38 GET A FONT "Arial" STYLE "Bold"
  134. READ
  135.  
  136. * Retiene numero de adultos mayores...
  137. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  138. @3,66 GET AM FONT "Arial" STYLE "Bold"
  139. READ
  140.  
  141. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  142. Suma = Ñ + A + AM
  143.  
  144. * Muestra el total de niños y adultos...
  145. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  146. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  147.  
  148. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  149. PÑ = Ñ * 5.00
  150. PA = A * 10.00
  151. PAM = 0
  152.  
  153. * Variable que suma los precios y da el total...
  154. TA = PÑ + PA + PAM
  155.  
  156. * Da el precio de los niños segun la cantidad que haya...
  157. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  158. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  159.  
  160. * Da el precio de los adultos segun la cantidad que haya...
  161. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  162. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  163.  
  164. * Da el precio de los adultos mayores segun la cantidad que haya...
  165. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  166. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  167.  
  168. * Da el total a pagar entre los adultos y niños...
  169. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  170. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  171.  
  172. * Una decoración simple...
  173. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  174.  
  175. * Variable de cupon...
  176. C=space(1)
  177. CU=space(8)
  178. * Opciones. Cupones/Combos/Renta...
  179. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  180. @14,21 GET C
  181. read
  182. *AL DAR SI EN EL CUPON
  183.     IF UPPER (C)= "S"
  184.         @15,15 SAY "Ingrese cupón a usar:"
  185.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  186.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  187.         @16,15 GET CU
  188.         read       
  189.     ELSE
  190. ENDIF
  191. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  192. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  193. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  194.         DO CASE
  195.             CASE (respuesta) = 6
  196.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  197.                
  198.                 ACTIVATE WINDOWS COMIDA
  199.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  200.                
  201.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  202.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  203.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  204.                
  205.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  206.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  207.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  208.                
  209.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  210.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  211.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  212.              
  213.            
  214.             CASE UPPER (CU)= "FAMILIAR"
  215.                 TF=TA*0.35
  216.                 TAF=TA-TF
  217.            
  218.             CASE UPPER (CU)= "AMIGOS"
  219.                 TF=TA*0.1
  220.                 TAF=TA-TF
  221.         ENDCASE
  222.  
  223. * MENU PRODUCTOS
  224. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  225. read
  226.        
  227. * Imagen parte de cupón
  228.  
  229.  
  230. * Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  231. Ñ = 0
  232. A = 0
  233. AM = 0
  234.  
  235. * Retiene el numero de niños...
  236. @1,10 SAY "MENORES DE EDAD:" FONT "Arial" STYLE "Bold"
  237. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  238. READ
  239.  
  240. * Retiene numero de adultos...
  241. @1,38 SAY "MAYORES DE EDAD:" FONT "Arial" STYLE "Bold"
  242. @3,38 GET A FONT "Arial" STYLE "Bold"
  243. READ
  244.  
  245. * Retiene numero de adultos mayores...
  246. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  247. @3,66 GET AM FONT "Arial" STYLE "Bold"
  248. READ
  249.  
  250. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  251. Suma = Ñ + A + AM
  252.  
  253. * Muestra el total de niños y adultos...
  254. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  255. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  256.  
  257. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  258. PÑ = Ñ * 5.00
  259. PA = A * 10.00
  260. PAM = 0
  261.  
  262. * Variable que suma los precios y da el total...
  263. TA = PÑ + PA + PAM
  264.  
  265. * Da el precio de los niños segun la cantidad que haya...
  266. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  267. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  268.  
  269. * Da el precio de los adultos segun la cantidad que haya...
  270. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  271. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  272.  
  273. * Da el precio de los adultos mayores segun la cantidad que haya...
  274. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  275. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  276.  
  277. * Da el total a pagar entre los adultos y niños...
  278. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  279. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  280.  
  281. * Una decoración simple...
  282. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  283.  
  284. * Variable de cupon...
  285. C=space(1)
  286. CU=space(8)
  287. * Opciones. Cupones/Combos/Renta...
  288. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  289. @14,21 GET C
  290. read
  291. *AL DAR SI EN EL CUPON
  292.     IF UPPER (C)= "S"
  293.         @15,15 SAY "Ingrese cupón a usar:"
  294.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  295.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  296.         @16,15 GET CU
  297.         read       
  298.     ELSE
  299. ENDIF
  300. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  301. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  302. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  303.         DO CASE
  304.             CASE (respuesta) = 6
  305.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  306.                
  307.                 ACTIVATE WINDOWS COMIDA
  308.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  309.                
  310.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  311.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  312.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  313.                
  314.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  315.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  316.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  317.                
  318.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  319.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  320.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  321.              
  322.            
  323.             CASE UPPER (CU)= "FAMILIAR"
  324.                 TF=TA*0.35
  325.                 TAF=TA-TF
  326.            
  327.             CASE UPPER (CU)= "AMIGOS"
  328.                 TF=TA*0.1
  329.                 TAF=TA-TF
  330.         ENDCASE
  331.  
  332. * MENU PRODUCTOS
  333. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  334. read
  335.        
  336. * Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  337. Ñ = 0
  338. A = 0
  339. AM = 0
  341. * Retiene el numero de niños...
  342. @1,10 SAY "MENORES DE EDAD:" FONT "Arial" STYLE "Bold"
  343. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  344. READ
  345.  
  346. * Retiene numero de adultos...
  347. @1,38 SAY "MAYORES DE EDAD:" FONT "Arial" STYLE "Bold"
  348. @3,38 GET A FONT "Arial" STYLE "Bold"
  349. READ
  350.  
  351. * Retiene numero de adultos mayores...
  352. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  353. @3,66 GET AM FONT "Arial" STYLE "Bold"
  354. READ
  355.  
  356. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  357. Suma = Ñ + A + AM
  358.  
  359. * Muestra el total de niños y adultos...
  360. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  361. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  362.  
  363. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  364. PÑ = Ñ * 5.00
  365. PA = A * 10.00
  366. PAM = 0
  367.  
  368. * Variable que suma los precios y da el total...
  369. TA = PÑ + PA + PAM
  370.  
  371. * Da el precio de los niños segun la cantidad que haya...
  372. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  373. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  374.  
  375. * Da el precio de los adultos segun la cantidad que haya...
  376. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  377. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  378.  
  379. * Da el precio de los adultos mayores segun la cantidad que haya...
  380. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  381. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  382.  
  383. * Da el total a pagar entre los adultos y niños...
  384. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  385. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  386.  
  387. * Una decoración simple...
  388. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  389.  
  390. * Variable de cupon...
  391. C=space(1)
  392. CU=space(8)
  393. * Opciones. Cupones/Combos/Renta...
  394. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  395. @14,21 GET C
  396. read
  397. *AL DAR SI EN EL CUPON
  398.     IF UPPER (C)= "S"
  399.         @15,15 SAY "Ingrese cupón a usar:"
  400.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  401.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  402.         @16,15 GET CU
  403.         read       
  404.     ELSE
  405. ENDIF
  406. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  407. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  408. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  409.         DO CASE
  410.             CASE (respuesta) = 6
  411.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  412.                
  413.                 ACTIVATE WINDOWS COMIDA
  414.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  415.                
  416.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  417.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  418.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  419.                
  420.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  421.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  422.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  423.                
  424.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  425.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  426.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  427.              
  428.            
  429.             CASE UPPER (CU)= "FAMILIAR"
  430.                 TF=TA*0.35
  431.                 TAF=TA-TF
  432.            
  433.             CASE UPPER (CU)= "AMIGOS"
  434.                 TF=TA*0.1
  435.                 TAF=TA-TF
  436.         ENDCASE
  437.  
  438. * MENU PRODUCTOS
  439. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  440. read
  441.        
  442. * Retiene el numero de niños...
  443. @1,10 SAY "MENORES DE EDAD:" FONT "Arial" STYLE "Bold"
  444. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  445. READ
  447. * Retiene numero de adultos...
  448. @1,38 SAY "MAYORES DE EDAD:" FONT "Arial" STYLE "Bold"
  449. @3,38 GET A FONT "Arial" STYLE "Bold"
  450. READ
  451.  
  452. * Retiene numero de adultos mayores...
  453. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  454. @3,66 GET AM FONT "Arial" STYLE "Bold"
  455. READ
  456.  
  457. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  458. Suma = Ñ + A + AM
  459.  
  460. * Muestra el total de niños y adultos...
  461. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  462. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  463.  
  464. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  465. PÑ = Ñ * 5.00
  466. PA = A * 10.00
  467. PAM = 0
  468.  
  469. * Variable que suma los precios y da el total...
  470. TA = PÑ + PA + PAM
  471.  
  472. * Da el precio de los niños segun la cantidad que haya...
  473. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  474. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  475.  
  476. * Da el precio de los adultos segun la cantidad que haya...
  477. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  478. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  479.  
  480. * Da el precio de los adultos mayores segun la cantidad que haya...
  481. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  482. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  483.  
  484. * Da el total a pagar entre los adultos y niños...
  485. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  486. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  487.  
  488. * Una decoración simple...
  489. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  490.  
  491. * Variable de cupon...
  492. C=space(1)
  493. CU=space(8)
  494. * Opciones. Cupones/Combos/Renta...
  495. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  496. @14,21 GET C
  497. read
  498. *AL DAR SI EN EL CUPON
  499.     IF UPPER (C)= "S"
  500.         @15,15 SAY "Ingrese cupón a usar:"
  501.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  502.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  503.         @16,15 GET CU
  504.         read       
  505.     ELSE
  506. ENDIF
  507. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  508. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  509. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  510.         DO CASE
  511.             CASE (respuesta) = 6
  512.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  513.                
  514.                 ACTIVATE WINDOWS COMIDA
  515.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  516.                
  517.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  518.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  519.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  520.                
  521.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  522.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  523.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  524.                
  525.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  526.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  527.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  528.              
  529.            
  530.             CASE UPPER (CU)= "FAMILIAR"
  531.                 TF=TA*0.35
  532.                 TAF=TA-TF
  533.            
  534.             CASE UPPER (CU)= "AMIGOS"
  535.                 TF=TA*0.1
  536.                 TAF=TA-TF
  537.         ENDCASE
  538.  
  539. * MENU PRODUCTOS
  540. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  541. read
  542.        
  543. * Retiene numero de adultos...
  544. @1,38 SAY "MAYORES DE EDAD:" FONT "Arial" STYLE "Bold"
  545. @3,38 GET A FONT "Arial" STYLE "Bold"
  546. READ
  548. * Retiene numero de adultos mayores...
  549. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  550. @3,66 GET AM FONT "Arial" STYLE "Bold"
  551. READ
  552.  
  553. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  554. Suma = Ñ + A + AM
  555.  
  556. * Muestra el total de niños y adultos...
  557. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  558. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  559.  
  560. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  561. PÑ = Ñ * 5.00
  562. PA = A * 10.00
  563. PAM = 0
  564.  
  565. * Variable que suma los precios y da el total...
  566. TA = PÑ + PA + PAM
  567.  
  568. * Da el precio de los niños segun la cantidad que haya...
  569. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  570. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  571.  
  572. * Da el precio de los adultos segun la cantidad que haya...
  573. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  574. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  575.  
  576. * Da el precio de los adultos mayores segun la cantidad que haya...
  577. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  578. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  579.  
  580. * Da el total a pagar entre los adultos y niños...
  581. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  582. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  583.  
  584. * Una decoración simple...
  585. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  586.  
  587. * Variable de cupon...
  588. C=space(1)
  589. CU=space(8)
  590. * Opciones. Cupones/Combos/Renta...
  591. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  592. @14,21 GET C
  593. read
  594. *AL DAR SI EN EL CUPON
  595.     IF UPPER (C)= "S"
  596.         @15,15 SAY "Ingrese cupón a usar:"
  597.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  598.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  599.         @16,15 GET CU
  600.         read       
  601.     ELSE
  602. ENDIF
  603. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  604. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  605. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  606.         DO CASE
  607.             CASE (respuesta) = 6
  608.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  609.                
  610.                 ACTIVATE WINDOWS COMIDA
  611.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  612.                
  613.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  614.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  615.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  616.                
  617.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  618.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  619.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  620.                
  621.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  622.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  623.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  624.              
  625.            
  626.             CASE UPPER (CU)= "FAMILIAR"
  627.                 TF=TA*0.35
  628.                 TAF=TA-TF
  629.            
  630.             CASE UPPER (CU)= "AMIGOS"
  631.                 TF=TA*0.1
  632.                 TAF=TA-TF
  633.         ENDCASE
  634.  
  635. * MENU PRODUCTOS
  636. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  637. read
  638.        
  639. * Retiene numero de adultos mayores...
  640. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  641. @3,66 GET AM FONT "Arial" STYLE "Bold"
  642. READ
  644. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  645. Suma = Ñ + A + AM
  646.  
  647. * Muestra el total de niños y adultos...
  648. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  649. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  650.  
  651. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  652. PÑ = Ñ * 5.00
  653. PA = A * 10.00
  654. PAM = 0
  655.  
  656. * Variable que suma los precios y da el total...
  657. TA = PÑ + PA + PAM
  658.  
  659. * Da el precio de los niños segun la cantidad que haya...
  660. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  661. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  662.  
  663. * Da el precio de los adultos segun la cantidad que haya...
  664. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  665. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  666.  
  667. * Da el precio de los adultos mayores segun la cantidad que haya...
  668. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  669. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  670.  
  671. * Da el total a pagar entre los adultos y niños...
  672. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  673. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  674.  
  675. * Una decoración simple...
  676. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  677.  
  678. * Variable de cupon...
  679. C=space(1)
  680. CU=space(8)
  681. * Opciones. Cupones/Combos/Renta...
  682. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  683. @14,21 GET C
  684. read
  685. *AL DAR SI EN EL CUPON
  686.     IF UPPER (C)= "S"
  687.         @15,15 SAY "Ingrese cupón a usar:"
  688.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  689.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  690.         @16,15 GET CU
  691.         read       
  692.     ELSE
  693. ENDIF
  694. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  695. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  696. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  697.         DO CASE
  698.             CASE (respuesta) = 6
  699.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  700.                
  701.                 ACTIVATE WINDOWS COMIDA
  702.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  703.                
  704.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  705.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  706.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  707.                
  708.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  709.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  710.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  711.                
  712.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  713.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  714.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  715.              
  716.            
  717.             CASE UPPER (CU)= "FAMILIAR"
  718.                 TF=TA*0.35
  719.                 TAF=TA-TF
  720.            
  721.             CASE UPPER (CU)= "AMIGOS"
  722.                 TF=TA*0.1
  723.                 TAF=TA-TF
  724.         ENDCASE
  725.  
  726. * MENU PRODUCTOS
  727. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  728. read
  729.        
  730. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  731. Suma = Ñ + A + AM
  733. * Muestra el total de niños y adultos...
  734. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  735. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  736.  
  737. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  738. PÑ = Ñ * 5.00
  739. PA = A * 10.00
  740. PAM = 0
  741.  
  742. * Variable que suma los precios y da el total...
  743. TA = PÑ + PA + PAM
  744.  
  745. * Da el precio de los niños segun la cantidad que haya...
  746. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  747. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  748.  
  749. * Da el precio de los adultos segun la cantidad que haya...
  750. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  751. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  752.  
  753. * Da el precio de los adultos mayores segun la cantidad que haya...
  754. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  755. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  756.  
  757. * Da el total a pagar entre los adultos y niños...
  758. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  759. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  760.  
  761. * Una decoración simple...
  762. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  763.  
  764. * Variable de cupon...
  765. C=space(1)
  766. CU=space(8)
  767. * Opciones. Cupones/Combos/Renta...
  768. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  769. @14,21 GET C
  770. read
  771. *AL DAR SI EN EL CUPON
  772.     IF UPPER (C)= "S"
  773.         @15,15 SAY "Ingrese cupón a usar:"
  774.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  775.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  776.         @16,15 GET CU
  777.         read       
  778.     ELSE
  779. ENDIF
  780. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  781. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  782. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  783.         DO CASE
  784.             CASE (respuesta) = 6
  785.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  786.                
  787.                 ACTIVATE WINDOWS COMIDA
  788.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  789.                
  790.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  791.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  792.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  793.                
  794.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  795.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  796.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  797.                
  798.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  799.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  800.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  801.              
  802.            
  803.             CASE UPPER (CU)= "FAMILIAR"
  804.                 TF=TA*0.35
  805.                 TAF=TA-TF
  806.            
  807.             CASE UPPER (CU)= "AMIGOS"
  808.                 TF=TA*0.1
  809.                 TAF=TA-TF
  810.         ENDCASE
  811.  
  812. * MENU PRODUCTOS
  813. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  814. read
  815.        
  816. * Muestra el total de niños y adultos...
  817. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  818. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  820. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  821. PÑ = Ñ * 5.00
  822. PA = A * 10.00
  823. PAM = 0
  824.  
  825. * Variable que suma los precios y da el total...
  826. TA = PÑ + PA + PAM
  827.  
  828. * Da el precio de los niños segun la cantidad que haya...
  829. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  830. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  831.  
  832. * Da el precio de los adultos segun la cantidad que haya...
  833. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  834. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  835.  
  836. * Da el precio de los adultos mayores segun la cantidad que haya...
  837. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  838. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  839.  
  840. * Da el total a pagar entre los adultos y niños...
  841. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  842. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  843.  
  844. * Una decoración simple...
  845. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  846.  
  847. * Variable de cupon...
  848. C=space(1)
  849. CU=space(8)
  850. * Opciones. Cupones/Combos/Renta...
  851. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  852. @14,21 GET C
  853. read
  854. *AL DAR SI EN EL CUPON
  855.     IF UPPER (C)= "S"
  856.         @15,15 SAY "Ingrese cupón a usar:"
  857.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  858.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  859.         @16,15 GET CU
  860.         read       
  861.     ELSE
  862. ENDIF
  863. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  864. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  865. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  866.         DO CASE
  867.             CASE (respuesta) = 6
  868.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  869.                
  870.                 ACTIVATE WINDOWS COMIDA
  871.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  872.                
  873.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  874.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  875.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  876.                
  877.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  878.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  879.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  880.                
  881.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  882.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  883.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  884.              
  885.            
  886.             CASE UPPER (CU)= "FAMILIAR"
  887.                 TF=TA*0.35
  888.                 TAF=TA-TF
  889.            
  890.             CASE UPPER (CU)= "AMIGOS"
  891.                 TF=TA*0.1
  892.                 TAF=TA-TF
  893.         ENDCASE
  894.  
  895. * MENU PRODUCTOS
  896. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  897. read
  898.        
  899. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  900. PÑ = Ñ * 5.00
  901. PA = A * 10.00
  902. PAM = 0
  904. * Variable que suma los precios y da el total...
  905. TA = PÑ + PA + PAM
  906.  
  907. * Da el precio de los niños segun la cantidad que haya...
  908. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  909. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  910.  
  911. * Da el precio de los adultos segun la cantidad que haya...
  912. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  913. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  914.  
  915. * Da el precio de los adultos mayores segun la cantidad que haya...
  916. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  917. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  918.  
  919. * Da el total a pagar entre los adultos y niños...
  920. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  921. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  922.  
  923. * Una decoración simple...
  924. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  925.  
  926. * Variable de cupon...
  927. C=space(1)
  928. CU=space(8)
  929. * Opciones. Cupones/Combos/Renta...
  930. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  931. @14,21 GET C
  932. read
  933. *AL DAR SI EN EL CUPON
  934.     IF UPPER (C)= "S"
  935.         @15,15 SAY "Ingrese cupón a usar:"
  936.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  937.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  938.         @16,15 GET CU
  939.         read       
  940.     ELSE
  941. ENDIF
  942. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  943. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  944. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  945.         DO CASE
  946.             CASE (respuesta) = 6
  947.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  948.                
  949.                 ACTIVATE WINDOWS COMIDA
  950.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  951.                
  952.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  953.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  954.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  955.                
  956.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  957.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  958.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  959.                
  960.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  961.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  962.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  963.              
  964.            
  965.             CASE UPPER (CU)= "FAMILIAR"
  966.                 TF=TA*0.35
  967.                 TAF=TA-TF
  968.            
  969.             CASE UPPER (CU)= "AMIGOS"
  970.                 TF=TA*0.1
  971.                 TAF=TA-TF
  972.         ENDCASE
  973.  
  974. * MENU PRODUCTOS
  975. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  976. read
  977.        
  978. * Variable que suma los precios y da el total...
  979. TA = PÑ + PA + PAM
  981. * Da el precio de los niños segun la cantidad que haya...
  982. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  983. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  984.  
  985. * Da el precio de los adultos segun la cantidad que haya...
  986. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  987. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  988.  
  989. * Da el precio de los adultos mayores segun la cantidad que haya...
  990. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  991. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  992.  
  993. * Da el total a pagar entre los adultos y niños...
  994. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  995. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  996.  
  997. * Una decoración simple...
  998. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  999.  
  1000. * Variable de cupon...
  1001. C=space(1)
  1002. CU=space(8)
  1003. * Opciones. Cupones/Combos/Renta...
  1004. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1005. @14,21 GET C
  1006. read
  1007. *AL DAR SI EN EL CUPON
  1008.     IF UPPER (C)= "S"
  1009.         @15,15 SAY "Ingrese cupón a usar:"
  1010.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1011.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1012.         @16,15 GET CU
  1013.         read       
  1014.     ELSE
  1015. ENDIF
  1016. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1017. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1018. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1019.         DO CASE
  1020.             CASE (respuesta) = 6
  1021.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1022.                
  1023.                 ACTIVATE WINDOWS COMIDA
  1024.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1025.                
  1026.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1027.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1028.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1029.                
  1030.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1031.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1032.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1033.                
  1034.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1035.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1036.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1037.              
  1038.            
  1039.             CASE UPPER (CU)= "FAMILIAR"
  1040.                 TF=TA*0.35
  1041.                 TAF=TA-TF
  1042.            
  1043.             CASE UPPER (CU)= "AMIGOS"
  1044.                 TF=TA*0.1
  1045.                 TAF=TA-TF
  1046.         ENDCASE
  1047.  
  1048. * MENU PRODUCTOS
  1049. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1050. read
  1051.        
  1052. * Da el precio de los niños segun la cantidad que haya...
  1053. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  1054. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  1056. * Da el precio de los adultos segun la cantidad que haya...
  1057. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  1058. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  1059.  
  1060. * Da el precio de los adultos mayores segun la cantidad que haya...
  1061. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  1062. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  1063.  
  1064. * Da el total a pagar entre los adultos y niños...
  1065. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  1066. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  1067.  
  1068. * Una decoración simple...
  1069. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1070.  
  1071. * Variable de cupon...
  1072. C=space(1)
  1073. CU=space(8)
  1074. * Opciones. Cupones/Combos/Renta...
  1075. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1076. @14,21 GET C
  1077. read
  1078. *AL DAR SI EN EL CUPON
  1079.     IF UPPER (C)= "S"
  1080.         @15,15 SAY "Ingrese cupón a usar:"
  1081.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1082.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1083.         @16,15 GET CU
  1084.         read       
  1085.     ELSE
  1086. ENDIF
  1087. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1088. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1089. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1090.         DO CASE
  1091.             CASE (respuesta) = 6
  1092.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1093.                
  1094.                 ACTIVATE WINDOWS COMIDA
  1095.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1096.                
  1097.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1098.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1099.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1100.                
  1101.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1102.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1103.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1104.                
  1105.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1106.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1107.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1108.              
  1109.            
  1110.             CASE UPPER (CU)= "FAMILIAR"
  1111.                 TF=TA*0.35
  1112.                 TAF=TA-TF
  1113.            
  1114.             CASE UPPER (CU)= "AMIGOS"
  1115.                 TF=TA*0.1
  1116.                 TAF=TA-TF
  1117.         ENDCASE
  1118.  
  1119. * MENU PRODUCTOS
  1120. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1121. read
  1122.        
  1123. * Da el precio de los adultos segun la cantidad que haya...
  1124. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  1125. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  1127. * Da el precio de los adultos mayores segun la cantidad que haya...
  1128. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  1129. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  1130.  
  1131. * Da el total a pagar entre los adultos y niños...
  1132. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  1133. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  1134.  
  1135. * Una decoración simple...
  1136. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1137.  
  1138. * Variable de cupon...
  1139. C=space(1)
  1140. CU=space(8)
  1141. * Opciones. Cupones/Combos/Renta...
  1142. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1143. @14,21 GET C
  1144. read
  1145. *AL DAR SI EN EL CUPON
  1146.     IF UPPER (C)= "S"
  1147.         @15,15 SAY "Ingrese cupón a usar:"
  1148.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1149.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1150.         @16,15 GET CU
  1151.         read       
  1152.     ELSE
  1153. ENDIF
  1154. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1155. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1156. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1157.         DO CASE
  1158.             CASE (respuesta) = 6
  1159.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1160.                
  1161.                 ACTIVATE WINDOWS COMIDA
  1162.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1163.                
  1164.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1165.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1166.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1167.                
  1168.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1169.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1170.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1171.                
  1172.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1173.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1174.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1175.              
  1176.            
  1177.             CASE UPPER (CU)= "FAMILIAR"
  1178.                 TF=TA*0.35
  1179.                 TAF=TA-TF
  1180.            
  1181.             CASE UPPER (CU)= "AMIGOS"
  1182.                 TF=TA*0.1
  1183.                 TAF=TA-TF
  1184.         ENDCASE
  1185.  
  1186. * MENU PRODUCTOS
  1187. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1188. read
  1189.        
  1190. * Da el precio de los adultos mayores segun la cantidad que haya...
  1191. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  1192. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  1194. * Da el total a pagar entre los adultos y niños...
  1195. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  1196. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  1197.  
  1198. * Una decoración simple...
  1199. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1200.  
  1201. * Variable de cupon...
  1202. C=space(1)
  1203. CU=space(8)
  1204. * Opciones. Cupones/Combos/Renta...
  1205. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1206. @14,21 GET C
  1207. read
  1208. *AL DAR SI EN EL CUPON
  1209.     IF UPPER (C)= "S"
  1210.         @15,15 SAY "Ingrese cupón a usar:"
  1211.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1212.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1213.         @16,15 GET CU
  1214.         read       
  1215.     ELSE
  1216. ENDIF
  1217. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1218. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1219. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1220.         DO CASE
  1221.             CASE (respuesta) = 6
  1222.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1223.                
  1224.                 ACTIVATE WINDOWS COMIDA
  1225.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1226.                
  1227.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1228.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1229.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1230.                
  1231.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1232.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1233.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1234.                
  1235.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1236.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1237.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1238.              
  1239.            
  1240.             CASE UPPER (CU)= "FAMILIAR"
  1241.                 TF=TA*0.35
  1242.                 TAF=TA-TF
  1243.            
  1244.             CASE UPPER (CU)= "AMIGOS"
  1245.                 TF=TA*0.1
  1246.                 TAF=TA-TF
  1247.         ENDCASE
  1248.  
  1249. * MENU PRODUCTOS
  1250. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1251. read
  1252.        
  1253. * Da el total a pagar entre los adultos y niños...
  1254. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  1255. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  1257. * Una decoración simple...
  1258. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1259.  
  1260. * Variable de cupon...
  1261. C=space(1)
  1262. CU=space(8)
  1263. * Opciones. Cupones/Combos/Renta...
  1264. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1265. @14,21 GET C
  1266. read
  1267. *AL DAR SI EN EL CUPON
  1268.     IF UPPER (C)= "S"
  1269.         @15,15 SAY "Ingrese cupón a usar:"
  1270.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1271.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1272.         @16,15 GET CU
  1273.         read       
  1274.     ELSE
  1275. ENDIF
  1276. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1277. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1278. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1279.         DO CASE
  1280.             CASE (respuesta) = 6
  1281.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1282.                
  1283.                 ACTIVATE WINDOWS COMIDA
  1284.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1285.                
  1286.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1287.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1288.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1289.                
  1290.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1291.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1292.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1293.                
  1294.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1295.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1296.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1297.              
  1298.            
  1299.             CASE UPPER (CU)= "FAMILIAR"
  1300.                 TF=TA*0.35
  1301.                 TAF=TA-TF
  1302.            
  1303.             CASE UPPER (CU)= "AMIGOS"
  1304.                 TF=TA*0.1
  1305.                 TAF=TA-TF
  1306.         ENDCASE
  1307.  
  1308. * MENU PRODUCTOS
  1309. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1310. read
  1311.        
  1312. * Una decoración simple...
  1313. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1315. * Variable de cupon...
  1316. C=space(1)
  1317. CU=space(8)
  1318. * Opciones. Cupones/Combos/Renta...
  1319. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1320. @14,21 GET C
  1321. read
  1322. *AL DAR SI EN EL CUPON
  1323.     IF UPPER (C)= "S"
  1324.         @15,15 SAY "Ingrese cupón a usar:"
  1325.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1326.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1327.         @16,15 GET CU
  1328.         read       
  1329.     ELSE
  1330. ENDIF
  1331. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1332. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1333. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1334.         DO CASE
  1335.             CASE (respuesta) = 6
  1336.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1337.                
  1338.                 ACTIVATE WINDOWS COMIDA
  1339.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1340.                
  1341.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1342.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1343.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1344.                
  1345.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1346.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1347.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1348.                
  1349.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1350.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1351.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1352.              
  1353.            
  1354.             CASE UPPER (CU)= "FAMILIAR"
  1355.                 TF=TA*0.35
  1356.                 TAF=TA-TF
  1357.            
  1358.             CASE UPPER (CU)= "AMIGOS"
  1359.                 TF=TA*0.1
  1360.                 TAF=TA-TF
  1361.         ENDCASE
  1362.  
  1363. * MENU PRODUCTOS
  1364. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1365. read
  1366.        
  1367. * Variable de cupon...
  1368. C=space(1)
  1369. CU=space(8)
  1370. * Opciones. Cupones/Combos/Renta...
  1371. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1372. @14,21 GET C
  1373. read
  1374. *AL DAR SI EN EL CUPON
  1375.     IF UPPER (C)= "S"
  1376.         @15,15 SAY "Ingrese cupón a usar:"
  1377.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1378.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1379.         @16,15 GET CU
  1380.         read       
  1381.     ELSE
  1382. ENDIF
  1383. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1384. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1385. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1386.         DO CASE
  1387.             CASE (respuesta) = 6
  1388.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1389.                
  1390.                 ACTIVATE WINDOWS COMIDA
  1391.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1392.                
  1393.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1394.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1395.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1396.                
  1397.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1398.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1399.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1400.                
  1401.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1402.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1403.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1404.              
  1405.            
  1406.             CASE UPPER (CU)= "FAMILIAR"
  1407.                 TF=TA*0.35
  1408.                 TAF=TA-TF
  1409.            
  1410.             CASE UPPER (CU)= "AMIGOS"
  1411.                 TF=TA*0.1
  1412.                 TAF=TA-TF
  1413.         ENDCASE
  1414.  
  1415. * MENU PRODUCTOS
  1416. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1417. read
  1418.        
  1419. * Opciones. Cupones/Combos/Renta...
  1420. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1421. @14,21 GET C
  1422. read
  1423. *AL DAR SI EN EL CUPON
  1424.     IF UPPER (C)= "S"
  1425.         @15,15 SAY "Ingrese cupón a usar:"
  1426.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1427.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1428.         @16,15 GET CU
  1429.         read       
  1430.     ELSE
  1431. ENDIF
  1432. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1433. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1434. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1435.         DO CASE
  1436.             CASE (respuesta) = 6
  1437.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1438.                
  1439.                 ACTIVATE WINDOWS COMIDA
  1440.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1441.                
  1442.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1443.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1444.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1445.                
  1446.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1447.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1448.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1449.                
  1450.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1451.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1452.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1453.              
  1454.            
  1455.             CASE UPPER (CU)= "FAMILIAR"
  1456.                 TF=TA*0.35
  1457.                 TAF=TA-TF
  1458.            
  1459.             CASE UPPER (CU)= "AMIGOS"
  1460.                 TF=TA*0.1
  1461.                 TAF=TA-TF
  1462.         ENDCASE
  1463.  
  1464. * MENU PRODUCTOS
  1465. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1466. read
  1467.        
  1468. *AL DAR SI EN EL CUPON
  1469.     IF UPPER (C)= "S"
  1470.         @15,15 SAY "Ingrese cupón a usar:"
  1471.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1472.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1473.         @16,15 GET CU
  1474.         read       
  1475.     ELSE
  1476. ENDIF
  1477. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1478. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1479. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1480.         DO CASE
  1481.             CASE (respuesta) = 6
  1482.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1483.                
  1484.                 ACTIVATE WINDOWS COMIDA
  1485.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1486.                
  1487.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1488.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1489.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1490.                
  1491.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1492.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1493.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1494.                
  1495.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1496.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1497.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1498.              
  1499.            
  1500.             CASE UPPER (CU)= "FAMILIAR"
  1501.                 TF=TA*0.35
  1502.                 TAF=TA-TF
  1503.            
  1504.             CASE UPPER (CU)= "AMIGOS"
  1505.                 TF=TA*0.1
  1506.                 TAF=TA-TF
  1507.         ENDCASE
  1508.  
  1509. * MENU PRODUCTOS
  1510. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1511. read
  1512.        
  1513. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1514. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1515. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1516.         DO CASE
  1517.             CASE (respuesta) = 6
  1518.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1519.                
  1520.                 ACTIVATE WINDOWS COMIDA
  1521.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1522.                
  1523.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1524.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1525.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1526.                
  1527.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1528.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1529.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1530.                
  1531.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1532.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1533.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1534.              
  1535.            
  1536.             CASE UPPER (CU)= "FAMILIAR"
  1537.                 TF=TA*0.35
  1538.                 TAF=TA-TF
  1539.            
  1540.             CASE UPPER (CU)= "AMIGOS"
  1541.                 TF=TA*0.1
  1542.                 TAF=TA-TF
  1543.         ENDCASE
  1545. * MENU PRODUCTOS
  1546. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1547. read
  1548.        
  1549. * MENU PRODUCTOS
  1550. @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1551. read
  1552.                
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!