Code:
INCLUDE  "ANSI.INC"
cmcon=7:option_reg=$d7:intcon=0:trisb=0:trisa=$ff
DEFINE HSER_RCSTA 90h	;Set receive register to receiver enabled
DEFINE HSER_TXSTA 20h	;Set transmit regester to transmitter enabled
DEFINE HSER_BAUD 2400	;Set baud rate
DEFINE HSER_SPBRG 25	;Set spbrg regester
temp var byte:I VAR BYTE:I = 0
loop:
I =0
@ ClearScr         ; Clear Screen
hserout ["Value of input 1:",dec porta.0,10,13]
hserout ["Please select a command",10,13]
hserout [9,"1 = Flash 1 LED",10,13]:hserout [9,"2 = Flash 2 LED",10,13]
hserout [9,"3 = Flash Both LED",10,13]:hserin 5000,loop,[I]
IF I = "1" THEN
for temp = 1 to 10:PORTB.7 = 1:pause 1000:portb.7=0:pause 1000:next temp
endif
if i = "2" then
for temp = 1 to 10:portb.6=1:pause 1000:portb.6=0:pause 1000:next temp
endif
if i="3" then
for temp = 1 to 10:portb.6=1:portb.7=1:pause 1000:portb.6=0
portb.7=0:pause 1000:next temp
endif
GOTO LOOP
End
Try that out...

EDIT: DOH! Jerson beat me to it!