home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 572 / xgrafic2 / demos / demo03.pas < prev    next >
Pascal/Delphi Source File  |  1994-07-21  |  690b  |  27 lines
  1. USES XGRAPHIC;
  2.  
  3.  
  4. var fin : integer;
  5.  
  6.  
  7. BEGIN
  8.    modevga480;
  9.    choisirpolice(0,1);
  10.    texte(10,10,14,'TEXTE NORMAL');
  11.    choisirpolice(1,2);
  12.    texte(10,50,9,'TEXTE AVEC UNE AUTRE POLICE');
  13.    choisirpolice(2,4);
  14.    texte(10,80,5,'TEXTE AVEC UNE AUTRE POLICE');
  15.    choisirpolice(3,3);
  16.    texte(10,150,13,'TEXTE AVEC UNE AUTRE POLICE');
  17.    choisirpolice(0,4);
  18.    texte3d(10,250,1,15,'TEXTE 3D');
  19.    choisirpolice(4,3);
  20.    texte(10,400,15,'TEXTE AVEC UNE AUTRE POLICE');
  21.    choisirpolice(2,5);
  22.    effetchaine(10,460,6,'CECI EST LA FONCTION EFFETCHAINE');
  23.    choisirpolice(0,1);
  24.    effetchaine(100,300,15,'APPUYER SUR UNE TOUCHE');
  25.    readln;
  26.    finmodegraphique;
  27. END.