16f84 smartcard problem

Hallo Zusammen!

habe mal  wieder versucht meine alte goldwafer zu programmiern.
aber irgendwie bekomme ich serial communicator keine antwort.
picbasicpro microcode studio.
multiprog usb.
hier mein code:
include "modedefs.bas"  ' Include serial modes

SO Con 13                ' Define serial out pin
SI Con 13                ' Define serial in pin
B0 Var byte

mainloop:
   Serin SI,N2400,B0    ' B0 = input character
   If (B0 < "a") or (B0 > "z") Then print  ' If lower case, convert to 
upper
   B0 = B0 - $20

print:
   Serout SO,N2400,[B0] ' Send character
   Goto mainloop        ' Forever

   End

kommt keine antwort
wie sollte ich den programmer einstellen

mfg
RAY