unit ECO_scrn;
interface uses
  crt, graph, bgidriv,
  ECO_vid

  ;

  procedure screensaver(st: string);