Actividad Turing

La idea es generar efectos en pantalla usando las instrucciones put, locate, for y loop.

1.- Un asterisco que llene el borde de la pantalla, moviendose en sentido horario

2.- Dos asteriscos que partan moviendose en forma horizontal y vertical desde la esquina superior izquierda y llenen el borde de la pantalla. LLegando al vertice opuesto.

3.- Un asterisco que se mueva por el borde de la pantalla

4.- Dos asteriscos que se muevan por el borde de la pantalla, desde el extemo superior izquierdo y se encuenten en el extermo inferior derecho.

A modo de ayuda... copien y ejecuten el siguiente programa:

Analizen lo que hace

loop
for i : 1 .. 80
locate (1, i)
put "*" ..
delay (50)
end for
for i : 1 .. 25
locate (i, 80)
put "*" ..
delay (50)
end for
for i : 1 .. 80
locate (25, 81 - i)
put "*" ..
delay (50)
end for
for i : 1 .. 25
locate (26 - i, 1)
put "*" ..
delay (50)
end for
for i : 1 .. 80
locate (1, i)
put " " ..
delay (50)
end for
for i : 1 .. 25
locate (i, 80)
put " " ..
delay (50)
end for
for i : 1 .. 80
locate (25, 81 - i)
put " " ..
delay (50)
end for
for i : 1 .. 25
locate (26 - i, 1)
put " " ..
delay (50)
end for
end loop

Nota: La instruccion delay(n) hace una pausa de (n) microsegundos

Otro ejemplo

for i : 1 .. 25
locate (i, 40)
put "*" ..
locate (i, 41)
put "*" ..
end for
for i : 1 .. 25
for j : 0 .. 39
locate (i, 40 - j)
put "*" ..
locate (i, 41 + j)
put "*" ..
delay (30)
locate (i, 40 - j)
put " " ..
locate (i, 41 + j)
put " " ..
% delay (40)
end for
end for