Примеры программ на языке QBASIC

Суммирование двоичных цифр введенного числа

REM Суммирование двоичных цифр введенного числа
INPUT "Введи N"; N&
J& = &H40000000
RESULT = 0
IF N& < 0 THEN RESULT = 1: ' Учет 1 в знаке отрицательного числа
FOR K = 31 TO 1 STEP -1
  IF N& AND J& THEN RESULT = RESULT + 1: ' Учет k-того разряда
  J& = J& / 2: ' Сдвиг шкалы на разряд вправо
NEXT K
PRINT RESULT
END