Eine Alternative für Overlayfetischisten wie ich es bin:
Code:
$regfile = "M32DEF.DAT"
$crystal = 16000000
$hwstack = 512
$swstack = 512
$framesize = 512
$baud = 57600
Dim S As String * 4
Dim Werte(4) As Byte At S Overlay
Dim B As Byte
Config Portd = Output

Do
   Gosub Werteausstringnachport

Loop
End

Werteausstringnachport:
   If Len(s) = 4 Then                                       'geht auch mit 8 Werten
      For B = 0 To 3                                        'For B = 0 To 7
         Portd.b = Werte(b).0                               'bit0 ist bei 49 (asc("1")) =1, bei "0" =0
      Next B
   End If
Return