;:sys36864
; findline by nh 2.9.1989
	;.opt oo
	*= 820
	jsr $aefd
	jsr $ad8a
	jsr $b7f7
	lda 43
	sta 2
	lda 44
	sta 3
	lda #0
	sta 4
x1	ldy #1
	lda (2),y
	beq haha
	ldy #3
	lda (2),y
	cmp $15
	bne wr
	dey
	lda (2),y
	cmp $14
	bne wr
	lda #<tx1
	ldy #>tx1
	jsr $ab1e
	ldx $14
	lda $15
	jsr $bdcd
	lda #<tx2
	ldy #>tx2
	jsr $ab1e
	ldx 2
	lda 3
	sta 4
	jsr $bdcd
	jsr $aad7
wr	ldy #0
	lda (2),y
	pha
	iny
	lda (2),y
	sta 3
	pla
	sta 2
	jmp x1
haha	lda 4
	bne en
	lda #<tx1
	ldy #>tx1
	jsr $ab1e
	ldx $14
	lda $15
	jsr $bdcd
	lda #<tx3
	ldy #>tx3
	jmp $ab1e
	ldx 2
	ldy 3
	jsr $bdcd
	jsr $aad7
en	rts
tx1	.byte "zeile "
	brk
tx2	.byte " beginnt im speicher ab "
	brk
tx3	.byte " nicht gefunden"
	.byt 13,0