sic\let b*4 "" /new character               ! 4 is underline, 7 reverse video but both 
sic\let n*4 "" /new character               ! are mapped to same attribute on dumb VT100 
! 
if (fc_system.ne."EQUATORIAL") then 
  say 'b'" Sorry, GALACTIC is not supported by the GSC command !..."'n' 
  quit all 
else 
  cl pl 
  cl al 
  set sys 'fc_system' 
  proj 'fc_ra' 'fc_dec' /type azi 
  if (size.eq.0) then 
    limits 5 -5 -5 5 m 
  else if (size.gt.0.0) then 
    limits size|2 -size|2 -size|2 size|2 m 
  endif 
  set box m 
  axis xu /u m /lab p 
  axis yr /u m /lab p 
  axis xl /lab p /abso 
  axis yl /lab p /abso 
  set mark fc_marker[1] fc_marker[2] fc_marker[3] 
  if (fc_gsc) then 
    if (fc_ident) then 
      gsc /magnitude fc_mag /merge /output "field_at_"'fc_ra'-'fc_dec'".gsc" fc_ident /equinox fc_epoch 
    else 
      gsc /magnitude fc_mag /merge /equinox fc_epoch 
    endif 
  endif 
  if (fc_sao) then 
    if (fc_ident) then 
      astrom /magnitude fc_mag /output "field_at_"'fc_ra'-'fc_dec'".astrom" /equinox fc_epoch 
    else 
      astrom /magnitude fc_mag /equinox fc_epoch 
    endif 
  endif 
  if (fc_iras) then 
    set mar 4 0 marker_size 
    iras 100 
    draw mar 1 -1 4 /box 9 
    set mar 4 1 marker_size 
    iras 60 
    draw mar 1 -2 4 /box 9 
    set ori 45 
    iras 25 
    draw mar 1 -3 4 /box 9 
    set mar 4 0 marker_size|1.414 
    iras 12 
    draw mar 1 -4 4 /box 9 
    set ori 0 
    set mark fc_marker[1] fc_marker[2] fc_marker[3] 
    draw text 1 -1 " 100\gm" 6 /box 9 
    draw text 1 -2 "  60\gm" 6 /box 9 
    draw text 1 -3 "  25\gm" 6 /box 9 
    draw text 1 -4 "  12\gm" 6 /box 9 
  endif 
                                ! 
  if (fc_system.eq."GALACTIC") then 
    label "L\\dII" /x 
    label "B\\dII" /y 
  else 
    label "R.A. ("'fc_epoch'")" /x 
    label "Dec. ("'fc_epoch'")" /y 
  endif 
  draw text 0 1 "Arc Min." 5 /box 8 
  set ori 90 
  draw text 1 0 "Arc Min." 5 /box 6 
  set ori 0 
endif