$regfile = "attiny13.dat"                       'Einschaltverzögerung
$hwstack = 22
$swstack = 8

Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
Config Portb.4 = Input
Config Portb.5 = Output
PortB.4 = 1
Taster1 Alias Pinb.4
Config Taster1 = Input
Config Debounce = 50

Do

Portb = 0
If PINB.4 = 1 Then                                          'Taste drücken
Wait 1                                                      'Warten 1sec
Portb.0 = 1                                                 '-5 Volt ein
Wait 2                                                      'Warten 2 sec
Portb.1 = 1                                                 'Programmer ein
Wait 2                                                      'Warten 2 sec
Portb.2 = 1                                                 'Taste drücken
PINB.4 = 1                                                  '+12 Volt ein  Taster1 = 1 Then
Wait 1                                                      'Warten 1sec
PORTB.2 = 0                                                 '+12 Volt aus
Wait 2                                                      'Warten 2 sec
PORTB.1 = 0                                                 'Programmer aus
Wait 2                                                      'Warten 2 sec
PortB.0 = 0                                                 '-5 Volt aus


End if                                                      'end program

Loop                                                        'Programm Ende