Thanks. I've now added the numerical count

and a start off for larger numbers so the whole

screen doesn't get filled.

`open window 640,512`

space=12

spaces=int(500/space)

lines=0

gap=0

z=int(spaces*87)

repeat

lines=0

gap=0

number=0

for y=1 to 10000

num=0

for x=1 to y

if frac(y/x)=0 num=num+1

next x

if num<3 number=number+1

if num<3 and y>9000 then

'won't start texting until after 9000

'delay until then, since still has to count

lines=lines+1

setrgb 1,0,256,0

text gap,lines*space,str$(number)

setrgb 1,256,256,256

text 50+gap,lines*space,str$(y)

endif

if lines>spaces then

gap=gap+90

lines=0

endif

next y

until (1=0)