Dim a As Word
'set delay
a = 500
'reset port b
TRISB = 0
PORTB = %11111111
Goto repeat
End
'infinite loop subroutine
repeat:
'c
PORTB = %11001011
WaitMs a
'l
PORTB = %11101101
WaitMs a
'u
PORTB = %10001111
WaitMs a
'b
PORTB = %10001001
WaitMs a
'-
PORTB = %11111011
WaitMs a
'c
PORTB = %11001011
WaitMs a
'a
PORTB = %10001011
WaitMs a
'l
PORTB = %11101101
WaitMs a
'i
PORTB = %11101111
WaitMs a
'b
PORTB = %10001001
WaitMs a
'r
PORTB = %11101011
WaitMs a
'a
PORTB = %10001011
WaitMs a
'null
PORTB = %11111111
WaitMs a
Goto repeat