$regfile = "m8def.dat"                                     'Die Anweisung bestimmt Controllertyp, hier AVR Mega 32
 $framesize = 32                                            'Stackanweisungen, die eigentlich nur bei größeren Programmen
 $swstack = 32                                              'wirklich nötig werden
 $hwstack = 32                                              'wirklich nötig werden
 $crystal = 16000000                                        'Die Frequenz des verwendeten Quarzes
 $baud = 9600                                               'Die Baudrate für RS232 Ausgabe.
                                                             'Sie muss auch beim PC Terminalprogramm identisch sein
 'Config Pind.5 = Output'
 'Config Pinb.1 = Input'                                    
 'Config Pind.6 = Output'                                   
 Ddrb = &B11111111                                          

 Config Adc = Single , Prescaler = Auto , Reference = Avcc  
 Dim I As Word
 Dim E As Word
 Dim Channel As Byte

 Start Adc
 Ledg Alias Portb.3
 Ledr Alias Portb.1
 Ledb Alias Portb.2
 Ledw Alias Portb.0
 Channel = 0

Main:
      Print "begin"
      Gosub Blinken
      Gosub Adc
Goto Main


Blinken:
     Ledw = 1                                              
     Waitms 1000
     Ledw = 0
     Waitms 1000
     Ledr = 1
     Waitms 1000
     Ledr = 0
     Waitms 1000
     Ledb = 1
     Waitms 1000
     Ledb = 0
     Waitms 1000
     Ledg = 1
     Waitms 1000
     Ledg = 0
     Waitms 1000
     Print "leds laufen korekt"                              
Return


Adc:
  Do
  Start Adc
  I = Getadc(channel)
  Print "ADC-Pin " ; Channel ; ": Wert " ; I
  Incr Channel
  If Channel > 4 Then Channel = 0
  Waitms 10
  Loop
  Return