;sidewinder, by Jude Hungerford, 1998

#def tra
#def gv
#def par
#def xy
mov     tra,    8
opo     13,     64
add     par,    64
opo     17,     10
mov     xy,     1
#def iba
mov iba,5
:1
opo     11,     1000
add     par,    5    ;increase dr angle by five
opo     13,     par  ;move to dr angle
ipo     7,      gv
cmp     gv,     2000 ;is enemy in range?
jls     1000         ;if yes, goto fire
jmp     1

:1000              ;fire
ipo     8,      gv
add     gv,     gv
cmp     gv,     0
jls     5000
add     gv,     -1
:1500
opo     15      gv
add     par,    gv
opo     13,     par
opo     14,     par
ipo     3,      par
mov tra,0
neg     tra
neg     xy
ipo     7,      gv
cmp     gv,     2000
jls     1000
jmp     1
:5000
add     gv,     2
jmp     1500