MABG.BAS

Por favor, si alguna vez se me olvida, que alguien me recuerde que en 1997 escribí este programa (quien todavía tenga qbasic, podría copiarlo y lanzarlo). Los primeros textos son comentarios, escritos en mayúsculas como el resto del programa y sin tildes. Probablemente éste sea el único programa que he hecho donde los comentarios son mucho más importantes que el código. Hablando de comentarios, dos últimos comentarios:

El primero es que, aunque ahí falta, la tregua de ETA en 1998 fue una tregua trampa como bien sabemos todos.

El segundo es que Miguel Ángel tenía mi edad cuando los amiguitos de ésos que ahora graban vídeos en dvd diciendo que "La superación del conflicto, aquí y ahora, es posible.", arrancaron de cuajo su vida, llevándose de paso un trocito de la nuestra.

' EN MEMORIA DE MIGUEL ANGEL BLANCO GARRIDO, CONCEJAL QUE FUERA DEL PARTIDO
' POPULAR EN ERMUA (VIZCAYA) VILMENTE EJECUTADO POR HB-ETA EL 12-07-1997
' POR MEDIO DE DOS COBARDES TIROS EN LA NUCA A LA EDAD DE 29 AÑOS.

' MIGUEL ANGEL FUE SECUESTRADO EL 10-07-1997 A LAS 16:00 HORAS CUANDO SE
' DIRIGIA A SU EMPLEO EN EIBAR EN TREN.

' SE PADRE SE ENTERO POR LA PRENSA Y LA POLICIA VASCA CUANDO VENIA DE
' TRABAJAR COMO ALBAÑIL, OFICIO QUE TAMBIEN EJERCIO MIGUEL ANGEL PARA
' PAGARSE SU CARRERA COMO ECONOMISTA.

' SU HERMANA REGRESO AL CONOCER LA NOTICIA DEL EXTRANJERO, DONDE SE HALLABA
' ESTUDIANDO. AL FINAL PUDO AL MENOS VER EL CUERPO DE SU HERMANO CON VIDA.

' HB-ETA AMENAZO CON ASESINARLO SI EL GOBIERNO NO REAGRUPABA EN 48 HORAS
' TODOS LOS PRESOS DE ETA EN CARCELES PROXIMAS AL PAIS VASCO LO QUE ERA
' DIRECTAMENTE UNA CONDENA DE MUERTE A PLAZO FIJO COMO ALGUN POLITICO DIJO.

' A PESAR DE LAS NUMEROSAS MANIFESTACIONES DE LAS QUE FUERON TESTIGOS LOS
' PUEBLOS DE TODA ESPAÑA Y EN PARTICULAR LOS DE EUSKADI, LOS ASESINOS NOS
' ASESTARON DOS TIROS A TODOS LOS ESPAÑOLES EN LA PERSONA DE MIGUEL ANGEL.

' ATADO DE MANOS, RODILLAS EN TIERRA Y SIN NI SIQUIERA UNA VENDA SOBRE SUS
' OJOS, APENAS PASADOS TREINTA-CUARENTA Y CINCO MINUTOS DE LA INFAME HORA
' MIGUEL ANGEL RECIBIO EN SU CABEZA DOS COBARDES BALAS POR CULPA DE LAS
' CUALES, A PESAR DE LUCHAR PARA SALVAR SU VIDA DURANTE MAS DE DIEZ HORAS
' EN UN HOSPITAL DE SAN SEBASTIAN, SU ENCEFALOGRAMA SE VOLVIO PLANO. ERAN
' APROXIMADAMENTE LAS 3 DE LA MAÑANA DEL 13-07-1997.
' OCHO HORAS MAS TARDE SU CORAZON DEJO DE LATIR DEFINITIVAMENTE.
' MIGUEL ANGEL TUVO EL VALOR Y EL CORAJE SUFICIENTE PARA QUE SU FAMILIA
' PUDIERA AL MENOS VER SU CUERPO CON VIDA. SUS PADRES SU HERMANA Y SU NOVIA
' CON LA QUE TENIA PREVISTO CASARSE MESES DESPUES, PUEDEN SENTIRSE
' ORGULLOSOS DE ESTE VASCO DE PRO AMANTE DE LA LIBERTAD, EL DEPORTE Y LA
' MUSICA.

