 | La procedura è scritta
in Pascal:
 | provvede alla stampa di
1999 caratteri “carat”,
evitando accuratamente si stampare l’ultimo,
in basso a destra |
| stampa l’ultimo carattere
in basso a destra,
in posizione [80,25], con l'aiuto della procedura STAchr, al fine di scongiurare lo scrolling
verso l’alto di una riga di tutta l’immagine |
|
Codice Sorgente |
|
 |
 |
|
PROCEDURE
Riempi1(sfo,txt:integer;carat:char);
VAR n:integer;
BEGIN
TextColor(txt);
TextBackground(sfo);
GotoXY(1,1);
FOR n:=1 to 25*80-1 do
write(carat);
{*************************}
{* queste istruzioni com-*}
{* pletano la stampa del *}
STAchr(25,80,txt,sfo,carat);
{* piano di lavoro evi- *}
{* tando lo scrolling del*}
{* video di una riga *}
{*************************}
GotoXY(1,1);
END; |
|
