home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / EFECTO.ONU < prev    next >
Text File  |  1998-03-02  |  1KB  |  50 lines
  1. ;;                  ┌─────────────────────────────────────┐
  2. ;;                  │          Programa Efecto,           │
  3. ;;                  │      basado en la presentación      │
  4. ;;                  │       de colores en pantalla,       │
  5. ;;                  │  por Miguel Angel Morano Domínguez  │
  6. ;;                  └─────────────────────────────────────┘
  7.  
  8. Variables
  9.   i,c: entero
  10.  
  11. Principio
  12.  
  13.   i:=1
  14.   c:=1
  15.  
  16.   Mientras no teclapulsada hacer
  17.  
  18.     Mientras (i<=24) y no teclapulsada hacer
  19.  
  20.       Mientras (c<=79) y no teclapulsada hacer
  21.          Color (1+i,1+i)
  22.          Posiciona (c,i)
  23.          Escribe (' ')
  24.          Espera (10)
  25.          c:=c+1
  26.       Finmientras
  27.  
  28.       i:=i+1
  29.       c:=1
  30.  
  31.     Finmientras
  32.  
  33.     Color (negro,negro)
  34.  
  35.     Mientras (i>=1) y no teclapulsada hacer
  36.  
  37.       Mientras (c>=1) hacer
  38.          Posiciona (c,i)
  39.          Escribe (' ')
  40.          Espera (10)
  41.          c:=c-1
  42.       Finmientras
  43.  
  44.       c:=79
  45.       i:=i-1
  46.  
  47.     Finmientras
  48.  
  49.   Finmientras
  50.