'******************************************************************************************
'  AVR Sample Program
'   Project      :
'   Program Name :
'   Programer    :
'   Create date  :  Version 1.0    H19.01.20
'   History      :
'   Laungage     :  BASCOM-AVR BASIC
'******************************************************************************************
'  (1)Description
'
'******************************************************************************************
' ==============================
' 1.Define Segment
' ==============================
$regfile = "m48def.dat"
$crystal = 8000000                                          'Used 8MHz OSC
$baud = 9600
Dim Vol As Integer

Config Portb = Input
Config Adc = Single , Prescaler = Auto

' ==============================
' 2.Program Segment
' ==============================
Print "AVR ATmega48 Connected OK!  "
Do
    Start Adc
    Vol = Getadc(0)
    Vol = Vol * 10
    Print "Volt[mV]" ; Vol
    Waitms 500
Loop



End