setpin 7, ain, 8
do while inkey$ = ""
cls
for x% = 300 to 555
pixel x%, 300*pin 7
next x%
loop
end
' ~ 45 Hz ( I'm sure
' there is a truth there )