home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / DOSUT-03.ZIP / FCBEXM.BAS < prev    next >
BASIC Source File  |  1983-07-20  |  2KB  |  43 lines
  1. 100 DEF SEG=&H1F94  'Dependent upon your memory
  2. 110 '   This sample program serves as both an example and the documentation
  3. 120 '   for the FCBREAD.BSV routine that will read the directory of a
  4. 130 '   disk and present the matching file name back to the BASIC program.
  5. 140 '   Also available to the program is the directory information that
  6. 150 '   contains the size and time/date information. This routine is
  7. 160 '   faster than OPENing the file since it does not incur that overhead.
  8. 170 '   Also the user can present an arbitrary string to match on.
  9. 180 '
  10. 190 '   To use, BLOAD the routine into any available free memory. It
  11. 200 '   has 2 entry points (INIT and GETNEXT). INIT (offset 2) is used
  12. 210 '   to define the disk drive (0=default, 1=A, 2=B, ....) and the
  13. 220 '   pattern to be used to match on. The pattern MUST BE a string of
  14. 230 '   length 11; the first 8 are the filename and the last 3 are the
  15. 240 '   extension. A "?" is used to match any character. For example to
  16. 250 '   get all the BASIC files on the disk, "????????BAS" would be used
  17. 260 '   as the input parameter. After INIT has been called, calls to
  18. 270 '   GETNEXT (offset 5) are made to retrieve matching file names.
  19. 280 '   The two parameters are the string in which the match is returned
  20. 290 '   (which must be of length 14) and an INTEGER (..%) return value.
  21. 300 '   If the status return is <0, no more matched have been found. If
  22. 310 '   status >=0, it is the FILE ATTRIBUTE (as defined in the DOS Disk
  23. 320 '   Directory).
  24. 330 '
  25. 340 '   The INTEGER value at offsets 0,1 in the routine are the offset
  26. 350 '   to the directory entry for the file. For example, to obtain the
  27. 360 '   DATE information of the file, use the following statements:
  28. 370 '        B% = PEEK(0)+PEEK(1)*256   ' Get offset value
  29. 380 '        FDATE = PEEK(B%+26)*256 + PEEK(B%+25)
  30. 390 '
  31. 400 '   The offsets into the directory entry (25, 26 in this case) are
  32. 410 '   defined in the DOS manual.
  33. 420 '
  34. 430 '   The example program will print all the file names on the current
  35. 440 '   Directory plus their attributes.
  36. 450 BLOAD "fcbread.bsv",0
  37. 460 INIT%=2:GETNEXT%=5
  38. 470 FILENAME$="???????????"
  39. 480 DISK%=0:CALL INIT%(DISK%,FILENAME$)
  40. 490 FILENAME$=SPACE$(14):CALL GETNEXT%(FILENAME$,STATUS%)
  41. 500 PRINT FILENAME$,STATUS%
  42. 510 IF STATUS%>=0 THEN GOTO 490
  43.