通用文件压缩程序 李仲辉 1993-12-17 本程序可以实现压缩和还原文件的目的。整个程序短小精悍，压缩率高，特别适用于压缩图形文件。例如压缩2.13F汉字系统的CC25.COM(长度9897字节)文件，压缩后的文件长度为5705字节，是原文件的57.7％，程序清单如下： 10 CLS：CLOSE：C=0：M=0：N=0：PRINT＂1-压缩 2-还原 0-返回＂：PRINT 20 T＄=INKEY＄：T=VAL(T＄)：IF T＄=＂＂THEN 20 30 ON T GOTO 40，220：GOTO 300 40 INPUT：＂压缩原文件名：＂，RN＄：PRINT：IF RN＄=＂＂ THEN 10 50 INPUT：＂压缩后文件名：＂，WN＄：PRINT＂IF WN＄=＂＂ THEN 10 60 GOSUB 170：CLS：PRINT＂压缩〈＂RN＄＂＞文件成〈＂WN＄＂〉文件＂：GOSUB 200 70 N=N＋1：GOSUB 210：GET I，N：A=ASC(G＄)：IF A＜＞0 OR N＞L THEN 100 80 GOSUB 290：M=M＋1：IF M＜257 THEN 70 90 B=255：GOSUB 160：B=1：GOSUB 160：B=0：GOSUB 160：M=0N=N-1：GOTO 70 100 B=M：GOSUB 160：GOSUB 290 110 M=0：N=N-1：C=C＋1：D=C 120 N=N＋1：GOSUB 210：GET 1，N：A=ASC(G＄)：IF A=0 THEN 150 130 GOSUB 290：C=C＋1：LSETE＄=G＄：PUT2，C：M=M＋1： IF M＜255 THEN 120 140 C＄=CHR＄(255)：LSETE＄=C＄：PUT2，D：B=0：GOSUB 160：N=N＋1：GOTO 110 150 C＄=CHR＄(M)：LSET E＄=C＄：PUT2，D，M＋0：N=N-1：GOTO 70 160 C=C＋1：C＄=CHR＄(B)：LSET E＄=C＄：PUT2，C：RETURN 170 OPEN RN＄ AS 1 LEN=1：FIELD 1，1 AS G＄：L=LOF(1)：IF L＞0 THEN 190 180 PRINT：PRINT RN＄＂文件长=0，暂停运行！＂：CLOSE；KILL RN＄：INPUT：＂＂，T＄：GOTO 10 190 OPEN WN＄ AS 2 LEN=1：FIELD 2，1 AS E＄：RETURN 200 PRINT：PRINT！＂文件长=＂L：PRINTF：PRINT＂已读到=＂：RETURN 210 LOCATE 5，9：PRINT N；：RETURN 220 INPUT；＂还原原文件名：＂，RN＄：PRINT： IF RN＄=＂＂ THEN 10 230 INPUT；＂还原后文件名：＂，WN＄：PRINT：IF WN＄=＂＂ THEN 10 240 GOSUB 170：CLS：PRINT＂还原〈＂RN＄＂＞文件成＜＂WN＄＂〉文件＂： GOSUB 200 250 N=N＋1：GET I，N：A=ASC(G＄)：IF A=0 THEN 270 260 GOSUB 290：FOR I=1 TO A：M=M＋1：GOSUB 210：LSET E＄=CHR＄(0)：PUT2，M：NEXT 270 N=N＋1：GET 1，N：A=ASC(G＄)：GOSUB 290：FOR I=1 TO A 280 M=M＋1：N=N＋1：GOSUB 210：GET1，N：LSET E＄=G＄：PUT2，M：NEXT：GOTO 250 290 IF N＜=L THEN RETURN 300 PRINT＂正常结束END＂：END(李仲辉)