home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / MACARENA.ONU < prev    next >
Text File  |  1998-03-02  |  6KB  |  162 lines
  1. ;;               ┌─────────────────────────────────────────┐
  2. ;;               │    Programa Macarena,  basado en el     │
  3. ;;               │     baile de la popular canción de      │
  4. ;;               │ Macarena, donde se ven todos sus pasos, │
  5. ;;               │    por Miguel Angel Morano Domínguez    │
  6. ;;               └─────────────────────────────────────────┘
  7.  
  8. Principio
  9.   color (blanco,azul)
  10.   borra
  11.   OcultarCursor
  12.   posiciona (36,3);escribe('MACARENA')
  13.   posiciona (35,4);escribe('▀▀▀▀▀▀▀▀▀▀')
  14.   posiciona (35,10);escribe('<)     (>')
  15.   posiciona (26,14);escribe('  ▄▄▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▄▄')
  16.   posiciona (26,15);escribe('▀▀                        ▀▀')
  17.   color (blanco,rojo)
  18.   marco ('─',14,16,66,21)
  19.   color (rojoclaro,rojo)
  20.   posiciona (16,17);escribe ('      Darle a tu cuerpo alegría Macarena,        ')
  21.   posiciona (16,18);escribe ('que tu cuerpo es pa darle alegría y cosas buenas,')
  22.   posiciona (16,19);escribe ('      darle a tu cuerpo alegría Macarena,        ')
  23.   posiciona (16,20);escribe ('                ehhh Macarena...                 ')
  24.   color (blanco,azul)
  25.   posiciona (30,11);escribe ('  o  ')
  26.   posiciona (30,12);escribe (' .|\ ')
  27.   posiciona (30,13);escribe ('  |  ')
  28.   espera (1000)
  29.   posiciona (30,11);escribe ('    o  ')
  30.   posiciona (30,12);escribe ('   /|. ')
  31.   posiciona (30,13);escribe ('    |\ ')
  32.   espera (1000)
  33.   posiciona (30,11);escribe ('      o  ')
  34.   posiciona (30,12);escribe ('     .|\ ')
  35.   posiciona (30,13);escribe ('      |  ')
  36.   espera (1000)
  37.   posiciona (30,11);escribe ('       o  ')
  38.   posiciona (30,12);escribe ('      /|. ')
  39.   posiciona (30,13);escribe ('       |\ ')
  40.   espera (1000)
  41.   posiciona (30,11);escribe ('         o  ')
  42.   posiciona (30,12);escribe ('        .|\ ')
  43.   posiciona (30,13);escribe ('         |  ')
  44.   espera (1000)
  45.   color (negro,blanco)
  46.   posiciona (37,11);escribe ('  o  ')
  47.   posiciona (37,12);escribe (' .|. ')
  48.   posiciona (37,13);escribe (' / \ ')
  49.   color (blanco,rojo)
  50.   posiciona (22,17);escribe ('Darle')
  51.   espera (2000)
  52.   color (negro,blanco)
  53.   posiciona (37,11);escribe ('  o  ')
  54.   posiciona (37,12);escribe (' \|. ')
  55.   posiciona (37,13);escribe ('  >\ ')
  56.   color (blanco,rojo)
  57.   posiciona (28,17);escribe ('a tu cuerpo')
  58.   espera (2000)
  59.   color (negro,blanco)
  60.   posiciona (37,11);escribe ('  o  ')
  61.   posiciona (37,12);escribe (' \|/ ')
  62.   posiciona (37,13);escribe (' /<  ')
  63.   color (blanco,rojo)
  64.   posiciona (40,17);escribe ('alegría')
  65.   espera (2000)
  66.   color (negro,blanco)
  67.   posiciona (37,11);escribe ('  o  ')
  68.   posiciona (37,12);escribe (' / / ')
  69.   posiciona (37,13);escribe ('  >\ ')
  70.   color (blanco,rojo)
  71.   posiciona (48,17);escribe ('Macarena,')
  72.   espera (2000)
  73.   color (negro,blanco)
  74.   posiciona (37,11);escribe ('  o  ')
  75.   posiciona (37,12);escribe (' / \ ')
  76.   posiciona (37,13);escribe ('  >\ ')
  77.   color (blanco,rojo)
  78.   posiciona (16,18);escribe ('que tu cuerpo')
  79.   espera (2000)
  80.   color (negro,blanco)
  81.   posiciona (37,11);escribe ('  o  ')
  82.   posiciona (37,12);escribe (' /\  ')
  83.   posiciona (37,13);escribe ('  >\ ')
  84.   color (blanco,rojo)
  85.   posiciona (30,18);escribe ('es pa darle')
  86.   espera (2000)
  87.   color (negro,blanco)
  88.   posiciona (37,11);escribe ('  o  ')
  89.   posiciona (37,12);escribe ('  X  ')
  90.   posiciona (37,13);escribe (' /<  ')
  91.   color (blanco,rojo)
  92.   posiciona (42,18);escribe ('alegría')
  93.   espera (2000)
  94.   color (negro,blanco)
  95.   posiciona (37,11);escribe (' <o  ')
  96.   posiciona (37,12);escribe ('  \  ')
  97.   posiciona (37,13);escribe ('  >\ ')
  98.   color (blanco,rojo)
  99.   posiciona (50,18);escribe ('y cosas buenas,')
  100.   espera (2000)
  101.   color (negro,blanco)
  102.   posiciona (37,11);escribe (' <o> ')
  103.   posiciona (37,12);escribe ('  |  ')
  104.   posiciona (37,13);escribe (' /<  ')
  105.   color (blanco,rojo)
  106.   posiciona (22,19);escribe ('darle')
  107.   espera (2000)
  108.   color (negro,blanco)
  109.   posiciona (37,11);escribe ('  o> ')
  110.   posiciona (37,12);escribe (' <|  ')
  111.   posiciona (37,13);escribe ('  >\ ')
  112.   color (blanco,rojo)
  113.   posiciona (28,19);escribe ('a tu cuerpo')
  114.   espera (2000)
  115.   color (negro,blanco)
  116.   posiciona (37,11);escribe ('  o  ')
  117.   posiciona (37,12);escribe (' <|> ')
  118.   posiciona (37,13);escribe (' /<  ')
  119.   color (blanco,rojo)
  120.   posiciona (40,19);escribe ('alegría')
  121.   espera (2000)
  122.   color (negro,blanco)
  123.   posiciona (37,11);escribe ('  o  ')
  124.   posiciona (37,12);escribe (' <|> ')
  125.   posiciona (37,13);escribe (' < > ')
  126.   color (blanco,rojo)
  127.   posiciona (48,19);escribe ('Macarena,')
  128.   espera (2000)
  129.   color (negro,blanco)
  130.   posiciona (37,11);escribe ('  o  ')
  131.   posiciona (37,12);escribe (' <|> ')
  132.   posiciona (37,13);escribe (' / \ ')
  133.   color (blanco,rojo)
  134.   posiciona (32,20);escribe ('ehhh')
  135.   espera (2500)
  136.   posiciona (37,20);escribe ('Macarena...')
  137.   espera (2000)
  138.   color (blanco,azul)
  139.   posiciona (37,11);escribe ('  o  ')
  140.   posiciona (37,12);escribe (' .|\ ')
  141.   posiciona (37,13);escribe ('  |  ')
  142.   espera (1000)
  143.   posiciona (37,11);escribe ('    o  ')
  144.   posiciona (37,12);escribe ('   /|. ')
  145.   posiciona (37,13);escribe ('    |\ ')
  146.   espera (1000)
  147.   posiciona (37,11);escribe ('      o  ')
  148.   posiciona (37,12);escribe ('     .|\ ')
  149.   posiciona (37,13);escribe ('      |  ')
  150.   espera (1000)
  151.   posiciona (37,11);escribe ('       o  ')
  152.   posiciona (37,12);escribe ('      /|. ')
  153.   posiciona (37,13);escribe ('       |\ ')
  154.   espera (1000)
  155.   posiciona (37,11);escribe ('         o  ')
  156.   posiciona (37,12);escribe ('        .|\ ')
  157.   posiciona (37,13);escribe ('         |  ')
  158.   espera (1000)
  159.   color (gris,negro)
  160.   MostrarCursor
  161.   borra
  162.