Current Path : /sys/amd64/compile/hs32/modules/usr/src/sys/modules/reiserfs/@/boot/forth/ |
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 : //sys/amd64/compile/hs32/modules/usr/src/sys/modules/reiserfs/@/boot/forth/screen.4th |
\ Screen manipulation related words. \ $FreeBSD: release/9.1.0/sys/boot/forth/screen.4th 115410 2003-05-30 09:29:24Z scottl $ 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 ;