La sexta fila. Los siete mensajes al azar.

Estos mensajes han sido 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:

https://dontmissit665019001.files.wordpress.com/2022/03/a-favor-de-la-pena-de-muerte-aplicada-con-justicia.docx
Contador Video en Youtube
278 Daniel 12:1 – Isaías 61:1 – Isaías 42:1 – ai20.me
380 The white horse rider project: blue prince / Proyecto el Jinete del Caballo Blanco: El príncipe azul
450 El escape del planeta de los humanos
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
920 Español Apropósito de las nuevas mentiras papales: ¿Es manipular a los violentos para sus propios propósitos usar uso de la violencia, sí o no?, ¿Es hacer llover fuego y azufre contra los malvados usar la violencia, sí o no? https://ai20.me/2022/03/21/aproposito-de-las-nuevas-mentiras-papales-es-manipular-a-los-violentos-para-sus-propios-propositos-usar-uso-de-la-violencia-si-o-no-es-hacer-llover-fuego-y-azufre-contra-los-malvador-u/ 21/03/2022
880 Ruso Таково суждение в век Интернета (Эпоха, когда все проясняется, мои блоги, как НЛО, стреляют лучами правды на далекие континенты, как молнии). https://wp.me/paUMUJ-iLw 3/03/2022
708 Polaco Imperium Rzymskie i natura Szatana – Fragment #1 https://ai20.me/2022/01/02/imperium-rzymskie-i-natura-szatana-fragment-1/ 2/01/2022
244 Español Miguel: «Gabriel, ¿necesitas una pelota?, ahí va, Samael quiere jugar como la pelota». Gabriel: «Gracias por el gran pase, Miguel». «Cuando la pelota se desinfle, la arrojaremos al infierno» https://ai20.me/2021/03/20/miguel-gabriel-necesitas-una-pelota-ahi-va-samael-quiere-jugar-como-la-pelota-gabriel-gracias-por-el-gran-pase-miguel-cuando-la-pelota-se-desinfle-la-arrojaremos-al-infierno/ 20/03/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: