1 \ Copyright (c) 2006-2015 Devin Teske <dteske@FreeBSD.org>
2 \ Copyright (c) 2017 Josef 'Jeff' Sipek <jeffpc@josefsipek.net>
5 \ Redistribution and use in source and binary forms, with or without
6 \ modification, are permitted provided that the following conditions
8 \ 1. Redistributions of source code must retain the above copyright
9 \ notice, this list of conditions and the following disclaimer.
10 \ 2. Redistributions in binary form must reproduce the above copyright
11 \ notice, this list of conditions and the following disclaimer in the
12 \ documentation and/or other materials provided with the distribution.
14 \ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15 \ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 \ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 \ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18 \ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 \ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 \ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 \ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 \ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 \ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 46 logoX ! 7 logoY ! \ Initialize logo placement defaults
30 : logo+ ( x y c-addr/u -- x y' )
31 2swap 2dup at-xy 2swap \ position the cursor
32 type \ print to the screen
33 1+ \ increase y for next time we're called
36 : logo ( x y -- ) \ B/W unleashed logo placeholder (15 rows x 32 columns)
44 s" | \_____/ | " logo+
47 s" | <@ > <@ > | " logo+
49 s" ------- \/ ------- " logo+
50 s" ------- __|__ ------- " logo+
51 s" \__________/ " logo+