Quick Nightlight

Our visiting grandson asked for a nightlight because they forgot theirs. In about ten minutes I made one.

This is perhaps the shortest program I have ever written that actually does something.
' {$STAMP BS2}
' {PBASIC 2.5}
Variable  VAR  Byte
DO
   PWM 1, Variable, 100
   If (In14 = 0) THEN Variable = Variable + 10
   LOOP

Comments

Sign In or Register to comment.