RosettaCodeData/Task/Babbage-problem/XBasic/babbage-problem.basic

PROGRAM  "Babbage problem"
VERSION "0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION  Entry ()
    number = 524
    DO
        number = number + 2
    LOOP UNTIL ((number ** 2) MOD 1000000) = 269696
    PRINT "The smallest number whose square ends in 269696 is: "; number
    PRINT "It's square is "; number ** 2
    PRINT "It's square is "; number * number
END FUNCTION
END PROGRAM