CLS
abc$ = "abcdefghijklmnopqrstuvwxyz"
INPUT st$
FOR i = 1 TO LEN(st$)
        FOR j = 1 TO LEN(abc$)
                IF LCASE$(MID$(st$, i, 1)) = MID$(abc$, j, 1) THEN
                        temp$ = temp$ + (MID$(st$, i, 1)) + LTRIM$(STR$(j))
                END IF
        NEXT j
NEXT i
PRINT temp$

INPUT a$
FOR i = 1 TO LEN(a$)
c$ = MID$(a$, i, 1)
IF c$ >= "a" AND c$ <= "z" THEN b$ = b$ + c$ + LTRIM$(STR$(ASC(c$) - ASC("a") + 1))
NEXT
PRINT b$