PROGRAM Prova_ViaCur;
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.