4-Encender 8 leds 

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

trisb=0          ; habilito todos los puertos b
POOL            ;creo una subrutina llamada vladi
portb=% 00000001 ;habilito un 1 logico en el puerto b0
pause 250        ;por un tienpo de 250 milisegundos

portb=% 00000010 ;habilito un 1 logico en el puerto b1
pause 250        ;por un tienpo de 250 milisegundos

portb=% 00000100 ;habilito un 1 logico en el puerto b2
pause 250        ;por un tienpo de 250 milisegundos

portb=% 00001000 ;habilito un 1 logico en el puerto b3
pause 250        ;por un tienpo de 250 milisegundos

portb=% 00010000 ;habilito un 1 logico en el puerto b4
pause 250        ;por un tienpo de 250 milisegundos

portb=% 00100000 ;habilito un 1 logico en el puerto b5
pause 250        ;por un tienpo de 250 milisegundos

portb=% 01000000 ;habilito un 1 logico en el puerto b6
pause 250        ;por un tienpo de 250 milisegundos

portb=% 10000000 ;habilito un 1 logico en el puerto b7
pause 250        ;por un tienpo de 250 milisegundos
goto POOL       ;ir a la subrutina POOL
end