[Turbo Pascal 7.0] Código do efeito Matrix

[Patrijosa]

Pelo que me pareceu, pouco se fala sobre esta linguagem de programação.
Estava eu vasculhando pela Web quando encontrei algo que achei interessante. Por isso desejo partilha-lo com vocês.

Trata-se do Código do efeito Matrix:

Code Select Expand

Program MATRIX;
Uses Crt;
Var
col,lin,ql,cont,aux:integer;
letra:char;
Begin
Clrscr;
Repeat
col:=1+Random(79);
lin:=1+Random(23);
ql:= Random(10);
for cont:= lin to lin+ql do
Begin
if cont<24 then
Begin
letra:= chr(Random(255));
for aux:=1 to 2 do
Begin
if aux= 1 Then
Textcolor(10)
else
Textcolor(2);
gotoxy(col,cont);
write(letra);
delay(50);
end;
end;
end;
until keypressed;
end.

Espero que tenham gostado.

Fonte: http://vomicae.net/programacao/download ... pascal-70/

[Shinigami15]

Eu gostei, testei aqui rs
Abraço.