for i=1 to 999999
inc count,(mid$(space$(6-len(str$(i)))+str$(i),1) <= mid$(space$(6-len(str$(i)))+str$(i),2))*(mid$(space$(6-len(str$(i)))+str$(i),2) <= mid$(space$(6-len(str$(i)))+str$(i),3))*(mid$(space$(6-len(str$(i)))+str$(i),3) <= mid$(space$(6-len(str$(i)))+str$(i),4))*(mid$(space$(6-len(str$(i)))+str$(i),4) <= mid$(space$(6-len(str$(i)))+str$(i),5))*(mid$(space$(6-len(str$(i)))+str$(i),5) <= mid$(space$(6-len(str$(i)))+str$(i),6))
next i
print count
wait key