define osc 4 ;hızı tanımlamalıyız
adcon1 = 6 ;porta dijital
;ilkayar: ;bu etiket gereksiz
trisa.1=1
trisa.2=1
trisb=%11000000
volume var portb ;volume gereksiz
volume=10
anaprogram:
if porta.1==1 and volume<64 then artirma ;koşullar paranteze alınsa daha iyi olur
if porta.2==1 and volume>0 then azaltma
goto anaprogram ;her iki butona da basılmazsa nereye gidecek? en büyük hata buradaydı
artirma:
pause 100 ;buton sekmesi için bekleme yapılmazsa aynı 1'i defalarca okur
volume=volume+1
volume=portb ;volume gereksiz fakat bir anlamı olsaydı portb=volume olması gerekirdi
goto anaprogram
azaltma:
pause 100
volume=volume-1
volume=portb
goto anaprogram
end