home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / AGSPC1B2.ZIP / NAMEISI_.PPS < prev    next >
Encoding:
Text File  |  1996-07-29  |  269 b   |  13 lines
  1. ; Demonstration of the NameIsIn function (library NAMEISIN.LIB)
  2.  
  3. #ppe
  4. #libpath ..\..\lib
  5. #use nameisin
  6.  
  7. If (NameIsIn("NAME.LST")) Then
  8.     PrintLn "Your name was located in file NAME.LST"
  9. Else
  10.     PrintLn "Your name was not located in file NAME.LST"
  11. Endif
  12.  
  13.