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

   hsersetup baud,HBAUD115200,txon,start
   
   RSkeypadinit()
  
loop:
   key=RSkeypadread()
   if key <> 0 then
     hserout key
     flag = 1
   else
     if flag = 1 then
       hserout 0
       flag = 0
     endif
   endif

   goto loop


endfunc 

include \lib\DiosRSkeypad.lib