its copied right off the net:
Include "modedefs.bas" ' Include serial modes
SO con 0 ' Define serial output pin
B0 Var byte
B1 Var byte
mainloop:
For B0 = 3 To 1 Step -1 ' Countdown step size
For B1 = 0 To 10 Step B0 ' Count to 10 (or so)
Serout SO,N2400,[#B1," "]
Next B1
Serout SO,N2400,[13,10] ' End of line
Pause 100 ' Delay
Next B0
Goto mainloop
End
Bookmarks