! @(#)Xveriall.prg	17.1.1.1 (ESO-DMD) 01/25/02 17:59:34
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
!  MIDAS procedure Xveriall.prg  to execute all the "Xverify" procedures
!  K. Banse     921202, 930628, 940203, 950906, 970618, 980309, 010302
!
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++
! 
define/param p1 Display c "Enter NoDisplay or Display (the default):"
if p1(1:1) .eq. "D" then
   define/local dispflg/i/1/1 1
else
   define/local dispflg/i/1/1 0
endif
! 
define/param p2 No c -
"Enter Yes, if automatic run (i.e. no manual input required):"
if p2(1:1) .eq. "Y" then
   write/keyword alltutos/i/1/1 1
endif
! 
define/local times/i/1/5 0 all
times(1) = m$secs()
set/format i1
! 
@@ Xverify1 {dispflg}1111111111
if stop .eq. 1 return/exit
! 
times(2) = m$secs()-times(1)
set/format i1
times(3) = times(2)/60
times(4) = times(2)-times(3)*60
write/out 
write/out -
"successful end of XXX verification loop (elapsed time: {times(3)}m {times(4)}s)"