 | I caratteri sotto le
cornici vengono salvati nella
pagina1 in Ram Video (“numPAG”=1)
, ma solo perché la procedura provvede a cị automaticamente; il
loro recupero è in questo caso non significativo [per saperne di più consulta
la
Scheda nella Sezione
Dentro il Computer].
|
Esempio di
Applicazione n°1 |
Es.
n°2 |
 |
 |
 |
PROGRAM Prova_Esplosione_A;
USES Crt,
giobe;
VAR tasto:char;
BEGIN
Viacur;
{Esplosione
(ritardo,lar,alt,txt,sfo,tipo,numPAG);}
Esplosione (
3 , 80, 25, 15, 7 , 2 , 1 );
Esplosione (
6 , 76, 23, 14, 6 , 1 , 1 );
Esplosione (
9 , 72, 21, 13, 5 , 1 , 1 );
Esplosione (
12 , 68, 19, 12, 4 , 1 , 1 );
Esplosione (
15 , 64, 17, 11, 3 , 1 , 1 );
Esplosione (
18 , 60, 15, 10, 2 , 1 , 1 );
Esplosione (
21 , 56, 13, 9, 1 , 1 , 1 );
Esplosione (
24 , 52, 11, 8, 0 , 1 , 1 );
Esplosione (
27 , 48, 09, 7, 1 , 1 , 1 );
Esplosione (
30 , 44, 07, 6, 2 , 1 , 1 );
Esplosione (
33 , 40, 05, 5, 3 , 1 , 1 );
Esplosione (
36 , 36, 03, 4, 1 , 1 , 1 );
TextColor (15);
GotoXY (31,13); write ('Prova di Esplosione');
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un
tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|
