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

Dim zmienna as byte
Dim zmienna2 as byte
Dim stan as byte
stan = 0

do
   P0 = 0

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

   if P3.0 = 0 then
      stan = 0
   endif

   if P3.1 = 0 then
      stan = 1
   endif

   'linijka (domyslnie)
   if stan = 0 then

      P0 = 0
      for zmienna = 0 to 7
         P0.zmienna = 1
         waitms 250

         if P3.1 = 0 then
            exit for
         endif
      next zmienna
      for zmienna = 7 downto 0
         P0.zmienna = 0
         waitms 250

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

   endif

   ' punkt
   if stan = 1 then

      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.0 = 0 then
            exit for
         endif
      next zmienna

      zmienna2 = 7
      for zmienna = 7 downto 0
         P0.zmienna = 1
         if zmienna2 > zmienna then
            P0.zmienna2 = 0
            zmienna2 = zmienna2 - 1
         endif
         waitms 250

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

   endif

loop
end