Tek Buton ile Birden Fazla İş

     trisa.0 = 1
     symbol buton = porta.0
     sayac var byte
     sayac = 0
main:
      pause 1
      if buton = 0 then main ; [I][COLOR="Blue"]butona basılmamışsa başa dön[/COLOR][/I]
      pause 50
      sayac = sayac + 1      ;[I][COLOR="Blue"]basıldıysa sayacı arttır[/COLOR][/I]

secim:
      SELECT CASE sayac
             CASE 1 
                   goto gorev_1   ;[I][COLOR="Blue"]sayac değerine göre uygun etikete git[/COLOR][/I]
             CASE 2 
                   goto gorev_2
             CASE 3 
                   goto gorev_3
             CASE 4 
                   sayac = 1       ;[I][COLOR="Blue"]sayac 3'ü geçtiyse tekrar 1 yap ve[/COLOR][/I]
      END SELECT

      goto secim     ;[I][COLOR="Blue"]1. görev etiketine yollanmak üzere secim etiketine git[/COLOR][/I]

gorev_1:
      (şunu yap)                  ;[I][COLOR="Blue"]ilk basışta yapılacaklar[/COLOR][/I]
      goto main
gorev_2:
      (bunu yap)                  ;[I][COLOR="Blue"]ikinci basışta yapılacaklar[/COLOR][/I]
      goto main
gorev_3:
      (şunu, şunu yap)          ;[I][COLOR="Blue"]üçüncü basışta yapılacaklar[/COLOR][/I] 
      goto main

end