Terminal control/Inverse video: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added "works with".) |
(Added Commodore BASIC) |
||
Line 100: | Line 100: | ||
normal$ = CHR$(17)+CHR$(128+15)+CHR$(17)+CHR$(0) |
normal$ = CHR$(17)+CHR$(128+15)+CHR$(17)+CHR$(0) |
||
PRINT inverse$ + "Inverse" + normal$ + " video"</lang> |
PRINT inverse$ + "Inverse" + normal$ + " video"</lang> |
||
==={{header|Commodore BASIC}}=== |
|||
Commodore computers have defined a "reverse" character set in character ROM. This can be accessed through control characters reserved in the ASCII (PETSCII) character table. To enable reverse characters, print CHR$(18) ("Reverse On"). Reverse characters will continue until a "Reverse Off" CHR$(146) is printed, or until a newline (carriage return CHR$(13)) which may also occur at the end of a print statement. |
|||
<lang gwbasic>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."</lang> |
|||
==={{header|Locomotive Basic}}=== |
==={{header|Locomotive Basic}}=== |