BORDER INK_BLACK
	COLOR INK_WHITE + PAPER_BLACK
	CLS
	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
	SETMUSIC 0 "cdef"
	PLAYMUSIC
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:
	CLS
	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