Das könnte die Sende-routine sein (nicht elegant, sollte aber funzen)

Code:
dim xx as byte


'..........................Steuerinfos und Frequenz übertragen            ......
Initialisieren:                                             'Control und Frequenzword übertragen
   'Squelch = 1                                                 'Squelch einschalten
   Controlw = &B00000101
   Gosub Senden
Return

Senden:
   Dat = 0                                                  'Dat
   Dlen = 0                                                 'CE
   Clb = 0                                                  'Cl
          ' start sending-------------------------------------
   Dlen = 1
   For Index = 1 To 3
      Controls = Sendebytes(index)
      For I = 0 To 7                                        'Bits 0-7 ausgeben
            xx = Controls And 1            ' daten pin setzen 
            Dat = Xx.0
            Clb = 1                                         ' Clock 1
            Shift Controls , right , 1
            Clb = 0                                         ' Clock 0
      Next
   Next I
          ' stop sending-------------------------------------
   Dlen = 0
   Return
Die Waitms Befehle wirst du nicht brauchen, denk ich, die ganze sache ist langsam genug