home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a067 / 1.img / GRUMP501.EXE / GREGET.PRG < prev    next >
Encoding:
Text File  |  1991-07-02  |  516 b   |  18 lines
  1. /*
  2.     Function: GReGet()
  3.     Purpose:  Redisplay all active GETs
  4.     Author:   Greg Lief
  5.     Dialect:  Clipper 5.01
  6.     Copyright (c) 1991 Greg Lief
  7. */
  8. function greget
  9. memvar getlist
  10. //───── the logic below prevents hidden passwords from inadvertently
  11. //───── being displayed if you used @..GGET..PASSWORD
  12. aeval(getlist, { | get | if(get:picture == NIL .or. ;
  13.                             left(get:picture, 2) != "@P", ;
  14.                             get:display(), ) } )
  15. return nil
  16.  
  17. * eof GREGET.PRG
  18.