1*4a5d661aSToomas Soome\ Copyright (c) 2003 Scott Long <scottl@FreeBSD.org> 2*4a5d661aSToomas Soome\ Copyright (c) 2003 Aleksander Fafula <alex@fafula.com> 3*4a5d661aSToomas Soome\ Copyright (c) 2006-2015 Devin Teske <dteske@FreeBSD.org> 4*4a5d661aSToomas Soome\ All rights reserved. 5*4a5d661aSToomas Soome\ 6*4a5d661aSToomas Soome\ Redistribution and use in source and binary forms, with or without 7*4a5d661aSToomas Soome\ modification, are permitted provided that the following conditions 8*4a5d661aSToomas Soome\ are met: 9*4a5d661aSToomas Soome\ 1. Redistributions of source code must retain the above copyright 10*4a5d661aSToomas Soome\ notice, this list of conditions and the following disclaimer. 11*4a5d661aSToomas Soome\ 2. Redistributions in binary form must reproduce the above copyright 12*4a5d661aSToomas Soome\ notice, this list of conditions and the following disclaimer in the 13*4a5d661aSToomas Soome\ documentation and/or other materials provided with the distribution. 14*4a5d661aSToomas Soome\ 15*4a5d661aSToomas Soome\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 16*4a5d661aSToomas Soome\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 17*4a5d661aSToomas Soome\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 18*4a5d661aSToomas Soome\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 19*4a5d661aSToomas Soome\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 20*4a5d661aSToomas Soome\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 21*4a5d661aSToomas Soome\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22*4a5d661aSToomas Soome\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 23*4a5d661aSToomas Soome\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 24*4a5d661aSToomas Soome\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 25*4a5d661aSToomas Soome\ SUCH DAMAGE. 26*4a5d661aSToomas Soome\ 27*4a5d661aSToomas Soome\ $FreeBSD$ 28*4a5d661aSToomas Soome 29*4a5d661aSToomas Soome46 logoX ! 4 logoY ! \ Initialize logo placement defaults 30*4a5d661aSToomas Soome 31*4a5d661aSToomas Soome: logo+ ( x y c-addr/u -- x y' ) 32*4a5d661aSToomas Soome 2swap 2dup at-xy 2swap \ position the cursor 33*4a5d661aSToomas Soome [char] @ escc! \ replace @ with Esc 34*4a5d661aSToomas Soome type \ print to the screen 35*4a5d661aSToomas Soome 1+ \ increase y for next time we're called 36*4a5d661aSToomas Soome; 37*4a5d661aSToomas Soome 38*4a5d661aSToomas Soome: logo ( x y -- ) \ color BSD mascot (19 rows x 34 columns) 39*4a5d661aSToomas Soome 40*4a5d661aSToomas Soome s" @[31m, ," logo+ 41*4a5d661aSToomas Soome s" /( )`" logo+ 42*4a5d661aSToomas Soome s" \ \___ / |" logo+ 43*4a5d661aSToomas Soome s" /- @[m_@[31m `-/ '" logo+ 44*4a5d661aSToomas Soome s" (@[m/\/ \@[31m \ /\" logo+ 45*4a5d661aSToomas Soome s" @[m/ / |@[31m ` \" logo+ 46*4a5d661aSToomas Soome s" @[34mO O @[m) @[31m/ |" logo+ 47*4a5d661aSToomas Soome s" @[m`-^--'@[31m`< '" logo+ 48*4a5d661aSToomas Soome s" (_.) _ ) /" logo+ 49*4a5d661aSToomas Soome s" `.___/` /" logo+ 50*4a5d661aSToomas Soome s" `-----' /" logo+ 51*4a5d661aSToomas Soome s" @[33m<----.@[31m __ / __ \" logo+ 52*4a5d661aSToomas Soome s" @[33m<----|====@[31mO)))@[33m==@[31m) \) /@[33m====|" logo+ 53*4a5d661aSToomas Soome s" @[33m<----'@[31m `--' `.__,' \" logo+ 54*4a5d661aSToomas Soome s" | |" logo+ 55*4a5d661aSToomas Soome s" \ / /\" logo+ 56*4a5d661aSToomas Soome s" @[36m______@[31m( (_ / \______/" logo+ 57*4a5d661aSToomas Soome s" @[36m,' ,-----' |" logo+ 58*4a5d661aSToomas Soome s" `--{__________)@[m" logo+ 59*4a5d661aSToomas Soome 60*4a5d661aSToomas Soome 2drop 61*4a5d661aSToomas Soome; 62