*!*******************************************************************
*! Function..........: DownArrow()
*! Author............: David Lee Powell
*! Project...........: Common
*! Created...........: 1-Jan-1994
*! Copyright.........: None:  Public Domain
*) Description.......: Alter behaviour of the DnArrow key
*! Syntax............: None
*! Parameter list....: None
*! Platform..........: DOS
*! Major change list.: None
*! Called by.........: BigMover
*! Calls.............: None
*!*******************************************************************
FUNC DownArrow
 
ON KEY LABE DnArrow
 
IF jnWindow = 1
   IF j1 + 1 > jaTotRecs[ 1 ]
      =Alarm()
      ON KEY LABE DnArrow DO DownArrow
      RETU
   ENDI
ELSE
   IF j2 + 1 > jaTotRecs[ 2 ]
      =Alarm()
      ON KEY LABE DnArrow DO DownArrow
      RETU
   ENDI
ENDI
=Dim()
 
IF jnWindow = 1
   j1 = j1 + 1
   IF (j1 - jaPointer[ 1 ] > Max )
      IF j1 <= jaTotRecs[ 1 ]
         SCROLL 0, 1, Max -1, WCOL() -2, 1
         jaPointer[ 1 ] = jaPointer[ 1 ] +1
      ELSE
         =Alarm()
         j1 = j1 - 1
      ENDI
   ENDI
ELSE
   j2 = j2 + 1
   IF (j2 - jaPointer[ 2 ] > Max )
      IF j2 <= jaTotRecs[ 2 ]
         SCROLL 0, 1, Max -1, WCOL() -2, 1
         jaPointer[ 2 ] = jaPointer[ 2 ] +1
      ELSE
         =Alarm()
         j2 = j2 - 1
      ENDI
   ENDI
ENDI
=Bright()
ON KEY LABE DnArrow DO DownArrow
 
 
*!*******************************************************************
*! Function..........: PageUp()
*! Author............: David Lee Powell
*! Project...........: Common
*! Created...........: 1-Jan-1994
*! Copyright.........: None:  Public Domain
*) Description.......: Alter behaviour of the PgUp key
*! Syntax............: None
*! Parameter list....: None
*! Platform..........: DOS
*! Major change list.: None
*! Called by.........: BigMover
*! Calls.............: None
*!*******************************************************************
FUNC PageUp
 
ON KEY LABE PgUp
 
IF jaPointer[ jnWindow ] = 0
   =Alarm()
   ON KEY LABE PgUp DO PageUp
   RETU
ENDI
 
IF jaPointer[ jnWindow ] > Max
   jaPointer[ jnWindow ] = jaPointer[ jnWindow ] - Max
ELSE
   jaPointer[ jnWindow ] = 0
ENDI
=WinClean()
IF jnWindow = 1
   j1 = jaPointer[ 1 ] + 1
ELSE
   j2 = jaPointer[ 1 ] + 1
ENDI
=Bright()
 
ON KEY LABE PgUp DO PageUp
 
 
*!*******************************************************************
*! Function..........: PageDown()
*! Author............: David Lee Powell
*! Project...........: Common
*! Created...........: 1-Jan-1994
*! Copyright.........: None:  Public Domain
*) Description.......: Alter behaviour of the PgDn key
*! Syntax............: None
*! Parameter list....: None
*! Platform..........: DOS
*! Major change list.: None
*! Called by.........: BigMover
*! Calls.............: None
*!*******************************************************************
FUNC PageDown
 
ON KEY LABE PgDn
 
IF jaPointer[ jnWindow ] + Max >= jaTotRecs[ jnWindow ]
   =Alarm()
   ON KEY LABE PgDn DO PageDown
   RETU
ENDI
 
jaPointer[ jnWindow ] = jaPointer[ jnWindow ] + Max
=WinClean()
IF jnWindow = 1
   j1 = jaPointer[ 1 ] + 1
   IF j1 > jaTotRecs[ 1 ]
      j1 = jaTotRecs[ 1 ]
   ENDI
ELSE
   j2 = jaPointer[ 2 ] + 1
   IF j2 > jaTotRecs[ 2 ]
      j2 = jaTotRecs[ 2 ]
   ENDI
ENDI
=Bright()
 
ON KEY LABE PgDn DO PageDown
 
 
*!*******************************************************************
*! Function..........: Home()
*! Author............: David Lee Powell
*! Project...........: Common
*! Created...........: 1-Jan-1994
*! Copyright.........: None:  Public Domain
*) Description.......: Alter behaviour of the Home key
*! Syntax............: None
*! Parameter list....: None
*! Platform..........: DOS
*! Major change list.: None
*! Called by.........: BigMover
*! Calls.............: None
*!*******************************************************************
FUNC Home
 
=Dim()
IF jnWindow = 1
   j1 = IIF( jaPointer[ 1 ] = 0, 1, jaPointer[ 1 ] + 1 )
ELSE
   j2 = IIF( jaPointer[ 2 ] = 0, 1, jaPointer[ 2 ] + 1 )
ENDI
=Bright()
 
 
*!*******************************************************************
*! Function..........: End()
*! Author............: David Lee Powell
*! Project...........: Common
*! Created...........: 1-Jan-1994
*! Copyright.........: None:  Public Domain
*) Description.......: Alter behaviour of the End key
*! Syntax............: None
*! Parameter list....: None
*! Platform..........: DOS
*! Major change list.: None
*! Called by.........: BigMover
*! Calls.............: None
*!*******************************************************************
FUNC End
 
=Dim()
IF jnWindow = 1
   j1 = IIF( jaPointer[ 1 ] = 0, Max, jaPointer[ 1 ] + Max )
   IF j1 > jaTotRecs[ 1 ]
      j1 = jaTotRecs[ 1 ]
   ENDI
ELSE
   j2 = IIF( jaPointer[ 2 ] = 0, Max, jaPointer[ 2 ] + Max )
   IF j2 > jaTotRecs[ 2 ]
      j2 = jaTotRecs[ 2 ]
   ENDI
ENDI
=Bright()
 
 

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