!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin data gag_scratch:uvmosaic.init
  TASK\INTEGER "Number of fields" FIELDS$  'dir%nfile'
  TASK\CHARACTER "Generic file name (without extension)" NAME$ 'name'
  TASK\GO
end data gag_scratch:uvmosaic.init
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Recovery mode
on error "return base"
!
sic find 'name'"-[0-9]*.uvt"  ! sh-compatible
if (dir%nfile.ne.0) then
   run uv_mosaic gag_scratch:uvmosaic.init /nowin
   say ""
   message i collect-fields "Collected "'dir%nfile'" uv tables into a single one called "'name'".uvt"
else
   message e collect-fields "This is not an old-style mosaic"
   return base
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
