Improving debugger.

2017-02-01 16:47:23 +01:00
parent 42d738b5fa
commit ad4b15514d
8 changed files with 71 additions and 57 deletions
--- a/test.bas
+++ b/test.bas
@@ -6,14 +6,14 @@
 	locate 4 4 print chr &h87, chr &h81, chr &h8D, chr &h85, chr &h85, chr &h85, chr &h8D, chr &h85
 	locate 3 8 print "PRESS SPACE"
 	updatescr
-	x = 0
+	x = 8
 	dx = 1
 	setsprite 0 &HF9 INK_RED
 peiv:
-	putsprite 0 x 40
-	putsprite 0 x 40
-	putsprite 0 x 40
+	putsprite 0 x 10
 	updatescr
+	x = x + dx
+	if x = 8 or x = 128 then dx = -dx end
 	if anykey then goto continuar end
 	goto peiv
 continuar: