Undécima línea. Los siete mensajes al azar.

Estos siete mensajes fueron determinados por los 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:

x

https://dontmissit665019001.files.wordpress.com/2022/03/a-favor-de-la-pena-de-muerte-aplicada-con-justicia.docx
Contador Video en Youtube
140 El Evangelio del Anticristo. El evangelio del Diablo y sus ángeles, Mensaje del Dragón y sus ángeles
312 El propósito del blog : ai20.me – bestiadn.com
360 Imágenes editadas para no herir la suceptibilidad de los amantes de las moscas
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
794 Español El cántico de los 144,000 (El entendimiento de los 144,000) https://ai20.me/2022/01/26/el-cantico-de-los-144000-el-entendimiento-de-los-144000/ 26/01/2022
528 Español El animal carnívoro es carnívoro desde que nace hasta que muere. https://ai20.me/2021/10/25/el-animal-carnivoro-es-carnivoro-desde-que-nace-hasta-que-muere/ 25/10/2021
511 Español Batallas en el ciberespacio – 0001 – Apocalipsis 12:7 Después hubo una gran batalla en el cielo: Miguel y sus ángeles luchaban contra el dragón; y luchaban el dragón y sus ángeles; https://ai20.me/2021/10/20/batallas-en-el-ciberespacio-0001-apocalipsis-127-despues-hubo-una-gran-batalla-en-el-cielo-miguel-y-sus-angeles-luchaban-contra-el-dragon-y-luchaban-el-dragon-y-sus-angeles/ 20/10/2021
9 Español Ahora ya sabes quien soy https://daniel-chapter-xii.tripod.com/josecarlosgalindohinostroza/ 1/01/2022

x

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: