Port ansprechen (einzeln)

[teslanikola]

The shortest Knightrider Quellcode all over the World!!!!!!!!!

$regfile = "2313def.dat"
$crystal = 10000000
Dim A As Byte

Config Portb = Output
A = 1
Do
Do
Portb = A
Waitms 10
Rotate A , Left , 1
Loop Until A = 128
Do
Portb = A
Waitms 10
Rotate A , Right , 1
Loop Until A = 1
Loop