make_planet_info:
planet_name$ =planet_table(star_lp).name$
size_subscript = planet_table(star_lp).size
climate_subscript = planet_table(star_lp).climate
size$ = planet_size(size_subscript).description$ + ", "+climate_table(climate_subscript).description$
pop$ = str$(planet_table(star_lp).current_population/1000000) + "/" + str$(planet_table(star_lp).max_population) + " pop"
abundance_subscript = planet_table(star_lp).mineral_abundance
abundance$ = abundance_table(abundance_subscript).description$
gravity_subscript = planet_table(star_lp).gravity
gravity$ = gravity_table(gravity_subscript).description$
longlen = text width(planet_name$)
if longlen < text width(size$) then longlen = text width(size$)
if longlen < text width(pop$) then longlen = text width(pop$)
if longlen < text width(abundance$) then longlen = text width(abundance$)
if longlen < text width(gravity$) then longlen = text width(gravity$)
longheight = 10 + text height(name$)
longheight = longheight + text height(size$)
longheight = longheight + text height(pop$)
longheight = longheight + text height(abundance$)
longheight = longheight + text height(gravity$)
longlen = longlen + 10
create bitmap 5, longlen, longheight
set current bitmap 5
ink rgb(0,0,255),0
text 5,5, planet_name$
text 5,15, size$
text 5,25, pop$
text 5,35, abundance$
text 5,45, gravity$
line 1,1,longlen-1,1
line 1,1,1,longheight-1
line 1,longheight-1,longlen-1,longheight-1
line longlen-1,1,longlen-1,longheight-1
get image 1010,0,0, longlen,longheight
sprite 1010,sprite x(1000)+10,sprite y(1000)+50,1010
delete bitmap 5
set current bitmap 0
return
this even
