Code:
INCLUDE "modedefs.bas"
DEFINE SHIFT_PAUSEUS 50
parity var word:sendthis var word:kbddata var GPIO.0:kbdclk var GPIO.1
start:
high kbddata:high kbdclk:pause 500:sendthis=$d6:gosub calsub:sendthis=$f0
gosub calsub:sendthis=$d6:gosub calsub:goto start          

calsub:    <---ADD COLON HERE

parity=not(sendthis.0^^sendthis.1^^sendthis.2^^sendthis.3^^sendthis.4^^sendthis.5^^sendthis.6^^sendthis.7)
sendthis=sendthis<<1:sendthis.0=1:sendthis.9=parity:sendthis.10=0:shiftout kbddata,kbdclk,4,[sendthis\11]:return
goto start