1: \ Copyright (c) 2016 Michael Pounov <misho@elwix.org>
2: \ All rights reserved.
3: \
4: \ Redistribution and use in source and binary forms, with or without
5: \ modification, are permitted provided that the following conditions
6: \ are met:
7: \ 1. Redistributions of source code must retain the above copyright
8: \ notice, this list of conditions and the following disclaimer.
9: \ 2. Redistributions in binary form must reproduce the above copyright
10: \ notice, this list of conditions and the following disclaimer in the
11: \ documentation and/or other materials provided with the distribution.
12: \
13: \ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
14: \ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
15: \ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
16: \ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
17: \ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18: \ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19: \ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20: \ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21: \ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22: \ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
23: \ SUCH DAMAGE.
24: \
25: \ $id:$
26:
27: 46 logoX ! 7 logoY ! \ Initialize logo placement defaults
28:
29: : logo+ ( x y c-addr/u -- x y' )
30: 2swap 2dup at-xy 2swap \ position the cursor
31: type \ print to the screen
32: 1+ \ increase y for next time we're called
33: ;
34:
35: : logo ( x y -- ) \ ELWIX mascot (15 rows x 32 columns)
36:
37: s" .l: .k " logo+
38: s" .k:0 ." logo+
39: s" :WK ,dc" logo+
40: s" . oWWK .ld, " logo+
41: s" :` cWWW, .xo. " logo+
42: s" ':::. OWWWW. ,Od. " logo+
43: s" .,lodc` KWWWWO:0o " logo+
44: s" .:oxxXWWWWWc " logo+
45: s" .xWWWWWoc. " logo+
46: s" :xx:.WWWW. ,cc` " logo+
47: s" `dx: :WWM. .cc: " logo+
48: s" ld: .d; o: " logo+
49: s" d` `x" logo+
50: s" cl " logo+
51: s" * Embedded LightWeight unIX * " logo+
52:
53: 2drop
54: ;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>