Użyj najlepiej instrukcji shiftout .
Przeznaczenie:
Wsuwa ciąg bitów do zmiennej.
Składnia:
SHIFTIN pin_danych , pin_zegarowy , zmienna , opcje [, il_bitów , opóźnienie ]
gdzie:
pin_danych nazwa końcówki portu będącą linią wejściową strumienia bitów,
pin_zegarowy nazwa końcówki portu będąca linią zegarową,
zmienna zmienna do której wsuwane będą bity,
opcje opcje,
il_bitów ilość wsuwanych bitów,
opóźnienie opóźnienie w mikrosekundach między kolejnymi bitami.
Więcej informacji w helpie.
(jeśli w grę wchodzi bascom)
Dodano po 1 [minuty]:
Sory to właściwa instrukcja, tamta przyjmuje dane
SHIFTOUT pin_danych , pin_zegarowy , zmienna , opcje [, il_bitów , opóźnienie ]
gdzie:
pin_danych nazwa końcówki portu będącą linią wyjściową strumienia bitów,
pin_zegarowy nazwa końcówki portu będąca linią zegarową,
zmienna zmienna z której wysuwane będą bity,
opcje opcje,
il_bitów ilość wysuwanych bitów,
opóźnienie opóźnienie w mikrosekundach między kolejnymi bitami.
Kolego jacobsek, jak już cytujesz to rób to poprawnie i podaj tego źródło. 
Przypominam, że na 1 stronie jest Mój copyright.
ten drugi już jest zaprogramowany i w nim nic nie bede zmieniał.Poprostu żeby ten pierwszy działał jako "nadajnik".
