10 PRINT"[147]":P=10:FORI=0TO254:X=PEEK(41118+I)
20 IF X>128 THEN X=X-128:T=P:P=P+10+40*(P=40):GOTO40
30 T=0
40 PRINT CHR$(X)TAB(T);:NEXT