PROGRAM Prova_CORN_DOS;
USES Crt, giobe;
VAR tasto: char;
BEGIN
  TextBackground(0);
  Clrscr;
  Viacur;
  TextColor(15);
  GotoXY (25,13); 
  write ('Esempio di Cornice di sovrascansione:');

                {****************************************}
  CORN_DOS (2);{* Traccia cornice  DOS di colore verde *}
                {****************************************}

  tasto:=readkey; {**************************************}
  GotoXY (1,25);  {* Aspetta un tasto e poi torna a DOS *}
  RipCur;         {**************************************}
END.