#config weapon=2   
#config scanner=4  
#config engine=2   
#config heatsinks=2

opo	11,	100

!scan1
opo	17,	64
ipo	7,	ax
cmp	ax,	1500
opo	12,	128
ipo	7,	ax
cmp	ax,	1500
jgr	!scan1
ipo	8,	ax
mpy	ax,	32
opo	12,	ax
jmp	!scan2

!scan2
opo	17,	16
ipo	7,	ax
cmp	ax,	1500
jgr	!scan1
ipo	8,	ax
mpy	ax,	8
opo	12,	ax
jmp	!scan3

!scan3
opo	17,	4
ipo	7,	ax
cmp	ax,	1500
jgr	!scan2
ipo	8,	bx
mpy	bx,	2
jmp	!chkheat

!chkheat
ipo	2,	ax
cmp	ax,	300
jls	!fire
jmp	!move

!fire
opo	15,	bx
jmp	!move

!move
opo	11,	100
ipo	4,	ax
err	ax
cmp	ax,	128
jls	!moveneg
jgr	!movepos
jeq	!moveequ

!moveneg
opo	15,	bx
opo	14,	12
opo	12,	-12
jmp	!wallchk

!movepos
opo	15,	bx
opo	14,	-12
opo	12,	12
jmp	!wallchk

!moveequ
opo	15,	bx
opo	14,	64
opo	12,	-64
jmp	!wallchk

!wallchk
int	12
cmp	fx,	1
int	13
jgr	!wallmove
jeq	!wallmove
jmp	!scan3

!wallmove
opo	11,	-100
delay	20
opo	14,	128
opo	11,	100
jmp	!scan3