RosettaCodeData/Task/Integer-sequence/XBasic/integer-sequence.basic

PROGRAM	"integseq"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION Entry ()

	DO WHILE $$TRUE
		INC i
    PRINT i
	LOOP

END FUNCTION
END PROGRAM