#config scanner=2
#config mines=4
#config armor=1
#config weapon=1
#config engine=3
#def	mines

mov	mines,	16
mov	ax,	1
int	3

!flip
	opo	12,	128
:64
	call	!move
	opo	17,	64
	ipo	7,	ax
	cmp	ax,	2000
	jgr	!flip
	mov	ax,	@3
	shl	ax,	5
	opo	12,	ax
	call	!fire
	ipo	9,	ax
	cmp	ax,	150
	jgr	642
	cmp	mines,	0
	jeq	642
	opo	22,	10
	sub	mines,	1
:642
	mov	bx,	@2
	add	bx,	16
	opo	14,	bx
:16
	call	!move
	opo	17,	32
	ipo	7,	ax
	cmp	ax,	2000
	jgr	64
	mov	ax,	@3
	shl	ax,	3
	opo	12,	ax
	call	!fire
	ipo	9,	ax
	cmp	ax,	150
	jgr	162
	cmp	mines,	0
	jeq	162
	opo	22,	10
	sub	mines,	1
:162
	mov	bx,	@2
	add	bx,	16
	opo	14,	bx
:8
	call	!move
	opo	17,	8
	ipo	7,	ax
	cmp	ax,	2000
	jgr	16
	mov	ax,	@3
	shl	ax,	1
	opo	12,	ax
	call	!fire
	ipo	9,	ax
	cmp	ax,	150
	jgr	82
	cmp	mines,	0
	jeq	82
	opo	22,	10
	sub	mines,	1
:82
	mov	bx,	@2
	add	bx,	16
	opo	14,	bx
	je	8
	jne	8

!move
	opo	11,	100
	int	2
	cmp	ex,	100
	jls	!mleft
	cmp	ex,	900
	jgr	!mright
	cmp	fx,	100
	jls	!mup
	cmp	fx,	900
	jgr	!mdown
	je	!mclear
	jne	!mclear

!mleft
	ipo	3,	ax
	mov	bx,	64
	sub	bx,	ax
	opo	14,	bx
	ret

!mright
	ipo	3,	ax
	mov	bx,	192
	sub	bx,	ax
	opo	14,	bx
	opo	11,	100
	ret

!mdown
	ipo	3,	ax
	mov	bx,	0
	sub	bx,	ax
	opo	14,	bx
	opo	11,	100
	ret

!mup
	ipo	3,	ax
	mov	bx,	128
	sub	bx,	ax
	opo	14,	bx
	opo	11,	100
	ret

!mclear
	ret

!fire
	ipo	2,	ax
	cmp	ax,	250
	jgr	!fireend
	opo	15,	@3
	ipo	2,	ax
	cmp	ax,	250
	jgr	!fireend
	opo	15,	@3
!fireend
	ret