| La procedura è scritta
in Pascal:
| Si nota immediatamente che si tratta di una particolare esecuzione di
Cornice1;
il codice si occupa di ricostruire per essa il parametro mancante
(“col”) al fine di collocarla
al centro dello schermo. |
| I noti problemi
di scrolling verso l’alto di una riga di tutta l’immagine, legati alla
eventuale stampa in posizione [80,25] sono risolti direttamente da
Cornice1
che chiama
STAchr
al suo interno |
Codice Sorgente |
|
|
|
|
PROCEDURE
Cornice5 (rig,lar,alt,txt,sfo,tipo,modo:integer);
VAR
col:integer;
BEGIN
textcolor (txt); textbackground(sfo);
col:=
(80-lar) div 2;
col:=col+1;
Cornice1 (rig,col,lar,alt,txt,sfo,tipo,modo);
END;
|
|