' =========== CountToLED47.bas ============
						
' === Variables ===	
  symbol index = w3

' === Directives ===
  #com 4						' specify com port
  #picaxe 08M				' specify processor
		
' ========== Begin Main Program ==========

setfreq m8

pause 800  ' allow display to initialize

do
  for index = 0 to 9999
    bintoascii index,b4,b3,b2,b1,b0
    serout 2,N4800_8,(b3,b2,b1,b0)
    pause 400  ' allow display to keep up
  next index
loop