Sieve of eratosthenes

0 rem update 27 04 19 - speed

10 text : home : pr#3 : print "Prime numbers"::l=1000
20 dim n(l) : for i = 2 to l : n(I) = i : next : p = 2
30 if n(p) <> 0 then print p;" "; : if p^2 < l then for i = p^2 to l step p : n(i) = 0 : next
40 p = p + 1 : if p <= l then goto 30