Hello Jimboho, I see a problem in that you are always sending the "AT" command.

loop1:
serout2 TXD,813,["AT"] 'Send AT command to modem
pause 200
goto loop1

Get rid of the "goto loop1" and you should receive some data. Also I beleive you need to send a cariage return as part of the "AT" string as such...

serout2 TXD,813,["AT",13] 'Send AT command to modem

Hope this helps.

Dave Purola,
N8NTA