--- src/sys/boot/forth/beastie.4th	2004/01/22 12:04:58	1.6
+++ src/sys/boot/forth/beastie.4th	2005/05/29 23:35:00	1.7
@@ -49,27 +49,28 @@ variable rebootkey
 
 46 constant dot
 
-\ The BSD Daemon.  He is 19 rows high and 34 columns wide
-: technicolor-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 ."             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 ."                \       /       /\" 1+
-2dup at-xy ."           ______( (_  / \______/" 1+
-2dup at-xy ."         ,'  ,-----'   |" 1+
-at-xy ."         `--{__________) " 1+
+\ Fred, the official DragonFly BSD mascot.
+\ He is 19 rows high and 34 columns wide
+: 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+
+	2dup at-xy ."               `|'" 1+
+	2dup at-xy ." " 1+
+	     at-xy ."
 ;
 
 : boring-fred ( x y -- )
@@ -94,7 +95,7 @@ : boring-fred ( x y -- )
 	     at-xy ."
 ;
 
-: print-beastie ( x y -- )
+: print-fred ( x y -- )
 	s" loader_color" getenv
 	dup -1 = if
 		drop
@@ -105,7 +106,7 @@ : print-beastie ( x y -- )
 		boring-fred
 		exit
 	then
-	technicolor-beastie
+	technicolor-fred
 ;
 
 : acpienabled? ( -- flag )
@@ -136,13 +137,13 @@ : printmenuitem ( -- n )
 	menuidx @ 48 +
 ;
 
-: beastie-menu ( -- )
+: fred-menu ( -- )
 	0 menuidx !
 	dot menubllt !
 	8 menuY !
 	5 menuX !
 	clear
-	46 4 print-beastie
+	46 4 print-fred
 	42 20 2 2 box
 	13 6 at-xy ." Welcome to DragonFly!"
 	printmenuitem ."  Boot DragonFly [default]" bootkey !
@@ -192,13 +193,13 @@ : tkey
 set-current
 
 : beastie-start
-	s" beastie_disable" getenv
+	s" fred_disable" getenv
 	dup -1 <> if
 		s" YES" compare-insensitive 0= if
 			exit
 		then
 	then
-	beastie-menu
+	fred-menu
 	s" autoboot_delay" getenv
 	dup -1 = if
 		drop