Work in progress

2017-01-30 19:37:11 +01:00
parent 415688d5c5
commit 3eba81d2bd
13 changed files with 237 additions and 50 deletions
--- a/test.bas
+++ b/test.bas
@@ -1,21 +1,24 @@
-locate 2 1
-print "HOLA JAILERS"
-border 5
-spr = 250
-setsprite 0 spr 0
-x = 0
-dx = 1
-count = 5
+	border INK_BLACK
+	color INK_WHITE + PAPER_BLACK
+	clrscr
+	locate 4 2 print chr &h87, chr &h85, chr &h87, chr &h85, chr &h87, chr &h85, chr &h87, chr &h81
+	locate 4 3 print chr &h85, chr &h85, chr &h85, chr &h85, chr &h85, chr &h85, chr &h85, chr &h84
+	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
+	dx = 1
+	setsprite 0 &HF9 INK_RED
 peiv:
-putsprite 0 x 60
-updatescr
-x = x + dx
-if x = 128 then dx = -1 end
-if x = 8 then dx = 1 end
-dec count
-if count = 0 then
-	count = 5
-	if spr = 250 then spr = 251 else spr = 250 end
-	setsprite 0 spr 1
-end
-goto peiv
+	putsprite 0 x 40
+	putsprite 0 x 40
+	putsprite 0 x 40
+	updatescr
+	if anykey then goto continuar end
+	goto peiv
+continuar:
+	clrscr
+	locate 0 0 print "Ok"
+	updatescr
+ttt:
+	goto ttt