Fixes. Debugger improved.

2017-02-01 19:49:26 +01:00
parent ad4b15514d
commit 0864cdcf89
9 changed files with 132 additions and 58 deletions
--- a/test.bas
+++ b/test.bas
@@ -1,24 +1,40 @@
-	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 = 8
-	dx = 1
-	setsprite 0 &HF9 INK_RED
-peiv:
-	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:
-	clrscr
-	locate 0 0 print "Ok"
-	updatescr
-ttt:
-	goto ttt
+	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
+	W = 0
+MENU_BLINK:
+	LOCATE 3 8 PRINT "PRESS CTRL"
+	LOCATE 4 9 PRINT "TO PLAY"
+	UPDATESCR
+	INC W
+	IF KEYPRESSED BTN_A THEN GOTO MAIN_GAME END
+	IF W < 25 THEN 
+		GOTO MENU_BLINK
+	END
+MENU_BLINK2:
+	LOCATE 3 8 PRINT "          "
+	LOCATE 4 9 PRINT "       "
+	UPDATESCR
+	INC W
+	IF KEYPRESSED BTN_A THEN GOTO MAIN_GAME END
+	IF W < 50 THEN GOTO MENU_BLINK2 END
+	W = 0
+	GOTO MENU_BLINK
+MAIN_GAME:
+	CLRSCR
+	GOSUB PINTA_RED
+	LOCATE 6 1 PRINT "0"
+	LOCATE 9 1 PRINT "0"
+	UPDATESCR
+	GOTO MAIN_GAME
+PINTA_RED:
+	PUTCHAR 7 0 &HD1 INK_WHITE + PAPER_BLACK
+	PUTCHAR 7 2 &HD1 INK_WHITE + PAPER_BLACK
+	PUTCHAR 7 4 &HD1 INK_WHITE + PAPER_BLACK
+	PUTCHAR 7 6 &HD1 INK_WHITE + PAPER_BLACK
+	PUTCHAR 7 8 &HD1 INK_WHITE + PAPER_BLACK
+	PUTCHAR 7 10 &HD1 INK_WHITE + PAPER_BLACK
+	RETURN