INPUT a$
FOR i = 1 TO LEN(a$)
b$ = MID$(a$, i, 1)
IF ASC(b$) >= 65 AND ASC(b$) <= 90 OR ASC(b$) >= 97 AND ASC(b$) <= 122 THEN c$ = c$ + "*" ELSE c$ = c$ + b$
NEXT
PRINT c$
Тестирование выполнено в программе QB64 ( Скачать )
INPUT a$
FOR i = 1 TO LEN(a$)
b$ = MID$(a$, i, 1)
IF ASC(b$) >= 65 AND ASC(b$) <= 90 OR ASC(b$) >= 97 AND ASC(b$) <= 122 THEN c$ = c$ + "*" ELSE c$ = c$ + b$
NEXT
PRINT c$
Тестирование выполнено в программе QB64 ( Скачать )