DATOS DE LA RUTA

HORA DE SALIDA: 08:37
HORA DE LLEGADA: 12:44
TIEMPO DE PEDALEO: 02:47
TIEMPO TOTAL EMPLEADO: 04:7
DISTANCIA RECORRIDA: 42.0 Kms.
TEMPERATURA MEDIA: 15.0 ºC ( mín.: 9.0 ºC máx.: 17.0 ºC ).
SENTIDO DE REALIZACIÓN: habitual

OBSERVACIONES: Ruta conjunta. Se decidió acortar la ruta debido al mal tiempo: el grupo subió a la Majada el Espino, mientras que cuatro ciclistas decidieron no subir y continuar por la pista de vuelta (David V., Hugo, Juan y Víctor). En la presa del Burguillo Hugo, con pérdida de líquido en su tube-less, decidió volver sólo al Tiemblo por carretera. Alejandro tuvo dos caídas tontas en el sendero final del Charco del Cura, ambas sin consecuencias.

⇒Ver descripción de la ruta realizada
⇒ Ver mapa del recorrido realizado
⇒ Ver perfil del recorrido realizado
⇒Ver informe IBP
⇒Descargar track de GPS
⇒Ver comentarios y valoraciones en el Blog

VIDEOS DE LA RUTA: (2)

ASISTENTES: (30)

Adolfo Alejandro Benito Alfonso Alvaro Carlos (Chais) Chemi David Pichi David Verdes Emilio Flu Hugo Aguirreche Javi Ignacio Javi Sánchez Javier Rosado Jesús (Jilguero) Jesús Antonio José (Serafín) José Luis González José Luis Méndez José Sánchez Juan Juanjo (Navas) Marcos Maxi Miguel (Molón) Paco (Emeterio) Pedro Esteban Ramses Víctor Wulli Marciano

caídas en la ruta: (2)

pinchazos en la ruta: (3)

averías en la ruta: (0)

IDENTIFICATION DIVISION.

      PROGRAM-ID. "Cronica El Tiemblo 2015".
      AUTHOR. Emilio.
      DATE-WRITTEN. 11/OCT/2015
      DATE-COMPILED. 12/OCT/2015
      COMMENTS "Lamento mucho los que no os defendáis con el puñetero inglés,   "
      COMMENTS " pero la otra idea de crónica que tenía, creedme, que era       "
      COMMENTS " sencillamente peor aun de leer. Pero reconocer que si solo     "
      COMMENTS " leéis los comentarios en verde os enteráis de lo mismo y apenas"
      COMMENTS " perdéis el tiempo y así podéis hacer algo útil después.        "

      PRINT "Un saludo MUY fuerte a todos los Naveros, al resto ya les daré una colleja el próximo Domingo"

ENVIRONMENT DIVISION.

      CONFIGURATION SECTION.
      SOURCE IS "El Tiemblo".
      ALTURA IS 689 METROS
      X IS 372.600
      Y IS 4.475.000
      WEATHER IS "Lluvioso que te cagas".
      DISTANCE "A trasmano"

      SPECIAL-NAMES.
      *alcalde_cdc* IS VICTOR_DE_PABLO.
      *alcalde_ndm*  IS MAXI.
      *pendiente_alta* IS "¡¡ Victor Cabrón !!".

      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
      SELECT *naveros* FROM LOCATION( "Las Navas del Marques").
      SELECT *camperos* FROM LOCATION ( "Club de Campo" ).
      SELECT *ciclistas_todos* FROM LOCATION( "Las Navas del Marques") UNION LOCATION ( "Club de Campo" ).
      ACCESS MODE IS SEQUENTIAL  /* Solo en senderos */
      ACCESS MODE IS PARALLEL    /* Pistas anchas */
      SELECT *variantes* FROM FILE( "C:/MENTE-PERVERSA_ALCALDE_CDC.CSV"  ).
      FILE STATUS IS "Cercano al Aberrocho por lluvia"

DATA DIVISION.

      FILE SECTION.
      FD GPS_VARIOS RECORDING MODE IS ON.
         BLOCK CONTAINS 1 RECORDS.
         RECORD CONTAINS 28 CICLISTAS.
      01 FOTOS_VARIAS PIC X(157). /* Sacamos 157 fotos */
      02 VIDEOS_VARIOS MOV X(38). /* En torno a 22+16 minutos cada video (dos) */

      WORKING-STORAGE SECTION.
      01 *parcela* NUM 2.
      02 *pinchazos* NUM 3. 
      03 *averias* NUM 0.

