DEFINT A-Z
a = 0
DEF SEG = VARSEG(a) + 4096 * 7&
CLS
start& = 25945
PRINT start&
FOR i& = start& TO 65535
   k = PEEK(i&)
   SELECT CASE k
      CASE 0, 6, 7, 9, 10, 11, 12, 13, 28, 29, 30, 31: PRINT "";
      CASE ELSE: PRINT CHR$(k);
   END SELECT
   IF CSRLIN = 23 THEN
      x$ = INPUT$(1)
      IF x$ = CHR$(27) THEN EXIT FOR
      CLS : PRINT i& + 1
   END IF
NEXT