0 CLS:FORX=128TO607:A=PEEK(X):IFA>128THENA=A-128:PRINT:PRINTCHR$(A);:NEXTELSEPRINTCHR$(A);:NEXT