home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / PROJECT / COMPRESS (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-07-15  |  1.2 KB  |  46 lines  |  [FC] Applesoft BASIC Program (0x1401)
  1. 3 ME$ = "COMPRESS"
  2. 4 RM$ = "/RAMAEPC/"
  3. 5 PU$ = "/HARD/PROJECT/"
  4. 6  REM  PROGRAM REMOVES (80 0 0 0)'S FROM .R AND .L FILES
  5. 10  IF  PEEK(104) < >9  THEN  POKE 104,9: POKE 9 *256,0: PRINT  CHR$(4)"RUN"PU$;ME$
  6. 11 OB$ = PU$ +ME$ +".OBJ"
  7. 12  PRINT  CHR$(4)"BLOAD "OB$",A$800
  8. 20  PRINT  CHR$(4)"PREFIX": INPUT PR$
  9. 21  PRINT "NOTE:.L AND .R WILL BE ADDED TO FILENAME"
  10. 22  PRINT "PREFIX="PR$
  11. 25  INPUT "COMPRESS WHICH FILE:";F$
  12. 30  IF F$ = ""  THEN  PRINT  CHR$(4)"CAT": GOTO 20
  13. 40  IF  LEFT$(F$,1) = "'"  THEN  PRINT  CHR$(4)"PREFIX" MID$ (F$,2): GOTO 20
  14. 50  IF  LEFT$(F$,1) < >"."  THEN 60
  15. 52 I =  LEN(PR$) -1
  16. 53  IF  MID$ (PR$,I,1) < >"/"  THEN I = I -1: GOTO 53
  17. 54 PR$ =  LEFT$(PR$,I)
  18. 55  PRINT  CHR$(4)"PREFIX"PR$: GOTO 20
  19. 60  IF  LEFT$(F$,1) = "*"  THEN  END 
  20. 100  PRINT  CHR$(4)"UNLOCK"F$".L"
  21. 110  PRINT  CHR$(4)"UNLOCK"F$".R"
  22. 200  PRINT  CHR$(4)"BLOAD"F$".L"
  23. 205  PRINT 
  24. 210  CALL 2048
  25. 220 EL =  PEEK(6) + PEEK(7) *256
  26. 230 FL =  PEEK(8) + PEEK(9) *256
  27. 240  PRINT F$".L -- "FL -EL" BYTES SAVED"
  28. 250  PRINT  CHR$(4)"BSAVE"RM$;F$".L ,A8192,E"EL
  29. 300  PRINT  CHR$(4)"BLOAD"F$".R"
  30. 310  CALL 2048
  31. 320 ER =  PEEK(6) + PEEK(7) *256
  32. 330 FR =  PEEK(8) + PEEK(9) *256
  33. 340  PRINT F$".R -- "FR -ER" BYTES SAVED"
  34. 350  PRINT  CHR$(4)"BSAVE"RM$;F$".R ,A8192,E"ER
  35. 400  INPUT "ACCEPT CHANGES? (Y/N):";YN$
  36. 410  IF  LEFT$(YN$,1) < >"Y"  THEN  PRINT  CHR$(4)"LOCK "F$".R": GOTO 20
  37. 450  PRINT  CHR$(4)"DELETE"F$".R"
  38. 460  PRINT  CHR$(4)"DELETE"F$".L"
  39. 500  PRINT  CHR$(4)"BLOAD "RM$;F$".L"
  40. 510  PRINT  CHR$(4)"BSAVE "F$".L ,A8192,E"EL
  41. 600  PRINT  CHR$(4)"BLOAD "RM$;F$".R"
  42. 610  PRINT  CHR$(4)"BSAVE "F$".R ,A8192,E"ER
  43. 620  PRINT  CHR$(4)"LOCK "F$".R"
  44. 630  PRINT  CHR$(4)"DELETE"RM$;F$".R"
  45. 640  PRINT  CHR$(4)"DELETE"RM$;F$".L"
  46. 650  GOTO 20