============== LINIJKA I PUNKT ========================

$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
   End If

   If P3.1 = 0 Then
      Stan = 1
   End If

   If P3.0 = 0 And P3.1 = 0 Then
      Stan = 2
   End If

   '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
         End If
      Next Zmienna

      For Zmienna = 7 Downto 0
         P0.zmienna = 0
         Waitms 250

         If P3.1 = 0 Then
            Exit For
         End If
      Next Zmienna

   End If

   ' 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
         End If
         Waitms 250

         If P3.0 = 0 Then
            Exit For
         End If
      Next Zmienna

      Zmienna2 = 7
      P0.7 = 0
      For Zmienna = 7 Downto 0
         P0.zmienna = 1
         If Zmienna2 > Zmienna Then
            P0.zmienna2 = 0
            Zmienna2 = Zmienna2 - 1
         End If
         Waitms 250

         If P3.0 = 0 Then
            Exit For
         End If
      Next Zmienna

   End If

   'oba wcisniete
   If Stan = 3 Then
      P0 = 0

      If P3.0 = 0 Then
         Stan = 0
      End If

      If P3.1 = 0 Then
         Stan = 1
      End If
   End If

Loop
End

========================= KOLOS ==============================

$sim

Dim Zmienna As Byte
Dim I As Byte
I = 0
Zmienna = 0

Deflcdchar 1 , 2 , 4 , 14 , 17 , 17 , 17 , 14 , 32            ' replace ? with number (0-7)
Deflcdchar 2 , 32 , 32 , 14 , 17 , 31 , 1 , 14 , 32           ' replace ? with number (0-7)

Declare Sub Glowna
Declare Sub Wyswietlacz

Do

   Call Glowna

Loop
End

Sub Wyswietlacz
   Cls
   Lcd Chr(1) ; Chr(2) ; " zmienna=" ; Zmienna
End Sub

Sub Glowna

   If Zmienna < 10 Then
      For I = 0 To 10
          Call Wyswietlacz
          Zmienna = Zmienna + 1
          Wait 1
      Next
   End If

   If P3.7 = 0 Then
        Cls
        Zmienna = 0
   End If

End Sub