! @(#)obsolete.prg	14.1.1.1 (ES0-DMD) 09/16/99 09:27:20
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! 
!  MIDAS procedure   obsolete.prg
!  K. Banse	920313			ESO - Garching
!  920428, 930110, 930323, 930617, 930923, 940113
! 
!  provide alias + execute obsolete commands
!  in procedure  obsolete.def 
!  the relevant command definitions (alias) have to be set
! 
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! 
! the following entry is a template
! 
! ENTRY TEST
! if obsolete(x) .le. 0 then		!x in [1,20] 
!    WRITE/OUT "Command BLABLA/OHO is obsolete, use HELP/KEYW instead!"
!    obsolete(x) = obsolete(x)+1
! endif
! HELP/KEYW {P1}
! 
ENTRY CREAUX
if obsolete(2) .le. 0 then
   WRITE/OUT "Command CREATE/AUX_WINDOW is obsolete, use CREATE/ZOOM instead"
   CREATE/ZOOM {p1} {p2} {p3}
   obsolete(2) = obsolete(2)+1
endif
WAIT 0
! 
ENTRY COPAUX
if obsolete(2) .le. 0 then
   WRITE/OUT "Command COPY/AUX_WINDOW is obsolete, use COPY/ZOOM instead"
   COPY/ZOOM {p1} {p2} {p3} {p4} {p5} {p6}
   obsolete(2) = obsolete(2)+1
endif
WAIT 0