La octava fila. Los siete mensajes al azar.

Los siguientes siete mensajes fueron determinados por unos números producidos por mi software.

Se trata de números aleatorios.

Revelaciones 19:19 Y vi a la bestia, a los reyes de la tierra y a sus ejércitos, reunidos para guerrear contra el que montaba el caballo, y contra su ejército.

Haz clic para acceder a programa-generador-de-palabras-aleatorias-en-turbo-pascal.pdf

Los siete mensajes:

https://dontmissit665019001.files.wordpress.com/2022/03/a-favor-de-la-pena-de-muerte-aplicada-con-justicia.docx
Contador Video en Youtube
281 El arcángel Gabriel ataca con su tridente a la serpiente antigua (a Satanás) – Apocalipsis 12:7-12
312 El propósito del blog : ai20.me – bestiadn.com
395 Hemos vencido por medio de la sangre de Cristo, por nuestra sangre y por medio de nuestro testimonio
Publicaciones principales https://dontmissit665019001.files.wordpress.com/2022/03/el-que-sea-justo-que-tire-la-primera-roca.docx  
# tipo Asunto Enlace: La publicación en blog incluye su fecha en URL, pagina no incluye fecha. Fecha de creación
903 Italiano La prova più chiara che siamo nel tempo del giudizio finale è l’esistenza di Internet, solo con questa tecnologia è possibile che la profezia in Isaia 42 si adempia. https://ai20.me/2022/03/10/la-prova-piu-chiara-che-siamo-nel-tempo-del-giudizio-finale-e-lesistenza-di-internet-solo-con-questa-tecnologia-e-possibile-che-la-profezia-in-isaia-42-si-adempia/ 10/03/2022
862 Italiano “Un Dio che è perfetto perché ama tutti”, come dice Matteo 5:38-48, semplicemente non esiste https://ai20.me/2022/02/27/un-dio-che-e-perfetto-perche-ama-tutti-come-dice-matteo-538-48-semplicemente-non-esiste/ 27/02/2022
578 Español El aborto aunque sea legal es injusto – El documental sobre el aborto que ví en 1991, yo tenía 16 años, explico lo que vi y lo que sentí y siento aún al respecto: mi total desaprobación. https://ai20.me/2021/11/02/el-aborto-aunque-sea-legal-es-injusto-el-documental-sobre-el-aborto-que-vi-en-1991-yo-tenia-16-anos-explico-lo-que-vi-y-lo-que-senti-y-siento-aun-al-respecto-mi-total-desaprobacion/ 2/11/2021
413 Español El porqué la Biblia no es la palabra de Dios. – 0005 https://ai20.me/2021/08/04/el-porque-la-biblia-no-es-la-palabra-de-dios-0005/ 4/08/2021

Programa auxiliar:

{ Cuarta version, respecto a la 1ra version en esta se valida longitud del
texto, ademas incorpora un 5to color, el blanco,
programa escrito por Jose Carlos Galindo Hinostroza, autor del blog http://www.ai20.me
en Lima, Peru, el 30 de Abril de 2022}
Program Publicitablogs;
Uses Crt;
Type
numero = integer;
cadena = string;
tecla = char;

Var
m1,m2,c, f, i,i2, l,ci, ve, cpc: numero;
paginas: array[1..5] of string[40];
palabra : cadena;
t,dire,ct : char;
ip,ip2:longint;
Begin
paginas[1]:=’https://daniel-chapter-xii.tripod.com/ ‘;
paginas[2]:=’https://sangrergnas.blogspot.com ‘;
paginas[3]:=’https://ai20.me/ ‘;
paginas[4]:=’https://shewillfind.me/ ‘;
paginas[5]:=’https://gabriels.work/ ‘;
clrscr;
c:=1;
cpc:=0;
repeat
writeln(‘Fila para el texto (10-24):’);
readln(f);
until ((f>9) and (f<25));

repeat
writeln(‘Direccion:’,chr(26),’ Izq a Der [1] /’,chr(27),’ Der a Izq [2]:’);
dire:=readkey;
if dire=#0 then
dire:=readkey;
case dire of
#77: dire:=’1′;
#75: dire:=’2′;
end;
until (dire=’1′) or (dire=’2′);
if dire=’2′ then
repeat
writeln(‘Velocidad de desplazamiento en milisegundos (1-1000):’);
readln(ve);
until ((ve>0) and (ve<1001))
else
begin
repeat
writeln(‘Especifica la pareja a mostrar, deja espacio (0 0 =personalizar):’);
writeln(‘[1]:=https://daniel-chapter-xii.tripod.com/’);
writeln(‘[2]:=https://sangrergnas.blogspot.com’);
writeln(‘[3]:=https://ai20.me/’);
writeln(‘[4]:=https://shewillfind.me/’);
writeln(‘[5]:=https://gabriels.work/’);
readln(m1,m2);
if (m1=0) and (m2 =0) then
begin
writeln(‘Especifica las 5 webs ‘);
for ip:=1 to 5 do
begin
write(‘W’,ip,’: ‘);readln(paginas[ip]);
end;
writeln(‘Elije 2 webs, deja espacio entre numeros’);
for ip:=1 to 5 do
begin
write(‘W’,ip,’: ‘);writeln(paginas[ip]);
end;
readln(m1,m2);
end;
until (m1 in [1..5]) and (m2 in [1..5]) or ((m1=0) and (m2 =0));
end;

ip:=0;
ip2:=0;
ct:=#0;
repeat
case dire of
‘1’:begin
if length(paginas[m1])<length(paginas[m2]) then
l:=length(paginas[m2])
else
l:=length(paginas[m1]);
ci:=80-l;
for i:=ci downto 1 do
begin
clrscr;
gotoxy(ci-i+1,f);
Write(paginas[m2]);
gotoxy(1,f);
write(‘          ‘);
gotoxy(ci-i+1,f-10);
Write(paginas[m1]);
gotoxy(1,f-10);
write(‘          ‘);
c:=c+1;
cpc:=cpc+1;
{delay(ve);}
ct:=readkey;
if ct=#0 then
ct:=readkey;
if ct=#27 then
halt(1);
case cpc of
1,3,5: textcolor(lightblue);
2,4: textcolor(yellow);
End;
If cpc=5 then
cpc:=0;
end;
end;
‘2’:begin

if ip=5 then
ip:=0;
ip:=ip+1;
l:=length(paginas[ip]);
ci:=80-l;
for i:=1 to ci do
begin

clrscr;
if keypressed then
halt(1);
gotoxy(ci-i+1,f);
Write(paginas[ip]);
gotoxy(1,f);
write(‘          ‘);
c:=c+1;
cpc:=cpc+1;
delay(ve);
case cpc of
1: textcolor(lightgreen);
2: textcolor(lightblue);
3: textcolor(cyan);
4: textcolor(yellow);
5: textcolor(white);
End;
If cpc=5 then
cpc:=0;
end;
end;
end;

until ((keypressed) and (dire=’2’) or (ct=#27));
end.

Programa generador:

Haz clic para acceder a code-in-turbo-pascal-of-random-words-generator-program.pdf

El programador: