home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / AGSPC1B2.ZIP / NAMEISIN.PPS < prev    next >
Encoding:
Text File  |  1996-07-29  |  704 b   |  28 lines
  1. ;----------------------------------------------------------------------------
  2. ; Copyright(C) 1996, The AEGiS Corporation
  3. ;----------------------------------------------------------------------------
  4. ;
  5. ; FUNCTION NameIsIn()
  6. ;
  7. ; Returns true if current user's name is in the file passed as parameter
  8. ;
  9. ;----------------------------------------------------------------------------
  10. #lib
  11. Declare Function NameIsIn(String File) Boolean
  12.  
  13. Function NameIsIn(String File) Boolean
  14. String Name
  15.  
  16. Fopen 1, PPEPath() + File, O_RD, S_DN
  17. While (!Ferr(1)) Do
  18. FGet 1, Name
  19. If (Left(Name, 1) <> ";") Then
  20.     If (Name = U_Name()) Then
  21.         NameIsIn = True
  22.         Break
  23.     Endif
  24. Endif
  25. Endwhile
  26. Fclose 1
  27. Endfunc
  28.