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

Перевод числа в системы с основанием 2, 8 и 16

REM Перевод числа в системы с основанием 2, 8 и 16
CLS
INPUT "Введите положительное число : ", N&
A$ = OCT$(N&)
PRINT "В двоичном представлении "; N&; "= ";
FOR k = 1 TO LEN(A$)
  B$ = MID$(A$, k, 1):  'Выделение очередной восьмеричной цифры
  SELECT CASE B$
    CASE "0": IF k = 1 THEN PRINT "";  ELSE PRINT "000";
    CASE "1": IF k = 1 THEN PRINT "1";  ELSE PRINT "001";
    CASE "2": IF k = 1 THEN PRINT "10";  ELSE PRINT "010";
    CASE "3": IF k = 1 THEN PRINT "11";  ELSE PRINT "011";
    CASE "4": PRINT "100";
    CASE "5": PRINT "101";
    CASE "6": PRINT "111";
    CASE "7": PRINT "111";
  END SELECT
NEXT k
PRINT
PRINT "В восьмеричном представлении "; N&; "= "; OCT$(N&)
PRINT "В шестнадцатеричном представлении "; N&; "= "; HEX$(N&)
END