Initial commit

Examples/VirtualTerminal/Basic.pb

@@ -0,0 +1,68 @@
+;{- Code Header
+; ==- Basic Info -================================
+;         Name: VirtualTerminal/Basic.pb
+;       Author: Herwin Bozet
+; 
+; ==- Links & License -===========================
+;  License: Unlicense
+;}
+
+;- Compiler Directives
+
+EnableExplicit
+
+XIncludeFile "../../VirtualTerminal.pbi"
+
+CompilerIf #PB_Compiler_ExecutableFormat <> #PB_Compiler_Console
+	CompilerWarning "You should preferably compile the example as a console app !"
+CompilerEndIf
+
+
+;- Code
+
+; Safely openning the console
+If OpenConsole("My first title")
+	If Not VirtualTerminal::EnableVirtualTerminalProcessing()
+		VirtualTerminal::WriteErrorN("Unable to activate virtual terminal processing, output is likely piped !")
+		CloseConsole()
+		End 2
+	EndIf
+Else
+	Debug "Can't open console !"
+	End 1
+EndIf
+
+; Clearing the console
+VirtualTerminal::ClearDisplay(AinsiEscapeCode::#ED_2) ; 2 or +ClearDisplayFull() also works just fine
+VirtualTerminal::CursorTo(0, 0)
+
+; Intro
+VirtualTerminal::WriteOutputN("-===- Welcome to the 'Basic' demo for 'VirtualTerminal' -===-")
+VirtualTerminal::WriteOutputN("Press enter to start...")
+Input()
+
+; Basic info
+VirtualTerminal::WriteOutputN("-=- Basic info -=-")
+VirtualTerminal::WriteOutputN("Terminal size: "+Str(VirtualTerminal::GetTerminalWidth())+"x"+Str(VirtualTerminal::GetTerminalHeight()))
+VirtualTerminal::WriteOutputN("Press enter to continue...")
+Input()
+
+; Title demo
+VirtualTerminal::WriteOutputN("-=- Title -=-")
+VirtualTerminal::WriteOutputN("Press enter to change the title...")
+Input()
+VirtualTerminal::SetWindowTitle("My new title")
+
+; ???
+
+; End
+VirtualTerminal::WriteOutputN("-=- End of the demo -=-")
+Print("Press enter to clear the terminal and exit...")
+Input()
+VirtualTerminal::ClearDisplayFull()
+VirtualTerminal::CursorTo(0, 0)
+
+; Quitting safely
+VirtualTerminal::DisableVirtualTerminalProcessing()
+CloseConsole()
+End 0