FUNCTION readtest,filename

OPENR,unit,filename,/GET_LUN
d=INTARR(128,128)
READU,unit,d
FREE_LUN,unit
RETURN,d
END