$regfile = "attiny2313.dat" $crystal = 1000000 Config Portd = Output Dim A As Byte Dim C As Byte Dim F As Long A = &B111 C = &B1100 F = 1000 Set Portd.4 Shiftout Portd.5 , Portd.6 , A , 3 , 3 Shiftout Portd.5 , Portd.6 , C , 3 , 4 Shiftout Portd.5 , Portd.6 , F , 3 , 26 Reset Portd.4 Set Portd.4 End