!to "cake.prg", cbm
	
*= $0800
!byte $00,$0c,$08,$0a,$00,$9e,$34,$30,$39,$36,$00,$00,$00,$00


	*=$1000
	
	sei
	lda #$0b
	sta $d011
	lda #$00
	sta $d020
	ldx #$00
loop
	lda $4000,x
	jsr convert
	sta $0400,x
	lda $4100,x
	jsr convert
	sta $0500,x
	lda $4200,x
	jsr convert
	sta $0600,x
	lda $4300,x
	jsr convert
	sta $0700,x
	inx
	bne loop
	lda #$3b
	sta $d011
	lda #27
	sta $d018
	
bar1	lda #$0a
	ldy #$6b
	cpy $d012
	bne *-3
	sta $d020
	
bar2	lda #$01
	ldy #$7b
	cpy $d012
	bne *-3
	sta $d020
	
bar3	lda #$0a
	ldy #$eb
	cpy $d012
	bne *-3
	sta $d020
	
bar4	lda #$01
	ldy #$fb
	cpy $d012
	bne *-3
	sta $d020

	jmp bar1

convert
	tay
	asl
	asl
	asl
	asl
	sta temp
	tya
	lsr
	lsr
	lsr
	lsr
	clc
	adc temp	   
	rts

temp	!byte $00

	*=$2000
!bin "cake\cake-pic.prg",$3f40+1000,2