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

PROGRAM	"Loops/Infinite"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION Entry ()
    DO
        PRINT "SPAM"
    LOOP
END FUNCTION
END PROGRAM