home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9302 / pastrick / fontdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-02-22  |  618 b   |  24 lines
  1. (* ****************************************************** *)
  2. (*                       FONTDEMO.PAS                     *)
  3. (*                Demonstration der Unit TxtFont          *)
  4. (*              (c) 1993 Andres Cvitkovich & DMV          *)
  5. (* ****************************************************** *)
  6. PROGRAM FontDemo;
  7.  
  8. USES TxtFont;
  9.  
  10. CONST
  11.   LINE_ROW = 13;
  12.  
  13. VAR
  14.   i : BYTE;
  15.  
  16. BEGIN
  17.   MapFont;
  18.   FOR i := 0 TO 255 DO
  19.     foData [i] [LINE_ROW] := $FF;
  20.   UnmapFont;
  21. END.
  22. (* ****************************************************** *)
  23. (*                Ende von FONTDEMO.PAS                   *)
  24.