;:sys36864
	;.opt oo
	*= 679
	lda #<act
	ldy #>act
	sta 776
	sty 777
	jmp 43806
act	jsr 115
	cmp #151
	beq poke
	jsr 121
fertig	jmp 42983
poke	jsr 115
	jsr $ad8a
	jsr $b7f7
	lda $14
	sta 181
	lda $15
	sta 182
komma	jsr $aefd
	jsr $ad8a
	jsr $b7f7
	lda $15
	tay
	beq single
	ldy #1
	sta (181),y
	dey
single	lda $14
	sta (181),y
	jsr 121
	beq fertig
	lda $15
	beq eins
	lda #1
eins	sec
	adc 181
	sta 181
	bcc komma
	inc 182
	jmp komma