;:sys36864
	;.opt oo
	*= 32768
cr	=13
outvek	=$326
outdev	=$9a
normout	=$f1ca
anz	=2
strout	=$ab1e
printer	=4
getx	=$b7f1
	jsr getx
	stx anz
	lda #<neu
	ldy #>neu
	sta outvek
	sty outvek+1
	lda #<text
	ldy #>text
	jmp strout
text	.byte "nss printer support ok."
	.byt 0
neu	pha
	lda outdev
	cmp #printer
	beq print
	pla
	jmp normout
print	pla
	cmp #cr
	beq crout
	jmp normout
crout	jsr normout
	pha
	txa
	pha
	ldx anz
	lda #" "
	
lp	jsr normout
	dex
	bne lp
	pla
	tax
	pla
	clc
	rts