home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbfaqr01 / graphic / cgetclr.bas < prev    next >
Encoding:
BASIC Source File  |  1992-08-09  |  445 b   |  13 lines
  1. SUB GetCharColor (Row%, Col%, Fore%, Back%)
  2.  
  3.    'Purpose : To get the colour attributes of a particular character
  4.    '            Note : only works in SCREEN 0
  5.    'Input   : Row% = row where character is at
  6.    '          Col% = column where the character is at
  7.    'Return  : Fore% = the foreground colour
  8.    '          Back% = the background colour
  9.    
  10.    A = SCREEN(Row%, Col%, 1)
  11.    Back% = A \ 16
  12.    Fore% = A - Back% * 16
  13. END SUB