home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMPRESS / TO_DWC12.ZIP / TO-DWC12.BAS next >
Encoding:
BASIC Source File  |  1988-09-02  |  2.5 KB  |  84 lines
  1. 'TO-DWC v1.2 September 2, 1988
  2. CLS : CLEAR
  3. SHELL "CD >TEMP.$$$"
  4. OPEN "I", #1, "TEMP.$$$"
  5. INPUT #1, TEMP1$ 'initial subdirectory location
  6. CLOSE
  7. KILL "TEMP.$$$"
  8. again:
  9. PRINT "What SUBDIRECTORY do you WISH to Change TO `dwc' format? ": PRINT
  10. LINE INPUT "Form = c:\XXXX\XXX or A: or d:\xxx - "; A$
  11. E$ = RIGHT$(A$, 1)
  12. F$ = MID$(A$, 2, 1)
  13. IF E$ = "\" THEN PRINT : PRINT "OOPS - Retry WITHOUT `\' on the end!": PRINT : GOTO again
  14. IF F$ <> ":" THEN PRINT : PRINT "OOPS - Retry - MUST have Drive desigator - A:, C: or D:": PRINT : GOTO again
  15. B$ = "DIR " + A$ + "\*.* >TEMP.$$$"
  16. PRINT : PRINT "Making Temporary SUBDIRECTORY C:\ABCD1234"
  17. SHELL "MD C:\ABCD1234"
  18. PRINT "Making Temporary FILE listing - File name TEMP.$$$"
  19. SHELL B$
  20. OPEN "I", #1, "TEMP.$$$"
  21. DO WHILE NOT EOF(1)
  22.     LINE INPUT #1, B$
  23.     Y = Y + 1
  24. LOOP
  25. CLOSE
  26. DIM LINS$(Y)
  27. OPEN "I", #1, "TEMP.$$$"
  28. FOR Z = 1 TO Y
  29.     LINE INPUT #1, B$
  30.     LINS$(Z) = B$
  31.     PRINT LINS$(Z)
  32. NEXT Z
  33. CLOSE
  34. KILL "TEMP.$$$"
  35. SHELL "C:"
  36. CHDIR "C:\ABCD1234"
  37. FOR Z = 1 TO (Y - 5)
  38.     IF LEFT$(LINS$(Z + 4), 1) = "." THEN GOTO JUMP2
  39.     IF MID$(LINS$(Z + 4), 10, 3) <> "ARC" THEN GOTO JUMP3
  40.     FILNAM$ = LEFT$(LINS$(Z + 4), 8)
  41.     FOR TEST = 1 TO 8
  42.         IF ASC(MID$(FILNAM$, 2)) = 32 THEN TEST = 8: FLNM$ = MID$(FILNAM$, 1): GOTO JUMP4
  43.         IF ASC(MID$(FILNAM$, 3)) = 32 THEN TEST = 8: FLNM$ = MID$(FILNAM$, 1, 2): GOTO JUMP4
  44.         IF ASC(MID$(FILNAM$, 4)) = 32 THEN TEST = 8: FLNM$ = MID$(FILNAM$, 1, 3): GOTO JUMP4
  45.         IF ASC(MID$(FILNAM$, 5)) = 32 THEN TEST = 8: FLNM$ = MID$(FILNAM$, 1, 4): GOTO JUMP4
  46.         IF ASC(MID$(FILNAM$, 6)) = 32 THEN TEST = 8: FLNM$ = MID$(FILNAM$, 1, 5): GOTO JUMP4
  47.         IF ASC(MID$(FILNAM$, 7)) = 32 THEN TEST = 8: FLNM$ = MID$(FILNAM$, 1, 6): GOTO JUMP4
  48.         IF ASC(MID$(FILNAM$, 8)) = 32 THEN TEST = 8: FLNM$ = MID$(FILNAM$, 1, 7): GOTO JUMP4
  49.         FLNM$ = MID$(FILNAM$, 1, 8)
  50. JUMP4:
  51.     NEXT TEST
  52.     PRINT FLNM$
  53.     GOSUB DOIT
  54.     GOTO JUMP3
  55. JUMP2:
  56.         Z = 2
  57. JUMP3:
  58. NEXT Z
  59. M$ = LEFT$(TEMP1$, 2)
  60. SHELL "CD C:\"
  61. SHELL M$
  62. CHDIR TEMP1$
  63. SHELL "RD C:\ABCD1234"
  64. PRINT
  65. PRINT "Processing complete for `" + A$ + "' Subdirectory or Diskette!"
  66. END
  67. DOIT:
  68.     DOIT$ = "PKunpak " + A$ + "\" + FLNM$
  69.     DOIT2$ = "DWC -M= " + FLNM$ + " *.*"
  70.     DOIT3$ = "COPY *.dwc " + A$
  71.     DOIT4$ = "DWC -T " + FLNM$
  72.     PRINT : PRINT "UNarcing " + FLNM$
  73.     SHELL DOIT$
  74.     PRINT : PRINT "COMPRESSING " + FLNM$
  75.     SHELL DOIT2$
  76.     PRINT : PRINT "CHECKING FILE INTEGRATY"
  77.     SHELL DOIT4$
  78.     PRINT : PRINT "COPYING " + FLNM$ + ".DWC to Original Subdirectory"
  79.     SHELL DOIT3$
  80.     KILL "*.DWC"
  81. RETURN
  82.  
  83.  
  84.