$regfile = "attiny2313.dat"
$crystal = 4000000

Config Portb = Output
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Config Portd.4 = Input
Config Portd.5 = Input
Config Portd.6 = Input


Do
    Portd.0 = 0
    Portd.1 = 0
    Portd.2 = 0
    Portd.3 = 0
    Portd.4 = 1                                            
    Portd.5 = 1
    Portd.6 = 1
If Portd.4 = 0 Then
    Portb = &B11111111                                      'Pb7,Pb6,Pb5,Pb4,Pb3,Pb2,Pb1,Pb0
    Waitms 100
    Portb = &B00000000
    Waitms 100
    Portb = &B11111111
    Waitms 100
    Portb = &B00000000
    Waitms 100
    Portb = &B11111111
    Waitms 100
    Portb = &B00000000
End If
If Portd.5 = 0 Then
    Waitms 100
    Portb = &B00000010                                      'a
    Waitms 100
    Portb = &B00000100                                      'b
    Waitms 100
    Portb = &B01000000                                      'c
    Waitms 100
    Portb = &B00100000                                      'd
    Waitms 100
    Portb = &B00010000                                      'e
    Waitms 100
    Portb = &B00000001                                      'f
    Waitms 100
End If
Loop
End