PROGRAM Prova_RipCur;
USES Crt, giobe;
VAR tasto: char;
BEGIN
  TextBackground(0);
  Clrscr;
  Viacur;

  {******************************************************}
  {* Inserire qui le altre istruzioni del programma     *}
  {******************************************************}

  REPEAT                                   {*************}
    tasto:=readkey;                        {*Aspetta  un*}
  UNTIL (UpCase(tasto)='Q') OR (tasto=#27);{*tasto e poi*}
  GotoXY (1,25);                           {*torna a DOS*}
  RipCur;                                 {*************}
END.
 ( * )    Data la semplicità funzionale di questa Procedura non sono previsti eseguibili () ed
             esempi da scaricare (),    mentre l'effetto del programma () si da per scontato.