home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / 554 / JUILLET / VGACTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1993-10-07  |  2KB  |  44 lines
  1. program TestingVgaChars;
  2.  
  3. uses VGAChars;
  4.  
  5. procedure CharSet; assembler;
  6. asm
  7.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  8.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  9.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  10.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  11.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  12.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  13.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  14.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  15.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  16.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  17.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  18.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  19.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  20.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  21.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  22.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  23.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  24.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  25.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  26.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  27.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  28.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  29.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  30.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  31.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  32.   db 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  33. end;
  34.  
  35. begin
  36.   writeln('AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz');
  37.   writeln('Press ENTER to Change the Character Set!');
  38.   writeln('Then Press ENTER Again to Quit!');
  39.   readln;
  40.   LoadNewCharSet(Seg(CharSet), Ofs(CharSet), 65, 26);
  41.   readln;
  42.   ReloadDefaults;
  43. end.
  44.