-
Mensajes
498 -
Ingresó
-
Última visita
Tipo de contenido
Perfiles
Foros
Calendario
Tienda
Mensajes publicados por Arresembasaitus
-
-
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.
-
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
-
Mala leche que tenéis
-
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.
-
-
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:
-
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"?
-
-
Pues si. Ha sido todo un lujo ver jugar a este tipo, aunque fuese en el Madrid. Seguramente haya habido jugadores mas determinantes, con mas calidad, con mas coraje...pero dificilmente con mas clase. Creo que esa es la palabra que lo define, clase. Con el el futbol parecia una cosa limpia, como de sala de baile. Sin duda es una noticia triste, pero a todos les llega la hora de decir adios, y a el le honra saber hacerlo, eligiendo cuando y donde, renunciando ademas a un año de contrato millonario. Cualquier otro habria esperado a q lo echen.
Un :drool: para el de un cule hasta las cejas que no deja de reconocer los meritos de este frances genial.
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.
-
-
-
Las frases del borde de moda en la Cuatro.
¿son los médicos tan bordes? Vilches (Hospital Central), Romano (Urgencias), House (House)....
-
Me gusta el morrito de "piñon" de mi A3-II v1 :drool:
-
Para allá que han ido los 30€.
Venga animaros .......... que 30€ no es nada ..................
s2
-
Otro más que acaba de rellenar el formulario.
Un abrazo a todos.
-
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:
-
recorcholis
Vaya a otro que parece le gusta CAMARA CAFÉ.
Bernardo: Recorcholis , leches Maricarmen (por la Cañizares)
-
Venga, seguro que todo va bien.
Un besote.
-
¿Os acordaís de los batacazos que dabamos al pingüino?
Bueno pues, no es rencoroso, sino todo lo contrario.
Mirad como nos saluda...
Un saludo para tod@s
-
:drool:
Muy bueno, al principio había picado, pero luego me he reido un rato.
S2
-
Y otro más que ha ............................. picado.
-
:clap1: :clap1:
¡¡¡eskerrik asko!!!
GRACIAS
-
No he podido evitar el poner este link a ECD - Italia rie con ZP
<_< :clap1: :clap1:
-
¡¡¡¡¡Enhorabuena!!!!!
de parte de la familia Arresembasaitus
Besos para Pablo y que tu mujer se recupere pronto.
Un abrazo al padrazo :clap1: que eres.
FELICIDADES SEVILLA
en OFF TOPIC
Publicado
Todavía estoy llorando