home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST344.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  829 b   |  37 lines
  1. *******************
  2.  
  3. FUNCTION Range
  4.  
  5.    PARAMETERS _value, _start, _end, _row, _col
  6.  
  7.    IF LASTKEY() = 5
  8.       RETURN(.T.)
  9.    ENDIF
  10.  
  11.    IF PCOUNT() < 3
  12.       RETURN(.F.)
  13.    ELSEIF PCOUNT() = 3
  14.       _row = 24
  15.       _col = 00
  16.    ELSEIF PCOUNT() = 4
  17.       _col = 00
  18.    ENDIF
  19.  
  20.    IF TYPE("_value")+TYPE("_start")+TYPE("_end")+TYPE("_row")+TYPE("_col") != "NNNNN"
  21.       RETURN(.F.)
  22.    ENDIF
  23.  
  24.    PRIVATE temp_color, message
  25.  
  26.    temp_color = SETCOLOR()
  27.    SETCOLOR(Set_color(Attribute(_row,_col)))
  28.    message = "The value must be between " + LTRIM(TRIM(STR(_start))) + ;
  29.              " and " + LTRIM(TRIM(STR(_end)))
  30.  
  31.    @ _row, _col SAY IF( (_value >= _start .AND. _start <= _end), ;
  32.               SPACE(LEN(message)), message)
  33.  
  34.    RETURN( (_value >= _start .AND. _start <= _end) )
  35.  
  36. * End of File
  37.