' MIGUEL ANGEL BLANCO GARRIDO ERA UN JOVEN VITAL QUE TRABAJABA EN UNA
' ASESORIA EN EIBAR, ERA CONCEJAL POR EL P.P. EN EL AYUNTAMIENTO DE ERMUA
' TOCABA LA BATERIA JUNTO A UNOS AMIGOS EN UN GRUPO DE MUSICA (POKER).NO ERA
' NINGUN PERSONAJE DE RELEVANCIA EN LAS JOVENES GENERACIONES DEL P.P., LO
' ASESINARON SIMPLEMENTE POR PENSAR, COMO LA MAYORIA EN ESPAÑA, QUE LA
' VIOLENCIA NO ES EL CAMINO A SEGUIR.

' MIGUEL ANGEL SOMOS TODOS.

' MIGUEL TENIA TODO UN MUNDO POR DELANTE DE FELICIDAD JUNTO A LA QUE IBA A
' SER SU MUJER Mª DEL MAR, QUIEN TOTALMENTE ABATIDA LLEVO LAS BAQUETAS CON
' LAS QUE SU NOVIO TOCABA LA BATERIA DURANTE TODO EL FUNERAL Y LAS DEPOSITO
' ENCIMA DEL ATAUD CUANDO ESTE ERA INTRODUCIDO EN EL NICHO.

' DESGRACIADAMENTE UN GRUPO DE ASESINOS ASESORADO POSIBLEMENTE POR MILITAN-
' TES DE H.B. DE SU MISMA LOCALIDAD BORRO CON DOS COBARDES BALAS DEL CALIBRE
' 22 TODAS ESTAS EXPECTATIVAS DE FUTURO PERO CONSIGUIO QUE MILES DE PERSONAS
' EN VIVO Y MILLONES A TRAVES DE LA TELEVISION O LOS RESPECTIVOS AYUNTA-
' MIENTOS ARROPARA A LA DESTROZADA FAMILIA Y SE UNIERA EN CONTRA DE HB-ETA
' EN UN GESTO SIN PRECEDENTES.
' DURANTE SU FUNERAL, LAS CALLES DE ERMUA SE LLENARON DE MILES DE PERSONAS
' QUE DURANTE MUCHO TIEMPO PERMANECIERON RESPETUOSAMENTE A LA INTEMPERIE
' DEJANDO PASAR A TODAS LAS AUTORIDADES Y HACIENDO QUE LA PRESENCIA DE LA
' POLICIA VASCA FUERA CASI TESTIMONIAL. DESPUES ACOMPAÑARON A LA FAMILIA
' DURANTE LOS 2 Km. QUE SEPARABAN LA IGLESIA DEL CEMENTERIO.

' DEBIDO A LA GRAN AGLOMERACION DE GENTE, AL CEMENTERIO SOLO PUDIERON PASAR
' LA FAMILIA Y LAS AUTORIDADES.A LA VEZ EN TODAS LAS PROVINCIAS SE PRODUJERON
' PAROS DE DIFERENTE DURACION Y GRANDES CONCENTRACIONES ASI COMO TAMBIEN SE
' DECLARARON TRES DIAS DE LUTO CON LAS BANDERAS ONDEANDO A MEDIA ASTA.

' YA EN LA NOCHE DEL 14-07-1997 SE PRODUJERON CONCENTRACIONES QUE EN MADRID
' Y BARCELONA CONGREGARON A MAS DE UN MILLON DE PERSONAS. ESA NOCHE TODO
' EL MUNDO SE ECHO A LA CALLE Y TODO EL MUNDO ENTONO LA CANCION INSIGNIA
' DE LA TRANSICION "LIBERTAD SIN IRA" DEL GRUPO JARCHA
' ADEMAS, VICTORIA PREGO QUIEN LEYO UN MANIFIESTO ANTE CERCA DE UN MILLON
' Y MEDIO DE PERSONAS EN MADRID, LLAMO LA ATENCION ACERCA DEL SIGNIFICADO
' DE HERRI-BATASUNA (HB) Y EUSKADI TA ASKATASUNA (ETA). PARADOJICAMNETE
' ESTAS SIGLAS SIGNIFICAN "PUEBLO UNIDO" Y "LIBERTAD PARA EUSKADI", FRASES
' QUE HEMOS HECHO NUESTRAS TODOS LOS ESPAÑOLES Y QUE HAN PERDIDO TODO SU
' SIGNIFICADO PARA AQUELLOS QUE LAS ACUÑARON

