;:sys36864
; setup codes   0 end program
;               1 turn left
;               2 turn right
;               3 go left
;               4 go right
;               5 go left until midd
;               6 go right until mid
	;.opt oo
	*= $c900
irqvec	=$314
oldirq	=$ea31
vic	=$d000
xk	=vic+2
count	=247
prg	=248
point	=2041
mix	=214
max	=252
mid	=233
	lda #<irq
	ldy #>irq
	sei
	sta irqvec
	sty irqvec+1
	lda #1
	sta count
	sta prg
	cli
back	rts
speed	.byt 1,6,1,6,1,5,1,5,1,10,4,1,10,1,3,8
setup	.byt 2,4,1,3,2,4,1,3,2,6 ,4,1,3 ,2,6,4,0
irq	jsr routine
	jmp oldirq
routine	dec count
	bne back
	ldx prg
setc	lda speed,x
	sta count
	lda setup,x
	bne richtig
	ldx #0
	stx prg
	jmp setc
richtig	cmp #1
	bne no1
	lda #14
	sta point
change	inc prg
	rts
no1	cmp #2
	bne no2
	lda #13
	sta point
	jmp change
no2	cmp #3
	bne no3
	ldx xk
	dex
	cpx #mix
comp	beq yet1
	stx xk
	rts
yet1	stx xk
	jmp change
no3	cmp #4
	bne no4
	ldx xk
	inx
	cpx #max
	jmp comp
no4	cmp #5
	bne no5
	ldx xk
	dex
	cpx #mid
	jmp comp
no5	cmp #6
	bne no6
	ldx xk
	inx
	cpx #mid
	jmp comp
no6	rts