From 317c5e945e1521401ac17e03fc46cdc188887d90 Mon Sep 17 00:00:00 2001 From: scottl Date: Sat, 31 May 2003 16:07:00 +0000 Subject: Man, I'm not on the ball. 4th does not need to escape '\' chars. This should make our beloved friend look less like he has a massive head wound. --- sys/boot/forth/beastie.4th | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'sys/boot') diff --git a/sys/boot/forth/beastie.4th b/sys/boot/forth/beastie.4th index 96b7524..f363a9a 100644 --- a/sys/boot/forth/beastie.4th +++ b/sys/boot/forth/beastie.4th @@ -51,21 +51,21 @@ variable rebootkey : print-beastie ( x y -- ) 2dup at-xy ." , ," 1+ 2dup at-xy ." /( )`" 1+ - 2dup at-xy ." \\ \\___ / |" 1+ + 2dup at-xy ." \ \___ / |" 1+ 2dup at-xy ." /- _ `-/ '" 1+ - 2dup at-xy ." (/\\/ \\ \\ /\\" 1+ - 2dup at-xy ." / / | ` \\" 1+ + 2dup at-xy ." (/\/ \ \ /\" 1+ + 2dup at-xy ." / / | ` \" 1+ 2dup at-xy ." O O ) / |" 1+ 2dup at-xy ." `-^--'`< '" 1+ 2dup at-xy ." (_.) _ ) /" 1+ 2dup at-xy ." `.___/` /" 1+ 2dup at-xy ." `-----' /" 1+ - 2dup at-xy ." <----. __ / __ \\" 1+ - 2dup at-xy ." <----|====O)))==) \\) /====" 1+ - 2dup at-xy ." <----' `--' `.__,' \\" 1+ + 2dup at-xy ." <----. __ / __ \" 1+ + 2dup at-xy ." <----|====O)))==) \) /====" 1+ + 2dup at-xy ." <----' `--' `.__,' \" 1+ 2dup at-xy ." | |" 1+ - 2dup at-xy ." \\ / /\\" 1+ - 2dup at-xy ." ______( (_ / \\______/" 1+ + 2dup at-xy ." \ / /\" 1+ + 2dup at-xy ." ______( (_ / \______/" 1+ 2dup at-xy ." ,' ,-----' |" 1+ at-xy ." `--{__________)" ; -- cgit v1.1