RosettaCodeData/Task/Gapful-numbers/BASIC256/gapful-numbers.basic

function is_gapful(n)
   m = n
   l = n mod 10
   while (m >= 10)
      m = int(m / 10)
   end while
   return (m * 10) + l
end function

subroutine muestra_gapful(n, gaps)
   inc = 0
   print "First "; gaps; " gapful numbers >= "; n
   while inc < gaps
      if n mod is_gapful(n) = 0 then
         print " " ; n ;
         inc = inc + 1
      end if
      n = n + 1
   end while
   print chr(10)
end subroutine

call muestra_gapful(100, 30)
call muestra_gapful(1000000, 15)
call muestra_gapful(1000000000, 10)
call muestra_gapful(7123,25)
end