screen.4th revision 280924
1280924Sdteske\ Copyright (c) 2003 Scott Long <scottl@FreeBSD.org> 2280924Sdteske\ Copyright (c) 2015 Devin Teske <dteske@FreeBSD.org> 3280924Sdteske\ All rights reserved. 4280924Sdteske\ 5280924Sdteske\ Redistribution and use in source and binary forms, with or without 6280924Sdteske\ modification, are permitted provided that the following conditions 7280924Sdteske\ are met: 8280924Sdteske\ 1. Redistributions of source code must retain the above copyright 9280924Sdteske\ notice, this list of conditions and the following disclaimer. 10280924Sdteske\ 2. Redistributions in binary form must reproduce the above copyright 11280924Sdteske\ notice, this list of conditions and the following disclaimer in the 12280924Sdteske\ documentation and/or other materials provided with the distribution. 13280924Sdteske\ 14280924Sdteske\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 15280924Sdteske\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 16280924Sdteske\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 17280924Sdteske\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 18280924Sdteske\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 19280924Sdteske\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 20280924Sdteske\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 21280924Sdteske\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 22280924Sdteske\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 23280924Sdteske\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 24280924Sdteske\ SUCH DAMAGE. 25280924Sdteske\ 26115410Sscottl\ $FreeBSD: head/sys/boot/forth/screen.4th 280924 2015-03-31 22:32:35Z dteske $ 27115410Sscottl 28115410Sscottlmarker task-screen.4th 29115410Sscottl 30115410Sscottl: escc ( -- ) \ emit Esc-[ 31115410Sscottl 91 27 emit emit 32115410Sscottl; 33115410Sscottl 34115410Sscottl: ho ( -- ) \ Home cursor 35115410Sscottl escc 72 emit \ Esc-[H 36115410Sscottl; 37115410Sscottl 38115410Sscottl: cld ( -- ) \ Clear from current position to end of display 39115410Sscottl escc 74 emit \ Esc-[J 40115410Sscottl; 41115410Sscottl 42115410Sscottl: clear ( -- ) \ clear screen 43115410Sscottl ho cld 44115410Sscottl; 45115410Sscottl 46115410Sscottl: at-xy ( x y -- ) \ move cursor to x rows, y cols (1-based coords) 47115410Sscottl escc .# 59 emit .# 72 emit \ Esc-[%d;%dH 48115410Sscottl; 49115410Sscottl 50115410Sscottl: fg ( x -- ) \ Set foreground color 51115410Sscottl escc 3 .# .# 109 emit \ Esc-[3%dm 52115410Sscottl; 53115410Sscottl 54115410Sscottl: bg ( x -- ) \ Set background color 55115410Sscottl escc 4 .# .# 109 emit \ Esc-[4%dm 56115410Sscottl; 57115410Sscottl 58115410Sscottl: me ( -- ) \ Mode end (clear attributes) 59115410Sscottl escc 109 emit 60115410Sscottl; 61