sync on
for a=0 to 1000000
go=0
l$=str$(a)
prev = -1000
for b=1 to len(l$)
if val(mid$(l$,b))>prev
inc go
prev = val(mid$(l$,b))
endif
next b
if go=len(l$) then inc ans
if timer()>oldtimer+1000
print str$(a/10000.0)+"% done."
sync
oldtimer = timer()
endif
next a
print str$(ans) + " Numbers"
do
sync
loop