! @(#)testima.prg	17.1.1.1 (ES0-DMD) 01/25/02 17:46:22
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! procedure testima.prg to test, if an image is loaded into the display
! K. Banse	890301, 920413, 950206, 990804
!
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
define/param p1 centaur Ima
define/param p2 NOAUTO C
! 
if p2(1:4) .eq. "AUTO" then
   @ testima,copy {p1}
else if dazdevr(10) .eq. -1 then
   @ testima,copy {p1}
else if idimemc(1:1) .eq. " " then
   write/out "We need an image to load into the image display."
   write/out -
"Enter the name of an image frame or hit RETURN, if no image in your directory."
   write/keyw in_a/c/1/80 " " all
   inquire/keyw in_a "Image name: "
   if aux_mode(7) .le. 0 @ testima,copy {p1}
else
   return
endif
!
write/out load/image {in_a} 
load/image {in_a} scale=1
! 
entry copy
! 
write/out "O.k. we copy an image," {p1}.fits" from MID_TEST"
indisk/fits MID_TEST:{p1}.fits testima.bdf >Null
write/out Converted MID_TEST:{p1}.fits to testima.bdf
write/keyw in_a testima