$regfile = "attiny26.dat" $crystal = 1000000 Config Adc = Single , Prescaler = Auto , Dim A As Byte Dim B As Byte Dim C As Word Open "COMB.6:9600,8,N,1,Inverted" For Output As #1 Waitms 500 Print #1 , "HALLO" Do Start Adc Waitms 100 C = Getadc(1) A = Adcl B = Adch Stop Adc Waitms 100 Print #1 , "ADC : " ; " " ; A ; " " ; B ; " " ; C Waitms 500 Loop End