Еве уште една модификација на програмот на Devil
'Proekt Tutorijal za Makedonski Forum za Elektronika
'************ http://elektronika-mk.net
'*****************Modifikacija na Devil Tutorijal****************
'Hardver razvoen sistem MFE_01, softver mikroBasic PRO for PIC v.4
'Simulacija ISIS7
'Procesor 16F628A na 4MHz
program led 'Program led e imeto na proektot (programata)
main: 'Glaven del na programata
TRISB = 0 'Postavi porta B kako izlez
PORTB = 1 'Pocetna sostojba (digitalna sostojba 1-visoko nivo, 0- nisko nivo) na porta B e 0
Delay_ms(2) 'Pauza od 500mS
'Od tuka nadolu ja pisuvame programata za trepkanje na LED diodite
PORTB.0 = 1
Delay_ms(1)
PORTB.0 = 0
PORTB.1 = 1
Delay_ms(80)
PORTB.1 = 0
PORTB.2 = 1
Delay_ms(80)
PORTB.2 = 0
PORTB.3 = 1
Delay_ms(80)
PORTB.3 = 0
PORTB.4 = 1
Delay_ms(80)
PORTB.4 = 0
PORTB.5 = 1
Delay_ms(80)
PORTB.5 = 0
PORTB.6 = 1
Delay_ms(80)
PORTB.6 = 0
PORTB.7 = 1
Delay_ms(80)
PORTB.7 = 0
PORTB.6 = 1
Delay_ms(80)
PORTB.6 = 0
PORTB.5 = 1
Delay_ms(80)
PORTB.5 = 0
PORTB.4 = 1
Delay_ms(80)
PORTB.4 = 0
PORTB.3 = 1
Delay_ms(80)
PORTB.3 = 0
PORTB.2 = 1
Delay_ms(80)
PORTB.2 = 0
PORTB.1 = 1
Delay_ms(80)
PORTB.1 = 0
PORTB.0 = 1
Delay_ms(80)
goto main 'Odi na pocetok, ova e beskonecna komanda, ovaa programa
' ke se izvrzuva beskonecno dolgo
end. 'Kraj na programata