!
if pro%narg.eq.0 then
  SAY "Syntax: "
  SAY "@ find_cali source [Radius]  "
  SAY "  "
  SAY "  Defaul radius is 45° -- Once plotted "
  SAY "    @ highlight [1] [2] [3]  "
  SAY "  will highlight the calibrators of different strengths"
endif
define real radius
let radius 45
if pro%narg.eq.2 let radius &2
!
astro\catalog gag_data:phase-pdb /alternate
astro\source &1
astro\frame eq ra|pi*12 dec|pi*180 'radius'
astro\source &1 /draw
create dir weak
change dir weak
greg1\set char 0.3
astro\source /draw f /alternate /flux 0.1 0.6
greg1\set char 0.4
change dir <greg
create dir normal
change dir normal
greg1\pencil 1
astro\source /draw f /alternate /flux 0.6 2.0
change dir <greg
create dir strong
change dir strong
greg1\pencil 3
greg1\set char 0.5
astro\source /draw f /alternate /flux 2.0 50
greg1\pencil 0
change dir <greg
header
!
begin procedure highlight
  define char key*3  dirnames*8[3]
  define integer j
  let dirnames "strong" "normal" "weak"
  if pro%narg.eq.0 then
    key = on
  else
    key = off
  endif
  change visi weak 'key'
  change visi normal 'key'
  change visi strong 'key'
  !
  for i 1 to pro%narg
    let j 'pro%arg[i]'
    change visi 'dirnames[j]' on
  next
end procedure highlight
!
SAY "    @ highlight [1] [2] [3]  "
SAY "  will highlight the calibrators of different strengths"



