#config weapon=1
#config scanner=5
#config armor=3
#config engine=2

#def falg
#def maxspeed
#def speed
	
	mov	maxspeed,	100
	mov	falg,	0
	mov 	ax,	1
	int	3
	
!begin
	mov	dx,	64
!start

	opo	17,	dx
	cmp	falg	1
	jb	!enterstyle
	ipo	1,	ax
	cmp	ax	0
	je	!flip
      opo   11    100
      ipo   1     ax
      cmp   ax    0
      ja    !search
      opo   14    64
	opo	11,	maxspeed
!search
	ipo	7,	fx
	cmp	fx	2000
	ja	!dowhat
!found
	mov	bx,	dx
	mov	ax,	@3
	add	ax	1002
	je	ax
	jne	ax
:1005
	sar	bx,	1
	opo	12,	bx
	cmp	dx,	2
	jbe	!fire
	shr	dx,	1
!fire
	ipo	2,	ax
	cmp	ax	150
	ja	!headtoward
	opo	18,	1
	opo	15,	@3
	opo	18,	0
	opo	15,	@3
	opo	15,	@3
	opo	15,	@3
	
!headtoward
	mov	bx,	@1
	ipo	3,	ax
	add	ax	@2
	cmp	fx	150
	jae	!turn
!weave
	ipo	10,	ax
	and	ax,	64
	add	ax,	128
	opo	14,	ax
	je	!start
	jne	!start
!turn
	add	ax	16
	and	ax,	255
	sub	ax,	bx
	opo	14,	ax
	je	!start
	jne	!start
!enterstyle
	ipo	6,	bx
	cmp	bx	99
	ja	!enterstyle
	mov	falg,	2
	jmp	!start
!dowhat
	cmp	dx	64
	jae	!weave
	shl	dx	1
	jmp	!start
:1000
	shl	bx,	1
	mov	ax,	0
	sub	ax,	bx
	mov	bx,	ax
	jne	1005
	je	1005
:1001
	mov	ax,	0
	sub	ax,	bx
	mov	bx,	ax
	jne	1005
	je	1005
:1002
	mov	bx,	0
	jne	1005
	je	1005
:1003
	jne	1005
	je	1005
:1004
	shl	bx,	1
	jne	1005
	je	1005
!flip
	opo	14,	64
	opo	11,	100
	opo	11,	100
	opo	11,	100
	opo	11,	100
	jmp	!search