Jump to content

Arresembasaitus

Miembros
  • Content Count

    498
  • Joined

  • Last visited

Everything posted by Arresembasaitus

  1. [quote name='Cortes' date='11 05 2006, 08:32' post='820885' Por otra parte, es normal que no quiera la mujer esta 8 carriles de circulacion de trafico justo en la acera de acceso de su museo, por el del Prado no habria ninguno. ¿8 carriles? ¿su museo? ¿por el del Prado no habria ninguno? Cortés, me parece que en ese párrafo hay muchas erratas. Saludos
  2. Felicidades SEVILLA, sevillanos y sevillistas. NO8DO Enhorabuena. Espero y deseo que el próximo miércoles el otro equipo español consiga la victoria igualmente.
  3. Alucinad viendo precios en segundamano. Me han pedido 24.000€ por una plaza "techada con uralita" en un barrio de Madrid. Por esa zona no bajan de 100€ al mes para un coche como el A3. Suerte sufridores, por cierto estos meses hay que hacer la declaración, por si creéis que vais sobrados. S2
  4. PERFORM 1000-INICIO. THRU 1000-INICIO-EXIT. PERFORM 3000-FERIA THRU 3000-FERIA-EXIT PERFORM 8000-FIN. THRU 8000-FIN-EXIT. 1000-INICIO. SET SI-DINERO TO TRUE SET INICIO-FIESTA TO TRUE MOVE 0 TO WS-TOT-FINOS MOVE 15000 TO WS-DINERO MOVE 15:00 TO WS-HORA. 1000-INICIO-EXIT. EXIT. 3000-FERIA. PERFORM 3100-TOMAR-REBUJITOS THRU 3100-TOMAR-REBUJITOS-EXIT UNTIL NO-DINERO OR FIN-FIESTA. 3000-FERIA-EXIT. EXIT. 3100-TOMAR-REBUJITOS. PERFORM 3110-SELECT-CASETA THRU 3110-SELECT-CASETA-EXIT PERFORM 3120-INSERT-TODO THRU 3120-INSERT-TODO-EXIT ADD WS-TOT-FINOS = WS-TOT-FINOS + T111-REBUJITOS ADD 1:00 TO WS-HORA COMPUTE WS-DINERO = WS-DINERO - T111-PRECIO IF WS-TOT-FINOS > 10 PERFORM 3200-DELETE-TODO THRU 3200-DELETE-TODO-EXIT MOVE 0 TO WS-TOT-FINOS END-IF. IF WS-DINERO < 0 SET NO-DINERO TO TRUE END-IF IF WS-HORA >= 7:00 SET FIN-FIESTA TO TRUE END-IF. 3100-TOMAR-REBUJITOS-EXIT. EXIT. 8000-FIN. EVALUATE TRUE WHEN NO-DINERO ALSO FIN-FIESTA GOTO ANDANDO-AL-TRABAJO WHEN SI-DINERO ALSO FIN-FIESTA GOTO TAXI-TRABAJO WHEN NO-DINERO ALSO INICIO-FIESTA GOTO ANDANDO-A-CASA WHEN SI-DINERO ALSO FIN-FIESTA GOTO CHURROS END-EVALUATE. STOP RUN. 8000-FIN-EXIT. EXIT. 3110-SELECT-CASETA. EXEC SQL SELECT :T111-REBUJITOS, :T111-BOTELLA-FINO, :T111-TAPA-CHORIZO, :T111-TAPA-QUESO, :T111-TAPA-CALAMARES, :T111-TAPA-JAMON FROM T1CASETA WHERE CASETA = 'ACCESO LIBRE' END-EXEC. IF SQLCODE = 100 SET FIN-FIESTA TO TRUE GOTO 8000-FIN END-IF. 3110-SELECT-CASETA-EXIT. EXIT. 3120-INSERT-TODO. MOVE T111-REBUJITOS TO WS-BEBIDA-1 MOVE T111-BOTELLA-FINO TO WS-BEBIDA-2 MOVE T111-TAPA-CHORIZO TO WS-COMIDA-1 MOVE T111-TAPA-QUESO TO WS-COMIDA-2 MOVE T111-TAPA-CALAMARES TO WS-COMIDA-3 MOVE T111-TAPA-JAMON TO WS-COMIDA-4 MOVE WS-BEBIDA-COMIDA TO T112-ESTOMAGO EXEC SQL INSERT INTO T1TRIPA (ESTOMAGO) VALUES (:T112-ESTOMAGO) END-EXEC. IF SQLCODE NOT = ZEROES GOTO URGENCIAS END-IF. 3120-INSERT-TODO-EXIT. EXIT. 3200-DELETE-TODO. EXEC SQL DELETE * FROM T1TRIPA END-EXEC. IF SQLCODE NOT = ZEROES GOTO URGENCIAS END-IF. 3200-DELETE-TODO-EXIT. EXIT.
  5. Los hay con suerte Perdón si es repost :clap1: Cruzar semáforo
  6. Gracias, por el enlace y la info, reconozco que me ha gustado la música italiana, y además me trae buenos recuerdos de los "guateques" :clap1:
  7. DUDA RAZONABLE: Si mi médico me extirpa un testículo y me encarga una prótesis de Alemania... ¿puedo decir que "Mi médico me importa un huevo"?
  8. ¿guapo? EEEEINNCCHHHH!!! más bien que no.
  9. Si te gusta el fútbol honrar en la despedida a un buen jugador no cuesta seas del equipo que seas y más cuando ha sido uno de los mejores y ha tenido clase dentro del campo. Yo podré decirle a mis nietos y a sus amigos q le vi jugar y sobre todo cuando ocurrió esto :drool: Larga vida al Rey !! :drool: Aún se me ponen los pelos de punta solo de recordarlo, que golazo.
  10. Arresembasaitus

    Pajares y

    ¿quien se acuerda de AL ESTE DEL OESTE y del indio llamado BLACK&DEKER?
  11. ¡¡¡¡¡AAAAAAARRRRRRRRRRGGGGGGGGGGHHHHHHHHHHHHHH!!!!!! Pensé que era otro post de política.
  12. Frases del Doctor House Las frases del borde de moda en la Cuatro. ¿son los médicos tan bordes? Vilches (Hospital Central), Romano (Urgencias), House (House)....
  13. Me gusta el morrito de "piñon" de mi A3-II v1 :drool:
  14. Para allá que han ido los 30€. Venga animaros .......... que 30€ no es nada .................. s2
  15. Otro más que acaba de rellenar el formulario. Un abrazo a todos.
  16. La más bonita para mí y de las primeras que se pronuncian, por el calor, ternura, amor desinteresado y verdadero ........................................... MAMÁ. Todo lo viene después de ella ya no es tan auténtico ni sentido, muchas cosas son solo espejismos. Saludos :clap1:
  17. Vaya a otro que parece le gusta CAMARA CAFÉ. Bernardo: Recorcholis , leches Maricarmen (por la Cañizares)
  18. Venga, seguro que todo va bien. Un besote.
  19. ¿Os acordaís de los batacazos que dabamos al pingüino? Bueno pues, no es rencoroso, sino todo lo contrario. Mirad como nos saluda... Pingüino saludando a ASI Un saludo para tod@s
  20. :drool: Muy bueno, al principio había picado, pero luego me he reido un rato. S2
  21. Y otro más que ha ............................. picado.
  22. :clap1: :clap1: ¡¡¡eskerrik asko!!! GRACIAS
  23. No he podido evitar el poner este link a ECD - Italia rie con ZP <_< :clap1: :clap1:
×
×
  • Create New...

Important Information

Utilizamos cookies para asegurar que damos la mejor experiencia al usuario en nuestro sitio web (personalizar anuncios, ofrecer funciones de redes sociales y analizar el tráfico). Compartimos esa información con nuestros partners. Privacy Policy.