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

'Программа угадывания задуманного числа в интервале [0,100]
DEFINT A-Z
CLS
LEFT = 0: RIGHT = 100:
DO
  MIDDLE = (LEFT + RIGHT) \ 2
  PRINT "Задуманное Вами число больше, чем"; MIDDLE; " (Y/N) - ";
  INPUT "", A$
  IF RIGHT - LEFT <= 1 THEN
     IF A$ = "Y" OR A$ = "y" THEN
        PRINT "Вы задумали "; RIGHT: END
     ELSE
        PRINT "Вы задумали "; LEFT: END
     END IF
  END IF
  IF A$ = "Y" OR A$ = "y" THEN LEFT = MIDDLE + 1 ELSE RIGHT = MIDDLE
LOOP
END