home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 572 / xgrafic2 / demos / demo01.pas < prev    next >
Pascal/Delphi Source File  |  1994-07-21  |  673b  |  23 lines
  1. USES XGRAPHIC;
  2.  
  3. BEGIN
  4.    modevga480;
  5.    texte(10,10,1,'VOUS ETES EN MODE 640 * 480 * 16 COULEURS');
  6.    texte(10,30,9,'APPUYER SUR UNE TOUCHE');
  7.    readln;
  8.    modevga350;
  9.    texte(10,10,1,'VOUS ETES EN MODE 640 * 350 * 16 COULEURS');
  10.    texte(10,30,9,'APPUYER SUR UNE TOUCHE');
  11.    readln;
  12.    modevga200;
  13.    texte(10,10,1,'VOUS ETES EN MODE 640 * 200 * 16 COULEURS');
  14.    texte(10,30,9,'APPUYER SUR UNE TOUCHE');
  15.    readln;
  16.    finmodegraphique;
  17.    modevga256c;
  18.    texte(1,10,1,'VOUS ETES EN MODE 320*200*256COULEURS');
  19.    texte(10,30,100,'APPUYER SUR UNE TOUCHE POUR REVENIR');
  20.    texte(10,50,100,'AU MODE TEXTE');
  21.    readln;
  22.    finmodegraphique256;
  23. END.