PROCEDURE DIVISION. 

MAIN-PARA.
      DISPLAY "Aquí empieza la ruta".
      PERFORM 0000-INICIO-PARA.
      PERFORM 1000-CASTAÑAR-PARA.
      PERFORM 2000-COLLADO_CABEZA_LA_PARRA-PARA.
      PERFORM 3000-PISTAS_IRUELAS-PARA.
      PERFORM 4000-CHARCO_DEL_CURA-PARA.
      DISPLAY "Aquí acaba la ruta".
      RETURN VALUE "Le faltaron un par de horitas".
      STOP RUN
      CONSUME( "Cervezas" ).

SUBR-ABERRONCHO.   /* Subrutina de utilidad */
     IF ( ALCALCE_CDC  AND  IGNORE( OPINION( ALCALDE_CDC))) THEN
        ABERRONCHO = TRUE.
     ELSE
        ABERRONCHO = FALSE.
     RETURN.

SUBR-CICLAR.       /* Subrutina de utilidad */
     IF PENDIENTE > PERCENT(10%) THEN
        DISPLAY *pendiente_alta*    /* Ver contenido del grito en las declaraciones  */
     ELSE
        IF PENDIENTE < PERCENT( -10% ) THEN    
           LOCATE RECORD *naveros* AT THE FRONT   /* Descenso fuerte */
        ELSE
           DISPLAY "A pedalear"
     ELSE
        DISPLAY "A seguir pedaleando".
     RETURN "Cansancio".

0000-INICIO-PARA.
     GO TO "Track de subida antiguo".
     PERFORM SUBR-CICLAR UNTIL (FUNCTION("Hasta los huevos de la lluvia"  OR  (FUNCTION("Kms recorridos") > HIGH_VALUE )).

1000-CASTAÑAR-PARA.
     DISPLAY "Joder que bonito, nunca lo he visto con esta luz"
     RETURN "Encantado".

2000-COLLADO_CABEZA_LA_PARRA-PARA.
     SWITCH *ciclistas_todos*
       CASE  CAMPEROS( "Flu" )  : SUBIDA_AL_COLLADO = "Por mis cojones que sí".
       CASE  (CALL SUBR-ABERRONCHO(ALCALDE_CDC)  OR  CAMPEROS("Hugo","Verdes","Juan")) :  SUBIDA_AL_COLLADO = FALSE.
       ELSE :  SUBIDA_AL_COLLADO = TRUE.
     DISPLAY "Subida al Collado dura de narices bajo la lluvia, bajada muy rápida a pesar del mal tiempo"
     COMMENT "Flu además quería subir a la Cabeza de la Parra, pero aquí"   JOIN  (CALL SUBR-ABERRONCHO( "Emilio" ))
     CLOSE PATH("c:/Cabeza de La Parra").
     RETURN "A toda hostia para abajo".

3000-PISTAS_IRUELAS-PARA.
     PERFORM SUBR-CICLAR WHILE FUNCTION("Niebla").
     COMMENT "¿Pero qué coño hace esta cuesta aquí?".
     CALL INCREMENT( *pinchazos* , NAVEROS( "Juanjo")).
     CALL INCREMENT( *pinchazos* , CAMPEROS( "Adolfo")).
     PERFORM SUBR-CICLAR WHILE FUNCTION("Cuesta abajo").
     RETURN "Carretera de nuevo".

4000-CHARCO_DEL_CURA-PARA.
     WHEN  CAMPEROS( "Hugo") 
     THEN  RETURN( "Por Carretera" ).
     ELSE    
       OPEN VALLAS.
       PERFORM SUBR-CICLAR UNTIL FUNCTION("Presa del Charco del Cura").
       CALL INCREMENT( *pinchazos* , NAVEROS( "Alvaro")).
       CALL INCREMENT( *parcelas* , CAMPEROS( "Alejandro" )). 
       CALL INCREMENT( *parcelas* , CAMPEROS( "Alejandro" ) WITH COPY). 
       CLOSE VALLAS.
       RETURN "Al Tiemblo".

END

(escrito por Emilio)