'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2011 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 22/11/2011                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************


        Device = 16F877
        Xtal = 4
 
 ' Conformation des ports       
        LCD_DTPin = PORTD.4	
		LCD_RSPin = PORTE.0
		LCD_ENPin = PORTE.1
		LCD_Interface = 4	' 4-bit Interface
		LCD_Lines = 2
		LCD_Type = 0
		LCD_CommandUs = 2000
		LCD_DataUs = 50

        Hserial_Baud = 9600		        ' Transmision à 9600 bauds
        Hserial_RCSTA = %10010000       ' UART actif en réception continue
        Hserial_TXSTA = %00100100       ' UART actif en transmission en mode asynchrone 
        Hserial_Clear = On		        ' Trap des erreurs de réception
        
'        Keypad_Port = PORTB
        
        All_Digital = TRUE	             ' PORTA et PORTB en mode digital
        PortB_Pullups = On
        
        OPTION_REG.7 = 0        		' Résistances de tirage PORTB actives
        
        DelayMS 100               		' LCD stable
        Cls                             ' Effacement du LCD
        
        Dim BtnVar As Byte 				' Workspace for Button instruction.
        BtnVar=0
        
        
Loop:
Button PORTB.5, 1, 255, 250, BtnVar, 1, Press
NoPress:
GoTo Loop

Press:
Cls
Symbol tempb = PORTB & $1F
Print At 1,1, Dec tempb
Print At 1,10, Dec PORTB & $1F
GoTo Loop