)
Kód: Egész kijelölése
' LEDpélda.bas
$regfile = "m32def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 32
$framesize = 24
Config Portd = Output 'LED vezérlő kimenetek
Ledport Alias Portd
Config Timer0 = Timer , Prescale = 64 'Clock value: 15.625 kHz
On Ovf0 Refresh 'Időzítés mgszakítás
Enable Timer0 ' enable the timer interrupt
Enable Interrupts
Dim Szamol_w As Byte 'Mutató az adat számláláshoz
Dim Ledadat As Byte 'Ledsórnak küldöt adat Byte
Dim Total_tabla As Byte
Dim Var As Word 'Várakozás adat Ms.
Total_tabla = 8
Do
For Szamol_w = 1 To Total_tabla 'Ciklus a ledek kapcsolásához
Ledadat = Lookup(szamol_w , Ledtabla) 'Beolvassa a LED álapotát
Ledport = Ledadat 'Ki teszi a Portra
Var = Lookup(szamol_w , Waittabla) 'Beolvassa a várakozás idejét
Waitms Var 'Késleltetés a láthatóság kedvéért
Next Szamol_w
Loop
End 'end program
Refresh: 'Timer0 INT rutin
'Még nincskész!
Return
' Villogás várakozás tábla Ms-ben
Waittabla:
Data 200 , 150 , 100 , 150 , 200 , 300 , 350 , 400
'Led táblát Binárisan könyebb kezelni!
Ledtabla:
Data &B00001111 , &B11110000 , &B00111100 , &B01100110 , &B00011110 , &B00111100 , &B01111000 , &B11110000
Majd később fog kelleni.) 
