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