RosettaCodeData/Task/Loops-Infinite/XBasic/loops-infinite-2.basic

PROGRAM	"Loops/Infinite"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION Entry ()
	WHILE TRUE
        PRINT "SPAM"
    WEND
END FUNCTION
END PROGRAM