DOCELL
if (waldgrd == 1) waldsurf = (tin2grd + 10)
if (waldgrd == 2) waldsurf = (tin2grd + 20)
if (waldgrd == 3) waldsurf = (tin2grd + 30)
if (waldgrd == 4) waldsurf = (tin2grd + 30)
if (waldgrd == 7) waldsurf = (tin2grd + 30)
if (waldgrd == 5) waldsurf = (tin2grd + 5) 
if (waldgrd == 6 xor waldgrd == 0 xor waldgrd == 9) waldsurf = (tin2grd + 0)
END