!to "you-broke-my-heart-monitor.prg", cbm

						*= $0800
!byte $00,$0c,$08,$0a,$00,$9e,$32,$30,$36,$34,$00,$00,$00,$00

					
						*=$0810

						sei
						
						ldx #>int
						ldy #<int
						stx $0315
						sty $0314
						ldx #0
						stx $dc0e
						inx
						stx $d01a
						lda #$1b
						sta $d011
						lda #0
						sta $d012

						lda #0
						tax
						tay
						jsr $1000
						cli
						
						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


loop2

						jsr waitloop
						inc $d011
						jsr waitloop2
						dec $d011
						
						jmp loop2
						
;--------------------------------------------------
int
						lda #$00
						tax
						tay
						jsr $1003
						lda #1
						sta $d019
						jmp $ea31


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

temp	!byte $00

;--------------------------------------------------

waitloop				ldx #$00
waitsub				inx
						cpx #$ff
						bne waitsub
						rts

;--------------------------------------------------

waitloop2			ldx #$00
waitsub2				inx
						cpx #$03
						bne waitsub2
						rts
						
						*=$1000
						
!bin "..\blabla\Afternorm.prg",,2

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