 | La procedura è scritta
in Pascal:
 | si limita a chiamare le 2 procedure
SalvaBox, che provvede a salvare i caratteri sottostanti all’area che sta per essere stampata, e
Box1,
che stampa effettivamente la finestra di caratteri |
| i parametri
ri,co,ri1,co1 devono essere
gli stessi per entrambe, per
consentire al codice in linguaggio macchina che le implementa di agire nella
medesima memoria Video |
| anche la
RecupBox, che
pụ essere chiamata in seguito, dovrà avere gli stessi parametri, per la medesima ragione. |
|
Codice Sorgente |
|
 |
 |
 |
PROCEDURE
Box2(ri,co,ri1,co1,txt,sfo,numPAG:byte;carat:char);
VAR
indirizzo,n,alto,largo:word;
BEGIN
SALVAbox
(ri,co,ri1,co1,numPAG);
Box1 (ri,co,ri1,co1,txt,sfo,carat);
END;
|
|
