Написать программу, которая считает сумму цифр, введенного с клавиатуры числа — QBasic(Бейсик)

INPUT a
DO WHILE a > 0
    s = s + a MOD 10
    a = a \ 10
LOOP
PRINT s

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