PRO segdr,mov mov=intarr(504,480,140) openr,1,'/net/abeto/scratch/sob/suetter/smov.dat' readu,1,mov close,1 END