55000 REM COMPRESS BY: JERRY TRAVIS
 55010 PRINT:F=768:L=F:E=123
 55020 Q=PEEK(F):IFQ=0GOTO55100
 55030 IFQ=34ANDR=0THENR=1:GOTO55050
 55040 IFQ=34ANR=1THENR=0
 55050 IFQ<>32ORR=1THENPOKEL,Q:F=F+1:L=L+1:GOTO55020
 55060 IFQ=32ANDR=0THENX=X-1:F=F+1:K=K+1:GOTO55020
 55100 IFK<>0THENQ=INT(X/256):POKED+1,Q:POKED,X-Q*256
 55110 IFPEEK(F+3)=216ANDPEEK(F+4)=214THENFORI=LTOL+2:POKEI,0:NEXT:Z=1
 55120 IFZTHENPRINTK"FREED":Q=INT(I/256):POKE124,Q:POKE123,I-Q*256:END
 55130 FORI=1TO5:Q=PEEK(F):POKEL,Q:F=F1:L=L+1:NEXT
 55140 D=L-4:X=PEEK(D)+256*PEEK(D+1)-K:R=0:GOTO55020
 55200 END