' AQUELLOS QUE DICEN ACTUAR A FAVOR DE UN PUEBLO, EL PUEBLO VASCO, NO HAN
' HECHO OTRA COSA MAS QUE HERIRLO Y ASUSTARLO. POR SUERTE PARECE QUE ESTO
' SE HA ACABADO, LA MUERTE EN PRINCIPIO INJUSTA E INUTIL SE HA TRANSFORMADO
' EN UNA MUERTE INJUSTA POR SUPUESTO, PERO UTIL A TODA LA SOCIEDAD, Y EN
' PARTICULAR A LA VASCA. MIGUEL ANGEL, TU MUERTE NO HA SIDO EN VANO, TODOS
' TUS VECINOS Y EN GENERAL TODO EL PAIS SE HA REVUELTO, SE HA ENCARADO A
' LOS CIMIENTOS DE ETA QUE NOS SON MAS QUE H.B., LOS HA DEJADO SOLOS Y NO
' HA DE TARDAR CON UN POCO DE SUERTE MUCHO EN CAER ANTE LAS PROTESTAS
' FIRMES, ENERGICAS PERO SIEMPRE BAJO EL ESTADO DE DERECHO DE LA MAYORIA,
' ESA MAYORIA QUE QUIERE VIVIR EN PAZ DE UNA VEZ. EL PUEBLO VASCO HA
' PERDIDO EN GRAN PARTE ESE MIEDO QUE LE ATENAZABA COMO SE DEMOSTRO CUANDO
' EN UN VALIENTE E IMPROVISADO GESTO LOS ERTZAINAS SE QUITARON LOS PASMON-
' TAÑAS Y FUERON ABRAZADOS POR EL PUBLICO QUE LOS APLAUDIO Y VITOREO.

' MIGUEL ANGEL NO PODRA VERLO PUEDE VERLO, PERO SU MUERTE HA CONSEGUIDO
' UNA SERIE DE COSAS INIMAGINABLES ANTES DE ELLA COMO POR EJEMPLO:

' PARTIDOS POLITICOS Y MEDIOS DE COMUNICACION ANUNCIARON UN AISLAMIENTO
' TOTAL DE H.B. HASTA QUE NO CONDENASEN PUBLICAMENTE EL TERRIBLE ASESINATO
' DE MIGUEL ANGEL POR PARTE DE ETA, AISLAMIENTO QUE PERMITIO POR EJEMPLO
' QUE UN AYUNTAMIENTO COMO EL DE MONDRAGON CON 21 CONCEJALES GOBERNADO POR
' H.B. CON TAN SOLO 6 CONCEJALES PUDIERA SER GOBERNADO POR FUERZAS POLI-
' TICAS DEMOCRATICAS AUNQUE IZQUIERDA UNIDA SOLO SE ABSTUVIERA EN LA MOCION
' DE CENSURA POR NO QUERER UN ALCALDE DEL P.N.V.
' ADEMAS GRACIAS A UNA INICIATIVA DEL DIARIO DEPORTIVO "MARCA" EL POLIDE-
' PORTIVO DE ERMUA QUE SE HABIA HUNDIDO EL 27 DE ABRIL CUANDO ESTABA CASI
' ACABADO FUERA RECONSTRUIDO MEDIANTE DONACIONES POPULARES QUE NO SUPERASEN
' LAS 5000 PTAS Y DONACIONES DE INSTITUCIONES, PRINCIPALMENTE DEPORTIVA,
' ESTAS SIN LIMITE.
' ETARRAS PRESOS, IDEOLOGOS DE LA BANDA, HAN CRITICADO ESTA ACCION DE ETA
' Y SE HAN DESMARCADO DE LAS POSICIONES TERRORISTAS CONSIDERANDO A H.B.
' TERRORISTAS CIVILES.
' A MIGUEL ANGEL, DESCANSA EN PAZ, VELA POR NOSOTROS Y GRACIAS POR TODO

' A HB-ETA, UN EXTRACTO DE LAS CONSIGNAS QUE EL PUEBLO HA GRITADO EN LAS
' DIFERENTES MANIFESTACIONES

