freepascal.compiler/docs/videoex/template.pp

Program Example;

{ Program to demonstrate the *** function. }

Uses video,keyboard,vidutil;

begin
  InitVideo;
  InitKeyboard;
  DoneKeyboard;
  DoneVideo;
end.