RosettaCodeData/Task/Integer-sequence/True-BASIC/integer-sequence.basic

LET i = 0

DO
   PRINT i
   LET i = i + 1
LOOP

END