 | Il codice mostra le istruzioni necessarie per il
collaudo delle procedure al servizio delle aree quadrangolari, dette
Box; dopo la stampa di un testo di prova (le nove righe centrali) si
provvede a stampare una finestra colorata al suo interno (con
Box2)
, che provvede anche a salvare i caratteri coperti nella terza Pagina Video alternativa
(Pagina 3). Alla pressione di un tasto i caratteri originali vengono riportati
(con RECUPbox) sullo schermo
(cioè in Pagina 0).
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM Prova_RECUPbox;
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 *}
{*************************************}
{****************************}
{* Traccia la finestra chiu-*}
Box2(9,3,15,12,3,1,3,'#');{*
sa tra la riga9,colonna3 *}
{* e la riga15, colonna12 *}
{* SENZA CORNICE, con carat-*}
{* teri '#' color Celeste(3)*}
{* su Blu(1) SALVANDO PRIMA
*}
{* L'AREA SOTTOSTANTE
*}
{****************************}
{*************************************}
tasto:=readkey; {*
Aspetta la pressione di un tasto *}
{*************************************}
{*******************************}
{* Recupera l'area racchiusa *}
RECUPbox
(9,3,16,12,3);{* tra la riga9,
colonna3 e la *}
{* riga16, colonna12 diretta- *}
{* mente dalla terza pagina *}
{* alternativa (Pagina 3) *}
{*******************************}
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un
tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|
