RosettaCodeData/Task/Terminal-control-Inverse-video/PureBasic/terminal-control-inverse-video.basic
2023-07-01 13:44:08 -04:00

9 lines
308 B
Text

If OpenConsole()
ConsoleColor(0, 15) ;use the colors black (background) and white (forground)
PrintN("Inverse Video")
ConsoleColor(15, 0) ;use the colors white (background) and black (forground)
PrintN("Normal Video")
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
CloseConsole()
EndIf