; MODMIN.PRO
PRINT,'Enter filename'
fn='' & READ,fn
h=BYTARR(512) & im=LONARR(256,256)
OPENR,1,fn & READU,1,h,im & CLOSE,1
BYTEORDER,im & HELP,im & im=FIX(im) & BYTEORDER,im & HELP,im
OPENW,1,fn & WRITEU,1,h,im & CLOSE,1
END