home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 4 / pcs_fd_04.img / FONTMAN.RAR / PAS_DEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-07-13  |  2.9 KB  |  79 lines
  1. (* FONT MANIA pascal font *)
  2. uses
  3.     DOS, CRT;
  4. (*--------------------------------------------------------------------------
  5.  
  6.    Font is saved in the filenamed DEMO.PAS.  To use the font, you must call
  7.    interrupt 10h, function 11h, sub-function 10h to load up the font.
  8.    
  9.    The following are the parameter needed to call the function:
  10.   
  11.                   AX  =  $1110      (ah = $11, al = $10)
  12.           BH  =  bytes per character 
  13.           BL  =  block to load to.  (use 0)
  14.           CX  =  number of character defined by table
  15.           DX  =  starting character value
  16.           ES  =  segment of the table (use Seg())
  17.           BP  =  offset of the table (use Ofs())
  18.  
  19.    Notice:  You should always upload the character immediately after set
  20.             the Video mode.  Also you must make sure that page 0 is active.
  21.         If it is not call immediately after the video mode set, some
  22.         side effects may occur.  I had experience some palette errors
  23.         my self, when I call this function with out changing video 
  24.         mode.  This doesn't happen all the time, however.  But be on 
  25.         the safe side is the best.   
  26.    
  27.    FONT MANIA will supply you with the height of the font.  It is defined
  28.    by your label name with "_POINTS" added at the end of the string.  For
  29.    example, if your label reference is call DEMO, then DEMO_POINTS will 
  30.    represent the byte-per-character of the font (the height of the font).
  31.    
  32.    Set the CX to 256 if you want to upload the whole font.   If you want to 
  33.    only upload part of font.  Set CX to whatever number of the character 
  34.    you want to upload, and set DX to the first character you want to upload.
  35.    
  36.    For example, suppose you want to upload the character 65 to 88, 
  37.    ('A' to 'Z') and the label reference is DEMO.  Here are the parameter
  38.    needed:
  39.    
  40.          AX  =  $1110;
  41.          BH  =  DEMO_POINTS;
  42.          BL  =  0;
  43.          CX  =  24;               ( 24 characters to load )
  44.          DX  =  65;               ( first character to load )
  45.          ES  =  Seg(DEMO);
  46.          BP  =  Ofs(DEMO);
  47.          
  48.    See below for examples of how to set the registers. 
  49. ---------------------------------------------------------------------------*)
  50.  
  51. {$I DEMO.PAS}            
  52. Var
  53.    r : registers;
  54.    temp : char;
  55.  
  56. BEGIN
  57.   WriteLn('This is a font test');
  58.   WriteLn('Press any key to begin upload the font');
  59.   temp := readkey;
  60.  
  61.   r.ax := $0500;            (* make sure that it's page 0 *)
  62.   intr($10, r);
  63.   
  64.   r.ax := 3;                (* must set the vdo mode first *)
  65.   intr($10, r);
  66.  
  67.   r.ax := $1110;
  68.   r.bh := test_points;                   (* bytes per character *)
  69.   r.bl := 0;                             (* load to block 0 *)
  70.   r.cx := 256;                           (* 256 characters *)
  71.   r.dx := 0;                             (* start with character 0 *)
  72.   r.es := Seg(test);                     (* segment of table *)
  73.   r.bp := Ofs(test);                     (* offset of the table *)
  74.   intr($10, r);
  75.  
  76.   WriteLn('Font loadded');
  77.   temp := readkey;
  78.  
  79. END.