define integer corner code
define real yy yymin
let yymin -3
let yy -1
let corner 1
let code 6
!PLANET Moon /DRAW S
!if (ELEVATION.GT.0) THEN
!	DRAW TEXT 0 yy  "\g: : Moon" code /BOX corner
!	let yy yy-0.6
!	if (yy.lt.-4) then
!		let yy -1
!		let corner 3
!		let code 4
!	endif
!endif
PLANET Mercury /DRAW S
if (ELEVATION.GT.0) THEN
   DRAW TEXT 0 yy  "\g1 : Mercury" code /BOX corner
   let yy yy-0.6
   if (yy.lt.yymin) then
      let yy -1
      let corner 3
      let code 4
   endif
endif
PLANET Venus /DRAW S
if (ELEVATION.GT.0) THEN
   DRAW TEXT 0 yy  "\g2 : Venus" code /BOX corner
   let yy yy-0.6
   if (yy.lt.yymin) then
      let yy -1
      let corner 3
      let code 4
   endif
endif
PLANET Mars /DRAW S
if (ELEVATION.GT.0) THEN
   DRAW TEXT 0 yy  "\g4 : Mars" code /BOX corner
   let yy yy-0.6
   if (yy.lt.yymin) then
      let yy -1
      let corner 3
      let code 4
   endif
endif
PLANET Jupiter /DRAW S
if (ELEVATION.GT.0) THEN
   DRAW TEXT 0 yy  "\g5 : Jupiter" code /BOX corner
   let yy yy-0.6
   if (yy.lt.yymin) then
      let yy -1
      let corner 3
      let code 4
   endif
endif
PLANET Saturn /DRAW S
if (ELEVATION.GT.0) THEN
   DRAW TEXT 0 yy  "\g6 : Saturn" code /BOX corner
   let yy yy-0.6
   if (yy.lt.yymin) then
      let yy -1
      let corner 3
      let code 4
   endif
endif
PLANET Uranus /DRAW S
if (ELEVATION.GT.0) THEN
   DRAW TEXT 0 yy  "\g7 : Uranus" code /BOX corner
   let yy yy-0.6
   if (yy.lt.yymin) then
      let yy -1
      let corner 3
      let code 4
   endif
endif
PLANET Neptune /DRAW S
if (ELEVATION.GT.0) THEN
   DRAW TEXT 0 yy  "\g8 : Neptune" code /BOX corner
   let yy yy-0.6
   if (yy.lt.yymin) then
      let yy -1
      let corner 3
      let code 4
   endif
endif