Skip to content

Commit 002fbf3

Browse files
committed
Update HILITE.FTH
1 parent b806fd9 commit 002fbf3

File tree

1 file changed

+4
-3
lines changed

1 file changed

+4
-3
lines changed

LIB.ITC/HILITE.FTH

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,5 @@
1-
\ HILITE.FTH create reverse color characters and removes itself
1+
\ HILITE.FTH updated Mar 25 2025
2+
\ create reverse color character set
23
\ INCLUDE DSK1.TOOLS
34

45
HEX
@@ -34,9 +35,9 @@ DECIMAL
3435
: BLINKER ( Vaddr len -- ) BEGIN 2DUP REVERSE 500 MS KEY? UNTIL 2DROP ;
3536

3637
: TEST PAGE ." This string will print normally"
37-
CR ." This will be reversed in 3 seconds"
38+
CR ." This will be reversed in 3 seconds"
3839
CR
39-
CR ." This one will blink"
40+
CR ." This one will blink"
4041

4142
0 23 AT-XY ." Press a key to stop demo"
4243
3000 MS

0 commit comments

Comments
 (0)