rdkimg,'/jasper/cnsr3_data1/a2602000.003',hb0,img0
rdkimg,'/jasper/cnsr3_data1/a2613000.003',hb1,img1
max0=MAX(img0) & max1=MAX(img1)
bimg0=BYTSCL(img0,min=0,max=max0)
bimg1=BYTSCL(img1,min=0,max=max1)
bout=BYTARR(256,128)
bout(0,0)=bimg0
bout(128,0)=bimg1
psopen,'4x4images.ps',/col
loadct,13,/silent
TV,bout
psclose
spawn,'lpr -l -Pqms 4x4images.ps'
END