home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Interdit
/
pc-interdit.iso
/
graph
/
draw_fon.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-10-06
|
552b
|
19 lines
Uses Crt,ModeXLib,Gif,Font;
Var Entree:Char; {caractère tapé }
Begin
Init_ModeX; {initialise le mode X }
LoadGif('pfont4'); {charge le jeu de caractères }
p13_2_ModeX(48000,16000); {et le copie en page 3 }
Repeat {boucle d'affichage des frappes }
Entree:=ReadKey; {lit un caractères }
Print_Char(Entree); {et l'affiche }
Until Entree=#27; {jusqu'à ce qu'on tape Esc }
Print_String('Ceci est un test'); {pour terminer affiche toute une chaîne }
ReadLn;
TextMode(3);
End.