Вывести коды,соответствующей каждой букве в произвольно заданном слове — QBasic(Бейсик)

CLS : LINE INPUT "Slovo : ", S$
5 IF k < LEN(S$) THEN k = k + 1: PRINT ASC(MID$(S$, k, 1)); : GOTO 5