
Sub Main ( )
	
	VGA_Load ( VGA_Table ( ), ".\VGA Table.Property" )

	SimpleSleep ( VGA_Table ( ), "Hello, World!" )
	SimpleSleep ( VGA_Table ( ), "Hello, World!" )
	SimpleSleep ( VGA_Table ( ), "Hello, World!" )

	Dim As FB.Image Ptr Img
	Img = VGA_Test ( VGA_Table ( ) )

	Put ( 64, 64 ), Img, Alpha
	Img = ImageDestroy2 ( Img )

	SimpleSleep ( VGA_Table ( ), ESC & "VGA Test ( )" )

	'screencontrol fb.SET_ALPHA_PRIMITIVES, 0 'temporally disabling alpha primitives

	Property_Demo ( )

	SimpleSleep ( VGA_Table ( ), "Goodnight, Sweet Prince..", 5 )

End Sub
