--- 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 ." ,--, [31m| [37m,--," 1+
2dup at-xy ." | `-, [31m,^, [37m,-' |" 1+
- 2dup at-xy ." `, `-, [32m([31m/ \[32m) [37m,-` ,-'" 1+
- 2dup at-xy ." `-, `-,[31m/ \[37m,-` ,-`" 1+
+ 2dup at-xy ." `, `-, [32m([31m/ \[32m) [37m,-' ,'" 1+
+ 2dup at-xy ." `-, `-,[31m/ \[37m,-' ,-'" 1+
2dup at-xy ." `------[31m( )[37m------'" 1+
- 2dup at-xy ." ,----------[31m( )[37m-----------," 1+
+ 2dup at-xy ." ,----------[31m( )[37m----------," 1+
2dup at-xy ." | _,-[31m( )[37m-,_ |" 1+
- 2dup at-xy ." `-,__,-` [31m\ / [37m`-,__,-'" 1+
+ 2dup at-xy ." `-,__,-' [31m\ / [37m`-,__,-'" 1+
2dup at-xy ." [31m| |" 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+