;:sys36864
	*= 49152
	;.opt oo
i	=139
a	=140
b	=141
fg	=142
s2	=166
p	=168
ah	=251
a2	=253
w	=143
	jmp p1
	jmp inv
p1	lda fg
	bne notauch
	sta i
iloop	lda #0
	sta a
	sta ah
	sta ah+1
	lda #7
	sta a2
	ldx i
	lda mul80,x
	sta s2
	lda #32
	sta s2+1
aloop	lda #0
	sta b
bloop	lda b
	bne notauch
	lda a
	bne notauch
tauch	inc fg
	rts
notauch	pha
	lda #0
	sta fg
	pla
	cmp #99
	beq tauch
	lda s2
	clc
	adc a
	sta p
	lda s2+1
	adc #0
	sta p+1
	lda b
	asl
	asl
	asl
	adc p
	sta p
	bcc noinc
	inc p+1
	clc
noinc	lda p
	adc ah
	sta p
	lda p+1
	adc ah+1
	sta p+1
	ldy #0
	lda (p),y
	pha
	lda 32774
	ora (p),y
	sta (p),y
	pla
	sta w
	ldx #7
binloop	lda grbit,x
	and w
	bne nil
	lda #3
	.byt $2c
nil	lda #0
	sta get+1
	ldy #0
get	lda 32768,y
	jsr 65490
	iny
	cpy #3
	bcc get
	dex
	bpl binloop
	inc b
	lda b
	cmp #10
	bcc qbloop
	lda #8
	jsr 65490
	jsr $aad7
	lda #15
	jsr 65490
	dec a2
	bpl goa
	lda ah
	clc
	adc #<312
	sta ah
	lda ah+1
	adc #>312
	sta ah+1
	lda #7
	sta a2
goa	inc a
	lda a
	cmp #200
	bcc qaloop
	inc i
	lda i
	cmp #4
	bcc qiloop
	rts
qbloop	jmp bloop
qaloop	jmp aloop
qiloop	jmp iloop
mul80	.byt 0,80,160,240
grbit	.byt 1,2,4,8,$10,$20,$40,$80
inv	ldx #32
	stx p+1
	ldy #0
	sty p
iv	lda (p),y
	eor #-1
	sta (p),y
	iny
	bne iv
	inc p+1
	dex
	bne iv
	rts