astro\catalog gag_astro:'catalog_name' /alternate 
if do_catalog then 
  astro\source 'source_name' 
  astro\frame eq ra|pi*12 dec|pi*180 'range' 
  astro\source 'source_name' /draw 
else 
  sic out gag_tmp:1.sou 
  say 'source_name' 'source_system' 'source_epoch' 'source_ra' 'source_dec' 
  sic out 
  cata gag_tmp:1.sou 
  astro\source 'source_name' 
  astro\frame eq ra|pi*12 dec|pi*180 'range' 
  astro\source 'source_name' /draw 
endif 
greg1\set char 0.4 
astro\source /draw f /alternate /flux 0.1 0.6 
greg1\set char 0.5 
greg1\pencil 1 
astro\source /draw f /alternate /flux 0.6 2.0 
greg1\pencil 3 
greg1\set char 0.6 
astro\source /draw f /alternate /flux 2.0 50 
greg1\pencil 0