'Test program to blink an LED connected to PORTB.0 

'Use IntRC I/O 
'Written in Pic Pro Basic for 16f876 to test pickey prog/comport.
'Bill Sherman 11-18-03
'4 mhz xtal or resonator

@  Device Pic16F876, XT_OSC, Wdt_Off, Pwrt_On, Bod_On, Lvp_Off, Cpd_Off, Protect_Off
Include "modedefs.bas"          ' Include serial modes
n      var     byte
pause 100
loop:  
'get a keyboard letter and display value after flashing led 
        serin portb.6,N2400,n
        
        High portb.0    ' Turn on LED connected to PORTB.0
        Pause 50      ' Delay for 50 milliseconds
        Low portb.0    ' Turn off LED connected to PORTB.0
        Pause 50       ' Delay for 50 milliseconds
        
        Serout portb.7,N2400,[n]   
        

        Goto loop       ' Go back to loop forever
        End