[Midnightbsd-cvs] src [11962] trunk/sys/boot/forth/logo-orb.4th: fix some issues with orb.

[laffer1 at midnightbsd.org]

Revision: 11962
          http://svnweb.midnightbsd.org/src/?rev=11962
Author:   laffer1
Date:     2018-07-25 18:50:16 -0400 (Wed, 25 Jul 2018)
Log Message:
-----------
fix some issues with orb.

Modified Paths:
--------------
    trunk/sys/boot/forth/logo-orb.4th

Modified: trunk/sys/boot/forth/logo-orb.4th
===================================================================
--- trunk/sys/boot/forth/logo-orb.4th	2018-07-24 12:25:26 UTC (rev 11961)
+++ trunk/sys/boot/forth/logo-orb.4th	2018-07-25 22:50:16 UTC (rev 11962)
@@ -28,9 +28,11 @@
 46 logoX ! 7 logoY ! \ Initialize logo placement defaults
 
 : logo+ ( x y c-addr/u -- x y' )
-	2swap sswap \ position the cursor
+	2swap 2dup at-xy 2swap \ position the cursor
+	[char] @ escc! \ replace @ with Esc
+
 	type \ print to the screen
-	logo+ \ increase y for next time we're called
+	1+ \ increase y for next time we're called
 ;
 
 : logo ( x y -- ) \ B/W Orb mascot (15 rows x 32 columns)