*!*******************************************************************
*! Function..........: Bright()
*! Author............: David Lee Powell
*! Project...........: Common
*! Created...........: 1-Jan-1994
*! Copyright.........: None:  Public Domain
*) Description.......: Sets Window Color showing focus
*! Syntax............: None
*! Parameter list....: None
*! Platform..........: DOS
*! Major change list.: None
*! Called by.........: UpArrow()   : DownArrow() (FUNC in BigMover)
*!                   : Home()      : End()       (FUNC in BigMover)
*!                   : MoveElem()  : Letter()    (FUNC in BigMover)
*!                   : PageDown()  : PageUp()    (FUNC in BigMover)
*! Calls.............: None
*!*******************************************************************
FUNC Bright
 
IF jaTotRecs[ jnWindow ] > 0
   IF jnWindow = 1
      @ j1 - jaPointer[ 1 ] -1,01 SAY jaAvail[ j1 ]  COLO (jcHighVid )
   ELSE
      @ j2 - jaPointer[ 2 ] -1,01 SAY jaSelect[ j2 ] COLO (jcHighVid )
   ENDI
ENDI
 
 
*!*******************************************************************
*! Function..........: Dim()
*! Author............: David Lee Powell
*! Project...........: Common
*! Created...........: 1-Jan-1994
*! Copyright.........: None:  Public Domain
*) Description.......: Sets Window Color showing focus lost
*! Syntax............: None
*! Parameter list....: None
*! Platform..........: DOS
*! Major change list.: None
*! Called by.........: UpArrow()   : DownArrow() (FUNC in BigMover)
*!                   : Home()      : End()       (FUNC in BigMover)
*!                   : MoveElem()  : Letter()    (FUNC in BigMover)
*!                   : MoveRight() : MoveLeft()  (FUNC in BigMover)
*! Calls.............: None
*!*******************************************************************
FUNC Dim
 
IF jaTotRecs[ jnWindow ] > 0
   IF jnWindow = 1
      @ j1 - jaPointer[ 1 ] -1,01 SAY jaAvail[ j1 ]  COLO (jcNormVid )
   ELSE
      @ j2 - jaPointer[ 2 ] -1,01 SAY jaSelect[ j2 ] COLO (jcNormVid )
   ENDI
ENDI
 
 
 
*!*******************************************************************
*! Function..........: UpArrow()
*! Author............: David Lee Powell
*! Project...........: Common
*! Created...........: 1-Jan-1994
*! Copyright.........: None:  Public Domain
*) Description.......: Alter behaviour of the UpArrow key
*! Syntax............: None
*! Parameter list....: None
*! Platform..........: DOS
*! Major change list.: None
*! Called by.........: BigMover
*! Calls.............: None
*!*******************************************************************
FUNC UpArrow
 
ON KEY LABE UpArrow
 
IF jnWindow = 1
   IF j1 - 1 = 0
      =Alarm()
      ON KEY LABE UpArrow DO UpArrow
      RETU
   ENDI
ELSE
   IF j2 - 1 = 0
      =Alarm()
      ON KEY LABE UpArrow DO UpArrow
      RETU
   ENDI
ENDI
 
=Dim()
 
IF jnWindow = 1
   j1 = j1 - 1
ELSE
   j2 = j2 - 1
ENDI
 
IF jnWindow = 1
   IF j1 - jaPointer[ 1 ] = 0
      SCROLL 0, 1, Max -1, WCOL() -2, -1
      @ 00,01 SAY jaAvail[ jaPointer[ 1 ] ]  COLO ( jcNormVid )
   ENDI
   jaPointer[ 1 ] = jaPointer[ 1 ] -1
   jaPointer[ 1 ] = MAX( 0, jaPointer [ 1 ] )
ELSE
   IF j2 - jaPointer[ 2 ] = 0
      SCROLL 0, 1, Max -1, WCOL() -2, -1
      @ 00,01 SAY jaSelect[ jaPointer[ 2 ] ] COLO ( jcNormVid )
   ENDI
   jaPointer[ 2 ] = jaPointer[ 2 ] -1
   jaPointer[ 2 ] = MAX( 0, jaPointer [ 2 ] )
ENDI
=Bright()
ON KEY LABE UpArrow DO UpArrow
 
 

--- Maximus/2 3.01
---------------