so gehts im simulator: die if abfrage muss in eine zeile! an dieser stelle finde ich basic echt sch****... in pascal teilt man dem compiler mit nem ; mit, dass der befehl zu ende ist, und alles ist in butter...


$regfile = "m8def.dat"
$crystal = 3686400
Config Portb = Output
Config Portd = Input
portd.2 = 1

Do
A:


If Pind.2 = 0 Then Goto B Else Goto C

B:
Portb.1 = 1
Waitms 50
Portb.1 = 0
Waitms 70
Portb.1 = 1
Waitms 50
Portb.1 = 0
Waitms 70
Portb.1 = 1
Waitms 50
Portb.1 = 0
Waitms 70
Portb.1 = 1
Waitms 50
Portb.1 = 0
Waitms 400
C:
Loop