--- src/sys/boot/forth/beastie.4th 2005/05/29 23:35:00 1.7 +++ src/sys/boot/forth/beastie.4th 2007/08/09 00:28:09 1.8 @@ -56,12 +56,12 @@ : technicolor-fred ( 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 ." ,----------( )----------," 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+ @@ -78,12 +78,12 @@ : boring-fred ( 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 ." ,----------( )----------," 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+