program The3dStarsEngine;

uses spence, crt, graph;

begin
  ClearMenu;
  menu(1,13,76,16,'This Demonstrates The',red+blink);
  writelnmenu(1,'Spence Unit');
  delay(1000);
  menu(35,20,55,23,'Press a key',Green);
  readkey;
  StartGraph;
  SpenceLogo;
  closegraph;
end.