Animasi File dari Pascal

Barusan ingat yang diajarkan dosen master saya di kampus, Dosen super, namanya pak Syaiful. dan inilah contoh yang beliau berikan.,

=====# Semoga Bermanfaat Bagi Semua Pemirsa #=====
 

=====# Source #=====
uses crt;
var
  s : string;
  x : text;
  f : char;
begin
  clrscr;
  randomize;
  write('Nama file : '); readln(s);
  { masukan nama file yang ingin dibaca,
    jangan lupa tulis ekstensi filenya
    seperti *.pas, *.txt, dll
  }
  assign ( x, s);
  repeat
    reset (x);
    while not eof(x) and not keypressed do
      begin
        read (x,f);
        delay(random(100));
        write (f);
      end;
    close (x);
  until keypressed;
end.
==================

Animasi Chatting dari Pascal

Lagi tidak punya kerjaan, dosen masuk di dalam kelas tapi tidak mengajar hanya curhat-curhat, eh tiba-tiba ada ide buat bikin animasi. berhubung tidak punya kerjaan dan untuk menghilangkan perasaan galau yang dikarenakan dosen yang sedang curhat maka jadilah animasi penghilang galau ini :D..

inilah hasilnya, di perumpamakan, yang biru si saya dan yang pink si dia, walaupun dia tidak pernah chatting dengan saya. -_- SURAM., 

=====# SEMOGA BERMANFAAT UNTUK SEMUA PEMIRSA #=====

=====# Source #=====
uses crt;
var
  x, y : byte;
  s : string;begin
  clrscr;
  randomize;
  repeat
    x := random(15)+1;
    y := random(15)+1;
  until x<>y;
  repeat
    s := '';
    repeat
      s := s + chr(random(26)+96);
    until (random(10) = random(5)) or (length(s)>78);
    if random(2)=1 then begin
      gotoxy(1,25);
      textcolor(x);
    end
    else begin
      gotoxy(80-length(s),25);
      textcolor(y);
    end;
    writeln(s);
    delay(50);
  until keypressed;
end.
=================