$regfile = "m32def.dat"
$crystal = 12000000
$lib "glcdKS108.lbx"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce = 3 , Ce2 = 4 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Cls
Config Adc = Single , Prescaler = Auto
Dim X As Byte , A As Word , A1 As Byte , X1 As Byte
Start Adc
Line(0 , 63) -(127 , 63) , 1
Line(0 , 0) -(0 , 63) , 1
Line(127 , 0) -(127 , 63) , 1
Line(0 , 0) -(127 , 0) , 1
Wait 1
Do
For X = 1 To 126
A = Getadc(0)
A = A / 16
Line(x , 1) -(x , 64) , 0
Pset X , A , 1
X1 = X - 1
Line(x1 , A1 ) -(x , A) , 1
A1 = A
Next
Loop