September 2017 Update

Task/Terminal-control-Inverse-video/6502-Assembly/terminal-control-inverse-video.6502

@@ -0,0 +1,22 @@
+; C64 - Terminal control: Inverse Video
+
+; *** labels ***
+
+strout          = $ab1e
+
+; *** main ***
+
+                *=$02a8         ; sys 680
+
+                lda #<str       ; Address of the message to print - low byte
+                ldy #>str       ; Address high byte
+                jsr strout      ; Print a null terminated string.
+                rts
+
+; *** data ***
+
+str             .byte $12       ; the REVERSE ON control code
+                                ; see https://en.wikipedia.org/wiki/PETSCII
+                .text "reversed"
+                .byte $92       ; the REVERSE OFF control code
+                .null " normal" ; null terminated string

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

@@ -1,4 +1 @@
-10 INVERSE 1
-20 PRINT "FOO";
-30 INVERSE 0
-40 PRINT "BAR"
+PRINT "FOOBAR"

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

@@ -0,0 +1,8 @@
+10 LET S$="FOO"
+20 GOSUB 50
+30 PRINT S$;"BAR"
+40 STOP
+50 FOR I=1 TO LEN S$
+60 LET S$(I)=CHR$ (128+CODE S$(I))
+70 NEXT I
+80 RETURN

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

@@ -0,0 +1,4 @@
+10 INVERSE 1
+20 PRINT "FOO";
+30 INVERSE 0
+40 PRINT "BAR"

Task/Terminal-control-Inverse-video/BBC-BASIC/terminal-control-inverse-video-1.bbc

@@ -1,6 +0,0 @@
-      COLOUR 128        : REM Black background
-      COLOUR 15         : REM White foreground
-      PRINT "Inverse";
-      COLOUR 128+15     : REM White background
-      COLOUR 0          : REM Black foreground
-      PRINT " video"

Task/Terminal-control-Inverse-video/BBC-BASIC/terminal-control-inverse-video-2.bbc

@@ -1,3 +0,0 @@
-      inverse$ = CHR$(17)+CHR$(128)+CHR$(17)+CHR$(15)
-      normal$ = CHR$(17)+CHR$(128+15)+CHR$(17)+CHR$(0)
-      PRINT inverse$ + "Inverse" + normal$ + " video"

Task/Terminal-control-Inverse-video/Kotlin/terminal-control-inverse-video.kotlin

@@ -0,0 +1,5 @@
+// version 1.1.2
+
+fun main(args: Array<String>) {
+    println("\u001B[7mInverse\u001B[m Normal")
+}

Task/Terminal-control-Inverse-video/Pascal/terminal-control-inverse-video.pascal

@@ -0,0 +1,14 @@
+program InverseVideo;
+{$LINKLIB tinfo}
+uses
+  ncurses;
+begin
+  initscr;
+  attron(A_REVERSE);
+  printw('reversed');
+  attroff(A_REVERSE);
+  printw(' normal');
+  refresh;
+  getch;
+  endwin;
+end.

Task/Terminal-control-Inverse-video/Phix/terminal-control-inverse-video.phix

@@ -0,0 +1,12 @@
+--
+-- demo\rosetta\Inverse_Video.exw
+-- ================================
+--
+text_color(BLACK)
+bk_color(WHITE)
+printf(1,"Inverse")
+text_color(WHITE)
+bk_color(BLACK)
+printf(1," Video")
+printf(1,"\n\npress enter to exit")
+{} = wait_key()

Task/Terminal-control-Inverse-video/PureBasic/terminal-control-inverse-video.purebasic

@@ -1,9 +0,0 @@
-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

Task/Terminal-control-Inverse-video/Run-BASIC/terminal-control-inverse-video.run

@@ -1,8 +0,0 @@
-' ---------- foo is reverse --------------
-x$ = shell$("tput mr
-echo 'foo'")
-
-' ---------- bar is normal --------------
-x$ = shell$("tput me
-echo 'bar'")
-wait

Task/Terminal-control-Inverse-video/Zkl/terminal-control-inverse-video.zkl

@@ -0,0 +1 @@
+println("\e[7mReversed\e[m Normal");