20 INPUT"STARTADRESSE";SA
40 PRINTSA:FORX=0TO3:PE=PEEK(SA+X):PA=PE:IFPE<32ORPE<160ANDPE>127THENPE=46
80 PRINT"[145]"TAB(6+X*4)PATAB(25+X)CHR$(PE):NEXT:SA=SA+4
90 IFPEEK(197)<>64THENEND
100 GOTO40