Stap 6: Laadt de code
' {$STAMP BS2}
' {$PBASIC 2.5}
' Knipperende LED-Code
' Joe McManus 2/06
teller VAR BYTE
index VAR NIB
DOEN
FOR counter = 0 tot en met 15
HOGE teller
PAUZE 50
LAGE teller
VOLGENDE
FOR counter = 0 tot en met 15
HOGE teller
HIGH (15 - teller)
PAUZE 60
LAGE teller
LOW (15 - teller)
VOLGENDE
OUTS = % 0000000000000000
DIRS = % 1111111111111111
FOR counter = 0 tot en met 3
VOOR index = 0 tot en met 15
LOOKUP index (% 0000000110000000% 0000001111000000, % 0000011111100000, % 0000111111110000,
% 0001111111111000% 0011111111111100, % 0111111111111110, % 1111111111111111,
% 0111111111111110% 0011111111111100, % 0001111111111000, % 0000111111110000,
0000011111100000, % 0000001111000000, % 0000000110000000, % 0000000000000000), NULLEN
PAUZE 30
VOLGENDE
VOLGENDE
DIRH = % 11111111
DIRL = % 11111111
UIDELIJKE = % 00000000
OUTL = % 00000000
FOR counter = 0 tot en met 15
HOGE teller
HOGE (teller + 1)
PAUZE 65
LAGE teller
LAGE (teller + 1)
VOLGENDE
UIDELIJKE = % 00000000
DIRH = % 11111111
OUTL = % 00000000
DIRL = % 11111111
FOR counter = 0 tot en met 10
OUTL = % 00000000
UIDELIJKE = % 00000000
UIDELIJKE = % 11111111
PAUZE 100
UIDELIJKE = % 00000000
OUTL % 11111111 =
PAUZE 100
VOLGENDE
FOR counter = 0 tot en met 15
HOGE teller
HOGE (teller + 1)
HIGH (15 - teller)
HIGH (14 - teller)
PAUZE 65
LAGE teller
LAGE (teller + 1)
LOW (15 - teller)
LOW (14 - teller)
VOLGENDE
FOR counter = 0 tot en met 10
UIDELIJKE = % 00000000
OUTL = % 00000000
OUTL = % 11110000
UIDELIJKE = % 00001111
PAUZE 120
UIDELIJKE = % 00000000
OUTL = % 00000000
OUTL = % 00001111
UIDELIJKE = % 11110000
PAUZE 120
VOLGENDE
DIRH = % 11111111
DIRL = % 11111111
UIDELIJKE = % 00000000
OUTL = % 00000000
FOR counter = 0 tot en met 15
HOGE teller
HOGE (teller + 1)
HOGE (teller + 2)
HOGE (teller + 3)
PAUZE 50
LAGE teller
LAGE (teller + 1)
LAGE (teller + 2)
LAGE (teller + 3)
VOLGENDE
OUTS = % 0000000000000000
DIRS = % 1111111111111111
FOR counter = 0 tot en met 2
VOOR index = 0 tot en met 15
LOOKUP index (% 1000000000000000% 1100000000000000, % 1110000000000000, % 1111000000000000,
% 1111100000000000% 1111110000000000, % 1111111000000000, % 1111111100000000,
% 1111111110000000% 1111111111000000, % 1111111111100000, % 1111111111110000,
1111111111111000, % 1111111111111100, % 1111111111111110, % 1111111111111111), NULLEN
PAUZE 30
VOLGENDE
VOOR index = 0 tot en met 15
LOOKUP index (% 0111111111111111% 0011111111111111, % 0001111111111111, % 0000111111111111,
% 0000011111111111% 0000001111111111, % 0000000111111111, % 0000000011111111,
% 0000000001111111% 0000000000111111, % 0000000000011111, % 0000000000001111,
0000000000000111, % 0000000000000011, % 0000000000000001, % 0000000000000000), NULLEN
PAUZE 30
VOLGENDE
VOLGENDE
UIDELIJKE = % 00000000
DIRH = % 11111111
OUTL = % 00000000
DIRL = % 11111111
FOR counter = 0 tot en met 10
UIDELIJKE = % 00000000
OUTL = % 00000000
OUTL % 00000011 =
UIDELIJKE = % 11000000
PAUZE 40
UIDELIJKE = % 00000000
OUTL = % 00000000
OUTL = % 00001100
UIDELIJKE = % 00110000
PAUZE 40
UIDELIJKE = % 00000000
OUTL = % 00000000
OUTL = % 00110000
UIDELIJKE = % 00001100
PAUZE 40
UIDELIJKE = % 00000000
OUTL = % 00000000
OUTL = % 11000000
UIDELIJKE = % 00000011
PAUZE 40
UIDELIJKE = % 00000000
OUTL = % 00000000
PAUZE 30
VOLGENDE
DIRH = % 11111111
DIRL = % 11111111
UIDELIJKE = % 00000000
OUTL = % 00000000
LOOP
EINDE