!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! @ a-old-old
!
! Ensure backward compatiblity
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Delete new variables
!
! Structures
delete /var do true
! Variables
delete /var names name types
delete /var nimages nreference pens
delete /var first last step xpix ypix
delete /var center size range sampling vsys cross
delete /var spacing spacings scale scales mark
delete /var area_spacing width_spacing velo_spacing
delete /var bold norm
if exist(aspect) then
   delete /var aspect
endif
if exist(plot_position) then
   delete /var plot_position
endif
! Variable already defined by mapping
if (sic%program.ne."mapping") then
   delete /var type angle
endif
! Flag of global variable definitions
delete /var greg%def
!
! Define old variables and old menus
!
let greg%kind "2003"
@ define-2003.cube
@ menu
!
! User feedback
!
message w old "Back to the old interface to manipulate and visualize spectra cubes"
message w old "This interface is OBSOLESCENT => You should adapt your procedures"
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
