Data commit
This commit is contained in:
Ingy döt Net
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
5
Task/Terminal-control-Inverse-video/00-META.yaml
Normal file
5
Task/Terminal-control-Inverse-video/00-META.yaml
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
---
|
||||
category:
|
||||
- Terminal control
|
||||
from: http://rosettacode.org/wiki/Terminal_control/Inverse_video
|
||||
note: Terminal control
|
||||
4
Task/Terminal-control-Inverse-video/00-TASK.txt
Normal file
4
Task/Terminal-control-Inverse-video/00-TASK.txt
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
;Task:
|
||||
Display a word in inverse video (or reverse video) followed by a word in normal video.
|
||||
<br><br>
|
||||
|
||||
|
|
@ -0,0 +1 @@
|
|||
print("\033[7mReversed\033[m Normal")
|
||||
|
|
@ -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
|
||||
|
|
@ -0,0 +1,136 @@
|
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; Program Start
|
||||
|
||||
.equ ramarea, 0x02000000
|
||||
.equ CursorX,ramarea
|
||||
.equ CursorY,ramarea+1
|
||||
|
||||
|
||||
ProgramStart:
|
||||
mov sp,#0x03000000 ;Init Stack Pointer
|
||||
|
||||
mov r4,#0x04000000 ;DISPCNT -LCD Control
|
||||
mov r2,#0x403 ;4= Layer 2 on / 3= ScreenMode 3
|
||||
str r2,[r4]
|
||||
bl ResetTextCursors ;set text cursors to top left of screen
|
||||
|
||||
adr r1,HelloWorld
|
||||
mov r2,#0x7FFF
|
||||
mov r11,#1
|
||||
bl PrintString
|
||||
|
||||
adr r1,HelloWorld
|
||||
mov r2,#0x7FFF
|
||||
mov r11,#0
|
||||
bl PrintString
|
||||
|
||||
|
||||
forever:
|
||||
b forever
|
||||
BitmapFont:
|
||||
.include "M:\SrcAll\BitmapFont.asm"
|
||||
|
||||
HelloWorld:
|
||||
.byte "HELLO",255
|
||||
.align 4
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
PrintString: ;Print 255 terminated string
|
||||
STMFD sp!,{r0-r12, lr}
|
||||
PrintStringAgain:
|
||||
ldrB r0,[r1],#1
|
||||
cmp r0,#255
|
||||
beq PrintStringDone ;Repeat until 255
|
||||
bl printchar ;Print Char
|
||||
b PrintStringAgain
|
||||
PrintStringDone:
|
||||
LDMFD sp!,{r0-r12, lr}
|
||||
bx lr
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
PrintChar:
|
||||
;input: R1 = ADDR OF TEXT
|
||||
; R2 = DESIRED COLOR (ABBBBBGGGGGRRRRR A=Alpha)
|
||||
; CursorX = X POS OF WHERE TO DRAW
|
||||
; CursorY = Y POS OF WHERE TO DRAW
|
||||
; R11 = 1 FOR INVERTED TEXT, 0 FOR NORMAL TEXT
|
||||
|
||||
STMFD sp!,{r4-r12, lr}
|
||||
|
||||
mov r4,#0
|
||||
mov r5,#0
|
||||
|
||||
mov r3,#CursorX
|
||||
ldrB r4,[r3] ;X pos
|
||||
mov r3,#CursorY
|
||||
ldrB r5,[r3] ;Y pos
|
||||
|
||||
mov r3,#0x06000000 ;VRAM base
|
||||
|
||||
mov r6,r4,lsl #4 ;Xpos, 2 bytes per pixel, 8 bytes per char
|
||||
add r3,r3,r6
|
||||
|
||||
;Ypos, 240 pixels per line,2 bytes per pixel, 8 lines per char
|
||||
|
||||
mov r4,r5,lsl #4
|
||||
mov r5,r5,lsl #8
|
||||
sub r6,r5,r4
|
||||
mov r6,r6,lsl #4 ;ypos * 240 * 8 * 2 = ((((ypos << 8)-(ypos << 4)) << 3)<< 1
|
||||
add r3,r3,r6
|
||||
|
||||
adr r4,BitmapFont ;Font source
|
||||
|
||||
subs r0,r0,#32 ;First Char is 32 (space)
|
||||
beq LineDone ;if it's a space, just move the cursor without actually writing anything
|
||||
add r4,r4,r0,asl #3 ;8 bytes per char
|
||||
|
||||
mov r6,#8 ;8 lines
|
||||
DrawLine:
|
||||
mov r7,#8 ;8 pixels per line
|
||||
ldrb r8,[r4],#1 ;Load this piece of the letter
|
||||
cmp r11,#1 ;does r11 = 1?
|
||||
mvneq r8,r8 ;if so, flip the bits of r8 before printing.
|
||||
mov r9,#0b100000000 ;Bit Mask for testing whether to fill
|
||||
|
||||
DrawPixel:
|
||||
tst r8,r9 ;Is bit 1?
|
||||
strneh r2,[r3] ;Yes? then fill pixel (HalfWord)
|
||||
add r3,r3,#2
|
||||
mov r9,r9,ror #1 ;Bitshift Mask
|
||||
subs r7,r7,#1
|
||||
bne DrawPixel ;Next Hpixel
|
||||
|
||||
add r3,r3,#480-16 ;Move Down a line (240 pixels * 2 bytes)
|
||||
subs r6,r6,#1 ;-1 char (16 px)
|
||||
bne DrawLine ;Next Vline
|
||||
|
||||
LineDone:
|
||||
mov r3,#CursorX
|
||||
ldrB r0,[r3]
|
||||
add r0,r0,#1 ;Move across screen
|
||||
strB r0,[r3]
|
||||
mov r10,#30
|
||||
cmp r0,r10
|
||||
bleq NewLine
|
||||
LDMFD sp!,{r4-r12, lr}
|
||||
bx lr
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
NewLine:
|
||||
STMFD sp!,{r0-r12, lr}
|
||||
mov r3,#CursorX
|
||||
mov r0,#0
|
||||
strB r0,[r3]
|
||||
mov r4,#CursorY
|
||||
ldrB r0,[r4]
|
||||
add r0,r0,#1
|
||||
strB r0,[r4]
|
||||
LDMFD sp!,{r0-r12, pc}
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
ResetTextCursors:
|
||||
STMFD sp!,{r4-r6,lr}
|
||||
mov r4,#0
|
||||
mov r5,#CursorX
|
||||
mov r6,#CursorY
|
||||
strB r4,[r5]
|
||||
strB r4,[r6]
|
||||
LDMFD sp!,{r4-r6,lr}
|
||||
bx lr
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
BEGIN {
|
||||
system ("tput rev")
|
||||
print "foo"
|
||||
system ("tput sgr0")
|
||||
print "bar"
|
||||
}
|
||||
|
|
@ -0,0 +1,17 @@
|
|||
PROC PrintInv(CHAR ARRAY a)
|
||||
BYTE i
|
||||
|
||||
IF a(0)>0 THEN
|
||||
FOR i=1 TO a(0)
|
||||
DO
|
||||
Put(a(i)%$80)
|
||||
OD
|
||||
FI
|
||||
RETURN
|
||||
|
||||
PROC Main()
|
||||
Position(2,2)
|
||||
|
||||
PrintInv("Inverse")
|
||||
Print(" video")
|
||||
RETURN
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
|
||||
procedure Reverse_Video is
|
||||
|
||||
Rev_Video : String := Ascii.ESC & "[7m";
|
||||
Norm_Video : String := Ascii.ESC & "[m";
|
||||
|
||||
begin
|
||||
Put (Rev_Video & "Reversed");
|
||||
Put (Norm_Video & " Normal");
|
||||
end Reverse_Video;
|
||||
|
|
@ -0,0 +1 @@
|
|||
INVERSE:?"ROSETTA";:NORMAL:?" CODE"
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
DllCall( "AllocConsole" ) ; create a console if not launched from one
|
||||
hConsole := DllCall( "GetStdHandle", int, STDOUT := -11 )
|
||||
|
||||
SetConsoleTextAttribute(hConsole, 0x70) ; gray background, black foreground
|
||||
FileAppend, Reversed`n, CONOUT$ ; print to stdout
|
||||
|
||||
SetConsoleTextAttribute(hConsole, 0x07) ; black background, gray foreground
|
||||
FileAppend, Normal, CONOUT$
|
||||
|
||||
MsgBox
|
||||
|
||||
SetConsoleTextAttribute(hConsole, Attributes){
|
||||
return DllCall( "SetConsoleTextAttribute", UPtr, hConsole, UShort, Attributes)
|
||||
}
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
Fix 3
|
||||
Disp "INVERTED"
|
||||
Fix 2
|
||||
Disp "REGULAR",i
|
||||
Pause 4500
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
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"
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
inverse$ = CHR$(17)+CHR$(128)+CHR$(17)+CHR$(15)
|
||||
normal$ = CHR$(17)+CHR$(128+15)+CHR$(17)+CHR$(0)
|
||||
PRINT inverse$ + "Inverse" + normal$ + " video"
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
COLOR INVERSE
|
||||
PRINT "a word"
|
||||
COLOR RESET
|
||||
PRINT "a word"
|
||||
|
|
@ -0,0 +1 @@
|
|||
0"lamroNm["39*"esrevnIm7["39*>:#,_$@
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
tput mr
|
||||
echo 'foo'
|
||||
tput me
|
||||
echo 'bar'
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
#include <stdio.h>
|
||||
|
||||
int main()
|
||||
{
|
||||
printf("\033[7mReversed\033[m Normal\n");
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. terminal-reverse-video.
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
DISPLAY "Reverse-Video" WITH REVERSE-VIDEO
|
||||
DISPLAY "Normal"
|
||||
|
||||
GOBACK
|
||||
.
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
5 rem inverse video
|
||||
10 print chr$(18);"reverse on";chr$(146);" reverse off"
|
||||
20 print
|
||||
25 rem newline (cr) also terminates reverse mode
|
||||
30 print chr$(18);"this is reversed... ";:print "so is this."
|
||||
40 print
|
||||
50 print chr$(18);"this is reversed... ":print "this is not."
|
||||
60 print
|
||||
70 print chr$(18);"this is reversed... ";chr$(13);"this is not."
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
: Reverse #27 emit "[7m" type ;
|
||||
: Normal #27 emit "[m" type ;
|
||||
|
||||
: test cr Reverse ." Reverse " cr Normal ." Normal " ;
|
||||
test
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
Color 0, 15 ' usa los colores blanco (fondo) y negro (primer plano)
|
||||
Locate 2, 2 : Print "Video inverso"
|
||||
Color 15, 0 ' usa los colores negro (fondo) y blanco (primer plano)
|
||||
Locate 3, 2 : Print "Video normal"
|
||||
Sleep
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
import console.*
|
||||
|
||||
println( "${REVERSED}This is reversed.$RESET This is normal." )
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
package main
|
||||
|
||||
import (
|
||||
"fmt"
|
||||
"os"
|
||||
"os/exec"
|
||||
)
|
||||
|
||||
func main() {
|
||||
tput("rev")
|
||||
fmt.Print("Rosetta")
|
||||
tput("sgr0")
|
||||
fmt.Println(" Code")
|
||||
}
|
||||
|
||||
func tput(arg string) error {
|
||||
cmd := exec.Command("tput", arg)
|
||||
cmd.Stdout = os.Stdout
|
||||
return cmd.Run()
|
||||
}
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
package main
|
||||
|
||||
import "fmt"
|
||||
|
||||
func main() {
|
||||
fmt.Println("\033[7mRosetta\033[m Code")
|
||||
}
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
package main
|
||||
|
||||
import (
|
||||
"log"
|
||||
|
||||
gc "code.google.com/p/goncurses"
|
||||
)
|
||||
|
||||
func main() {
|
||||
s, err := gc.Init()
|
||||
if err != nil {
|
||||
log.Fatal("init:", err)
|
||||
}
|
||||
defer gc.End()
|
||||
s.AttrOn(gc.A_REVERSE)
|
||||
s.Print("Rosetta")
|
||||
s.AttrOff(gc.A_REVERSE)
|
||||
s.Println(" Code")
|
||||
s.GetChar()
|
||||
}
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
;:';:,#.*."3,(C.A.)/\/&.:;:' NB. some output beforehand
|
||||
attributes REVERSEVIDEO NB. does as it says
|
||||
2 o.^:a:0 NB. solve the fixed point equation cos(x) == x
|
||||
attributes OFF NB. no more blinky flashy
|
||||
parseFrench=:;:,#.*."3,(C.A.)/\/&.:;: NB. just kidding! More output.
|
||||
|
|
@ -0,0 +1,16 @@
|
|||
# Be busy for at least the given number of seconds,
|
||||
# and emit the actual number of seconds that have elapsed.
|
||||
# The reason for defining sleep/1 is that it allows the idiom:
|
||||
# E | F, (sleep(1) as $elapsed | CONTINUE_WITH_E_AS_INPUT)
|
||||
def sleep($seconds):
|
||||
now
|
||||
| . as $now
|
||||
| until( . - $now >= $seconds; now)
|
||||
| . - $now ;
|
||||
|
||||
def demo:
|
||||
def ESC: "\u001B";
|
||||
"\(ESC)[7mInverse",
|
||||
(sleep(2) | "\(ESC)[0mNormal");
|
||||
|
||||
demo
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
using Crayons.Box
|
||||
|
||||
println(WHITE_FG, BLACK_BG, "Normal")
|
||||
println(WHITE_BG, BLACK_FG, "Reversed")
|
||||
println(WHITE_FG, BLACK_BG, "Normal")
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
// version 1.1.2
|
||||
|
||||
fun main(args: Array<String>) {
|
||||
println("\u001B[7mInverse\u001B[m Normal")
|
||||
}
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
local(esc = decode_base64('Gw=='))
|
||||
|
||||
stdout( #esc + '[7m Reversed Video ' + #esc + '[0m Normal Video ')
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
10 CALL &bb9c:PRINT "inverse";
|
||||
20 CALL &bb9c:PRINT "normal"
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
Run["tput mr"]
|
||||
Run["echo foo"] (* is displayed in reverse mode *)
|
||||
Run["tput me"]
|
||||
Run["echo bar"]
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
import terminal
|
||||
|
||||
stdout.styledWrite("normal ", styleReverse, "inverse", resetStyle, " normal\n")
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
$ ocaml unix.cma -I +ANSITerminal ANSITerminal.cma
|
||||
|
||||
# open ANSITerminal ;;
|
||||
# print_string [Inverse] "Hello\n" ;;
|
||||
Hello
|
||||
- : unit = ()
|
||||
|
|
@ -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.
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
print "normal\n";
|
||||
system "tput rev";
|
||||
print "reversed\n";
|
||||
system "tput sgr0";
|
||||
print "normal\n";
|
||||
|
|
@ -0,0 +1,15 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #000080;font-style:italic;">--
|
||||
-- demo\rosetta\Inverse_Video.exw
|
||||
-- ================================
|
||||
--</span>
|
||||
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
|
||||
<span style="color: #7060A8;">text_color</span><span style="color: #0000FF;">(</span><span style="color: #004600;">BLACK</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">bk_color</span><span style="color: #0000FF;">(</span><span style="color: #004600;">WHITE</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Inverse"</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">text_color</span><span style="color: #0000FF;">(</span><span style="color: #004600;">WHITE</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">bk_color</span><span style="color: #0000FF;">(</span><span style="color: #004600;">BLACK</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" Video"</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\n\npress enter to exit"</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">wait_key</span><span style="color: #0000FF;">()</span>
|
||||
<!--
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
(prin "abc")
|
||||
(call "tput" "rev")
|
||||
(prin "def") # These three chars are displayed in reverse video
|
||||
(call "tput" "sgr0")
|
||||
(prinl "ghi")
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
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
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
#!/usr/bin/env python
|
||||
|
||||
print "\033[7mReversed\033[m Normal"
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
[ $ 'print("\033[7m", end="")' python ] is inversetext ( --> )
|
||||
|
||||
[ $ 'print("\033[m", end="")' python ] is regulartext ( --> )
|
||||
|
||||
inversetext say "inverse video"
|
||||
regulartext say " normal text"
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
/*REXX program demonstrates the showing of reverse video to the display terminal. */
|
||||
@day = 'day'
|
||||
@night = 'night'
|
||||
|
||||
call scrwrite , 1, @day, , , 7 /*display to terminal: white on black.*/
|
||||
call scrwrite , 1+length(@day), @night, , , 112 /* " " " black " white.*/
|
||||
|
||||
exit 0 /*stick a fork in it, we're all done. */
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
#lang racket
|
||||
(require (planet neil/charterm:3:0))
|
||||
|
||||
(with-charterm
|
||||
(charterm-clear-screen)
|
||||
(charterm-cursor 0 0)
|
||||
(charterm-inverse)
|
||||
(charterm-display "Hello")
|
||||
(charterm-normal)
|
||||
(charterm-display "World"))
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
say "normal";
|
||||
run "tput", "rev";
|
||||
say "reversed";
|
||||
run "tput", "sgr0";
|
||||
say "normal";
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
nverse = char(17)+char(128)+char(17)+char(15)
|
||||
normal = char(17)+char(128+15)+char(17)+char(0)
|
||||
see inverse + " inverse " + normal + " video"
|
||||
|
|
@ -0,0 +1 @@
|
|||
puts "\033[7mReversed\033[m Normal"
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
' ---------- foo is reverse --------------
|
||||
x$ = shell$("tput mr
|
||||
echo 'foo'")
|
||||
|
||||
' ---------- bar is normal --------------
|
||||
x$ = shell$("tput me
|
||||
echo 'bar'")
|
||||
wait
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
object Main extends App {
|
||||
println("\u001B[7mInverse\u001B[m Normal")
|
||||
}
|
||||
|
|
@ -0,0 +1 @@
|
|||
PRINT "FOOBAR"
|
||||
|
|
@ -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
|
||||
|
|
@ -0,0 +1 @@
|
|||
val () = print "\^[[7mReversed\^[[m Normal\n"
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
--revon
|
||||
This is inverse
|
||||
--revoff
|
||||
This is normal
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
# Get how the terminal wants to do things...
|
||||
set videoSeq(reverse) [exec tput rev]
|
||||
set videoSeq(normal) [exec tput rmso]
|
||||
proc reverseVideo str {
|
||||
global videoSeq
|
||||
return "$videoSeq(reverse)${str}$videoSeq(normal)"
|
||||
}
|
||||
|
||||
# The things to print
|
||||
set inReverse "foo"
|
||||
set inNormal "bar"
|
||||
|
||||
# Print those words
|
||||
puts "[reverseVideo $inReverse] $inNormal"
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
#!/bin/sh
|
||||
tput mr # foo is reversed
|
||||
echo 'foo'
|
||||
tput me # bar is normal video
|
||||
echo 'bar'
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
$ TERM=dumb tput mr
|
||||
tput: Unknown terminfo capability `mr'
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
tput so # enter standout mode
|
||||
echo 'foo'
|
||||
tput se # exit standout mode
|
||||
echo 'bar'
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
System.print("\e[7mInverse")
|
||||
System.print("\e[0mNormal")
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
include c:\cxpl\codes;
|
||||
[Attrib($70);
|
||||
Text(6, "Inverse");
|
||||
Attrib($07);
|
||||
Text(6, " Video");
|
||||
CrLf(6);
|
||||
]
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
print color("black","white") "Video inverso"
|
||||
// o también
|
||||
print reverse "Video inverso"
|
||||
|
||||
print color("white","black") "Video normal"
|
||||
|
|
@ -0,0 +1,27 @@
|
|||
.org &8000
|
||||
PrintChar equ &BB5A
|
||||
InvertTextColors equ &BB9C
|
||||
|
||||
|
||||
;main
|
||||
|
||||
call InvertTextColors
|
||||
|
||||
ld hl, HelloAddr
|
||||
call PrintString
|
||||
|
||||
call InvertTextColors
|
||||
|
||||
ld hl,HelloAddr
|
||||
jp PrintString ;and return to basic after that.
|
||||
|
||||
|
||||
HelloAddr: byte "Hello",0
|
||||
|
||||
PrintString:
|
||||
ld a,(hl)
|
||||
or a
|
||||
ret z
|
||||
call PrintChar
|
||||
inc hl
|
||||
jp PrintString
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
10 INVERSE 1
|
||||
20 PRINT "FOO";
|
||||
30 INVERSE 0
|
||||
40 PRINT "BAR"
|
||||
|
|
@ -0,0 +1 @@
|
|||
println("\e[7mReversed\e[m Normal");
|
||||
Loading…
Add table
Add a link
Reference in a new issue