Click above to get retro games delivered to your door ever month!

Syntax

MINIMAX( pVar, pMinimum, pMaximum[, lIsget ] )

Purpose

Force a value within a range.

Arguments

     pVar -- may pass by reference to modify directly.

     pMinimum -- minimum value

     pMaximum -- maximum value

     lIsget -- if passed, whether a GET/READ is in process

Setup

pMinimum and pMaximum must be of the same data type
as pVar.

Example

     LOCAL x := 1

     @ 10, 20 SAY "Enter a value between 1 and 10  " ;
              GET x VALID MINIMAX( @x, 1, 10, .T. )

     READ_IT()

Returns

If lIsget, .T., else value of pVar.

Side Effects

pVar may be modified if passed by reference.

Artful Calls

None.

Source File

AA_MIMAX.PRG