C64 Software  <  SCA: The C64 Software Collection / COMPACTOR P'''OM

  Run
0 :
1 IFPEEK(43)<>1ORPEEK(44)<>96THENSTOP
10 Q=16384:FORI=2163TO10162:PRINTI,:A=PEEK(I):B=PEEK(I+1):C=PEEK(I+2)
30 IFA=BTHENIFC=BTHEN200
40 IFA=191THENPOKEQ,A:Q=Q+1:POKEQ,1:Q=Q+1:GOTO60
60 POKEQ,A:Q=Q+1:NEXT:GOTO1000
200 POKEQ,191:Q=Q+1:Z=1
210 IFPEEK(I+Z)=ATHENIFZ<255THENZ=Z+1:GOTO210
220 I=I+Z−1:POKEQ,Z:Q=Q+1:GOTO60
1000 PRINT:PRINT""CHR$(34)""CHR$(34)""Q
READY.