With some help from members on the PICBasic and NSBasicCE lists I was able to put together the code listed below. Using a PIC 16f88 and a MAX232 I am able to send and receive data between a 16f88 w/ Max232 and my PocketPC HP h2215. As I am a beginner at this, you'll see that this is very simple.
Hopefully this will help someone else!


The cable I used can be found here http://www.gomadic.com/comipseradca.html
The cost for the cable is $19.95 + s/h


'PicBasic Pro
'------------------------------------------------------
N VAR BYTE
Main:
SERIN SERRX,T9600,["@"],N 'Waits here until @ and either a, b or c is received from h2215
Pause 10
if n = "a" then SEROUT SERTX,T9600,["Here's your a"] ' if N = a send this back to h2215
if n = "b" then SEROUT SERTX,T9600,["Here's your b"] ' if N = b send this back to h2215
if n = "c" then SEROUT SERTX,T9600,["Here's your c"] ' if N = c send this back to h2215
Goto Main
End


'NSBasic-CE (Info on NSBasic http://www.nsbasic.com/ce/info/)
'------------------------------------------------------
Option Explicit
AddObject "comm","comm",0,0,0,0
Dim Instring

AddObject "commandButton","Writea",8,65,70,20
Writea.text="Write a"
AddObject "commandButton","Writeb",8,85,70,20
Writeb.text="Write b"
AddObject "commandButton","Writec",8,105,70,20
Writec.text="Write c"
AddObject "textBox","textbox1",8,145,224,20
TextBox1.borderstyle=1

Sub Open()
comm.Rthreshold = 1
comm.InputMode = 0
comm.handshaking=1
comm.RTSEnable=False
comm.DTREnable=False
comm.PortOpen = True
End Sub

Sub form_close()
Comm.PortOpen = 0
End Sub

Private Sub comm_OnComm()
Dim InString
InString = InString + comm.Input
textbox1.text = InString
End Sub

Sub Writea_Click
If comm.portopen = False Then Open
comm.Output = "@a"
End Sub

Sub Writeb_Click
If comm.portopen = False Then Open
comm.Output = "@b"
End Sub

Sub Writec_Click
If comm.portopen = False Then Open
comm.Output = "@c"
End Sub