home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / COLORES.ONU < prev    next >
Text File  |  1998-03-02  |  3KB  |  64 lines
  1. ;;                  ┌─────────────────────────────────────┐
  2. ;;                  │    Programa Colores, basado en      │
  3. ;;                  │    la combinación de colores de     │
  4. ;;                  │     texto y fondo en pantalla,      │
  5. ;;                  │  por Miguel Angel Morano Domínguez  │
  6. ;;                  └─────────────────────────────────────┘
  7.  
  8. Variables
  9.   te,fo:entero
  10.  
  11. Principio
  12.   te:=1
  13.   fo:=15
  14.   mientras (te<>0) o (fo<>0) hacer
  15.     color (blanco,negro)
  16.     borra
  17.     posiciona (32,2);escribeln ('USOS DE COLORES')
  18.     posiciona (31,3);escribeln ('▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀')
  19.     color (blanco,rojo)
  20.     marco ('═',55,5,79,22)
  21.     posiciona (57,6); escribeln ('   0 -> Negro')
  22.     posiciona (57,7); escribeln ('   1 -> Azul')
  23.     posiciona (57,8); escribeln ('   2 -> Verde') 
  24.     posiciona (57,9); escribeln ('   3 -> Celeste') 
  25.     posiciona (57,10); escribeln ('   4 -> Rojo')
  26.     posiciona (57,11); escribeln ('   5 -> Rosa')
  27.     posiciona (57,12); escribeln ('   6 -> Marrón') 
  28.     posiciona (57,13); escribeln ('   7 -> Gris')
  29.     posiciona (57,14); escribeln ('   8 -> Gris oscuro')
  30.     posiciona (57,15); escribeln ('   9 -> Azul claro')
  31.     posiciona (57,16); escribeln ('  10 -> Verde claro') 
  32.     posiciona (57,17); escribeln ('  11 -> Celeste claro') 
  33.     posiciona (57,18); escribeln ('  12 -> Rojo claro')
  34.     posiciona (57,19); escribeln ('  13 -> Rosa claro')
  35.     posiciona (57,20); escribeln ('  14 -> Amarillo')
  36.     posiciona (57,21); escribeln ('  15 -> Blanco')
  37.     posiciona (57,21); escribeln ('+128 -> Parpadeante')
  38.     color (blanco,azul)
  39.     marco ('─',3,5,34,8)
  40.     posiciona (5,6); escribe ('Número para color texto: ')
  41.     posiciona (5,7); escribe ('Número para color fondo: ')
  42.     color (te,fo)
  43.     posiciona (9,10);escribeln ('                                    ')
  44.     posiciona (9,11);escribeln ('          Onupro ver. 1.0           ')
  45.     posiciona (9,12);escribeln ('                                    ')
  46.     posiciona (9,13);escribeln ('   Onupro es un programa diseñado   ')
  47.     posiciona (9,14);escribeln ('      para poder programar en       ')
  48.     posiciona (9,15);escribeln ('           pseudocódigo.            ')
  49.     posiciona (9,16);escribeln ('  Esta forma de programar facilita  ')
  50.     posiciona (9,17);escribeln ('    la tarea y le será mucho más    ')
  51.     posiciona (9,18);escribeln ('    cómodo realizar sus propios     ')
  52.     posiciona (9,19);escribeln ('            programas.              ')
  53.     posiciona (9,20);escribeln ('                                    ')
  54.     color (celeste,negro)
  55.     posiciona (7,22);escribeln ('(Para salir combinar texto 0 con fondo 0)')
  56.     color (blanco,azul)
  57.     te:=0
  58.     fo:=0
  59.     posiciona (30,6);AceptaEntero (te,3)
  60.     posiciona (30,7);AceptaEntero (fo,3)
  61.   finmientras
  62.   color (gris,negro)
  63.   borra
  64.