Maybe all you want then is just:

Serin PrgIn,1,5000,MainLoop, ProgIDRx

?

Troy