RosettaCodeData/Task/Terminal-control-Inverse-video/BASIC/terminal-control-inverse-video-6.basic

10 lines
308 B
Text
Raw Permalink Normal View History

2020-02-17 23:21:07 -08:00
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")
2014-01-17 05:32:22 +00:00
2020-02-17 23:21:07 -08:00
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
CloseConsole()
EndIf