home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a012 / 1.ddi / CHAP22.EXE / CHP2204.PRG < prev    next >
Encoding:
Text File  |  1991-04-30  |  561 b   |  23 lines
  1. /*
  2.    Listing 22.4  GET_F_SET
  3.    Author: Joe Booth
  4.    Excerpted from "Clipper 5: A Developer's Guide"
  5.    Copyright (c) 1991 M&T Books
  6.                       501 Galveston Drive
  7.                       Redwood City, CA 94063-4728
  8.                       (415) 366-3600
  9. */
  10.  
  11. //───── NOTE: must compile with the /N option!
  12.  
  13. function get_f_set()
  14. LOCAL f_value:=20,clip_set:=getenv("CLIPPER"),x
  15. if !empty(clip_set)
  16.    if (x:=at("F",clip_set)) > 0
  17.       f_value := val(substr(clip_set,x+1,3))
  18.    endif
  19. endif
  20. return f_value
  21.  
  22. // end of file CHP2204.PRG
  23.