 | Dopo la stampa della Cornice con una prima pressione di un tasto qualunque vengono
recuperati i caratteri sottostanti
e con una seconda pressione si riabilita il Cursore e il programma viene
terminato.
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM Prova_RECUPcorn;
USES Crt,
giobe;
VAR tasto:char;
BEGIN
TextBackground (0);
ClrScr;
Viacur;
{************************************}
Riempi1(7,1,' ');
{*
Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
{Cornice3(rig,col,lar,alt,txt,sfo,ombP,ombS,tipo,numPAG)}
Cornice3(
5, 20, 40, 15, 15, 1 , 7 , 0 , 1 , 3
);
{**************************************}
tasto:=readkey; {* Aspetta la
pressione di un tasto *}
{**************************************}
{RECUPcorn (rig,col,lar,alt,numPAG);}
RECUPcorn ( 5 , 20, 40, 15,
3 );
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|
