Wie setze ich den unteren Code für Bascom um?

$Timer1=Timer, Prescale=1, CompareA=Toggle, Clear

Compare1A=101

Sub BitLow()
$Timer1=Timer, CompareA=Toggle
WaitUs 890
$Timer1=Timer, CompareA=Reset
WaitUs 890
End Sub