1199767f8SToomas Soome\ Copyright (c) 2003 Scott Long <scottl@FreeBSD.org> 2199767f8SToomas Soome\ Copyright (c) 2003 Aleksander Fafula <alex@fafula.com> 3199767f8SToomas Soome\ Copyright (c) 2006-2015 Devin Teske <dteske@FreeBSD.org> 4199767f8SToomas Soome\ All rights reserved. 5199767f8SToomas Soome\ 6199767f8SToomas Soome\ Redistribution and use in source and binary forms, with or without 7199767f8SToomas Soome\ modification, are permitted provided that the following conditions 8199767f8SToomas Soome\ are met: 9199767f8SToomas Soome\ 1. Redistributions of source code must retain the above copyright 10199767f8SToomas Soome\ notice, this list of conditions and the following disclaimer. 11199767f8SToomas Soome\ 2. Redistributions in binary form must reproduce the above copyright 12199767f8SToomas Soome\ notice, this list of conditions and the following disclaimer in the 13199767f8SToomas Soome\ documentation and/or other materials provided with the distribution. 14199767f8SToomas Soome\ 15199767f8SToomas Soome\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 16199767f8SToomas Soome\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 17199767f8SToomas Soome\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 18199767f8SToomas Soome\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 19199767f8SToomas Soome\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 20199767f8SToomas Soome\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 21199767f8SToomas Soome\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22199767f8SToomas Soome\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 23199767f8SToomas Soome\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 24199767f8SToomas Soome\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 25199767f8SToomas Soome\ SUCH DAMAGE. 26199767f8SToomas Soome\ 27199767f8SToomas Soome\ $FreeBSD$ 28199767f8SToomas Soome 29199767f8SToomas Soome46 logoX ! 4 logoY ! \ Initialize logo placement defaults 30199767f8SToomas Soome 31199767f8SToomas Soome: logo+ ( x y c-addr/u -- x y' ) 32199767f8SToomas Soome 2swap 2dup at-xy 2swap \ position the cursor 33199767f8SToomas Soome [char] @ escc! \ replace @ with Esc 34199767f8SToomas Soome type \ print to the screen 35199767f8SToomas Soome 1+ \ increase y for next time we're called 36199767f8SToomas Soome; 37199767f8SToomas Soome 38199767f8SToomas Soome: logo ( x y -- ) \ color BSD mascot (19 rows x 34 columns) 39199767f8SToomas Soome 40199767f8SToomas Soome s" @[31m, ," logo+ 41199767f8SToomas Soome s" /( )`" logo+ 42199767f8SToomas Soome s" \ \___ / |" logo+ 43199767f8SToomas Soome s" /- @[m_@[31m `-/ '" logo+ 44199767f8SToomas Soome s" (@[m/\/ \@[31m \ /\" logo+ 45199767f8SToomas Soome s" @[m/ / |@[31m ` \" logo+ 46199767f8SToomas Soome s" @[34mO O @[m) @[31m/ |" logo+ 47199767f8SToomas Soome s" @[m`-^--'@[31m`< '" logo+ 48199767f8SToomas Soome s" (_.) _ ) /" logo+ 49199767f8SToomas Soome s" `.___/` /" logo+ 50199767f8SToomas Soome s" `-----' /" logo+ 51199767f8SToomas Soome s" @[33m<----.@[31m __ / __ \" logo+ 52199767f8SToomas Soome s" @[33m<----|====@[31mO)))@[33m==@[31m) \) /@[33m====|" logo+ 53199767f8SToomas Soome s" @[33m<----'@[31m `--' `.__,' \" logo+ 54199767f8SToomas Soome s" | |" logo+ 55199767f8SToomas Soome s" \ / /\" logo+ 56199767f8SToomas Soome s" @[36m______@[31m( (_ / \______/" logo+ 57199767f8SToomas Soome s" @[36m,' ,-----' |" logo+ 58199767f8SToomas Soome s" `--{__________)@[m" logo+ 59199767f8SToomas Soome 60199767f8SToomas Soome 2drop 61199767f8SToomas Soome; 62