'---------------------------------
'Deklaration
'---------------------------------

$regfile = "m16DEF.DAT"
$crystal = 16000000


Zeit Alias 500


'---------------------------------
'Initialiserung:
'---------------------------------

Config Porta = Input
Config Portc = Output
Config Portd = Output


'---------------------------------
'Hauptprogramm:
'---------------------------------
    Portc = &B11111111
      Portd = &B00000000


   Do
    If Pina.0 = 1 Then
  
    Toggle Portc.1
    Toggle Portd.1
    Waitus Zeit
    Toggle Portc.1
    Toggle Portd.1
    Waitus Zeit
    Toggle Portc.0
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.0
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.1
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.1
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.2
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.2
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.3
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.3
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.4
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.4
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.5
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.5
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.6
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.6
    Toggle Portd.2
    Waitus Zeit
    Toggle Portc.6
    Toggle Portd.1
    Waitus Zeit
    Toggle Portc.6
    Toggle Portd.1
    Waitus Zeit
    Toggle Portc.6
    Toggle Portd.3
    Waitus Zeit
    Toggle Portc.6
    Toggle Portd.3
    Waitus Zeit
    End If

    Loop

End