Bende BASIC kodlarını payaşayım, belki birilerinin işine yarar.
N VAR BYTE ;N adında değişken atandı
SYMBOL BUTON= PORTA.0 ;Sembol atandı
SYMBOL LED= PORTB.0 ;Sembol atandı
TRISA=%00011111 ;PortA giriş olarak ayarlandı
TRISB=%00000000 ;PortB çıkış olarak ayarlandı
PORTA=0 ;PortA temizlendi
PORTB=0 ;PortB temizlendi
BASLA: ;BASLA etiketi
IF N=>3 THEN N=0 ;N değişkeni üçten büyükse N=0 olsun
IF BUTON=1 THEN ;BUTONa basıldıysa
N=N+1 ;N değişkenine bir ekle
WHILE BUTON=1 ;
WEND ;
ENDIF ;IF komutu sonu
IF N=2 THEN ;N değişkeni ikiye eşit ise
HIGH LED ;LED yansın
ELSE ;Değilse
LOW LED ;LED sönsün
ENDIF ;IF komutu sonu
GOTO BASLA ;BASLA etiketine git
END