home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / text / hacking6.arc / LZW.BAS (.txt) < prev    next >
Commodore BASIC  |  1993-09-16  |  270b  |  10 lines
  1. 1 IFA=.THENA=1:LOAD"LZW.ML",9,1
  2. 10 EX=2500:CO=2503
  3. 15 PRINT"[147]E[146]XPAND OR C[146]OMPRESS?"
  4. 20 GETA$:IFA$<>"C"ANDA$<>"E"THEN20
  5. 30 INPUT"NAME OF INPUT FILE";FI$:IFLEN(FI$)=.THEN30
  6. 40 INPUT"NAME OF OUTPUT FILE";FO$:IFLEN(FO$)=.THEN40
  7. 50 OPEN2,9,2,FI$+",S,R":OPEN3,9,3,FO$+",P,W"
  8. 60 IFA$="E"THENSYSEX
  9. 70 IFA$="C"THENSYSCO
  10.