function Supra()
{
	var Info = "";
	var Index = "";
	var CRLF = '\r\n';

	Info = "Your Supra is as follows:" + CRLF;
	Info += "Country:\t\t\tJapan" + CRLF;
	Index = document.forms.calc.model0.selectedIndex;
	switch (Index)
	{	
		case 0: Info += "Chassis:\t\t\tToyota Supra MkIV - 1978 conforming chassis" + CRLF; break;
		case 1: Info += "Chassis:\t\t\tToyota Supra MkIV - 1998 conforming chassis" + CRLF; break;
		case 2: Info += "Chassis:\t\t\tToyota Supra MkIV - Export UK spec" + CRLF; break;
	}

	Info += "Model:\t\t\tSupra MkIV" + CRLF;
	Index = document.forms.calc.model1.selectedIndex;
	switch (Index)
	{	
		case 0: Info += "Body Type:\t\tLiftback with aero roof" + CRLF; break;
		case 1: Info += "Body Type:\t\tLiftback" + CRLF; break;
	}
	Index = document.forms.calc.model2.selectedIndex;
	switch (Index)
	{
		case 0: Info += "Gearbox Type:\tGetrag 6 speed" + CRLF; break;
		case 1: Info += "Gearbox Type:\tToyota 5 speed" + CRLF; break;
		case 2: Info += "Gearbox Type:\tToyota 4 speed auto" + CRLF; break;
	}
	Index = document.forms.calc.model3.selectedIndex;
	switch (Index)
	{
		case 0:	Info += "Body Grade:\t\tRZ" + CRLF; break;
		case 1:	Info += "Body Grade:\t\tSZR" + CRLF; break;
		case 2:	
			if (document.forms.calc.engine.selectedIndex == 0)
				Info += "Body Grade:\t\tSZ" + CRLF;
			else
				Info += "Body Grade:\t\tRZS" + CRLF;
			break;
		case 3:	Info += "Body Grade:\t\tGZ" + CRLF; break;
	}
	Index = document.forms.calc.model4.selectedIndex;
	switch (Index)
	{
		case 0:	Info += "Engine Type:\t\tEFI & DOHC" + CRLF; break;
		case 1:	Info += "Engine type:\t\tEFI & DOHC & TT" + CRLF; break;
	}
	Index = document.forms.calc.engine.selectedIndex;
	switch (Index)
	{
		case 0:	Info += "Aspiration Type:\tNaturally Aspirated" + CRLF; break;
		case 1:	Info += "Aspiration Type:\tTwin Turbo" + CRLF; break;
	}
	Info += "Frame Type:\t\tMkiv Supra chassis, twin A-arms, coil over shock" + CRLF;
	Info += "Frame Made:\t\t" + MonthOfManufacture() + "" + CRLF;
	Index = document.forms.calc.color.selectedIndex;
	switch (Index)
	{
		case 0:	Info += "Paint Color:\t\tSuper White II" + CRLF; break;				// 040
		case 1:	Info += "Paint Color:\t\tSilver Metallic" + CRLF; break;				// 199
		case 2:	Info += "Paint Color:\t\tDark Brown Gray Mica Metallic" + CRLF; break;		// 1A1
		case 3:	Info += "Paint Color:\t\tQuick Silver Metallic Graphite" + CRLF; break;		// 1B9
		case 4:	Info += "Paint Color:\t\tBlack" + CRLF; break;					// 202
		case 5:	Info += "Paint Color:\t\tSuper Red IV" + CRLF; break;				// 3L2
		case 6:	Info += "Paint Color:\t\tSuper Bright Yellow" + CRLF; break;			// 576
		case 7:	Info += "Paint Color:\t\tGrayish Green Mica Metallic" + CRLF; break;		// 6N0
		case 8:	Info += "Paint Color:\t\tDark Green Mica Metallic" + CRLF; break;			// 6P3
		case 9:	Info += "Paint Color:\t\tDeep Teal Metallic" + CRLF; break;			// 752
		case 10: Info += "Paint Color:\t\tBlue Mica Metallic" + CRLF; break;			// 8L5
	}
	Index = document.forms.calc.trim1.selectedIndex;
	switch (Index)
	{
		case 0:	Info += "Seat Trim:\t\tFront Cloth seats" + CRLF; break;				// FA20
		case 1:	Info += "Seat Trim:\t\tFront Recaro seats" + CRLF; break;				// FB20
		case 2:	Info += "Seat Trim:\t\tFront Cloth seats" + CRLF; break;				// FC20
		case 3:	Info += "Seat Trim:\t\tFront Cloth seats" + CRLF; break;				// FF20
		case 4:	Info += "Seat Trim:\t\tFront Recaro seats" + CRLF; break;				// FK20
		case 5:	Info += "Seat Trim:\t\tFront Recaro seats" + CRLF; break;				// FL20
		case 6:	Info += "Seat Trim:\t\tFront Leather seats" + CRLF; break;			// LC20
		case 7:	Info += "Seat Trim:\t\tFront Leather seats" + CRLF; break;			// LE20
		case 8:	Info += "Seat Trim:\t\tFront Leather seats" + CRLF; break;			// LF20
		case 9:	Info += "Seat Trim:\t\tFront Leather seats" + CRLF; break;			// LG21
	}
	Index = document.forms.calc.trim2.selectedIndex;
	switch (Index)
	{
		case 0:	Info += "Plastic Trim:\t\tBlack plastic" + CRLF; break;
		case 1:	Info += "Plastic Trim:\t\tDark Gray plastic" + CRLF; break;
	}
	Index = document.forms.calc.trans.selectedIndex;
	switch (Index)
	{
		case 0:	Info += "Transmission:\t\tToyota 4 speed auto" + CRLF; break;
		case 1:	Info += "Transmission:\t\tToyota 4 speed auto" + CRLF; break;
		case 2:	Info += "Transmission:\t\tGetrag 6 speed manual" + CRLF; break;
		case 3:	Info += "Transmission:\t\tGetrag 6 speed manual" + CRLF; break;
		case 4:	Info += "Transmission:\t\tToyota 5 speed manual" + CRLF; break;
	}
	Index = document.forms.calc.axle1.selectedIndex;
	switch (Index)
	{
		case 0:	Info += "Crown Wheel Size:\t200mm (8.0'' small diff)" + CRLF; break;
		case 1:	Info += "Crown Wheel Size:\t220mm (8.7'' big diff)" + CRLF; break;
	}
	Index = document.forms.calc.axle2.selectedIndex;
	switch (Index)
	{
		case 0:	Info += "Differential Ratio:\t4.083:1" + CRLF; break;
		case 1:	Info += "Differential Ratio:\t3.769:1" + CRLF; break;
		case 2:	Info += "Differential Ratio:\t3.267:1" + CRLF; break;
		case 3:	Info += "Differential Ratio:\t3.538:1" + CRLF; break;
		case 4:	Info += "Differential Ratio:\t4.083:1" + CRLF; break;
	}
	Index = document.forms.calc.axle3.selectedIndex;
	switch (Index)
	{
		case 0:	Info += "Differential Type:\tStandard" + CRLF; break;
		case 1:	Info += "Differential Type:\tTorsen LSD" + CRLF; break;
		case 2:	Info += "Differential Type:\tTorsen LSD" + CRLF; break;
	}
	window.alert(Info);
}

