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
640 x 480 - 71K
Re-inventing the wheel is not a waste of time if, when you are done, you understand why it is round.
Cool, CA, USA 95614

Comments

Sign In or Register to comment.