INPUT "N$ = ", n$
DIM a(256)
FOR i = 1 TO LEN(n$)
  t$ = MID$(n$, i, 1): a(ASC(t$)) = a(ASC(t$)) + 1
NEXT i
FOR i = 1 TO 256: IF a(i) > max THEN max = a(i)
NEXT
FOR i = 1 TO 256: IF max = a(i) THEN ts$ = ts$ + CHR$(i)
NEXT
DIM b(LEN(ts$)) AS STRING
DIM f(LEN(ts$))
FOR i = 1 TO LEN(ts$): b(i) = MID$(ts$, i, 1): NEXT
FOR i = 1 TO LEN(n$)
  FOR j = 1 TO LEN(ts$)
    IF MID$(n$, i, 1) = b(j) AND f(j) = 0 THEN PRINT b(j); : f(j) = 1
NEXT j, i: PRINT
END