RosettaCodeData/Task/Integer-sequence/BBC-BASIC/integer-sequence-2.bbc

      INSTALL @lib$+"HIMELIB"
      PROC_himeinit("")
      reg% = 1

      PROC_hiputdec(reg%, "0")
      REPEAT
        SYS `hi_Incr`, ^reg%, ^reg%
        PRINT TAB(0,0) FN_higetdec(reg%);
      UNTIL FALSE