home *** CD-ROM | disk | FTP | other *** search
/ PC Press 1997 July / Sezamfile97_1.iso / msdos / clipper / c50xp300.a01 / XPNGDEMO.ARJ / NGDIR.PRG < prev    next >
Text File  |  1992-10-01  |  837b  |  26 lines
  1. * ------------------------------------------------------------------------
  2. * File........:    NGDIR.PRG
  3. * Author......:    Pepijn Smits
  4. * Copyright...:    (c)1992, by "Softwarebureau Pepijn Smits"
  5. * Date........:    August 1992
  6. * Compile.....:    Clipper 5.01, Compile with /m /l /n /v
  7. * Notes.......:    Norton Guides Directory: Dir of .NG files in Cur. Dir.
  8. *        Norton Guide Files in the Current Directory.
  9. * ------------------------------------------------------------------------
  10. #include    "SIMPLEIO.CH"
  11.  
  12. Procedure Main(cMask)
  13. Local a := NGdir(cMask)
  14. ?? "Norton Guides Directory v1.0. Written by Pepijn Smits using EXPAND.LIB."
  15. ?
  16. if Len(a)==0
  17.     ? "No Norton Guides present in current directory"
  18. else
  19.     aEval(a,{|e|OutStd(chr(13)+chr(10)+PadR(e[1],14)+e[2])})
  20.     ?
  21.     ? Alltrim(Str(len(a),5))+" Norton Guide File(s)"
  22. end
  23. ?
  24. Quit
  25. Return
  26.