include "window.inc"
include "funmath.inc"

Window "`_´", 640,480,2 
Font 10,20,FW_LIGHT,"courier"

def ShowVal
Text %1, %2, "%3" + %4 + str(%5(%3)) + %6,255,255,255     
end def

ClsColor 0,0,0

'ShowVal 0 0 77.5 "  Feets   are " FeetToCentimeter "    centimeters"

Text 0, 0, "77.5  Feets   are " + str(FeetToCentimeter(77.5)) + "    centimeters",255,255,255     
Text 0,20, "15.8  Yards   are " + str(YardsToMeters(15.8),4)  + "    meters",255,255,255
Text 0,40, "33.0  Miles   are " + str(MilesToKilometers(33),5)+ "    kilometers",255,255,255 
Text 0,60, "100   Cups    are " + str(CupsToLiters(100))      + "    liters",255,255,255
Text 0,80, "55.0  Pints   are " + str(PintsToLiters(55),5)    + "    liters",255,255,255 
Text 0,100,"21.5  Quarts  are " + str(QuartsToLiters(21.5),5) + "    liters",255,255,255  
Text 0,120,"100   Gallons are " + str(GallonsToLiters(100),6) + "    liters",255,255,255
Text 0,140,"12    Bushels are " + str(BushelsToLiters(12),4)  + "    liters",255,255,255
Text 0,160,"66    Packs   are " + str(PacksToLiters(66),4)    + "    liters",255,255,255
Text 0,180,"19    Ounces  are " + str(OuncesToGrams(19),5)    + "    Grammes",255,255,255
Text 0,200,"45    Pound   are " + str(PoundToKilograms(45),5) + "     kilograms",255,255,255
Text 0,220,"50    Tons    are " + str(TonsToKilograms(50),2)  + "     kilograms",255,255,255   
Text 0,240,"85    Degree Fahrenheit are " + str(FahrenheitToCelsius(85),2) + " degree celsius ",255,255,255  
Pause
WinEnd