'Evaluationsboard V 2.01
'HPT 5.3.2012
$regfile = "m8def.dat"       'Controllerauswahl
$crystal = 16000000       'Quarzfrequenz

Config Portd = Output        'PinD.5=LED1, PinD.6=LED2, PinD.7=Summer
Config Pind.2 = Input        '=Taster 1
Config Pind.3 = Input        '=Taster 2
Config Pind.4 = Input        '=Taster 3

do
   If Pind.2 = 1 Then Set Portd.5          ' Taster 1 gedrückt = LED1
   If Pind.3 = 1 Then Toggle Portd.6        ' Taster 2 gedrückt = LED2 ein - aus
   If Pind.4 = 1 Then Sound Portd.7 , 200 , 450        ' pin, Länge, Periodendauer.
   Waitms 250
   Reset Portd.5            ' Port zurücksezten
loop

End    'Programm-Ende