;:sys36864
	*= 49152
	;.opt oo
strout	= $ab1e
open	= $ffc0
close	= $ffc3
chkout	= $ffc9
clrchn	= $ffcc
printer	= 4
sa	= $b9
ga	= $ba
la	= $b8
fnlen	= $b7
sek	= 0
chrout	= $ffd2
temp	= 2
line	= 4
space	= " "
rvs	= 18
off	= rvs+128
latch	= 6
spalte	= 5
	jmp start
cr	.byt 8,13
	.byte "\x0f\x10}28"
	.byt 0
grbyt	.byt $80,$40,$20,$10,8,4,2,1
return	tya 
	 pha
	lda #<cr
	ldy #>cr
	jsr strout
	pla 
	 tay 
	 rts
popen	lda #printer
	sta ga
	sta la
	lda #sek
	sta sa
	jsr open
	ldx #printer
	jmp chkout
voll	lda #rvs
	jsr chrout
leer	lda #space
	jsr chrout
	lda #off
	jmp chrout
bytout	sta latch
	txa 
	 pha
	ldx #0
loop1	lda latch
	and grbyt,x
	beq le
	jsr voll
	jmp weiter
le	jsr leer
weiter	inx
	cpx #8
	bcc loop1
	pla 
	 tax 
	 rts
main	ldy #0
	sty line
	sty spalte
loop2	lda (temp),y
	jsr bytout
	ldx spalte
	iny
	inx
	stx spalte
	cpx #3
	bcc loop2
	ldx #0
	stx spalte
	jsr return
	ldx line
	inx
	stx line
	cpx #21
	bcc loop2
	rts
start	jsr popen
	jsr return
	lda #<704
	ldy #>704
	sta temp
	sty temp+1
	jsr main
	jsr clrchn
	lda #printer
	jmp close