bandera batari

;######### BANDERA CHILE QUICK DEMO
;######### VLADIMIR ZUNIGA

	set kernel_options pfcolors no_blank_lines
    set tv ntsc


  const fontstyle=TINY

 const fontcharSPACE=1
 const fontcharLO=1
 const fontcharHI=1

 dim sc0=score
 dim sc1=score+1
 dim sc2=score+2

 sc0=$0a
 sc1=$bc
 sc2=$a0

 player0:
 %11100000
 %11100000
 %11111000
 %11111000
 %01111110
 %01111110
 %01111111
 %01111111
 %00111111
 %00111111
 %00111111
 %00111111
 %00011111
 %00011111
 %00111111
 %00111111
 %01111111
 %01111111
 %11111111
 %11111111
 %11111111
 %11111111
 %00000111
 %00000111
 %00000111
 %00000111
 %00000011
 %00000011
 %00000011
 %00000011
 %00000001
 %00000001
end

	player1:
 %00001110
 %00001110
 %00111110
 %00111110
 %11111100
 %11111100
 %11111100
 %11111100
 %11111000
 %11111000
 %11111000
 %11111000
 %11110000
 %11110000
 %11111000
 %11111000
 %11111100
 %11111100
 %11111110
 %11111110
 %11111110
 %11111110
 %11000000
 %11000000
 %11000000
 %11000000
 %10000000
 %10000000
 %10000000
 %10000000
 %00000000
 %00000000
end


 	   pfcolors:
	128
	128
	128
	128
	128
	128
	64
	64
	64
	64
	64
	64
end


    	playfield:
	XXXXXXXXXXXXXX..................
	XXXXXXXXXXXXXX..................
	XXXXXXXXXXXXXX..................
	XXXXXXXXXXXXXX..................
	XXXXXXXXXXXXXX..................
	XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
	XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
	XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
	XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
	XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
	XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end

	player0x=32:player1x=player0x+15
	player0y=36:player1y=player0y

mainloop
	NUSIZ0=$05:NUSIZ1=$05
	COLUP0=14:COLUP1=14
	COLUBK=14

	c=c+1
	if c>30 then c=0
	if c<15 then scorecolor=128
	if c>15 then scorecolor=64

	drawscreen
	goto mainloop