'****************************************************************
'* Name : serin.BAS *
'* Author : Navaismo *
'* Notice : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 22/07/2008 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
Device = 16F84A
XTAL 4
Dim in As Byte
TRISA=31
TRISB=0
PORTA=0
PORTB=0
main:
SerIn PORTA.0,84,[Wait("y"), in]
Select Case in
Case "a": PORTB.0 = 1
Case "b": PORTB.0 = 0
Case "c": PORTB.1 = 1
Case "d": PORTB.1 = 0
EndSelect
GoTo main