;:sys36864
	;.opt oo
	*= 49152
	jmp init
scrwri	= $e716
wrivec	= $326
cmdwrt	= $f1d5
cmd	= $9a
ptr	= 2
latch	= 51200
mem	= 3
spalte	= 211
tab	.byte " \xa0\x11\x91\x1d\x9d\x93\x13\x94" 
	.byt 13,141
init	lda #<write 
	 ldy #>write
	sta wrivec 
	 sty wrivec+1
	lda #0 
	 sta ptr
	rts
write	sta mem 
	 lda cmd 
	 cmp #3
	beq x 
	 lda mem 
	 pha 
	 jmp cmdwrt
x	pha 
	 txa 
	 pha 
	 tya 
	 pha
	lda mem 
	 ldx #init-tab-1
search	cmp tab,x 
	 beq weg
	dex 
	 bpl search
	ldx ptr 
	 sta latch,x 
	 inc ptr
	jmp get
out	ldx #0
read	cpx ptr 
	 beq endout
	lda latch,x 
	 jsr scrwri
	inx 
	 jmp read
endout	lda mem 
	 jsr scrwri
	lda #0 
	 sta ptr
get	pla 
	 tay 
	 pla 
	 tax
	pla 
	 clc 
	 rts
weg	lda spalte 
	 clc 
	 adc ptr
	cmp #39 
	 bcc out
	lda #13 
	 jsr scrwri 
	 jmp out