Hier mal ein kleiner Spaß , wie man eine LED mit einem Leuchtturm-Effekt aufleuchten lassen kann.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
let dirsc=%0000101
pwmout c.2,150,w0
main:
for w0=1 to 40
pwmduty c.2,w0
pause 12
next w0
pause 150
pwmduty c.2,1000
pause 100
for w0=50 to 0 step -1
pwmduty c.2,w0
pause 15
next w0
pause 1200
goto main
end