; IDL Version 2.2.2 (RISC/os mipseb)
; Journal File for steele@jasper
; Working directory: /wesson/user/steele
; Date: Wed Apr 22 12:05:28 1992
 
b=bindgen(1,256)
for i=0,7 do b=[b,b]
help,b
tv,b,0
tvscl,b,1
loadct,12
bsub=findgen(1,256)*.25+192
for i=0,7 do bsub=[bsub,bsub]
tv,bsub,2
tvscl,bsub,3