Ir para o conteúdo

Efeito Matrix

program matrix;
uses Crt;
var col,lin,ql,cont,aux:integer;
    letra:char;

begin
     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.