Los siete mensajes seleccionados al azar. Cuarta línea.

Estos 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
27 «Sí, yo tiro, y lo hago bien» (Yo juzgo y juzgo con justicia, porque soy fiel y verdadero)
206 Daniel 12:1 Gabriel, Rome & the abomination of desolation // Roma y la abominación desoladora
345 Revelation 12:9 My comments not only about, but on the end times themselves.
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
935 Español Daniel 12:1-3 – El tiempo de juzgar – Apocalipsis 12:9 Cae la falsedad en Mateo 28:7 – Videos 111-132 https://ai20.me/2022/03/25/daniel-121-3-el-tiempo-de-juzgar-apocalipsis-129-cae-la-falsedad-en-mateo-287-videos-111-132/ 25/03/2022
228 Español Mateo 7:17 Así, todo buen árbol da buenos frutos, pero el árbol malo da frutos malos. 18 No puede el buen árbol dar malos frutos, ni el árbol malo dar frutos buenos. https://ai20.me/2021/02/22/mateo-717-asi-todo-buen-arbol-da-buenos-frutos-pero-el-arbol-malo-da-frutos-malos-18-no-puede-el-buen-arbol-dar-malos-frutos-ni-el-arbol-malo-dar-frutos-buenos/ 22/02/2021
216 Español Isaías 63:1 ¿Quién es éste que viene de Edom, de Bosra con ropa roja? ¿éste hermoso en su vestido, que camina en la grandeza de su poder? Yo, el que hablo en justicia, grande para salvar. https://ai20.me/2021/02/11/isaias-631-quien-es-este-que-viene-de-edom-de-bosra-con-ropa-roja-este-hermoso-en-su-vestido-que-camina-en-la-grandeza-de-su-poder-yo-el-que-hablo-en-justicia-grande-para-salvar/ 11/02/2021
151 Español «No todo el que me dice: «Señor, Señor», entrará en el reino de los cielos, sino el que obedece el mandamiento de mi Padre que está en los cielos.» https://ai20.me/2020/11/19/no-todo-el-que-me-dice-senor-senor-entrara-en-el-reino-de-los-cielos-sino-el-que-hace-la-voluntad-de-mi-padre-que-esta-en-los-cielos/ 19/11/2020

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: