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

#This code is an implementation of Babbage Problem
number = 2
DO
    number += 2
UNTIL ((number^2) % 1000000) = 269696
PRINT "The smallest number whose square ends in 269696 is: "; number
PRINT "It's square is "; number*number
Initial data commit 2023-07-01 11:58:00 -04:00			`#This code is an implementation of Babbage Problem`
			`number = 2`
			`DO`
Data update 2026-02-01 16:33:20 -08:00			`number += 2`
Initial data commit 2023-07-01 11:58:00 -04:00			`UNTIL ((number^2) % 1000000) = 269696`
			`PRINT "The smallest number whose square ends in 269696 is: "; number`
			`PRINT "It's square is "; number*number`