'Interface to Radio Shack 270-215 Keypad
func main()
   dim key

   low 12,13,14,15
   output 12,13,14,15
   low 12,13,14,15

   RSkeypadinit()
  
loop:
   key=RSkeypadread()
   LATC = key
   goto loop


endfunc 

include \lib\DiosRSkeypad.lib