' I/O Port umschalten
' © HPT 5.3.2012
$regfile = "m8def.dat"       'Die Anweisung bestimmt Controllertyp, hier AVR Mega 8
$crystal = 16000000       'Die Frequenz des verwendeten Quarzes
Config Pind.5 = Output       'Pin 5 von Port D wird als Ausgang konfiguriert
  Anfang:
     Portd.5 = 1       'Pin wird auf High, also 5V geschaltet
     Waitms 100
     Portd.5 = 0       'Pin wird auf Low, also 0V geschaltet
   Waitms 100
  Goto Anfang
End