$sim              ' usuwać sim podczas FIZYCZNEGO programowania!!!

Dim zmienna as byte
Dim zmienna2 as byte


do
   P0 = 0

   ' P3.0 - linijka
   ' P3.1 - punkt

   'program 1 (linijka):
   P0 = 0
   for zmienna = 0 to 7
      P0.zmienna = 1
      waitms 250

      if P3.0 = 0 then
         exit for
      endif
   next zmienna

   'program 2 (punkt):
   P0 = 0
   zmienna2 = 0
   for zmienna = 0 to 7
      P0.zmienna = 1
      if zmienna2 < zmienna then
         P0.zmienna2 = 0
         zmienna2 = zmienna2 + 1
      endif
      waitms 250

      if P3.1 = 0 then
         exit for
      endif
   next zmienna

loop
end