TOP5_M1

DIM A$, B$
DIM N AS INTEGER
INPUT "Введите строковое значение A$: ", A$
'Тут вводим N. Но нужно иметь в виду, что под DOS мы работаем с 8 битными
'кодировками. Символы в них однобайтные. Ограничено 255-ю неспроста, короче.
DO
    INPUT "Введите N [0..255]: ", N
LOOP UNTIL N >= 0 AND N <= 255
DIM Sum AS INTEGER, I AS INTEGER
FOR I = 1 TO LEN(A$)
    Sum = Sum + ASC(MID$(A$, I, 1))
NEXT I
PRINT "Сумма ASCII-кодов всех символов строки A$:"; Sum
DIM CharCode AS INTEGER
FOR I = 1 TO LEN(A$)
    'AND 255 требуется для приведения результата в диапазон байта 0..255 что требует функция ASC
    CharCode = (ASC(MID$(A$, I, 1)) + N) AND 255
    B$ = B$ + CHR$(CharCode)
NEXT I
PRINT "Строка B$: "; B$