home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / australi / joc009.lzh / DC.BAS < prev    next >
BASIC Source File  |  1990-11-19  |  2KB  |  32 lines
  1. 1 ' DC.BAS    Makes DC.DAT from CRCLOG.DAT and FL.DAT
  2. 2 ' ~~~~~~    NOTE 1. Each line of the resulting DC.DAT will consist of the
  3. 3 '                                        the following ascii "fields" :
  4. 4 '                   cols  1 - 12  FLNE  FiLeName Ext  (12 chars)
  5. 5 '                   cols 13 - 19  FS    FileSize      (7 chars) 
  6. 6 '                   cols 20 - 28  CRC   CRC32         (blank,then 8 chars)
  7. 7 '                   cols 29 - 35  FD    FileDate      (blank,then yymmdd)
  8. 8 '                   cols 36 - 47  VN    VolumeName    (blank,then 11 chars)
  9. 9 '                   cols 48 -     PN    PathName      (blank,then ?? chars)
  10. 10 '          NOTE 2. After running DC.BAS, I use my word-processor in ascii
  11. 11 '                  mode to insert comments in any line after VolumeName.
  12. 12 '                  This way comments up to 30 chars still allow  FLNE,FS,
  13. 13 '                  CRC,FD,VN and comments as a one-line 80-cols display.
  14. 14 '          NOTE 3. As each line of DC.DAT contains all "what" and "where"
  15. 15 '                  information, you can concatenate DC.DAT-s into a kind
  16. 16 '                  "master-catalog" which could then be sorted or printed
  17. 17 '                  or searched for key-strings,  or any such combination. 
  18. 19 ' ------------------------------------------------------------------------
  19. 20 DEFSTR A-H : DEFSTR P-Z : DEFINT I-N
  20. 30 OPEN "I",#1,"CRCLOG.DAT" : OPEN "I",#2, "FL.DAT" : OPEN "O",#3,"DC.DAT"
  21. 40 LINE INPUT#1, VN
  22. 45 LINE INPUT#2, DUMMY
  23. 46 LINE INPUT#2, DUMMY
  24. 55          IF EOF(1) = -1 THEN GOTO 90
  25. 60          LINE INPUT#1, CL : CRC=LEFT$(CL,8) : PN=MID$(CL,18)
  26. 65          LINE INPUT#2, FL : FLNE=LEFT$(FL,12) : FS=MID$(FL,15,7)
  27. 66                        FD=MID$(FL,30,2)+MID$(FL,24,2)+MID$(FL,27,2)
  28. 70          PRINT #3, FLNE;FS;" ";CRC;" ";FD;" ";VN;PN
  29. 75          PRINT     FLNE;FS;" ";CRC;" ";FD;" ";VN;PN
  30. 80          GOTO 55
  31. 90 CLOSE : SYSTEM
  32.