$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Portb.1 = Input
Config Portb.2 = Input

Portb.1 = 1
Portb.2 = 1


Config Portd = Output
Config Portc = Output
Dim I As Byte
Dim K As Byte
Dim F As Byte
Dim X As Integer
X = 100


Do


If Pinb.1 = 0 Then F = 1
If Pinb.2 = 0 Then
Pinb.1 = 1

End If

If F = 1 Then

For I = 0 To 7 Step 1
        Portd.i = 1
        Waitms X
            For K = I To 7 Step 1
            If Pinb.2 = 0 Then Goto Lin
            Portd.k = 1
            Waitms X
            Portd.k = 0
            Next
       Portd.i = 1
        Waitms X
        Next
        X = X + 200
        If X = 500 Then X = X - 400
End If

Lin:
If Pinb.2 = 0 Then
   For I = 7 To 0 Step -1
   Portd.i = 0
   Waitms 300
   F = 0
   Next
End If
Loop
End