Неоднократно звучал вопрос: " Где взять 155ид1? или DU2090". Я думаю можно применить сдвиговые регистры

На выходе поставить ключ (резистор и транзистор). И кусок кода:
$regfile = "attiny2313.dat"
$crystal = 1000000
Dim A As Byte
Config Portb = Output
A = 145
Gosub Hc595 'уходим на подпрограмму отправки данных
End
Hc595: 'подпрограмма отправки данных
Shiftout Portb.2 , Portb.3 , A , 1 'отправляем данные в регистр
Pulseout Portb , 0 , 5 'защелкиваем данные
Return
Как думаете уважаемые Коты? Управление инками как у автора. И городи любые эфекты.