 | Il codice mette in evidenza la necessità di passare a
PreImplos gli stessi parametri passati in precedenza a
Implosione, alla quale è esclusivamente dedicata; in particolare sono ora significativi solo i parametri relativi alla posizione iniziale a partire dell'angolo in alto a sinistra
"rig”=5,”col“=20, e alla dimensione
“lar“=40 e “alt“=15, nonché la pagina alternativa
“numPAG”=2, in cui vengono salvati i caratteri originali posti sotto la cornice. il codice è copia dell’esempio presentato per Implosione.
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM Prova_PreImplos;
USES Crt,
giobe;
VAR tasto:char;
BEGIN
Viacur;
{************************************}
Riempi1(7,1,' ');
{*
Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
{PreImplos(rig,col,lar,alt,txt,sfo,numPAG);)
PreImplos
( 5, 20, 40, 15, 14, 1 , 2 );
GotoXY (30,8); write ('Prova di Esplosione');
{**************************************}
tasto:=readkey; {* Aspetta la
pressione di un tasto *}
{**************************************}
{Implosione (ritardo, rig, col, lar, alt, sfo, numPAG);}
Implosione ( 10
, 5 , 20, 40, 15, 1 , 2)
;
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|
