[Midnightbsd-cvs] src [11963] trunk/sys/boot/forth/logo-orbbw.4th: fix text orb

[laffer1 at midnightbsd.org]

Revision: 11963
          http://svnweb.midnightbsd.org/src/?rev=11963
Author:   laffer1
Date:     2018-07-25 18:50:54 -0400 (Wed, 25 Jul 2018)
Log Message:
-----------
fix text orb

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

Modified: trunk/sys/boot/forth/logo-orbbw.4th
===================================================================
--- trunk/sys/boot/forth/logo-orbbw.4th	2018-07-25 22:50:16 UTC (rev 11962)
+++ trunk/sys/boot/forth/logo-orbbw.4th	2018-07-25 22:50:54 UTC (rev 11963)
@@ -28,9 +28,9 @@
 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
 	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)