So, hab jetzt mal was geschrieben!!!
kann das funktionieren???

Code:
'******************************************
'erste  Versuche Bascom
'******************************************

$regfile = "4433def.inc"
$crystal = 3686400                                          'Quarz: 3.6864 MHz
Ddrd = &B0000000                                            'eingänge
Ddrc = &B1111111                                            'ausgänge

'PD0-PD7 = Sensoren
'PC0-PC7 = Motorsteuerung

Baud = 9600

Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 1

Do
  If Pind.0 = 1 Then                                        'Wenn Sensor1 (Pin PD0) High
    Print = "Stein an Position 1"
  Else If Pind.0 = 0 Then
    Print = "Kein Stein an Position 1"
  End If

Loop
End