pues bien ya estoy de nuevo por aqui y despues de leer y leer y otra vez leer decidi usar el microcode studio y este es el programa que pude hacer(por favor no se rian que es mi primer programa)como ven? me ayudan a mejorarlo?
aunque no lo crean funcionooooo

'****************************************************************
'* Name : destellos.BAS *
'* Author : [set under view...options] *
'* Notice : Copyright (c) 2008 [set under view...options] *
'* : All Rights Reserved *
'* Date : 20/07/2008 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
;E=ENTRADA S=SALIDA
TRISB = %00011111 ;COFIGURO EL PORTB RB0=E,RB1=E,RB2=E,RB3=E,RB4=E,RB5=S,RB6=S,RB7=S
;enciende un vez
if PORTB.0 = 1 then ;AQUI ACTIVO A RB0 CON ALTO
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
ENDIF
;enciende 2 veces
if PORTB.1 = 1 then ;AQUI ACTIVO A RB1 CON ALTO
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
ENDIF
;encinde 3 veces
if PORTB.2 = 1 then ;AQUI ACTIVO A RB2 CON ALTO
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
ENDIF
;enciende 4 veces
if PORTB.3 = 1 then ;AQUI ACTIVO A RB3 CON ALTO
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
ENDIF
;enciende 5 veces
if PORTB.4 = 1 then ;AQUI ACTIVO A RB4 CON ALTO
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
High 5 ;PONE ALTO RB5 (ENCIENDE LED)
pause 300 ;DURANTE 300MS
low 5 ;PONE BAJO A RB5(APAGA LED)
pause 300 ;DURANTE 300MS
ENDIF