FlyIn

You could use small amounts of animated text to add variety to a console program. Program FlyIn makes a text heading fly in to the middle of the window from the left.

program FlyIn;
  {$mode objfpc}{$H+}
uses
  SysUtils, CRT;
const
  SLEEP_TIME = 15;
var
  i : integer;
  RightString : string;
  Heading : string = 'Introduction';
  HeadingLength : integer;
begin
  HeadingLength := length(Heading);
  //Move the heading one character at a time onto the screen
  for i := 1 to HeadingLength do
    begin
      RightString := rightStr(Heading, i);
      GoToXY(1, 1);
      sleep(SLEEP_TIME);
      writeln(RightString);
    end;
  //Move heading to the centre, using spaces to redraw background 
  for i := 1 to (windMaxX - HeadingLength) DIV 2 do
    begin
      goToXY(1, 1);
      Heading := ' ' + Heading;
      write(Heading);
      sleep(SLEEP_TIME);
    end;
  writeln;
  readln;
end.
Programming - a skill for life!

Introduction to Motion Graphics