/*
		gttmin 

		Numerator program to calculate the rate of infusion for 
                intravenous fluids (gtt/min).

*/

" ** Calculate IV infusion rates **\n"
"1)  Standard set (10 gtt/ml)\n"
"2)  Microdrip set (60 gtt/ml)\n"
"\n"
"    Your set type (1 or 2):  "
get type
if (type == 1)
	gttml = 10
endif
if (type == 2)
	gttml = 60
endif
"    Volume to infuse (ml):   "
get vol
"    Infusion time (mins):    "
get time                        
gttmin = vol * gttml / time
"Set infusion rate "; gttmin: ; " gtt/min\n"