home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / FIND.CTL < prev    next >
Encoding:
Text File  |  1992-08-04  |  845 b   |  34 lines
  1.  
  2. ;USERFIND by Doug Vermes with modifications by Scott Brown
  3.  
  4. *UserFind
  5.  
  6. *Main
  7.  Say (&CR&&15&Enter Name of User: &12&*)
  8.  MenuAsk%MIN1%(*)
  9. *Searching
  10.  log (--,UserFind for:%Resp%)
  11.  SeekUser(%RESP%)
  12.  ifnottrue(goto (notfound))
  13.  Loaduser (%NDNUMB%)
  14.  enufsec (100)
  15.  iftrue (Say (&7&Street            : &3&\:STREET\))
  16.  Say (&7&From              : &3&\:FROM\)
  17.  iftrue(Say (&7&Birthday          : &3&\:BIRTH\))
  18.  iftrue(Say (&7&Phone Number      : &3&\:PHONE\))
  19.  Say (&7&Last Date On      : &3&\:LAST\)
  20.  Say (&7&Last Time On      : &3&\:LASTT\&CR&)
  21.  yesnoask (&12&Search For Another User (Y/N)? &15&*)
  22.  If (%RESP%)=(Yes) then goto (main)
  23. return
  24.  
  25. *NotFound
  26.  Say (&4&User Not Found in User File!)
  27.  Enter
  28.  return
  29.  
  30. *NotEnufSec
  31.  Say (&12&Sorry, but your security is not high enough to access this command.&CR&)
  32.  Enter
  33.  return
  34.