home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / MEXICANO.ONU < prev    next >
Text File  |  1998-03-02  |  3KB  |  113 lines
  1. ;;                   ┌───────────────────────────────────┐
  2. ;;                   │   Programa Mexicano, basado en    │
  3. ;;                   │      un restaurante mexicano      │
  4. ;;                   │ por Miguel Angel Morano Domínguez │
  5. ;;                   └───────────────────────────────────┘
  6.  
  7. Variables
  8.  
  9.   opcion,t,ef,m,f,yo,d,x: entero
  10.  
  11. Principio
  12.  
  13.   color (blanco,azul)
  14.   opcion:=1
  15.   mientras (opcion<>0) hacer
  16.     opcion:=1
  17.     borra
  18.     color (amarillo,azul)
  19.     posiciona(30,2); escribeln ('RESTAURANTE EL MEXICANO')
  20.     posiciona(29,3); escribeln ('▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀')
  21.     color(amarillo,negro)
  22.     marco('─',50,8,76,11)
  23.     posiciona (53,9); Hora
  24.     posiciona (53,10); Fecha
  25.     m:=0
  26.     d:=0
  27.     color (negro,negro)
  28.     marco (' ',52,14,78,23)
  29.     color (blanco,rojo)
  30.     marco('═',50,13,76,22)
  31.     Posiciona (58,14); escribeln ('* M E N U *')
  32.     Posiciona (52,16); escribeln ('1-TACO SPEEDY GONZALEZ')
  33.     Posiciona (52,17); escribeln ('2-ENSALADA YA TA')
  34.     Posiciona (52,18); escribeln ('3-BURRITO')
  35.     Posiciona (52,19); escribeln ('4-ENCHILADA ROJA')
  36.     Posiciona (52,20); escribeln ('5-TOTAL A PAGAR')
  37.     Posiciona (52,21); escribeln ('0-SALIR DEL PROGRAMA')
  38.     color (blanco,azul)
  39.     x:=2
  40.     mientras (opcion<>5) hacer
  41.       color (blanco,rojo)
  42.       marco ('═',5,4,17,6)
  43.       Posiciona (7,5)
  44.       opcion:=0
  45.       escribe ('Opcion: ');AceptaEntero (opcion,1)
  46.       x:=x+2
  47.       color (blanco,azul)
  48.       si (opcion>5) O (opcion<0) entonces
  49.         posiciona (55,5);escribeln ('ERROR                    ')
  50.         sonido (1000)
  51.         espera (1000)
  52.         finsonido
  53.       finsi
  54.       si (opcion=1) entonces
  55.         t:=575
  56.       finsi
  57.       si (opcion=2) entonces
  58.         t:=725
  59.       finsi
  60.       si (opcion=3) entonces
  61.         t:=450
  62.       finsi
  63.       si (opcion=4) entonces
  64.         t:=450
  65.       finsi
  66.       si (opcion=5) entonces
  67.         sonido (500)
  68.         espera (500)
  69.         finsonido
  70.         t:=0
  71.       finsi
  72.       si (opcion=0) entonces
  73.         color (gris,negro)
  74.         borra        
  75.         salir
  76.       finsi
  77.       si (opcion>5) entonces
  78.         t:=0
  79.       finsi
  80.       m:=m+t
  81.       si (opcion=1) o (opcion=2) o (opcion=3) o (opcion=4) entonces
  82.         posiciona (55,5); escribeln ('PRECIO: ',t, ' pesetas  ')
  83.         posiciona (55,6); escribeln ('TOTAL: ',m, ' pesetas')
  84.       finsi
  85.       si (opcion=5) entonces
  86.         marco ('═',50,4,76,6)
  87.         posiciona (55,5); escribeln ('TOTAL: ',m , ' pesetas')
  88.       finsi
  89.     finmientras
  90.     escribeln ('   ')
  91.     escribeln ('   ')
  92.     EF:=1
  93.     mientras (EF<M) o (EF<YO) hacer
  94.       marco ('─',5,10,25,12)
  95.       posiciona (8,11);escribe ('EFECTIVO: ')
  96.       ef:=0
  97.       AceptaEntero (ef,6)
  98.       d:=ef-m
  99.       si (ef<m) entonces
  100.         posiciona (7,14);escribeln ('¡¡¡FALTA DINERO!!!')
  101.         yo:=m-ef
  102.         posiciona (6,15);escribeln ('FALTAN...',yo, ' pesetas')
  103.       finsi
  104.     finmientras
  105.     si (ef>=m) entonces
  106.       marco('═',5,14,35,16)
  107.       color(amarillo,azul)
  108.       posiciona (8,15);escribeln ('DEVOLUCION: ', d, ' pesetas')
  109.     finsi
  110.     posiciona (17,22);escribe ('(Pulse una tecla)')
  111.     Aceptatecla
  112.   finmientras
  113.