ИСХОДНЫЕ ДАННЫЕ-производное слово РЕЗУЛЬТАТ-коды,соответствующие каждой букве этого слова- QBasic(Бейсик)

CLS
INPUT s$
FOR i=1 TO LEN(s$)
 PRINT "Bukva ";MID$(s$,i,1)
 PRINT "Kod "; ASC(MID$(s$,i,1))
 PRINT
NEXT i

Тестирование выполнено в программе QB64 ( Скачать )