100 PROGRAM "Babbage.bas"
110 LET N=269696
120 DO
130   LET N=N+1000000
140   LET R=SQR(N)
150 LOOP UNTIL R=INT(R)
160 PRINT "The smallest number whose square ends in 269696 is:";R
170 PRINT "It's square is";N