; written bei Christian Hammerschmidt (webmaster@securitypages.de)

;mov	ax,	1
;int	3
mov	dx,	100	; line 1
opo	17,	6	; 2

!turn
opo	12,	16	; 3

!main
ipo	6,	bx	; 4
gsb	!hitcheck	; 5
opo	11,	dx	; 6
cmp	@8,	0	; (7)
jgr	!re		; (8)
opo	14,	4	; 7
ipo	2,	cx	; 8
cmp	cx,	200	; 9
jgr	!turn		; 10
ipo	7,	bx	; 11
cmp	bx,	1700	; 12
jgr	!turn		; 13
mov	ax,	@3	; 14
sal	ax,	1	; 15 
add	ax,	ax	; 16 
opo	15,	ax	; 17 much better results with 2 shots
opo	15,	ax	; 18
opo	12,	ax	; 19
jmp	!main		; 20

;!noaction
;del	5		; 21
;jmp	!turn		; 22

!re
neg	dx
int	13
jmp	!main

!hitcheck
ipo	6,	ex	; 23
cmp	bx,	ex	; 24
jeq	!noth		; 25
ipo	10,	cx	; 26
and	cx,	255	; 27
opo	14,	cx	; 28

!noth
ret			; 29