screen.4th revision 280926
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 280926 2015-03-31 23:09:54Z dteske $ 27115410Sscottl 28115410Sscottlmarker task-screen.4th 29115410Sscottl 30280926Sdteske\ emit Esc-[ 31280926Sdteske: escc ( -- ) 27 emit [char] [ emit ; 32115410Sscottl 33280926Sdteske\ Home cursor ( Esc-[H ) 34280926Sdteske: ho ( -- ) escc [char] H emit ; 35115410Sscottl 36280926Sdteske\ Clear from current position to end of display ( Esc-[J ) 37280926Sdteske: cld ( -- ) escc [char] J emit ; 38115410Sscottl 39280926Sdteske\ clear screen 40280926Sdteske: clear ( -- ) ho cld ; 41115410Sscottl 42280926Sdteske\ move cursor to x rows, y cols (1-based coords) ( Esc-[%d;%dH ) 43280926Sdteske: at-xy ( x y -- ) escc .# [char] ; emit .# [char] H emit ; 44115410Sscottl 45280926Sdteske\ Set foreground color ( Esc-[3%dm ) 46280926Sdteske: fg ( x -- ) escc 3 .# .# [char] m emit ; 47115410Sscottl 48280926Sdteske\ Set background color ( Esc-[4%dm ) 49280926Sdteske: bg ( x -- ) escc 4 .# .# [char] m emit ; 50115410Sscottl 51280926Sdteske\ Mode end (clear attributes) 52280926Sdteske: me ( -- ) escc [char] m emit ; 53