{-------------------------INTRO.ORL----------------------------------
 This program puts up a series of screens that explain some of
 Oriel's basic features.
 -------------------------------------------------------------------}
{Maximize the window and display caption}
	SetWindow(MAXIMIZE)
	UseCaption("Introduction to Oriel")

{Inialize variable}
	Set DelayFactor=2500

{Draw the background}
	UseBackground(OPAQUE,0,255,0)	{Green background}
	DrawBackground

{Display first introductory screen and pause}
	UseFont("Tms Rmn",0,12,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(25,10,"Welcome to")
	UseFont("Roman",0,20,BOLD,NOITALIC,NOUNDERLINE,255,0,0)
	DrawText(80,25,"Oriel")
	DrawBitmap(120,27,"ORIELIC2.BMP")
	WaitInput(1500)
	UseFont("Tms Rmn",0,12,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(25,50,"the graphics-based batch language")
	DrawText(25,65,"for Microsoft Windows 3.0.")
	WaitInput(DelayFactor)

{Display second introductory screen and pause}
	DrawBackground
	UseFont("Roman",0,20,BOLD,NOITALIC,NOUNDERLINE,255,0,0)
	DrawText(80,5,"Oriel")
	DrawBitmap(120,7,"ORIELIC2.BMP")
	UseFont("Tms Rmn",0,12,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(17,25,"reads the commands contained in a plain")
	DrawText(17,40,"ASCII text file, like this one created by")
	DrawText(17,55,"Microsoft Windows Notepad...")
	DrawBitmap(8,70,"NOTEPAD.BMP")
	WaitInput(DelayFactor)

{ Display third introductory screen }
	DrawBackground
	DrawText(17,12,"In many cases,")
	UseFont("Roman",0,20,BOLD,NOITALIC,NOUNDERLINE,255,0,0)
	DrawText(92,5,"Oriel")
	DrawBitmap(132,7,"ORIELIC2.BMP")
	UseFont("Tms Rmn",0,12,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(17,27, "gives you direct access to the Windows")
	DrawText(17,42,"GDI (Graphics Device Interface).")
	WaitInput(1000)
	DrawText(17,67,"To illustrate the power of Oriel, we")
	DrawText(17,82,"invite you to run a few of our sample")
	DrawText(17,97,"programs...")
	WaitInput(4000)