org $0500

main	

	lda #$21
	sta $022f
	lda <dl
	sta $230
	lda >dl
	sta $231
	
	lda #$b4   ;-fonty w grze
	sta $02f4

	lda #$0c
	sta $2c8 ;-kolor tla
	sta $02c6
	sta $02c5
	tay
c1	jsr wait
	dey
	sty $02c5
	bne c1
        lda #$ff
	sta $02fc
l2	lda $02fc
	cmp #$ff
	beq l2	
	and #$3f
	cmp #$2b
	bne normal_game
	lda #$ea
	sta $96cd ;-lives
 	
normal_game jsr wait
	iny
	sty $2c5
	cpy #$0c
	bne normal_game
	jmp $59fa ;-run game

wait	lda 20
	cmp 20
	beq *-2
	rts

dl	dta b($42),a(napis),($02)
	dta b($41),a(dl)

 
napis  .he 00 00 12 0C 09 07 0A 0B 07 11 1d 04 00 09 07 12  
       .he 1d 10 00 00 12 1f 0C 00 00 00 00 00 00 00 00 00
 
       .he 00 00 32 2c 29 27 2a 2b 27 31 3d 24 00 29 27 13  
       .he 3d 30 00 00 34 20 2c 00 00 00 00 00 00 00 00 00

	;org $b400

	;ins 'bl.fnt'

	run main