home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / BEERMAT / BEERMAT1.MSA / BITS.STB / GFAPROB1.LST < prev    next >
File List  |  1994-07-22  |  462b  |  22 lines
  1. ' (C) Terry King / ST Beermat 1994
  2. '
  3. DIM file|(128),file$(200)
  4. file%=V:file|(0)
  5. ~FSETDTA(file%)
  6. ~FSFIRST("*.*",-1)
  7. count&=0
  8. REPEAT
  9.   entry$=CHAR{file%+30}
  10.   size%=LPEEK(file%+26)
  11.   IF BYTE{file%+21} AND 16
  12.     file$(count&)=">"+entry$+SPACE$(13-LEN(entry$))+STR$(size%)
  13.   ELSE
  14.     file$(count&)=entry$+SPACE$(14-LEN(entry$))+STR$(size%)
  15.   ENDIF
  16.   INC count&
  17. UNTIL FSNEXT()
  18. QSORT file$(),count&
  19. FOR a%=0 TO count&-1
  20.   PRINT file$(a%)
  21. NEXT a%
  22.