' ETA-HB LA MISMA COSA ES
' ASESINOS
' HIJOS DE PUTA
' HB ASESINOS
' EL PUEBLO UNIDO JAMAS SERA VENCIDO
' AQUI ESTAMOS NOSOTROS NO MATAMOS
' MIRA MIS MANOS NO TIENEN SANGRE
' MIRAD AL CIELO NOS ESTA MIRANDO
' ETA NO VASCOS SI
' NO SON VASCOS SON ASESINOS
' ETA AQUI TIENES MI NUCA
' MIGUEL ANGEL SOMOS TODOS
' HB LO TIENES QUE PAGAR
' MIGUEL ANGEL, MIGUEL ANGEL, MIGUEL ANGEL
' ETA PENA DE MUERTE
' QUE CUMPLAN LA PENA
' DONDE ESTAN, NO SE VEN, LOS VOTANTES DE HB
' SIN PISTOLA NO SON NADA
' ETA KAMPORA (ETA FUERA)
' HB KAMPORA (HB FUERA)
' NO HAY COJONES SIN PISTOLAS
' ---- SILENCIOS SEPULCRALES ----
' ---- APLAUSOS ATRONADORES ----
' ...........................................
'
' AUNQUE LAMENTABLEMENTE ETA NO DEJO DE MATAR EN ESE MOMENTO, ALGO MAS DE UN
' AÑO DESPUES DECLARO UNA TREGUA DE DURACION INDEFINIDA Y EN UNA ENTREVISTA
' CONCEDIDA A LA BBC MANIFESTARON QUE AQUELLA GENERACION DE ETARRAS NO IBA A
' VOLVER A MATAR AUNQUE NO CERRABAN LA POSIBILIDAD DE VOLVER A LAS ARMAS SI
' NO SE ACEPTABAN UNA SERIE DE CONDICIONES. EN PRINCIPIO SE TENIAN MUCHAS
' DUDAS ACERCA DE LA CREDIBILIDAD Y FINALIDAD DE ESTA TREGUA, PERO EL TIEMPO
' PASA Y AFORTUNADAMENTE LOS ATENTADOS NO VUELVEN.
' CON SUERTE SERAN UNAS NEGOCIACIONES DIFICILES, EN CIERTO MODO INJUSTAS,
' PERO PRODUCTIVAS. TODO SEA POR QUE NO SE VUELVAN A REPETIR ATENTADOS COMO
' LOS QUE COSTARON LA VIDA A GREGORIO ORDOÑEZ, MIGUEL ANGEL, ALBERTO JIMENEZ
' BECERRIL ( ATENTADO EN QUE TAMBIEN MURIO SU MUJER ASUNCION EN SEVILLA),
' MANUEL ZAMARREÑO Y A OTROS EDILES DEL PP POR PONER SOLO UNOS EJEMPLOS
' DE AQUELLOS QUE HAN SIDO OBJETIVO PRINCIPAL DE ETA EN LOS ESPEREMOS SUS
' ULTIMOS TIEMPOS.
' DESGRACIADAMENTE LA LISTA DE MUERTOS POR ETA ES ODIOSAMENTE INACABABLE, ESO
' SIN CONTAR CON LOS HERIDOS QUE HA CAUSADO. TODOS RECORDAMOS LAS IMPACTANTES
' IMAGENES DE IRENE VILLA Y SU MADRE CON LAS PIERNAS DESTROZADAS EN MADRID Y
' DEL ATENTADO DE VALLECAS Y HEMOS OIDO HABLAR DEL ATENTADO DE HIPERCOR ...
'
' SI PENSAMOS SERENAMENTE CALIFICARIAMOS Y NO NOS EQUIVOCARIAMOS AL HACERLO
' COMO INJUSTA UNA AMNISTIA PARA LOS MIEMBROS DE ETA A CONDICION DE DEJAR LAS
' ARMAS. EVIDENTEMENTE UNA DECISION ASI NO SERIA PROBABLEMENTE BIEN VISTA POR
' LAS FAMILIAS QUE HAN SUFRIDO EL AZOTE DE ETA. POR EJEMPLO ¨ QUIEN PUEDE
' EXPLICAR A LOS TRES HIJOS DE ALBERTO JIMENEZ Y SU ESPOSA ASUNCION POR QUE
' SUS PADRES SALIERON A TOMAR UNA COPA CON LOS AMIGOS Y DOS ASESINOS DE ETA
' ACABARON CON SU VIDA ?. PARA ESA PREGUNTA EVIDENTEMENTE NO HAY NINGUNA
' RESPUESTA VALIDA, PERO QUE LES PARECERA QUE LE DIGAMOS QUE UN ASESINO
' CUALQUIERA POSIBLEMENTE EN UN FUTURO RECIBIRIA NO RECIBIRIA UNA SERIE
' DE TRATOS QUE PROBABLEMENTE SI RECIBIRAN LOS ASESINOS DE SUS PADRES SI ETA
' DEJA LAS ARMAS Y QUE ADEMAS HAY UNA RAZON CONTUNDENTE PARA ELLO,
' PRECISAMENTE QUE ETA NO MATE.
'
' OJALA ME EQUIVOQUE Y SE CONSIGA LA PAZ MEDIANTE LA JUSTICIA, PERO EN CASO
' DE QUE NO SEA ASI, ESPERO AL MENOS QUE SE CONSIGA LA PAZ MEDIANTE UNA
' " INJUSTICIA RELATIVA "




