 | 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
Box1)
, non prima di aver salvato i caratteri coperti nella terza Pagina Video alternativa
(Pagina 3) (con SALVAbox).
Alla pressione di un tasto i caratteri originali vengono riportati
(con
RecupBox) sullo schermo
(cioè in Pagina 0).
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM Prova_SALVAbox;
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 la finestra racchiusa *}
SALVAbox
(9,3,15,12,3);{* tra la riga9,
colonna3 e la *}
{* riga15, colonna12 diretta- *}
{* mente nella terza pagina *}
{* alternativa (Pagina 3) *}
{*******************************}
{*******************************}
{* Traccia la finestra chiusa *}
Box1(9,3,15,12,3,1,'#');{*
tra la riga9, colonna3 e la *}
{* riga15, colonna12 SENZA COR-*}
{* NICE, con caratteri '#' *}
{* color Celeste(3) su Blu(1) *}
{*******************************}
{*************************************}
tasto:=readkey; {*
Aspetta la pressione di un tasto *}
{*************************************}
{*******************************}
{* Recupera l'area racchiusa *}
RECUPbox (9,3,15,12,3);{* tra
la riga9, colonna3 e la *}
{* riga15, colonna12 diretta- *}
{* mente dalla terza pagina *}
{* alternativa (Pagina 3) *}
{*******************************}
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un
tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|
