| Current Path : /compat/linux/proc/self/root/usr/share/examples/bootforth/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
| Current File : //compat/linux/proc/self/root/usr/share/examples/bootforth/screen.4th |
\ Screen manipulation related words. \ $FreeBSD: release/9.1.0/share/examples/bootforth/screen.4th 50476 1999-08-28 00:22:10Z peter $ marker task-screen.4th : escc ( -- ) \ emit Esc-[ 91 27 emit emit ; : ho ( -- ) \ Home cursor escc 72 emit \ Esc-[H ; : cld ( -- ) \ Clear from current position to end of display escc 74 emit \ Esc-[J ; : clear ( -- ) \ clear screen ho cld ; : at-xy ( x y -- ) \ move cursor to x rows, y cols (1-based coords) escc .# 59 emit .# 72 emit \ Esc-[%d;%dH ; : fg ( x -- ) \ Set foreground color escc 3 .# .# 109 emit \ Esc-[3%dm ; : bg ( x -- ) \ Set background color escc 4 .# .# 109 emit \ Esc-[4%dm ; : me ( -- ) \ Mode end (clear attributes) escc 109 emit ;