! @(#)lutexc.prg	14.1.1.1 (ES0-DMD) 09/16/99 09:27:17
! ++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! MIDAS procedure lutexc.prg
! K. Banse	900703, 901212
!
! demonstrate different colour lookup tables
!
! ++++++++++++++++++++++++++++++++++++++++++++++++++++
WRITE/KEYW OUT_A 'P1'		!save plotflag (Plot or NoPlot)
!
WRITE/OUT "Some of the existing colour lookup tables are:"
WRITE/OUT
WRITE/OUT idl2, idl4, idl5, idl6, idl11, idl12, idl14, idl15
WRITE/OUT
!
SET/LUT					!enable lookup tables
DISPLAY/LUT				!display colour bar
!
@ lutexc,sublut idl2
@ lutexc,sublut idl4
@ lutexc,sublut idl5
@ lutexc,sublut idl6
@ lutexc,sublut idl11
@ lutexc,sublut idl12
@ lutexc,sublut idl14
@ lutexc,sublut idl15
! 
WRITE/OUT
WRITE/OUT "To see all existing LUTs, use the host command"
WRITE/OUT  -DIR MID_SYSTAB:*.lut
!
! here entry SUBLUT
!
ENTRY SUBLUT
! 
WRITE/OUT LOAD/LUT 'P1' yields:
LOAD/LUT 'P1' 'DAZHOLD(10)',256
IF OUT_A(1:1) .EQ. "P" @a plottab,lut 'P1'