Re: screen function

 BBS: Inland Empire Archive
Date: 11-21-92 (11:21)             Number: 376
From: DIK COATES                   Refer#: NONE
  To: JEFF FREEMAN                  Recvd: NO  
Subj: Re: screen function            Conf: (2) Quik_Bas

>>>> QUOTING Jeff Freeman to All <<<<

To get attributes the following can be used:

'*********************************************************** FUNCTION GETBGA%
'
' Procedure gets current SCREEN background attribute
'
' CALL: GETBGA% (row%, col%)
'
' ARG:  row%  - row location for required background attribute
'       col%  - column location for required background attribute
'               required
'
' COMP: MS Basic 7.1
'
' REV:  91-02-11
'
'****************************************************************************
'
FUNCTION GETBGA% (row%, col%)

 attr% = SCREEN(row%, col%, 1)
 GETBGA% = (attr% \ 16) AND &H7

END FUNCTION 'GETBGA%


'*********************************************************** FUNCTION GETFGA%
'
' Procedure gets current SCREEN foreground attribute
'
' CALL: GETFGA% (row%, col%)
'
' ARG:  row%  - row location for required foreground attribute
'       col%  - column location for required foreground attribute
'               required
'
' COMP: MS Basic 7.1
'
' REV:  91-02-11
'
'****************************************************************************
'
FUNCTION GETFGA% (row%, col%)

 attr% = SCREEN(row%, col%, 1)
 GETFGA% = (attr% AND &HF) + (attr% AND &H80) \ 8

END FUNCTION 'GETFGA%


Trusting the above will be helpful...Regards Dik

... Damn touchscreen, Anyone see my braille tagline... -Dik
___ Blue Wave/QWK v2.10

--- Maximus 2.00
 * Origin: Durham Systems (ONLINE!) (1:229/110)