;:sys36864
	;.opt oo
	*= 49152
linct	=4
pose	=1977+40
posf	=pose+54272
memo	=704
posa	=1977
memo2	=714
	lda #55
	sta 1
	lda #224
	jsr copy
	lda #160
	jsr copy
	ldx #2
	stx 3
	stx 5
	stx $e8f7
	lda #22
	sta linct
	lda #1
	sta 2
	lda #76
	sta $e8ea
	sta $eb3c
	lda #<here1
	ldy #>here1
	sta $e8eb
	sty $e8ec
	lda #<curss
	ldy #>curss
	sta $eb3d
	sty $eb3e
	lda #<input
	ldy #>input
	sta $a563
	sty $a564
	lda #53
	sta 1
	rts
copy	ldx #32
	sta 3
	ldy #0
	sty 2
	sty $eb5d
cl	lda (2),y
	sta (2),y
	iny
	bne cl
	inc 3
	dex
	bne cl
	rts
post	.byt 160
	.byte "\x17\x05\x09\x14\x05\x12"
here1	lda $ac
	pha
	jsr test
	jmp $e8ed
test	dec linct
	beq brak
	rts
brak	jsr save
	lda #22
	sta linct
	lda #0
	sta 198
bt	jsr flash
	lda 198
	beq bt
	dec 198
	jmp load
flash	dec 3
	beq nil3
er	rts
nil3	dec 5
	bne er
	lda #30
	sta 5
	lda 2
	eor #1
	sta 2
	beq mal
	lda #32
	ldx #6
pink	sta pose,x
	dex
	bne pink
	rts
mal	ldx #6
red	lda post,x
	sta pose,x
	lda 646
	sta posf,x
	dex
	bpl red
	rts
save	ldx #6
savl	lda pose,x
	sta memo,x
	lda posa,x
	sta memo2,x
	lda #160
	sta posa,x
	lda 646
	sta 54272+posa,x
	dex
	bpl savl
	rts
load	ldx #6
loal	lda memo,x
	sta pose,x
	lda memo2,x
	sta posa,x
	dex
	bpl loal
	rts
input	lda #22
	sta linct
	jmp $e112
curss	cmp #"\x11"
	beq stop
	cmp #"\x91"
	beq stop
	cmp #"\x13"
	beq stop
	cmp #"\x93"
	beq stop
	cmp #131
	beq stop
	cmp #141
	beq stop
	sta $277,x
	inx
stop	jmp $eb40
; weiter-routine von n.heusler am 12.1.1990 um 21.35 uhr
; fuer neues programm 'koenigreich'