led1.bas.txt

example for avr beginners with bascom

'program LED1.bas
Dim Led As Bit                            'LED is a Bit variable since it will turn on and
                                          'off the LED
Led = 0                                   'initial value
Do                                        'Do is a start of a Do-Loop loop
P1.0 = Led                                'LED is at the pin p1.0
Wait 1                                    'wait 1 second
Led = Not Led                             'invert LED value
Loop                                      'end of Do-Loop loop
End                                       'end of program