Vistas de página en total

lunes, 2 de mayo de 2022

El juramento del calumniador y sus cómplices vs. El juramento de Miguel y sus leales aliados.

 

La quinta línea. Los siete mensajes elegidos al azar.

Todos 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
ContadorVideo en Youtube
10Génesis 39:7-17 es a Abel y Caina – El hombre justo y la mujer calumniadora. (Proverbios 29:27).
11Mi testimonio de fe – La historia de este rollo : Porque soy fiel me sucedió esto
29Apocalipsis 20:4-6, Pedro y las puertas del Hades – Tu eres Pedro y tienes las llaves (Mateo 21:43)
Publicaciones principaleshttps://dontmissit665019001.files.wordpress.com/2022/03/el-que-sea-justo-que-tire-la-primera-roca.docx 
#tipoAsuntoEnlace: La publicación en blog incluye su fecha en URL, pagina no incluye fecha.Fecha de creación
751InglésThe feelings of the saints for those who murdered them.https://ai20.me/2022/01/14/the-feelings-of-the-saints-for-those-who-murdered-them/14/01/2022
525EspañolSi en verdad Dios ama a todos incluso al peor de los hombres, ¿Por qué Dios solo envía a Miguel a favor del pueblo del libro?.https://ai20.me/2021/10/25/64117/25/10/2021
441EspañolLas dos puertas.https://shewillfind.me/2021/08/16/las-dos-puertas/16/08/2021
418EspañolEl porqué la Biblia no es la palabra de Dios. – 0009https://ai20.me/2021/08/05/el-porque-la-biblia-no-es-la-palabra-de-dios-0009/5/08/2021

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:

No hay comentarios:

Publicar un comentario

Nota: solo los miembros de este blog pueden publicar comentarios.

San Pedro le pregunta al postulante al cielo: «¿Por qué crees que deberíamos dejarte ingresar al cielo?», el postulante le responde a San Pedro: «Porque le he rezado a tu estatua...», San Pedro le responde: «Esa no es mi estatua...»

San Pedro le pregunta al postulante al cielo: «¿Por qué crees que deberíamos dejarte ingresar al cielo?», el postulante le responde a San Pe...