2018-05

DEFLNG A-Z
DIM s(65535) AS LONG

OPEN "input05.txt" FOR INPUT AS #1
INPUT #1, r$: L = LEN(r$)
CLOSE #1

FOR c = 0 TO 26: p = 0
  FOR i = 1 TO L
    N = ASC(MID$(r$, i, 1))
    IF N <> c + 64 AND N <> c + 96 THEN
      IF ABS(s(p) - N) <> 32 THEN p = p + 1: s(p) = N ELSE p = p - 1
    END IF
  NEXT
  PRINT CHR$(c + 64); p; " | ";
NEXT