69 lines
1.8 KiB
Plaintext
69 lines
1.8 KiB
Plaintext
|
;{- 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
|