DECLARE SUB LAZO1 ()
DECLARE SUB LAZO2 ()
DECLARE SUB LAZO3 ()
DECLARE SUB LAZO4 ()
SCREEN 12
CALL LAZO1
CALL LAZO2
CALL LAZO3
CALL LAZO4

SUB LAZO1

CLS : PRINT : PRINT : PRINT : PRINT
PRINT " *********"
PRINT " ***********"
PRINT " ***** ***** "
PRINT " ***** ***** "
PRINT " *********** "
PRINT " *********** "
PRINT " ***** *****"
PRINT " ***** *****"
PRINT " ***** *****"
PRINT " ***** *****"
DO: LOOP WHILE INKEY$ = ""

END SUB

SUB LAZO2

COLOR 7: PAINT (100, 100): COLOR 0
FOR I = 0 TO 1 STEP .01
LINE (365 + 60 * I, 200)-(245 + 60 * I, 400)
CIRCLE (335, 200), (30 + 60 * I), 0, 6.28, 3.15
LINE (305 - 60 * I, 200)-(425 - 60 * I, 400)
NEXT I
DO: LOOP WHILE INKEY$ = ""
END SUB

SUB LAZO3

CLS : COLOR 7: PAINT (100, 100)
COLOR 0
LINE (245, 400)-(245 + 120, 200)
LINE (245 + 60, 400)-(245 + 180, 200)
LINE (245 + 180, 400)-(245 + 60, 200)
LINE (245 + 120, 400)-(245, 200)
LINE (305, 300)-(335, 350), 7
LINE (305, 300)-(335, 250), 7
LINE (365, 300)-(335, 350), 7
LINE (365, 300)-(335, 250), 7
PSET (305, 300), 0: PSET (365, 300), 0: PSET (335, 250), 0: PSET (335, 350), 0
CIRCLE (245 + 90, 200), 30, 0, 6.28, 3.15
CIRCLE (245 + 90, 200), 90, 0, 6.28, 3.15
LINE (245, 400)-(305, 400): LINE (365, 400)-(425, 400)

COLOR 7
LOCATE 1, 1: PRINT " "
LOCATE 1, 1: PRINT " EL LAZO SE HA CONVERTIDO EN EL SIMBOLO DE TODA ESPAÑA"
PAINT (247, 399), 7, 0
Z = TIMER + 3
DO: LOOP WHILE TIMER < Z

LOCATE 1, 1: PRINT " "
LOCATE 1, 1: PRINT " PRIMERO FUE EL SIDA"
PAINT (247, 399), 4, 0
Z = TIMER + 3
DO: LOOP WHILE TIMER < Z

LOCATE 1, 1: PRINT " "
LOCATE 1, 1: PRINT " DESPUES ORTEGA LARA Y LOS DIFERENTES SECUESTRADOS INCLUIDO MIGUEL ANGEL"
PAINT (247, 399), 1, 0
Z = TIMER + 3
DO: LOOP WHILE TIMER < Z

LOCATE 1, 1: PRINT " "
LOCATE 1, 1: PRINT " Y POR ULTIMO LA COBARDE EJECUCION DE MIGUEL ANGEL"
PAINT (247, 399), 0, 0
Z = TIMER + 3
DO: LOOP WHILE TIMER < Z

LOCATE 1, 1: PRINT " "
LOCATE 1, 1: PRINT " MIGUEL ANGEL NO TE OLVIDAMOS"
DO: LOOP WHILE INKEY$ = ""


END SUB

SUB LAZO4


N1 = 2
P = 3.141592
CLS : PAINT (1, 1), 7: COLOR 0
FOR K1 = 0 TO .99 STEP .005
K = 1 - K1

FOR T = P / 4 + P * 3 / 8 TO P / 4 + P / 2 STEP K
CIRCLE (300 - 150 * (COS(N1 * T) * COS(T)), 250 - 150 * (COS(N1 * T) * SIN(T))), 20
NEXT T

FOR T = P + P / 4 TO P + P * 3 / 4 STEP K
CIRCLE (300 + 150 * (COS(N1 * T) * COS(T)), 250 - 150 * (COS(N1 * T) * SIN(T))), 20
NEXT T

FOR T = P / 4 TO P / 4 + P / 8 STEP K
CIRCLE (300 - 150 * (COS(N1 * T) * COS(T)), 250 - 150 * (COS(N1 * T) * SIN(T))), 20
NEXT T
NEXT K1

DO: LOOP WHILE INKEY$ = ""


END SUB