if :Finder == 1 then :ScanPitch=atan(:FD/1.85) :ScanPitch-=90 end
:ScanIndex=0 s="\n" if :ScanOn !=1 then Goto1 end




v=:ScanVol v=v-v%1 s=s+:ScanMat+": "+v+"\n" :ScanIndex++
if :ScanIndex < :ScanResults then Goto8 end :Scan=s :ScanOn=0 Goto1
//:Finder and :ScanOn are Buttons, :FD is the RangeFinder result.
//The Divisor for FD depends on the location of your Range finder and Scanner.
//The empy area are 5 empty rows (3-7) to give the scanner time to update (3-7)