! @ PR:X_FIND_CALIB 
!---------------------------------------------------------------------------- 
! 
gui\panel "Find a calibrator (R.Lucas)" x_find_calib.hlp 
if .not.exist(source_name) then 
  define character source_name*80 /global 
endif 
let source_name 'source_name' /prompt "Source Name ?" 
! 
if .not.exist(do_catalog) then 
  define logical do_catalog /global 
  let do_catalog yes 
endif 
let do_catalog 'do_catalog' /prompt "Use Source catalog coordinates ?" 
! 
if .not.exist(source_system) then 
  define character source_system*6 /global 
  let source_system "EQ" 
endif 
let source_system 'source_system' /prompt "Coordinate System ?" 
! 
if .not.exist(source_epoch) then 
  define real source_epoch /global 
  let source_epoch 2000.0 
endif 
let source_epoch 'source_epoch' /prompt "Source epoch ?" 
! 
if .not.exist(source_ra) then 
  define character source_ra*20 /global 
endif 
let source_ra 'source_ra' /prompt "Right Ascension ?" 
! 
if .not.exist(source_dec) then 
  define character source_dec*20 /global 
endif 
let source_dec 'source_dec' /prompt "Declination ?" 
! 
if .not.exist(range) then 
  define real range /global 
  let range 45. 
endif 
let range 'range' /prompt "Finding range ?" 
! 
if .not.exist(catalog_name) then 
  define character catalog_name*80 /global 
  let catalog_name "phase-2000.sou" 
endif 
let catalog_name 'catalog_name' /prompt "Calibrator Catalog Name ?" 
! 
gui\button "@ x_do_find" find 
gui\button "source /cursor" cursor 
gui\go "@ x_do_find" 
! 
!----------------------------------------------------------------------------