; By-Tor
; by Chris King ("PiGuy") ctk314@yahoo.com

#config scanner=2
#config weapon=5
#config armor=0
#config engine=5
#config heatsinks=0
#config shield=0
#config mines=0

	mov ax,1
	int 4
	opo 17,8
!twirl
	opo 14,8
!loop
	opo 11,100
	ipo 7,ax
	cmp ax,1500
	jgr !twirl
	mov bx,@3
	shl bx,2
	opo 14,bx
	cmp ax,25
	jae !loop
	opo 11,-5
	;mov ax,1
	;int 4
!fireloop
	opo 15,0
	opo 15,-4
	opo 15,4
	jls !fireloop