$sim

P0 = 0
Dim Stan As Byte
Stan = 0

'Sterowanie: P3.0, P3.7
Do
   'Kropka
   If Stan = 0 Then

      P0 = 0
      Dim Zmienna As Byte
      For Zmienna = 1 To 7
         If P3.0 = 0 Then
            Stan = 1
            Exit For
         End If

         P0.zmienna = 1
         Waitms 35
         P0.zmienna = 0
      Next Zmienna
   End If

      P0.7 = 0
   If Stan = 0 Then
      Dim Zmienna2 As Byte
      For Zmienna2 = 6 Downto 0
         If P3.0 = 0 Then
            Stan = 1
            Exit For
         End If


         P0.zmienna2 = 1
         Waitms 35
         P0.zmienna2 = 0
      Next Zmienna2
   End If

   'Linia
   If Stan = 1 Then
      P0 = 0
      For Zmienna = 0 To 7
         If P3.7 = 0 Then
            Stan = 0
            Exit For
         End If

         P0.zmienna = 1
         Waitms 35
         Next Zmienna

   End If

   If Stan = 1 Then
      For Zmienna2 = 7 Downto 0
         If P3.7 = 0 Then
            Stan = 0
            Exit For
         End If

         P0.zmienna2 = 0
         Waitms 35
      Next Zmienna2
   End If

Loop
End