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) 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) |