Animation in Turbo Pascal

In this article I would like to share with you a sample animation program that I wrote in Turbo Pascal  a long time ago that uses basic delay, text color and gotoxy coordinate using the Turbo Pascal Crt library.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Program Listing

Program Hellos;

Uses Crt;

Var A,B,C,D,E : integer;

    St : String;

    Ch : Char;

Begin

 Repeat

 TextAttr := LightCyan;

 Clrscr;

 St := 'Hello';

 For A := 1 to 75 DO

  Begin

    Gotoxy(A,1);

    Write(' ',St);

    Delay(1830);

   End;

      For b := 1 to 24 DO

  Begin

    Delline;

    Gotoxy(75,b);

    Write(St);

    Delay(1830);

   End;

    For C := 75 Downto 1 DO

  Begin

    Gotoxy(C,24);

    Write(St,' ');

    Delay(1830);

   End;

     For D := 24 Downto 1 DO

  Begin

    Delline;

    Gotoxy(1,d);

    Write(St);

    Delay(1830);

  end;

 Until Ch = #13;

 End.