' pic startup...
sub OnStartup() handles PIC.OnStartup
RPOR7 = &H0012
T2CON = &H8000
PR2 = &H100
OC1RS = &H00
OC1CON = &H0006
end sub
' entry point...
sub Main()
Dim bright as Byte
while true
for bright = 0 to 100
OC1RS = bright
delayms(10)
next bright
for bright = 100 to 0 step -1
OC1RS = bright
delayms(10)
next bright
end while
end sub
Users browsing this forum: No registered users and 0 guests