'	'	'	'	'	'	'	'	'	'	'	'	'
'     Using LCD and Keypad on the PicStic4
'     Written in PicBasic Pro 
'     Version 2.30
'
'	'	'	'	'	'	'	'	'	'	'	'	'


 ' Definitions
b19	var	byte				'Command byte for call PASS
b20	var	byte				'LSByte of parameter for call PASS
b21	var	byte				'MSByte of parameter for call PASS
b0    var   byte				'working variable
info  var   word                    'store info rcvd from keypad



        b19=$03 : b20=00 : b21=$20   	'set config. word to LCD/Keypad 
        call PASS

        b19=$18 : b20=00 : b21=00		'clear LCD
        call PASS

START:  b19=$1C : b20=00 : b21=00		'read keypad
        call PASS
	  if b20=$FF then START
        info = b20
        b19=$1B : b20=info : b21=00   	'display keypress to LCD
        call PASS
        goto start
END