var shiftpressed = false;
var beforeval;

function keyval(fld,contnts,e) {



var whichCode = (window.Event) ? e.which : e.keyCode;

//alert(e.keyCode);
//alert("Code is " + whichCode);

	switch(whichCode) {

	case 13: fld.value = contnts + "<br>"; 
		 shiftpressed = false; 
		 break;

	case 53: if (shiftpressed) { 
		fld.value = beforeval + "0.25ml Dexafort / 0.5ml Betamox S/C"; }
		shiftpressed = false;
	 	break;

	case 50: if (shiftpressed) { 
		fld.value = beforeval + "0.2ml Anadiol / 0.5ml Multivit S/C"; }
		shiftpressed = false;
	 	break;

	case 51: if (shiftpressed) { 
		fld.value =  beforeval  + "GA Spey, Betamox/Atrosine/Rimadyl"; }
		shiftpressed = false;
	 	break;

	case 52: if (shiftpressed) { 
		fld.value =  beforeval  + "GA Castration, Betamox/Atrosine"; }
		shiftpressed = false;
	 	break;

	case 49: if (shiftpressed) { 
		fld.value =  beforeval  + "General Check: Good, Temp Normal, No Visible Lesions."; }
		shiftpressed = false;
	 	break;

	case 54: if (shiftpressed) { 
		fld.value =  beforeval + "Tranquilised Domitor"; }
		shiftpressed = false;
	 	break;

	case 55: if (shiftpressed) { 
		fld.value =  beforeval  + "Tranquilised Domitor/Ketamine"; }
		shiftpressed = false;
	 	break;

	case 56: if (shiftpressed) { 
		fld.value =  beforeval  + "Colour:\n<br>Smell:\n<br>Turbidity:\n<br>SG:\n<br><br>Dipstick\n<br>pH:\n<br>Protein:\n<br>Blood:\n<br>Glucose:\n<br>Ketones:\n<br>Bilirubin:\n<br><br>Microscopy\n<br>RBC:\n<br>WBC:\n<br>Epithelial Cells:\n<br>Casts:\n<br>Bacteria:\n<br>Misc:"; }
		shiftpressed = false;
	 	break;

	case 57: if (shiftpressed) { 
		fld.value =  beforeval  + ""; }
		shiftpressed = false;
	 	break;

	case 17: shiftpressed = true;
		 beforeval = fld.value;
			break;

	default: 
		shiftpressed = false;
		beforeval = fld.value;
		break;

	}

	return 0;
}