ISP-Programmer ATmega8 Probleme mit Print Ausgabe

Guten Abend zusammen

Ich habe eine Schaltung wie im Anhang aufgezeichnet aufgebaut und dazu 
noch zwei Potis an ADC 0 und 1 mit GND zu D2. Nun meine Frage ich müsst 
doch nach meinem Code die Spannung zurück erhalten und nicht teuro 
Zeichen oder? Was habe ich falsch gemacht?

$crystal = 8000000
$regfile = "m8def.dat"
$hwstack = 64
$swstack = 64
$framesize = 64


Dim D As Integer
Dim U As Single
Dim Uref As Single

Open "comb.4:9600,8,n,1,inverted" For Output As #1
Open "comb.5:9600,8,n,1,inverted" For Input As #2


Config Adc = Single , Prescaler = 64 , Reference = Off
Start Adc

Ddrd.2 = 1                                                  'Poti Gnd


Print #1 , "AD-Wandler"
Do
  D = Getadc(14)
  Uref = 1.23 / D
  D = Getadc(0)
  U = Uref * D
  Print #1 , "AD0  " ; U ; " V "
  D = Getadc(1)
  U = Uref * D
  Print #1 , "AD1  " ; U ; " V "
  Waitms 500
Loop

End

Gruss und Danke im Voraus