as a start:

http://www.melabs.com/resources/samples/pbp/serin.bas