function MonthOfManufacture()
{

	var chassis = document.forms.calc.chassis.value;

	// invalid chassis numbers
	if (chassis == "" || chassis < 1010)
	{
		return "Invalid chassis number";
	}
	// 1992
	if (chassis < 1030)
	{
		return "December 1992";
	}
	// 1993
	if (chassis < 1032)
	{
		return "January 1993";
	}
	if (chassis < 1059)
	{
		return "February 1993";
	}
	if (chassis < 1063)
	{
		return "March 1993";
	}
	if (chassis < 1804)
	{
		return "April 1993";
	}
	if (chassis < 3672)
	{
		return "May 1993";
	}
	if (chassis < 5743)
	{
		return "June 1993";
	}
	if (chassis < 8033)
	{
		return "July 1993";
	}
	if (chassis < 9628)
	{
		return "August 1993";
	}
	if (chassis < 11811)
	{
		return "September 1993";
	}
	if (chassis < 13999)
	{
		return "October 1993";
	}
	if (chassis < 15617)
	{
		return "November 1993";
	}
	if (chassis < 16931)
	{
		return "December 1993";
	}
	// 1994
	if (chassis < 17762)
	{
		return "January 1994";
	}
	if (chassis < 18731)
	{
		return "February 1994";
	}
	if (chassis < 19951)
	{
		return "March 1994";
	}
	if (chassis < 20911)
	{
		return "April 1994";
	}
	if (chassis < 21772)
	{
		return "May 1994";
	}
	if (chassis < 22778)
	{
		return "June 1994";
	}
	if (chassis < 23410)
	{
		return "July 1994";
	}
	if (chassis < 23981)
	{
		return "August 1994";
	}
	if (chassis < 24772)
	{
		return "September 1994";
	}
	if (chassis < 25720)
	{
		return "October 1994";
	}
	if (chassis < 26586)
	{
		return "November 1994";
	}
	if (chassis < 27187)
	{
		return "December 1994";
	}
	// 1995
	if (chassis < 27721)
	{
		return "January 1995";
	}
	if (chassis < 28482)
	{
		return "February 1995";
	}
	if (chassis < 29303)
	{
		return "March 1995";
	}
	if (chassis < 29725)
	{
		return "April 1995";
	}
	if (chassis < 30408)
	{
		return "May 1995";
	}
	if (chassis < 31293)
	{
		return "June 1995";
	}
	if (chassis < 32064)
	{
		return "July 1995";
	}
	if (chassis < 32290)
	{
		return "August 1995";
	}
	if (chassis < 32867)
	{
		return "September 1995";
	}
	if (chassis < 33335)
	{
		return "October 1995";
	}
	if (chassis < 33770)
	{
		return "November 1995";
	}
	if (chassis < 34050)
	{
		return "December 1995";
	}
	// 1996
	if (chassis < 34322)
	{
		return "January 1996";
	}
	if (chassis < 34672)
	{
		return "February 1996";
	}
	if (chassis < 35017)
	{
		return "March 1996";
	}
	if (chassis < 35275)
	{
		return "April 1996";
	}
	if (chassis < 35587)
	{
		return "May 1996";
	}
	if (chassis < 36146)
	{
		return "June 1996";
	}
	if (chassis < 36956)
	{
		return "July 1996";
	}
	if (chassis < 37239)
	{
		return "August 1996";
	}
	if (chassis < 37660)
	{
		return "September 1996";
	}
	if (chassis < 38114)
	{
		return "October 1996";
	}
	if (chassis < 38486)
	{
		return "November 1996";
	}
	if (chassis < 38817)
	{
		return "December 1996";
	}
	// 1997
	if (chassis < 39276)
	{
		return "January 1997";
	}
	if (chassis < 39612)
	{
		return "February 1997";
	}
	if (chassis < 40374)
	{
		return "March 1997";
	}
	if (chassis <= 42000)
	{
		return "April 1997";
	}
	// estimate of last chassis number for first plant production
	if (chassis > 42000 && chassis < 1000000)
	{
		return "Invalid chassis number";
	}
	if (chassis < 1000245)
	{
		return "May 1997";
	}
	if (chassis < 1000499)
	{
		return "June 1997";
	}
	if (chassis < 1000741)
	{
		return "July 1997";
	}
	if (chassis < 1000808)
	{
		return "August 1997";
	}
	if (chassis < 1001084)
	{
		return "September 1997";
	}
	if (chassis < 1001363)
	{
		return "October 1997";
	}
	if (chassis < 1001557)
	{
		return "November 1997";
	}
	if (chassis < 1001747)
	{
		return "December 1997";
	}
	// 1998
	if (chassis < 1001976)
	{
		return "January 1998";
	}
	if (chassis < 1002235)
	{
		return "February 1998";
	}
	if (chassis < 1002538)
	{
		return "March 1998";
	}
	if (chassis < 1002693)
	{
		return "April 1998";
	}
	if (chassis < 1002870)
	{
		return "May 1998";
	}
	if (chassis < 1003109)
	{
		return "June 1998";
	}
	if (chassis < 1003358)
	{
		return "July 1998";
	}
	if (chassis < 1003457)
	{
		return "August 1998";
	}
	if (chassis < 1003545)
	{
		return "September 1998";
	}
	if (chassis < 1003675)
	{
		return "October 1998";
	}
	if (chassis < 1003780)
	{
		return "November 1998";
	}
	if (chassis < 1003832)
	{
		return "December 1998";
	}
	// 1999
	if (chassis < 1003897)
	{
		return "January 1999";
	}
	if (chassis < 1004012)
	{
		return "February 1999";
	}
	if (chassis < 1004130)
	{
		return "March 1999";
	}
	if (chassis < 1004198)
	{
		return "April 1999";
	}
	if (chassis < 1004245)
	{
		return "May 1999";
	}
	if (chassis < 1004334)
	{
		return "June 1999";
	}
	if (chassis < 1004400)
	{
		return "July 1999";
	}
	if (chassis < 1004423)
	{
		return "August 1999";
	}
	if (chassis < 1004496)
	{
		return "September 1999";
	}
	if (chassis < 1004546)
	{
		return "October 1999";
	}
	if (chassis < 1004607)
	{
		return "November 1999";
	}
	if (chassis < 1004645)
	{
		return "December 1999";
	}
	// 2000
	if (chassis < 1004679)
	{
		return "January 2000";
	}
	if (chassis < 1004748)
	{
		return "February 2000";
	}
	if (chassis < 1004811)
	{
		return "March 2000";
	}
	if (chassis < 1004859)
	{
		return "April 2000";
	}
	if (chassis < 1004889)
	{
		return "May 2000";
	}
	if (chassis < 1004923)
	{
		return "June 2000";
	}
	if (chassis < 1004950)
	{
		return "July 2000";
	}
	if (chassis < 1004966)
	{
		return "August 2000";
	}
	if (chassis < 1004985)
	{
		return "September 2000";
	}
	if (chassis < 1005040)
	{
		return "October 2000";
	}
	if (chassis < 1005093)
	{
		return "November 2000";
	}
	if (chassis < 1005113)
	{
		return "December 2000";
	}
	// 2001
	if (chassis < 1005141)
	{
		return "January 2001";
	}
	if (chassis < 1005184)
	{
		return "February 2001";
	}
	if (chassis < 1005227)
	{
		return "March 2001";
	}
	if (chassis < 1005256)
	{
		return "April 2001";
	}
	if (chassis < 1005297)
	{
		return "May 2001";
	}
	if (chassis < 1005333)
	{
		return "June 2001";
	}
	if (chassis < 1005364)
	{
		return "July 2001";
	}
	if (chassis < 1005400)
	{
		return "August 2001";
	}
	if (chassis < 1005441)
	{
		return "September 2001";
	}
	if (chassis < 1005464)
	{
		return "October 2001";
	}
	if (chassis < 1005489)
	{
		return "November 2001";
	}
	if (chassis < 1005520)
	{
		return "December 2001";
	}
	// 2002
	if (chassis < 1005547)
	{
		return "January 2002";
	}
	if (chassis < 1005594)
	{
		return "February 2002";
	}
	if (chassis < 1005655)
	{
		return "March 2002";
	}
	if (chassis < 1005696)
	{
		return "April 2002";
	}
	if (chassis < 1005756)
	{
		return "May 2002";
	}
	if (chassis < 1005806)
	{
		return "June 2002";
	}
	if (chassis <= 1005857)
	{
		return "July 2002";
	}
	// last chassis number
	if (chassis > 1005857)
	{
		return "Invalid chassis number";
	}
}