;:poke56,128:clr:sys36864
	;.opt oo
	*= $c000
buffer	=$cf00
stradr	=34
komma	=$aefd
frmevl	=$ad9e
frestr	=$b6a3
errlen	=251
len	=253
typ	=254
	jsr komma
	jsr frmevl
	jsr frestr
	ldy #0
	sta len
holstr	lda (stradr),y
	sta buffer,y
	iny
	cpy len
	bcc holstr
	lda #0
	sta buffer,y
	ldy #0
	sty errlen
	sty errlen+1
	sty typ
cacloop	cpy len
	bcs cacende
	lda buffer,y
	bit typ
	bmi bitmap
	bvs doublr
	cmp #14
	bne nodoub
	lda #64
settyp	sta typ
	bne goon
nodoub	cmp #8
	bne nobitmap
	lda #128
	bne settyp
nobitmap	jsr testdruck
	bcc goon
	lda #6
	jsr add
	bcc goon
doublr	cmp #15
	beq aus
	jsr testdruck
	bcc goon
	lda #12
	jsr add
	bcc goon
aus	lda #0
	sta typ
goon	iny
	bne cacloop
cacende	rts
bitmap	tax
	bpl steu
	lda #1
	jsr add
	bcc goon
steu	cmp #9
	beq aus
	cmp #15
	beq aus
	bne goon
testdruck	cmp #32
	bcc cacende
	cmp #160
	bcs cacende
	tax
	bmi nicht
	sec
	rts
nicht	clc
	rts
add	clc
	adc errlen
	sta errlen
	lda errlen+1
	adc #0
	sta errlen+1
	clc
	rts