;:poke56,112:clr
;:sys36864
	;.opt oo
	*= $7000	;28672
ln	=2
getad	=$b7eb
kom	=$aefd
num	=$ad8a
int	=$b7f7
clr	=$e544
key	=631
str	=$ab1e
chr	=$ffd2
usr	=$311
	jmp setup
tx1	.byte "fOi="
	brk
tx2	.byte "stE36:rEd$:fOx=1tolen(d$)stE2"
	brk
tx3	.byte "pOx/2+i,(aS(mI(d$,x))-65)*16+aS(mI"
	.byte "(d$,x+1))-65:nE:nE:sY"
	brk
tx4	.byt 13
	.byte "j=uS(1)"
	brk
tx5	.byte " zeilen erzeugt."
	.byt 13,0
ik	inc 3
	bne r2
	inc 4
r2	lda 250
	clc
	adc 249
	sta 250
	bcc rt
	inc 251
rt	tax
	lda 251
	jmp $bdcd
ust	lda #3
	sta 198
	lda #19
	sta key
	lda #13
	sta key+1
	sta key+2
	lda #<tx4
	ldy #>tx4
	jmp str
setup	jsr kom
	jsr num
	jsr int
	sta 182
	sty 181
	jsr kom
	jsr num
	jsr int
	sta 248
	sty 247
	jsr kom
	jsr num
	jsr int
	sta 253
	sty 252
	jsr kom
	jsr getad
	stx 249
	lda $14
	sta 250
	lda $15
	sta 251
	jsr clr
	lda 250
	jsr rt
	lda #<tx1
	ldy #>tx1
	jsr str
	ldx #1
	stx 3
	dex
	stx 4
	ldx 181
	lda 182
	jsr $bdcd
	lda #"t"
	jsr chr
	lda #"o"
	jsr chr
	ldx 247
	lda 248
	jsr $bdcd
	lda #<tx2
	ldy #>tx2
	jsr str
	inc 247
	bne la6
	inc 248
la6	lda #<he1
	ldy #>he1
	sta usr
	sty usr+1
	jmp ust
he1	jsr clr
	jsr ik
	lda #<tx3
	ldy #>tx3
	jsr str
	ldx 252
	lda 253
	jsr $bdcd
	lda #<he2
	ldy #>he2
	sta usr
	sty usr+1
la4	jmp ust
he2	jsr clr
	jsr ik
	lda #"d"
	jsr chr
	lda #"A"
	jsr chr
	ldx #0
la1	ldy #0
	lda (181),y
	lsr
	lsr
	lsr
	lsr
	clc
	adc #"a"
	jsr chr
	lda (181),y
	and #15
	adc #"a"
	jsr chr
	inc 181
	bne la5
	inc 182
la5	lda 181
	cmp 247
	bne la2
	lda 182
	cmp 248
	bcs la3
la2	inx
	cpx #36
	bcc la1
	bcs la4
la3	lda #<he3
	ldy #>he3
	sta usr
	sty usr+1
	jmp ust
he3	jsr clr
	ldx 3
	lda 4
	jsr $bdcd
	lda #<tx5
	ldy #>tx5
	jsr str
	jsr $e18d
	jmp $e386