{---------------------------------------------------------------}

{			HYPER.ORL				}

{---------------------------------------------------------------}


{Set Environment}
	SetWindow(MAXIMIZE)
	UseBackground(TRANSPARENT,255,255,255)
	UseBrush(Solid,192,192,192)
	UseCoordinates(METRIC)

DRAW_BOAT:
	DrawBackground
	DrawBitmap(2,0,"BOAT1.BMP")

	DrawRoundRectangle(130,18,160,26,3,3)
	UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
	DrawText(136,19,"A")
	UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(139,19,"bout...")
	
	DrawRoundRectangle(5,102,25,110,3,3)
	UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
	DrawText(7,103,"E")
	UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(10,103,"xit")

	DrawRoundRectangle(5,111,65,119,3,3)
	UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
	DrawText(7,112,"M")
	UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(10,112,"echanical Systems")

	DrawRoundRectangle(5,120,82,128,3,3)
	UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
	DrawText(7,121,"D")
	UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(10,121,"eck and Cockpit Framing")

	DrawRoundRectangle(5,129,86,137,3,3)
	UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
	DrawText(7,130,"H")
	UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(10,130,"ull Framing and Planking")
	UseFont("Helv",0,1,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(2,138,"©1987 by Stephen L. Davis, courtesy of WoodenBoat Magazine")
	UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)

	SetMouse(130,18,160,26,ABOUT,Temp,Temp,
		5,102,25,110,END_IT,Temp,Temp,
		5,111,65,119,DRAW_MECHANICALS,Temp,Temp,
		5,120,82,128,DRAW_COCKPIT,Temp,Temp,
		5,129,86,137,DRAW_FRAME,Temp,Temp)


	SetKeyboard("a",ABOUT,"A",ABOUT,
		"e",END_IT,"E",END_IT,
		"m",DRAW_MECHANICALS,"M",DRAW_MECHANICALS,
		"d",DRAW_COCKPIT,"D",DRAW_COCKPIT,
		"h",DRAW_FRAME,"H",DRAW_FRAME)


WAIT_FOR_INPUT:
	WaitInput()


ABOUT:
	MessageBox(OK,1,INFORMATION,"IRENE
Designed by John L. Hacker
Length: 28 feet
Beam: 6 feet 8 inches
Draft: 2 feet
Speed: 22 mph","About...",Button_mashed)
	Goto WAIT_FOR_INPUT


DRAW_MECHANICALS:
	DrawBackground
	DrawBitmap(5,0,"MECH1.BMP")
	DrawRoundRectangle(158,120,178,130,3,3)
	UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
	DrawText(162,122,"B")
	UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(165,122,"ack")
	SetMouse(158,120,178,130,DRAW_BOAT,Temp,Temp)
	SetKeyboard("b",DRAW_BOAT,"B",DRAW_BOAT)
	UseFont("Helv",0,1,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(110,138,"©1987 Stephen L. Davis, courtesy WoodenBoat Magazine")
	UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	Goto WAIT_FOR_INPUT


DRAW_COCKPIT:
	DrawBackground
	DrawBitmap(5,0,"COCKPIT1.BMP")
	DrawRoundRectangle(158,120,178,130,3,3)
	UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
	DrawText(162,122,"B")
	UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(165,122,"ack")
	SetMouse(158,120,178,130,DRAW_BOAT,Temp,Temp)
	SetKeyboard("b",DRAW_BOAT,"B",DRAW_BOAT)
	UseFont("Helv",0,1,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(115,137,"©1987 Stephen L. Davis, courtesy WoodenBoat Magazine")
	UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	Goto WAIT_FOR_INPUT


DRAW_FRAME:
	DrawBackground
	DrawBitmap(5,0,"FRAME1.BMP")
	DrawRoundRectangle(28,120,48,130,3,3)
	UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
	DrawText(32,122,"B")
	UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(35,122,"ack")
	SetMouse(28,120,48,130,DRAW_BOAT,Temp,Temp)
	SetKeyboard("b",DRAW_BOAT,"B",DRAW_BOAT)
	UseFont("Helv",0,1,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(2,138,"©1987 Stephen L. Davis, courtesy WoodenBoat Magazine")
	UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	Goto WAIT_FOR_INPUT

END_IT:
	End