PROGRAM Prova_Salva_Recup_Chr;
USES Crt, giobe;
VAR i: integer;
    tasto:char;
BEGIN
  TextBackground(0);
  Clrscr;
  Viacur;
  TextBackground(4);            {************************}
  TextColor(15); GotoXY (1,8);  {* Stampa nove righe di *}
  FOR i:=1 to 720 DO            {* asterischi   bianchi *}
    write ('*');                {* su   campo   rosso   *}
                                {************************}

                   {*************************************}
  tasto:=readkey;  {* Aspetta la pressione di un  tasto *}
                   {*************************************}

                         {*******************************}
                         {* Salva il testo posto al cen-*}
  FOR i:=1 to 80 do      {* tro dello schermo (80 carat-*}
                         {* teri) nella  seconda pagina *}
                         {* alternativa della Ram Video *}
                         {*******************************}

  TextBackground(1);            {************************}
  TextColor(14); GotoXY (1,8);  {* Stampa nove righe di *}
  FOR i:=1 to 720 DO            {* asterischi   gialli  *}
    write ('*');                {* su   campo   blu     *}
                                {************************}

                   {*************************************}
  tasto:=readkey;  {* Aspetta la pressione di un  tasto *}
                   {*************************************}

                         {*******************************}
                         {* Recupera il testo posto  al *}
  FOR i:=1 to 80 do      {* tro dello schermo (80 carat-*}
    RECUPchr (12,i,2);   {* ratteri) dalla seconda pagi-*}
                         {* na  alternativa  Ram  Video *}
                         {*******************************}

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