!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if (pro%narg.ne.1) then
   message e telescope "No telescope name given"
   message e telescope "Usage: GO TELES noema|alma|aca|..."
   return base
endif
!
define character filename*256
let filename 'name'"."'type'
if .not.file(filename) then
   message e teles 'filename'" not found"
   return base
endif
!
define header h 'name'"."'type' read
define logical doconvert
let doconvert h%version_gdf.lt.20
del /var h
!
if doconvert then
  message w teles "Automatic conversion to GDF version 2"
  @ p_convert
endif
!
message i teles "Adding "'pro%arg[1]'" telescope section to "'filename'
vector\header 'name'"."'type' /teles 'pro%arg[1]'
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
