 | La procedura è scritta
in Pascal:
 | Si
tratta semplicemente dell’azione combinata delle procedure
SalvaBox e
Cornice1: la prima salva (nella Pagina Video alternativa indicata da
“numPAG”) il contenuto dell’area che sta per essere coperta dalla chiamata della seconda. |
| Il compito di recuperare l’area dei caratteri originali spetta al programma che utilizza
PreImplos, eseguendo al momento opportuno la chiamata di Implosione, con gli stessi parametri utilizzati per
PreImplos |
| Per la natura
autocentrante di Implosione, la scelta dei parametri di
SalvaBox
è piuttosto laboriosa poiché bisogna calcolare di volta in volta le coordinate
"ri1”,”co1" del suo angolo in basso a destra a partire dalle dimensioni
“lar“,“alt“ dell’ingombro finale di Implosione; questa procedura è nata proprio per rendere automatica questa scelta. |
|
Codice Sorgente |
|
 |
 |
 |
PROCEDURE
PreImplos (rig,col,lar,alt,txt,
sfo:integer;numPAG:byte);
BEGIN
{SALVAbox (ri , co, ri1 ,
co1 ,numPAG);}
SALVAbox (rig,col,rig+alt,col+lar+1,numPAG);
Cornice1 (rig,col,lar,alt,txt,sfo,1,1);
END;
|
|
