PROGRAM ANIMASI HURUF BERJALAN

uses crt;

var
kata: string;
a,i: integer;
x: char;
lagi,y: char;
begin
clrscr;
  repeat
  begin
  clrscr;
  write('masukan kata: ');readln(kata);
  a:=length(kata);

  writeln;
  writeln('L = Kiri');
  writeln('R = Kanan');
  writeln('D = Bawah');
  writeln('U = Atas');
  writeln('X = keluar');
  writeln;
  write('masukan simbol: ');readln(x);
  i:=0;
  if x= 'u' then
    begin
    clrscr;
     repeat
      begin
      clrscr;
       delay(60000);
       gotoxy(40-a div 2,12-i);
       write(kata);
       inc(i);
       if i=12 then
       i:=-10;
       delay(60000);
      end;
     until keypressed;
    end
  else if x= 'd' then
    begin
    clrscr;
     repeat
      begin
      clrscr;
       delay(60000);
       gotoxy(40-a div 2,12+i);
       write(kata);
       inc(i);
       if i=11 then
       i:=-11;
       delay(60000);
      end;
     until keypressed;
    end
  else if x= 'r' then
    begin
    clrscr;
     repeat
      begin
      clrscr;
       delay(60000);
       gotoxy(40-a div 2+i,11);
       write(kata);
       inc(i);
       if i=42-a div 2 then
       i:=-(39-a div 2);
       delay(60000);
      end;
     until keypressed;
    end
  else if x= 'l' then
    begin
    clrscr;
     repeat
      begin
      clrscr;
      delay(60000);
       gotoxy(40-a div 2-i,11);
       write(kata);
       inc(i);
       if i=40-a div 2 then
       i:=-(41-a div 2);
       delay(60000);
      end;
     until keypressed;
    end;
    if x<>'x' then readln
    else writeln;
    end;
    until x='x';
end.