Terminal control/Inverse video: Difference between revisions
Added Commodore BASIC
m (→{{header|REXX}}: added "works with".) |
(Added Commodore BASIC) |
||
Line 100:
normal$ = CHR$(17)+CHR$(128+15)+CHR$(17)+CHR$(0)
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}}===
| |||