Sorry your browser is not supported!

	setTextString(MainText, "abcdefghijklmnopqrstuvxyz ABCDEFGHIJKLMNOPQRSTUVXYZ ")
	
	ClearScreen()	
	SetTextVisible( mainText, TRUE)	

	SetSpriteVisible (renderSpr, TRUE)			// Make the sprite visible
	DrawSprite( renderSpr )						// Draw the sprite
	DrawText( mainText )
	Swap()												// displays the buffer to the screen
	SetSpriteVisible (renderSpr, FALSE)		// Make sprite invisible
	SetTextVisible( mainText, FALSE)

function init_loadText (theVal as Integer, theInfo as String)
	
	tmpVal as Integer
	tmpStr as String
	tmpVal = theval / 4
	tmpA as integer
	for tmpA = 0 to tmpVal			// The loaded potion
		tmpStr = tmpStr + "|"
	next
	
	for tmpA = 0 to 24-tmpVal		// The not yet loaded potion
		tmpStr = tmpStr + " "
	next

	setTextString ( mainText, "LOADING, PLEASE STAND BY... " + str(theval) + " %" + chr(10) + chr(10) + "  ["+ tmpStr + "]" + "           " + theInfo )
	SetWindowTitle( "Loading. Please wait ... " + str(theval) + " %" )
	
	if GetRawKeyPressed(27)  //Esc
		AGKVR.Shutdown()	// Clean shutdown
		End					// Close prog
	endif
	
	if GetRawKeyState( 17 ) = TRUE	// Ctrl is down
		if GetRawKeyPressed (87) // Press ctrl+W to exit
			AGKVR.Shutdown()	// Clean shutdown
			End					// Close prog
		endif
	endif
	
	//sync()
	
	ClearScreen()
	SetTextVisible( mainText, TRUE )	
	DrawSprite( renderSpr )						// Draw the sprite	
	DrawText( mainText )
	Swap()											// displays the buffer to the screen

	SetTextVisible( mainText, FALSE )	// this line fixes errors
	
endfunction