load grid.dat
contour (grid)
title ('contour')
pause
for i=0:30:120
figure
mesh(grid,[i,60])
pause
end