weight height graphical relation of humans. yes it's for humans, during the time that i was taken and raced as their own spicies,aliens i've made me the ultimate training consulta

please, let us have your tools
please, let us have your tools
please, let us have your tools
please, let us have your tools
please, let us have your tools
please, let us have your tools

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    global maximum_graph_weidth#
global maxx_int
global maxy_int
global maxx#
global maxy#
global maxx
global maxy
maxx=screen width()
maxy=screen height()
maxx_int=screen width()
maxy_int=screen height()
maxx#=screen width()
maxy#=screen height()
maximum_graph_weidth#=0.0
halfx#=maxx#/2
halfy#=maxy#/2
halfx_int=maxx_int/2
halfy_int=maxy_int/2

y#=halfy#
x#=halfx#
print "Press Enter for default values."
input "Give maximum graph weigth as a real number: ",maximum_graph_weidth#
if (maximum_graph_weidth#=0.0)
   maximum_graph_weidth#=150.0
   maximum_graph_height#=2.10
else
   mgh#=maximum_graph_weidth#
   input "Give maximum graph height as a real number: ",maximum_graph_height#
endif

do
cls

line 0,maxy#-(maxy#/5),maxx#,maxy#-(maxy#/5)
line halfx#*0.333,0,halfx#*0.333,maxy#
set cursor halfx#/15,maxy#*0.9
print get date$()
set cursor halfx#/15,maxy#*0.85
print get time$()

print_XY_2int(mousex(),mousey(),maximum_graph_weidth#,maximum_graph_height#)
loop

print "        Done"
wait key
end

FUNCTION print_XY_2int(x,y,maximum_graph_weidth,maximum_graph_height#)
maximum_graph_weidth=maximum_graph_weidth+19
maximum_graph_height#=maximum_graph_height#+0.44
ratio#=x*0.85625
ratioh#=y*0.875
w#=(((ratio#-1)*maximum_graph_weidth)/548)
ww=(w#/1)-19
h#=maximum_graph_height#-(((ratioh#-1)*maximum_graph_height#)/420)
h#=h#-0.44


ink rgb(255,000,000),rgb(0,0,0)
line 450,450,600,450
line 141,194,227,114
line 227,114,379,76

print_xy(400,442,"girls")

ink rgb(000,000,255),rgb(0,0,0)
line 200,450,350,450
line 132,198,264,113
line 264,113,344,76
print_xy(150,442,"boys")


ink rgb(255,255,255),rgb(0,0,0)
print_xy(50,20,"Height")
print_xy(550,350,"Weight")

SET CURSOR maxx_int*0.625,maxx_int*0.625
if (ww>0)
   PRINT "w: ",ww," Kg"
else
   PRINT "w: 0 Kg"
endif

SET CURSOR maxx_int*0.625,(maxx_int*0.65625)
if (h#>0)
   print "h: ",h#," m"
else
   PRINT "h: 0 m"
endif
set cursor 10,50
print x
set cursor 10,70
print y
set cursor 10,90
print maxx_int-x
set cursor 10,110
print maxy_int-y
ENDFUNCTION



function print_xy(x,y,message$)
set cursor x,y
print message$
endfunction