So habe iche es jetzt gelöst:



Code:
Dump = binval(string)

Shiftout Seriell, Sclk, Dump, 0
Rck = 1
waitms 1
Rck = 0
mfg Kay