Annotation of elwix/config/boot/logo-elwix.4th, revision 1.1.2.1
1.1.2.1 ! misho 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>