' ********************************************
' *          ((IN THE NAME OF GOD))          *
' ********************************************
' * Title         : Flash a LED              *
' * Last Updated  : 1385/5/16                *
' * Target        : Atmega8L                 *
' * Program code  : BASCOM AVR               *
' * Author        : Foad Alikhani            *
' * WebSite       : Www.Mechatronics.Co.Sr   *
' * E-mail        : foad_8x@yahoo.com        *
' ********************************************
$regfile = "m8def.dat"
$crystal = 1000000

Config Portb = Output

Do
    Portb.1 = 0
    Waitms 500
    Portb.1 = 1
    Waitms 500
Loop

End