Zu 1:
Ich schätze, Du könntest auch eine Variable auch mit ledwf_A = &B10001000 initialisieren. Diese dann wie gehabt rotieren.
Danach einfach:
' Ledwf = Ledwf And &B00001111 ........Blödsinn. So sollte es aussehen
Ledwf = Ledwf_A And &B00001111

Sollte so funktionieren.

Zu 2. Das sollte meiner Meinung nach so aussehen:

Code:
If Taste = Setsid Then
  If Tog = 1 Then
    Tog = 0
  Elseif Tog = 0 Then
      Tog = 1
  End If
  Adr = &B00000100
  Reg = Wf(s) + 1
  Gosub Sidsend
End If